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