WEB邮件程序

开发平台：

Perl

							#!/usr/local/bin/perl
BEGIN { $APP_PATH=$0; $APP_PATH=~s/(/*)[^/]+$/$1/g; }
require $APP_PATH."common.pl";
require $APP_PATH."config.pl";
print "Content-type:text/htmlnn";
print '
<HTML>
<HEAD>
  <TITLE>NSWM Login Page</TITLE>
</HEAD>
<BODY BGCOLOR="#ffffff" LINK="#00009c" VLINK="#00868b" ALINK="#ff0040">
<BR>
<BR>
<BR>
<BR>
<FORM ACTION="'.$CGI_PATH_NSWM.'/frameset.pl" METHOD="POST" NAME="loginform">
<P><CENTER><TABLE BORDER="0" CELLSPACING="2" CELLPADDING="2">
  <TR>
    <TD ALIGN="RIGHT"><FONT SIZE="-1">'.$loginname.'</FONT></TD>
    <TD><INPUT NAME="loginname" SIZE="30" TYPE="text"></TD> 
  </TR>
  <TR>
    <TD ALIGN="RIGHT"><FONT SIZE="-1">'.$password.'</FONT></TD>
    <TD><INPUT NAME="password" TYPE="password" SIZE="30"></TD> 
  </TR>
  <TR>
    <TD ALIGN="RIGHT"><FONT SIZE="-1">'.$popserver.'</FONT></TD>
    <TD><INPUT NAME="POPserver" MAXLENGTH="30" ROWS="1" SIZE="30"';
if (defined($POPserver)) {
	print ' TYPE="hidden" VALUE="'.$POPserver.'"><tt>'.$POPserver.'</tt>';
} else {
	print ' TYPE="text">'
}
    print '</TD> 
  </TR>
<INPUT TYPE="hidden" NAME="cache" VALUE="No">
<INPUT TYPE="hidden" NAME="status" VALUE="firstlogin">
</TABLE><BR>
<INPUT TYPE="submit" value="'.$logintext.'"> <BR>
</FORM>
<BR>
</CENTER>
</FORM>
</BODY>
</HTML>
';
exit;

						