First pass at adding key files

This commit is contained in:
dsainty
2024-06-17 21:49:12 +10:00
commit aa25e9347f
1274 changed files with 392549 additions and 0 deletions

View 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');