发一个 perl CGI 探针的源码.

范堡 发布于 2009/03/18 17:22
阅读 1K+
收藏 0

以下直接是源码,:

#!/usr/bin/perl

#####################################################################
# 程式名称:CGI-ENV 1.00
#           网页浏览次数记录器 - 不同的网页可单独或共同记录在一个档内
# 初始设计:1999/08/23  (ver 1.00)
# 最后修改:1998/08/23  (ver 1.00)
# 作  者:傅鸿铭
# 信  箱:redsnow@pemail.net
# 网  页:http://www.tacocity.com.tw/redsnow/index.htm
#
# 作者宣告:
#   本程式免费提供给有需要的个人所使用,您可以修改程式码以便符合您的需
#   求,但是请将本段表头资料保留不动,表示对作者的尊重,至于您自己的记
#   载事项及其它说明请修改于本段资料之后。
######################################################################
# 使用说明:
# 1.修改本程式第一行之 #!/usr/local/bin/perl 为您的网站所适用的设定。
# 2.将本程式上传至您的网站目录内。
# 3.更改本程式属性为 755。
# 4.直接在浏览器的网址行输入 HTTPD 格式指向程式的路径,或是在网页上设
#    置超连结项目均可,例如:
#    http://tacocity.com.tw/cgi-bin/cgiwrap/urid/cgi-env.pl
#
#    您也可以在程式名称之后加上参数,作为参数传递的测试,例如:
#    http://tacocity.com.tw/cgi-bin/cgiwrap/urid/cgi-env.pl?parm1+parm2
####################################################################


my($version) = "1.00";
print "Content-type: text/html\n\n";

print "<HTML><HEAD>\n";
print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=gb_2312-80\">\n";
print "</HEAD><BODY TEXT=#0000FF BGCOLOR=#A0D0A0>\n";
print "<CENTER>\n";

print "<b><font color=#A060FF FACE='标楷体' size=+3>$ENV{'GATEWAY_INTERFACE'} 变数测试一览表</font></b>\n";

print "<p><table><tr bgcolor=#000000><td><table border=0 CELLPADDING=1 CELLSPACING=1>\n";
print "<tr bgcolor=#FFFFF0><td bgcolor=#00A0D0 align=center><FONT FACE=Fixedsys COLOR=#FFFF90>Perl 参数变数名称</FONT></td><td bgcolor=#00A0D0 align=center><FONT FACE=Fixedsys COLOR=#FFFF90>内含参数值</FONT></td></tr>\n";
print "<tr bgcolor=#FFFFF0><td><FONT FACE=Fixedsys COLOR=#FF0000>\$\#ARGV</FONT></td><td><FONT FACE=Fixedsys>$#ARGV</FONT></td></tr>\n";
print "<tr bgcolor=#FFFFF0><td><FONT FACE=Fixedsys COLOR=#FF0000>\@ARGV</FONT></td><td><FONT FACE=Fixedsys>";
if(@ARGV){
  print "@ARGV";
}else{
  print "&nbsp;";
}
print "</FONT></td></tr>\n";

for($i=0; $i<=$#ARGV; $i++){
  print "<tr bgcolor=#FFFFF0><td><FONT FACE=Fixedsys COLOR=#FF0000>\$ARGV[$i]</FONT></td><td><FONT FACE=Fixedsys>$ARGV[$i]</FONT></td></tr>\n";
}

print "<tr bgcolor=#FFFFF0><td bgcolor=#00A0D0 align=center><FONT FACE=Fixedsys COLOR=#FFFF90>主机环境变数名称</FONT></td><td bgcolor=#00A0D0 align=center><FONT FACE=Fixedsys COLOR=#FFFF90>变数内含值</FONT></td></tr>\n";
foreach $env (sort keys %ENV){
  print "<tr bgcolor=#FFFFF0><td><FONT FACE=Fixedsys COLOR=#FF0000>$env</FONT></td><td><FONT FACE=Fixedsys>\n";
  if($ENV{$env}){
    print "$ENV{$env}";
  }else{
    print "&nbsp;";
  }
  print "</FONT></td></tr>\n";
}

print "</table></td></tr></table>\n";

print "<P>cgi-env V$version<BR>";
print "本测试程式由 <A HREF='http://www.tacocity.com.tw/redsnow/index.htm'>红雪网页</A> 所设计</CENTER>\n";

print "</BODY></HTML>";

exit;

加载中
返回顶部
顶部