# takes input from a form and redirects # users to proper web page use CGI qw(:standard); my $domain = param("domain"); my $type = param("type"); if ($type eq 'webmail' && $domain ne ''){ print "Content-type: text/html\n\n"; print "\n"; print "\n"; } elsif ($type eq 'admin' && $domain ne ''){ print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } else { print header(), start_html("Mail Login"); print "
\n"; print "

\n"; print "Webmail Login

\n"; print "

\n"; print "E-mail Administration

\n"; print "

Domain name (without \"www\"):

\n"; print "

\n"; print "
\n"; }