#!/usr/bin/perl 
use strict;

use constant ID    => 1;
use constant SITE  => 'startgambling';
use constant NAME  => 'Start Gambling';

use FTP::News::Display;
my $news = FTP::News::Display->new({
		DBD => 'DBI:mysql:NEWS',
		DBUSER => 'root',
		DBPASS => 'funkd00bie',
		SITE => ID });

   print "Content-type: text/xml\n\n";
   print $news->rss({ VARS => { NAME => NAME,
				SITE => SITE } });