#!/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..

KD Kanopy

KD Kanopy offers pop up canopies and digital signage.
canopies, pop up tents, pop up canopies, custom tents, outdoor tents, canopies and tents, portable canopies, canopies, pop up tents, pop up canopies, outdoor tents, canopies and tents, portable canopies, canopies, Canopies

Other Sponsors

KD Kanopy offers pop up canopies and digital signage.
canopies, electrical connectors, Wellness Shower, Dietary and Nutritional Food Store, Reptile Supplies, Mangosteen Juice, Colorado Salon and Day Spa, Pop Up Canopies, Printed Canopies, Arvada Martial Arts and Karate, denver free karate,

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; }