|
| |
 精品推荐 |
 |
|
| |
|
|
|
|
Perl实例:
|
日期：2008年3月31日 作者： 查看:[大字体
中字体 小字体]
|
print "<META HTTP-EQUIV=REFRESH CONTENT="$reload_double;URL=$cgiurl?pass=$pass&job=online$userinfo">\n";
}
else {
print "$main_line";
}
}
}
#############
sub return_logout {
print "<html><head><title>$title</title>\n";
print "<META HTTP-EQUIV=REFRESH CONTENT="2;URL=$logouturl"></head>\n";
print "<body bgcolor=#000000 text=#ffffdd>\n";
print "<center><h2>您已离开聊天室<hr width=400 size=1>You have already logged out from chat room</h2></center>\n";
print "</body></html>\n";
}
#############
sub chkempty {
$chkval = $_[0];
$chkerr = $_[1];
$chkval =~ s/ //g;
$chkval =~ s///g;
$chkval =~ s/\n//g;
if ($chkval eq "") {
&error($chkerr);
}
}
#############
sub error {
$error_subject = $_[0];
print "<html><head><title>$title 错误</title>\n";
print "</head>\n";
print "<body bgcolor=$saysback text=$saysword>\n";
print "<center><h1>\n";
print "错误：$error_subject\n";
print "</h1></center></body></html>\n";
exit;
}
sub mypath
{
local $filename,$mypath;
$filename=__FILE__;
if ($filename=~/\\/) { $filename=~ s/\\/\//g;}
if ($filename) {
$mypath=substr($filename,0,rindex($filename,"/"));
}
else {
$mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\"));
$mypath=~ s/\\/\//g;
}
return $mypath;
}
sub myurl
{
local $myurl,$server_port;
if ($ENV{'SERVER_PORT'} ne '80') { $server_port=$ENV{'SERVER_PORT'};}
#---------------------------------------------------------------------------
$fullcgiurl = "http://$ENV{'SERVER_NAME'}$server_port$ENV{'SCRIPT_NAME'}";
#---------------------------------------------------------------------------
#$cgiurl的结果为如： http://www.hoyi.net/script/webbbs/forum.pl
$myurl=substr($fullcgiurl,0,rindex($fullcgiurl,"/"));
return $myurl;
}
sub check_pass {
open(USER,"$passfile") die $!;
#flock(USER,1);
@user = <USER>;
#flock(USER,8);
close(USER);
foreach $user_line (@user) {
上一篇:Cgi入门教程之：7 回应脚本
下一篇:使用脚本下载网页
|
| 相关文章： |
|
|
|
| 相关软件： |
|
| |
|
