📄 tz.cgi
字号:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
@environment_variables = keys (%ENV);
$td4="\ </strong><p>\n";
#这里是版本代号。
$softname="金光网环境变量探针";
print <<hoyi;
<HTML>
<HEAD><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<TITLE>$softname $version</TITLE>
</HEAD>
<BODY bgcolor=oldlace>
<p align="center"><font face="楷体_GB2312"><font
SIZE="5" COLOR="#990030"><b>$softname</b></font> </font></center><p>
hoyi
&sayecho;
sub sayecho
{
if ($ENV{'SCRIPT_FILENAME'})
{
$dir=substr($ENV{'SCRIPT_FILENAME'},0,rindex($ENV{'SCRIPT_FILENAME'},"/"));
}
else
{
$dir=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\"));
$dir=~ s/\\/\//g;
}
$fullurl= "http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}";
$url=substr($fullurl,0,rindex($fullurl,"/"));
print "<font size=4 face=楷体_Gb2312 color=black>当前目录绝对位置是";
print " </font>";
print "<font color=408080 face=arial size=3><strong><u>$dir</u></strong></font><br>";
print "<font size=4 face=楷体_Gb2312 color=black>当前目录的URL地址是";
print " </font>";
print "<font color=408080 face=arial size=3><strong><a href=$url>$url</a></strong></font><br>";
print "<font size=4 face=楷体_Gb2312 color=black>当前程序的URL地址是";
print " </font>";
print "<font color=408080 face=arial size=3><strong><a href=$fullurl>$fullurl</a></strong></font><p>";
foreach $environment_variable (sort @environment_variables)
{
$cenviroment_variable=$environment_variable;
$cenviroment_variable=~s/_INFO/信息/g;
$cenviroment_variable=~s/_TRANSLATED/转换设置/g;
$cenviroment_variable=~s/CONTENT_LENGTH/输出文本长度/g;
$cenviroment_variable=~s/COMPUTERNAME/服务器计算机名称/g;
$cenviroment_variable=~s/DOCUMENT_ROOT/服务器文档根目录/g;
$cenviroment_variable=~s/DOCUMENT_/脚本文件/g;
$cenviroment_variable=~s/GATEWAY_INTERFACE/(CGI通用网关接口)版本/g;
$cenviroment_variable=~s/HTTP_ACCEPT_ENCODING/客户机能接受的编码形式/g;
$cenviroment_variable=~s/HTTP_ACCEPT_CHARSET/客户机能接受的语言代码设置/g;
$cenviroment_variable=~s/HTTP_ACCEPT_LANGUAGE/客户机能接受的语言类型/g;
$cenviroment_variable=~s/HTTP_ACCEPT/客户机可以接受的文件类型/g;
$cenviroment_variable=~s/HTTP_CONNECTION/Http当前连接状态/g;
$cenviroment_variable=~s/HTTP_HOST/服务器主机域名/g;
$cenviroment_variable=~s/HTTP_REFERER/调用当前脚本的URL地址/g;
$cenviroment_variable=~s/HTTP_USER_AGENT/用户的系统配置信息/g;
$cenviroment_variable=~s/NUMBER_OF_PROCESSORS/服务器使用CPU数量/g;
$cenviroment_variable=~s/PATH/路径/g;
$cenviroment_variable=~s/QUERY_STRING/请求字符串/g;
$cenviroment_variable=~s/REMOTE_ADDR/客户机的IP地址/g;
$cenviroment_variable=~s/REMOTE_HOST/客户机的名称/g;
$cenviroment_variable=~s/REMOTE_PORT/客户机的请求端口/g;
$cenviroment_variable=~s/REQUEST_METHOD/客户机的请求方法/g;
$cenviroment_variable=~s/REQUEST_URI/客户机的请求URL信息/g;
$cenviroment_variable=~s/SCRIPT_FILENAME/脚本文件的绝对路径名/g;
$cenviroment_variable=~s/SCRIPT_NAME/脚本文件调用URL地址/g;
$cenviroment_variable=~s/SERVER_ADMIN/服务器网络管理员/g;
$cenviroment_variable=~s/SERVER_NAME/服务器域名/g;
$cenviroment_variable=~s/SERVER_PORT_SECURE/接受Http请求的服务器安全、加密端口/g;
$cenviroment_variable=~s/SERVER_PORT/接受Http请求的服务器端口/g;
$cenviroment_variable=~s/SERVER_PROTOCOL/服务器访问协议/g;
$cenviroment_variable=~s/SERVER_SOFTWARE/服务器软件的名称及版本/g;
$cenviroment_variable=~s/REMOTE_USER/用户名字信息/g;
$cenviroment_variable=~s/URI/URL地址信息/g;
$cenviroment_variable=~s/NAME/名字信息/g;
$cenviroment_variable=~s/SCRIPT_/脚本文件/g;
$cenviroment_variable=~s/OS/操作系统/g;
print "<font size=4 face=楷体_Gb2312 color=black>$td0调用变量名称： </font><font color=408080 face=arial size=3>$cenviroment_variable<strong><br>";
print "<font color=408080><u>\$ENV{$environment_variable}</strong>$td1</font></u>";
print "$td2<font color=990033><strong><u> = $ENV{$environment_variable}$td4</font></u>\n";
}
print "</center></BODY></HTML>";
}
exit 0;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -