#!/bin/env 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/forum.slowtwitch.com/cgi-bin/admin';
use GForum qw($IN);
GForum::init('/home/slowtwitch/forum.slowtwitch.com/cgi-bin/admin');
use Ticker;

print $IN->header(-type => "text/xml");
print Ticker::read_tickers_xml();