#!C:/Perl/bin/perl.exe -wT

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

	my $auth_file = 'auth.pl';

require "$auth_file";
&startup;
	my $action = $INPUT->param('action');

if (length($action) > 15) {
	 print "Invalid Action!  Your IP has been logged and will be investigated further."; 
    	die;  
	}  

if ($action eq "login") { &login; }
elsif ($action eq "auth") { &auth; }
elsif ($action eq "logout") { &logout; }
else { &signup; }