WEB邮件程序

开发平台：

Perl

index.pl：源码内容

							#!/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>NikoSoft WebMail</title>
</head>
<frameset rows=90,* border=0 marginheight=0>
	<frame src=../title.htm name=title>
	<frame src='.$CGI_PATH_NSWM.'login.pl name=dyna>
</frameset>
</html>
';
exit;

						