📄 manage.cgi
字号:
#!/usr/bin/perl
#$path = "."; #这是unix下的配置
$path = &deenpath; #这是win nt iis下的所用的配置
# 打开配置文件与公用模块
do "$path/config.cgi";
do "$path/public.cgi";
$userlevel = 0;
&get_form;
&set_var;
if ( $job eq "addhtml" ) {
&user_html; }
elsif ( $job eq "add" ) {
&userdata; }
elsif ($job eq "logonhtml") {
&logon_html; }
elsif ($job eq "logon") {
&user_html;}
elsif ($job eq "logonin") { #内部的修改
&user_html; }
elsif ($job eq "change") {
&userdata; }
elsif ($job eq "killhtml") {
&logon_html; }
elsif ($job eq "delete") {
&delete_user; }
elsif ($job eq "setkick") {
&check_password;
&list_user; }
elsif ($job eq "add_kick_out") {
&check_password;
&add_kick_out; }
elsif ($job eq "searchhtml") {
&search_html; }
elsif ($job eq "search") {
&search;}
elsif ($job eq "filter") {
&check_password;
&filter; }
elsif ($job eq "unfilter") {
&check_password;
&unfilter; }
elsif ($job eq "dispfilter") {
&check_password;
&dispfilter; }
elsif ($job eq "superfilter") {
&check_password;
&superfilter; }
elsif ($job eq "viewgbook") {
&guest_html; }
elsif ($job eq "guestbook") {
&check_password;
&guestbook; }
elsif ($job eq "super") {
&super_html; }
elsif ($job eq "superuserhtml") {
&superuser_html; }
elsif ($job eq "userchang1") {
&superuser_html; }
elsif ($job eq "userchang2") {
&superuser_html; }
elsif ($job eq "userchang3") {
&superuser_html; }
elsif ($job eq "superuplevel") {
&uplevel; }
elsif ($job eq "sysmess") {
&sysmess_html; }
elsif ($job eq "syssave") {
&syssave; }
elsif ($job eq "supersingle") {
&supersingle_html; }
elsif ($job eq "superchange") {
&user_html; }
elsif ($job eq "superdelete") {
&superdelete; }
elsif ($job eq "sadmin_html") {
&sadmin_html; }
elsif ($job eq "sfind") {
&check_password;
&sadmin_change; }
elsif ($job eq "schange") {
&check_password;
&sadmin_update; }
elsif ($job eq "cleanuserlist") {
&cleanuserlist; }
elsif ($job eq "killrec") {
&killrec; }
elsif ($job eq "delekillip") {
&delekillip; }
elsif ($job eq "listemail") {
&listemail;}
elsif ($job eq "sendallhtml") {
&sendallhtml; }
elsif ($job eq "sendall") {
&sendall; }
elsif ($job eq "usertop" ) {
&usertop; }
elsif ($job eq "bookhtml" ) {
&check_password;
&bookhtml; }
elsif ($job eq "delebook" ) {
&delebook; }
elsif ($job eq "setpoint" ) {
&setpoint; }
elsif ($job eq "setlevel" ) {
&setlevel; }
elsif ($job eq "backdata" ) {
&backdata; }
elsif ($job eq "restoredata" ) {
&restoredata; }
elsif ($job eq "setgen_html" ) {
&check_password;
&setgen_html; }
elsif ($job eq "setgen" ) {
&check_password;
&setgen; }
elsif ($job eq "delgen" ) {
&check_password;
&delgen; }
elsif ($job eq "csuperpass" ) {
&csuperpass; }
elsif ($job eq "active" ) {
&check_password;
&active_html; }
elsif ($job eq "cls" ) {
&check_password;
&cls_mess; }
elsif ($job eq "passhtml") {
&rpasshtml;}
elsif ($job eq "returnpass") {
&returnpass;}
elsif ($job eq "setno") {
&setno;}
exit;
####################################
#修改登录页面
#####################################
sub logon_html {
if ($job eq "logonhtml") {
$dntitle = "修改资料";
$dnjob = "logon";
$dnvalue = "想清楚了，改吧";
}
if ($job eq "killhtml") {
$dntitle = "销除用户";
$dnjob = "delete";
$dnvalue = "算了，不要了";
}
print <<_dnchat;
<html><title>$roomtitle</title></head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
TABLE { font-family: 宋体; font-size: 14px }
--></style>
</head>
<body bgcolor=$bg_color text=$text_color link="#FF00FF">
<br><br><div align="center">
<table width="300" border="1" bordercolorlight="#CCFFFF" bordercolordark="#000000"
bordercolor="#33CCFF" align="center" bgcolor="#99CCFF" >
<tr><td bgcolor="#D6D5CD" height="14"><p align="right"><font color="#000000">$roomtitle</font></td></tr>
<tr><td bgcolor="#FDF0EA" height="14"><p align="center"><font size = 4 color="#0000FF">$dntitle</font></td></tr>
<tr><td bgcolor="#EFEDEF" height="16">
<FORM action='$cgiurl$manage?job=$dnjob' method=post><p align=center><br>
<font color="#0000FF">用 户 名：<INPUT size=20 maxLength=50 name=username><br>
密 码：<INPUT size=20 maxLength=75 name=userpassword type="password" ></font><br><br></td></tr>
<tr><td bgcolor="#D6D5CD" height="18"><p align="center">
<INPUT language=javascript onclick="" style="BACKGROUND-COLOR: DDDDFF; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: 000000; FONT-FAMILY: 宋体, Arial; FONT-SIZE: 9pt" type=submit value="$dnvalue">
</td> </tr></table></form>
<br><SPAN style="FONT-SIZE: 12px">技术支持 <a href="http://deen.126.com" target="_blank"><ACRONYM TITLE='提供最酷的聊天程序,去看看了'>聊天同盟</ACRONYM></a></span>
</div></body></html>
_dnchat
}
##############################
#用户资料与注册页面
##############################
sub user_html {
if ($job eq "addhtml") {
$dnjob = "add";
$dntitle = "新用户注册";
$dnusername = "<INPUT size=20 maxLength=50 name=chkusername>";
$dncomment = "Hi,你好呀!";
}
elsif (($job eq "logon")||($job eq "superchange")||($job eq "logonin")) {
&check_password2($username,$userpassword) if ($job eq "logon");
&check_password if (($job eq "superchange")||($job eq "logonin"));
$dnjob = "change";
$dntitle = "修改资料";
$chkusername =&get_var('chkusername' ,'\n|\"|\<|\>|\&|;| |\?|‖|\'|\*|\.|\@|\(|\)|\^|\%|\#|\+|\-|\`|\,|\!|\:|\/|');
$chkusername = $username if ($chkusername eq "");
$userfile = "$userhead$chkusername$userext";
&error("提取 $chkusername 用户数据出错") unless (-e "$userfile");
$user=&readtxtfile2($userfile);
&readuserdata($user);
$chkuserpass =&unpasscode($chkuserpass);
$userinfo .= "&dnchkuserpass=$chkuserpass";
$dnusername = "$chkusername<input type=hidden name=chkusername value=$chkusername>";
$dncomment = "$chkcomment";
}
print <<_dnchat;
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>$roomtitle</title>
<style type="text/css">
<!--
TABLE { font-family: 宋体; font-size: 14px }
--></style>
</head>
<body bgcolor=$bg_color text=$text_color>
<br><br><br><div align="center">
<table width="540" border="1" bordercolorlight="#CCFFFF" bordercolordark="#000000"
bordercolor="#33CCFF" align="center" bgcolor="#99CCFF" height="150">
<tr><td colspan="2" bgcolor="#D6D5CD" height="14"><p align="right"><font color="#000000">$roomtitle</font></td></tr>
<tr><td colspan="2" bgcolor="#FDF0EA" height="14"><p align="center"><font size = 5 color="#0000FF">$dntitle</font></td></tr>
<tr><td bgcolor="#EFEDEF" width="270" height="12">
<FORM action='$cgiurl$manage?job=$dnjob&$userinfo' method=post>
<font color="#0000FF">用 户 名：$dnusername *</font></td>
<td bgcolor="#EFEDEF" width="270" height="12"><font color="#0000FF">
性 别：</font></td></tr>
_dnchat
if (($job eq "superchange")&&($find_id)) {
$level_html = "<select name='chkuserlevel'>";
for ($i = 1; $i<$maxlevel ; $i++) {
$level_html .="<option value='$i' ";
$level_html .= "selected" if ($chkuserlevel == $i );
$level_html .="> $i </option>"; }
$level_html .= "</select>";
$temp_sadmin = "";
$temp_sadmin = "checked" if ($chksadmin);
print <<_dnchat;
<tr><td colspan="2" bgcolor="#EFEDEF" height="12"><font color="#0000FF">
级 别： $level_html</font>
<input type=checkbox name=temp_sadmin $temp_sadmin value="yes"><font color="#0000FF">
小 网 管</font>
<font color="#0000FF"> 经 验：<INPUT size=9 maxLength=75 name=chkuserexperi value="$chkuserexperi"></font></td></tr>
_dnchat
}
print <<_dnchat;
<tr><td bgcolor="#EFEDEF" width="270" height="12"><font color="#0000FF">
密 码：<INPUT size=20 maxLength=75 name=chkuserpass type="password" value ="$chkuserpass">*</font></td>
<td bgcolor="#EFEDEF" width="270" height="12"><font color="#0000FF">
Email：<INPUT size=20 maxLength=75 name=chkuseremail value="$chkuseremail">*</font></td></tr>
<tr><td colspan="2" bgcolor="#EFEDEF" width="534" height="12"><font color="#0000FF">自我简介：<INPUT size=60 maxLength=200 name=chkcomment value="$dncomment"></font></td></tr>
<tr><td colspan="2" bgcolor="#EFEDEF" width="534" height="12"><font color="#0000FF">进入提示：<INPUT size=60 maxLength=50 name=chkuserin value="$chkuserin"></font></td></tr>
<tr><td colspan="2" bgcolor="#EFEDEF" width="534" height="12"><font color="#0000FF">退出提示：<INPUT size=60 maxLength=50 name=chkuserout value="$chkuserout"></font></td></tr>
<tr><td colspan="2" bgcolor="#D6D5CD" height="14"><p align="center"><font color="#000000">如果你连续<b> 30 </b>天不来聊天,你的名字将被系统自动删除,请爱护你的名字</font></td></tr>
<tr><td colspan="2" bgcolor="#FDF0EA" width="540" height="18"><p align="center">
<INPUT language=javascript onclick="" style=\"BACKGROUND-COLOR: DDDDFF; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: 000000; FONT-FAMILY: 宋体, Arial; FONT-SIZE: 9pt\" type=submit value=\"提 交\">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -