📄 edit.cgi
字号:
#!/usr/bin/perl
### 西路留言本Ver3。0单用户版 # http://westroad.126.com ###
require "setup.cgi";
@querys = split(/&/, $ENV{'QUERY_STRING'});
foreach $query (@querys) {
($name, $value) = split(/=/, $query);
$tj{$name} = $value;
}
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\|//g;
$value =~ s/>/>/g;
$value =~ s/</</g;
$value =~ s/\r\n/<br>/g;
$value =~ s/\n/<br>/g;
$tj{$name} = $value;
}
$number=$tj{'number'};
$admin=$tj{'admin'};
$pass=$tj{'pass'};
$yuen=$tj{'yuen'};
if ($admin eq ""){
&login;
exit;
}
if ($pass eq "" ){
&error ("密码没填");
exit;
}elsif ($admin ne $adminname){
&error ("用户名错误");
exit;
}elsif ($pass ne $password){
&error ("密码错误");
exit;
}
print "Content-type: text/html\n\n";
if ($tj{'lei'} ne ""){
$lei = $tj{'lei'};
}
if ($tj{'id'} ne ""){
$id = $tj{'id'};
}
if ($id eq 'del'){
&del;
exit;
}
if ($id eq 'reply'){
&reply;
exit;
}
if ($id eq 'replys'){
&replys;
exit:
}else{
&error('没有工作指示');
exit;
}
sub del {
open (test,"<$data")||die "$!";
@lines=<test>;
close (test);
open (save, ">$data")||die "$!\n";
foreach $line (@lines){
$line=~s/\n//g;
($anum,$name,$tx,$email,$zhuye,$icqx,$oicq,$nenrong,$ip,$hf,$htpic,$thistime,$yue)=split (/\|/,$line);
if ($lei eq "tiao"){
if ($number ne $anum){
print save "$line\n";
}
}
if ($lei eq "pi" ){
if ($yuen ne $yue){
print save "$line\n";
}
}
}
close (save);
&fh;
}
sub replys {
open (reply,"<$data")||die "$!";
@lines=<reply>;
close (reply);
open (replys,">$data")||die "$!";
foreach $line (@lines){
($anum,$name,$tx,$email,$zhuye,$icqx,$oicq,$nenrong,$ip,$hf,$htpic,$thistime,$yue)=split (/\|/,$line);
if ($anum eq $number){
$hf=$tj{"hf"};
$hfpic=$tj{"userface"};
$line="$anum|$name|$tx|$email|$zhuye|$icqx|$oicq|$nenrong|$ip|$hf|$hfpic|$thistime|$yue";
print replys "$line";
}else{
print replys "$line";
}
}
close(replys);
&fh;
}
sub login {
print "Content-type: text/html\n\n";
print <<eof;
<html>
<head>
<title>验证身份</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<dir><p align="center"><i>只有站长才能回复留言，请输入您的用户名和密码!</i></p></dir>
<body background="$gif/$bggif" bgcolor="#FFFFFF">
<p> </p>
<p> </p>
<form name="login" method="post" action="edit.cgi" >
<input type="hidden" name="id" value="$tj{'id'}">
<input type="hidden" name="lei" value="$tj{'lei'}">
<input type="hidden" name="yuen" value="$tj{'yuan'}">
<input type="hidden" name="number" value="$tj{'number'}">
<table width="300" border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<td width="63">
<div align="center"><font size="2">用户:</font></div>
</td>
<td width="223">
<input type="text" name='admin'>
</td>
</tr>
<tr>
<td width="63">
<div align="center"><font size="2">密码</font>:</div>
</td>
<td width="223">
<input type="password" name='pass'>
</td>
</tr>
<tr align="center" valign="middle">
<td colspan="2">
<div align="center">
<input type="submit" name="Submit" value="登录">
</div>
</td>
</tr>
</table>
</form>
</body>
</html>
eof
exit;
}
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
sub reply
{
print <<eof;
<HTML>
<HEAD>
<TITLE>斑竹回复</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="$css">
</HEAD>
<dir><img border="0" src="$gif/$btgif" ></dir>
<BODY bgcolor="#ffffff" text="#000000" link="#000080" vlink="#808000" background="$gif/$bggif">
<div align="center"><br>
</div>
<form method="post" action="edit.cgi?id=replys" name=creator>
<input type="hidden" name="number" value="$tj{'number'}">
<input type="hidden" name="admin" value="$tj{'admin'}">
<input type="hidden" name="pass" value="$tj{'pass'}">
<div align="center">
<center>
<table width="532" border="1" cellspacing="0" cellpadding="0" height="123" bordercolor="#111111" bgcolor="#EBEBEB" style="border-collapse: collapse">
<tr bordercolor="#000000">
<td colspan="3" height="1" bgcolor="#CC99FF">
<div align="center">斑 竹 回 复</div>
</td>
</tr>
<tr bordercolor="#000000">
<td height="100">填写<span lang="zh-cn">回复</span></td>
<td height="100">
<div align="left">
<textarea name="hf" wrap="VIRTUAL" cols="50" rows="5" style="border: 1px solid $reply_bdbk; background-color: $reply_bdbg">感谢您在$sitename的留言，希望您继续关注我们.</textarea>
<font color="#FF0000">*</font> </div>
</td>
</tr>
</table>
</center>
</div>
<p align="center">
<input type="submit" name="Submit" value="提交" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #D9D9D9">
</p>
</form>
<FONT class=c SIZE="2"> </FONT>
<br>
<table align="center" >
<tr>
<td><a target="_blank" href="http://westroad.126.com">西路留言本<span lang="en-us">Ver3.0</span>单用户版</a><br>
技术支持：<a href="mailto:balakov.liuwei\@163.net">刘巍</a></td>
</tr>
</table>
</BODY>
</HTML>
eof
exit;
}
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
sub error
{
print "<html><head></head><body><script>alert('$_[0]');history.back();</script></body></html>";
}
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=#
sub fh {
print <<eof;
<html>
<meta http-equiv="refresh" content="0; url=$cgi">
<body background="$gif/$bggif">
<br>
<font size="2" color="#9999FF">感谢您在$sitename的留言，如果无法自动转入，<a href="$cgi">请点这里>>></a></font>
</body>
</html>
eof
exit;
}⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -