#!/usr/bin/perl ######################################################## # 本程序为Yuzi工作室提供 # # Yuzi环境变量探针 # # # # 谢谢您使用本程序　　yuzi # # E-mail: huangzhiyu@163.net # # http://www.yuzi.net # #------------------------------------------------------# # 您只须将程序上传，再修改文件属性为“755”即可使用。 # # 如：chmod 755 # ######################################################## ## 以下部分不需修改 ## ###################### print "Content-type:text/html\n\n"; if ( -e "yuzi.cgi"){ $jjjddd="绝对路径不用填"; }else{ $jjjddd="您的每1个CGI文件都要填上绝对路径"; } &sayecho; sub sayecho { $dir=&mypath; $url=&myurl; $perl_ver=$]; $web_os=$^O; $envtext_tab.= < Yuzi环境变量探针
Yuzi环境变量探针

当前目录的CGI程序文件的绝对路径 $dir
当前目录的CGI脚本文件的URL相对路径 $url
Perl 版本 $]
当前操作系统 $web_os
您的绝对路径是否要填 $jjjddd
Psend kept free because of these great sponsors.a..

Other Sponsors

electrical connectors, Mangosteen Juice, real estate short sale, Jupiter FL real estate,

Furniture Markdown

Great Deals on furniture - Free Shipping!
Discount Furniture
Daybeds
Metal Beds
Platform Beds
Futons

Y-Net Wireless Internet

Denver area high speed wireless privider.
Colorado High Speed Internet, Wireless Internet Denver, VOIP Denver CO, T1 provider Denver, Denver Wireless ISP , Denver Internet Access,

Dog House Technologies

Doghouse Techonologies is located in Tampa Bay FL and offer professional web design, ecommerce development and custom application design for the internet.
Tampa Bay Web Design, E-Commerce Web Design, Tampa Bay Search Engine Marketing, Tampa Web Hosting, Florida Web Design, Custom Application Development, Search Engine Optimization,

EOFXX $envtext=$envtext_head.$envtext_tab.$envtext_var.$envtext2; print $envtext; } sub mypath { $tempfilename=__FILE__; if ($tempfilename=~/\\/) { $tempfilename=~ s/\\/\//g;} if ($tempfilename) { $mypath=substr($tempfilename,0,rindex($tempfilename,"/")); } else { $mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\")); $mypath=~ s/\\/\//g; } } 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'}"; $myurl=substr($fullcgiurl,0,rindex($fullcgiurl,"/")); return $myurl; }