First pass at adding key files
This commit is contained in:
		
							
								
								
									
										27
									
								
								site/slowtwitch.com/cgi-bin/articles/subscribe.cgi
									
									
									
									
									
										Executable file
									
								
							
							
						
						
									
										27
									
								
								site/slowtwitch.com/cgi-bin/articles/subscribe.cgi
									
									
									
									
									
										Executable file
									
								
							@@ -0,0 +1,27 @@
 | 
			
		||||
#!/usr/local/bin/perl
 | 
			
		||||
# ==================================================================
 | 
			
		||||
# Gossamer Links - enhanced directory management system
 | 
			
		||||
#
 | 
			
		||||
#   Website  : http://gossamer-threads.com/
 | 
			
		||||
#   Support  : http://gossamer-threads.com/scripts/support/
 | 
			
		||||
#   CVS Info : 087,071,086,086,085      
 | 
			
		||||
#   Revision : $Id: subscribe.cgi,v 1.29 2005/03/22 08:18:05 jagerman Exp $
 | 
			
		||||
#
 | 
			
		||||
# Copyright (c) 2001 Gossamer Threads Inc.  All Rights Reserved.
 | 
			
		||||
# Redistribution in part or in whole strictly prohibited. Please
 | 
			
		||||
# see LICENSE file for full details.
 | 
			
		||||
# ==================================================================
 | 
			
		||||
 | 
			
		||||
use strict;
 | 
			
		||||
use lib '/var/home/slowtwitch/slowtwitch.com/cgi-bin/articles/admin';
 | 
			
		||||
use Links qw/$PLG/;
 | 
			
		||||
use Links::Newsletter;
 | 
			
		||||
 | 
			
		||||
local $SIG{__DIE__} = \&Links::fatal;
 | 
			
		||||
 | 
			
		||||
Links::init('/var/home/slowtwitch/slowtwitch.com/cgi-bin/articles/admin');
 | 
			
		||||
Links::init_user();
 | 
			
		||||
 | 
			
		||||
if ($PLG->dispatch('check_request', \&Links::check_request)) {
 | 
			
		||||
    $PLG->dispatch('handle_subscribe', \&Links::Newsletter::handle);
 | 
			
		||||
}
 | 
			
		||||
		Reference in New Issue
	
	Block a user