use Fcntl;
use AnyDBM_File;

require "cgi-lib.pl";
&ReadParse(\%in,\%cgi_cfn);

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

if (!$in{'username'} || !$in{'password'}) { &login_html; exit; }

&get_values;
&check_login;
&actions;
&manager_html;