#!/usr/bin/perl -w
use strict;
use Data::Dumper;

# courgette - use local modules
# use lib qw{ /home/chisel/Perl/lib };
use HTML::Template;
use UglyCODE::WHO;

my ($ht, $uWho, $wholist);

$uWho = UglyCODE::WHO->new({
	'host'		=> 'uglymug.org.uk',
	'port'		=> 23,
	'ignore_unconnected'	=> 1,
});

$wholist = $uWho->fetch_wholist;
$uWho->parse_wholist($wholist);

# make a H::T object
$ht = HTML::Template->new(
	'die_on_bad_params'	=> 0,
	'filename'		=> 'uglywho.tpl',
);

# get a simple table
$ht->param('WHO_TABLE', $uWho->simple_table);
# other data
$ht->param('USER_LOOP', $uWho->user_data);
$ht->param('USER_COUNT', $uWho->user_count);
$ht->param('PEAK_USERS', $uWho->peak_users);
$ht->param('UPTIME', $uWho->uptime);

# print the html doc
print "Content-type: text/html\n\n";
print $ht->output;