First pass at adding key files
This commit is contained in:
		
							
								
								
									
										17
									
								
								site/slowtwitch.com/cgi-bin/articles/ticker/ticker.cgi
									
									
									
									
									
										Executable file
									
								
							
							
						
						
									
										17
									
								
								site/slowtwitch.com/cgi-bin/articles/ticker/ticker.cgi
									
									
									
									
									
										Executable file
									
								
							@@ -0,0 +1,17 @@
 | 
			
		||||
#!/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 Links qw(:objects);
 | 
			
		||||
Links::init('/home/slowtwitch/slowtwitch.com/cgi-bin/articles/admin');
 | 
			
		||||
use Ticker;
 | 
			
		||||
 | 
			
		||||
print $IN->header(-type => "text/xml");
 | 
			
		||||
print Ticker::read_tickers_xml();
 | 
			
		||||
		Reference in New Issue
	
	Block a user