#!/usr/local/bin/perl -w

print "Content-type: text/html\n\n";

use lib '.';

use CGI ':standard';

use DBAD;

add_standard_html_tags();

my $filename = $0;
$filename =~ s/\.[^.\\\/]*$/.tpl/;

$tree = parse_html_file($filename);

exec_html_tree ($tree);
