20 lines
491 B
Perl
Executable File
20 lines
491 B
Perl
Executable File
#!/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'); |