#!/usr/bin/perl -w
use strict;
use HTML::Template;
use Apache::Request;
use Okcomputer::User;

my $templ_file = 'status.html';

my $r = Apache::Request->new(Apache->request);
$r->content_type('text/html');
$r->send_http_header;

my $user = Okcomputer::User->new($r->connection->user);
my $template = HTML::Template->new(filename => $templ_file);
$template->param(title => $user->name,
		 name  => $user->name);
print $template->output;