📄 install.cgi
字号:
#!/usr/bin/perl
#------------------------------------------------------#
# 本程序为Yuzi工作室提供 #
# Yuzi论坛3000 v3.20 免费版 #
#------------------------------------------------------#
require "setup.cgi";
######################
## 以下部分不需修改 ##
######################
mkdir("$filepath",0777);
mkdir("$filepath/yhzl",0777);
mkdir("$filepath/list",0777);
mkdir("$filepath/data",0777);
mkdir("$filepath/guest",0777);
mkdir("$filepath/vote",0777);
unless(-f $people){
open(TMP,">$people");
close(TMP);
chmod(0666,$people);
}
unless(-f $chklast){
open(TMP,">$chklast");
close(TMP);
chmod(0666,$chklast);
}
unless(-f "$filepath/data/list.cgi"){
open(TMP,">$filepath/data/list.cgi");
close(TMP);
chmod(0666,"$filepath/data/list.cgi");
}
unless(-f "$filepath/vote/list"){
open(TMP,">$filepath/vote/list");
close(TMP);
chmod(0666,"$filepath/vote/list");
}
unless(-f "$filepath/data/prison"){
open(TMP,">$filepath/data/prison");
close(TMP);
chmod(0666,"$filepath/data/prison");
}
print "Content-type: text/html\n\n";
print <<EOF;
<html>
<head>
<title>您的已成功地将Yuzi论坛3000安装到服务器了!</title>
<BODY background=$imagurl/bg.jpg>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta HTTP-EQUIV="REFRESH" CONTENT="10;URL=bbs.cgi">
</head>
<p align="center"> </p>
<p align="center"> </p>
<p align="center">您的已成功地将Yuzi论坛3000安装到服务器了!</p>
<p align="center">【<a href=reg.cgi>点击这里申请新论坛</a>】</p>
</table>
</body>
</html>
EOF
exit;
######################### END OF SCRIPT #########################⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -