#------------------------------------------------------# # 本程序為Yuzi工作室提供 # # Yuzi友情連接2000多用戶版v1.02 # # # # 本程序版權歸Yuzi工作室所有!任何人皆可自由 # # 使用本程序於非商業用途,商業用途必須付費人 # # 民幣500元! # # # # 謝謝您使用本程序 yuzi # # E-mail: huangzhiyu@163.net # # http://yuzi.126.com # # # # 本程序為免費程序,您可以使用本程序,但必須 # # 保留Yuzi工作室(http://yuzi.126.com)的鏈接! # #------------------------------------------------------# ######################## 設定部分 ######################## $admname = "tomalink"; # 站長名字 $delpsd = "tomatoma"; # 站長密碼 $zynames = "斗真的筆記簿"; # 主頁名稱 $zyurl = "http://www.ikutatoma.net"; # 主頁地址 $imagurl = ""; # 圖片位置(後面不要加"/") $filepath = "."; # CGI程序文件的絕對路徑(後面不要加"/") $mailprg = "/usr/sbin/sendmail -t"; # Server上送信軟件的位置 通常用此默認路徑 $perpage = "10"; # 每頁顯示的信息數 $time_hour = "0"; # Server時區調整,小時。 ######################## 設定結束 ######################## ## 以下部分不需修改 ## ###################### $urlyuzi=&myurl; $ym="$urlyuzi"; $yuzicgi="link.cgi"; $cginame="友情連接"; $chklast="$filepath/data/chklast"; $list="$filepath/data/list"; sub errorview { print "Content-type: text/html\n\n"; print ""; } 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; }