📄 setup.cgi
字号:
#------------------------------------------------------#
# 本程序为Yuzi工作室提供 #
# Yuzi聊天室2000多用户版v1.01 #
# #
# 本程序版权归Yuzi工作室所有！任何人皆可自由 #
# 使用本程序于非商业用途，商业用途必须付费人 #
# 民币500元！ #
# #
# 谢谢您使用本程序 yuzi #
# E-mail: huangzhiyu@163.net #
# http://yuzi.126.com #
# #
# 本程序为免费程序，您可以使用本程序，但必须 #
# 保留Yuzi工作室(http://yuzi.126.com)的链接！ #
#------------------------------------------------------#
######################## 设定部分 ########################
$admname = "yuzi"; # 站长名字
$delpsd = "abcd"; # 站长密码
$zynames = "Yuzi工作室"; # 主页名称
$zyurl = "http://yuzi.126.com"; # 主页地址
$imagurl = "http://127.0.0.1/chat2000/image"; # 图片位置(后面不要加"/")
$title = "聊天室"; #聊天室名称；
$filepath = "."; # CGI程序文件的绝对路径(后面不要加"/")
$mailprg = "/usr/sbin/sendmail -t"; # Server上送信软件的位置 通常用此默认路径
######################## 设定结束 ########################
## 以下部分不需修改 ##
######################
$urlyuzi=&myurl;
$ym="$urlyuzi";
$yuzicgi="chat.cgi";
$cginame="聊天室";
$chklast="$filepath/data/chklast";
$list="$filepath/data/list";
sub errorview
{
print "Content-type: text/html\n\n";
print "<html><head></head><body><script>alert('$_[0]');history.back();</script></body></html>";
}
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;
}⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -