First pass at adding key files
This commit is contained in:
		
							
								
								
									
										20
									
								
								site/slowtwitch.com/cgi-bin/articles/ticker/coupons.cgi
									
									
									
									
									
										Executable file
									
								
							
							
						
						
									
										20
									
								
								site/slowtwitch.com/cgi-bin/articles/ticker/coupons.cgi
									
									
									
									
									
										Executable file
									
								
							@@ -0,0 +1,20 @@
 | 
			
		||||
#!/usr/local/bin/perl
 | 
			
		||||
#
 | 
			
		||||
# Handle requests for the client-side view of the Ticker.
 | 
			
		||||
#
 | 
			
		||||
# Returns an xml document containing all the tickers currently present in
 | 
			
		||||
# the database.
 | 
			
		||||
#
 | 
			
		||||
 | 
			
		||||
use strict;
 | 
			
		||||
use warnings;
 | 
			
		||||
use lib '/home/slowtwitch/slowtwitch.com/cgi-bin/articles/admin';
 | 
			
		||||
use GT::Template;
 | 
			
		||||
use Links qw(:objects);
 | 
			
		||||
use Ticker;
 | 
			
		||||
 | 
			
		||||
Links::init('/home/slowtwitch/slowtwitch.com/cgi-bin/articles/admin');
 | 
			
		||||
Links::init_user();
 | 
			
		||||
 | 
			
		||||
print $IN->header();
 | 
			
		||||
print Links->user_page('include_ticker_coupons.html');
 | 
			
		||||
		Reference in New Issue
	
	Block a user