📄 quote.cgi
字号:
#!/usr/bin/perl
#------------------------------------------------------#
# 本程序为Yuzi工作室提供 #
# Yuzi论坛3000 v3.20 免费版 #
#------------------------------------------------------#
require "setup.cgi";
######################
## 以下部分不需修改 ##
######################
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {
$buffer = $ENV{'QUERY_STRING'};
}
@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/<!--(.|\n)*-->//g;
$value =~ s/\t/--/g;
$value =~ s/>/>/g;
$value =~ s/</</g;
$FORM{$name} = $value;
}
$yjhf = $FORM{'yjhf'};
$id = $FORM{'id'};
$replytime = $FORM{'replytime'};
$bbs = $FORM{'bbs'};
$menu = $FORM{'menu'};
$mail = $FORM{'mail'};
$retitles = $FORM{'retitles'};
$fff = $FORM{'fff'};
if($id ne ""){
open (CHAT,"$filepath/list/$id.cgi");
@lines=<CHAT>;
close(CHAT);
foreach $line (@lines){
($rname,$rpass,$bzrmail,$rhome,$bbsname)=split(/\t/,$line);
}
}
&GetCookies;
if ($username eq ""){$username=$Cookies{username}};
if ($userpsd eq ""){$userpsd=$Cookies{password}};
if($fff eq ""){
open(PSD,"$filepath/list/$id/$replytime");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
$line=~ s/\n//g;
($titles,$rthistime,$rusername,$nr,$rfrom,$rhasreply,$remote,$rlastname,$rlasttime,$re,$rhassee)=split(/\t/,$line);
}
}else{
open(PSD,"$filepath/list/$id/$replytime"."b");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
$line=~ s/\n//g;
($rtime,$rthistime,$rusernamess,$nrss,$rfrom,$remote,$titless)=split(/\t/,$line);
if($fff eq $rthistime){$nr=$nrss;$rusername=$rusernamess;$titles=$titless;}
}
}
$nr=~ s/<([^>]|\n)*>/\n/g;
if($menu eq "copy"){©exit;}
if($menu eq "mail"){&mail;exit;}
if($id ne ""){
open (CHAT,"$filepath/list/$id.cgi");
@lines=<CHAT>;
close(CHAT);
foreach $line (@lines){
$line=~ s/\n//g;
if($line ne ""){
($rname,$rpass,$bzrmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw,$jj,$fbzmc)=split(/\t/,$line);
open(TITLESyu,"$filepath/yhzl/$rname.cgi");
@ayu=<TITLESyu>;
close(TITLESyu);
foreach $myu (@ayu){
$myu=~ s/\n//g;
($delpsd)=split(/\t/,$myu);
}
if($fbzmc ne ""){
open(TITLESyu2,"$filepath/yhzl/$fbzmc.cgi");
@ayu2=<TITLESyu2>;
close(TITLESyu2);
foreach $myu2 (@ayu2){
$myu2=~ s/\n//g;
($fbzdel)=split(/\t/,$myu2);
}
}
}
}
}
if($menu eq "lock"){&lock;exit;}
if($menu eq "jing"){&jing;exit;}
if ( -X "$filepath/yhzl/$username.cgi"){&errorview("您被抓进监狱，无法发表文章！");exit;}
if ( -X "$filepath/list/$id/$replytime"){&errorview("对不起, 此主题已经关闭，不再接受新的回复！");exit;}
&send_html;
print <<EOF;
<html>
<head>
<title>回复文章</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
a:link { font-family: "宋体", "serif"; font-size: 9pt; color: #004080; text-decoration: none}
a:hover { color: #004080; text-decoration: underline; background-color: #CCCC99}
a:visited { text-decoration: none}
body { font-family: "宋体", "serif"; font-size: 9pt}
td { font-family: "宋体", "serif"; font-size: 9pt}
input { font-size: 9pt}
p { font-size: 9pt}
br { font-size: 9pt}
tr { font-size: 9pt}
table { font-size: 9pt}
-->
</style>
</head>
<SCRIPT LANGUAGE="JavaScript">
function inputs(str)
{document.form.comment.value=document.form.comment.value+str;}
var i=0;
function formCheck()
{
i++;
if (i>1) {alert('帖子已经发出，请耐心等待！'); return false;}
return true;
}
function openWindow(url) {
popupWin = window.open('http://www.yuzi.net/image/ybb.htm','','resizable,scrollbars')
}
</SCRIPT>
<body topmargin=0>
<table width="100%" border="0" cellpadding="4" cellspacing="0" background=$imagurl/tablebg.gif>
<tr>
<td width="50%"><font color="#FFFFFF">您当前的位置：<a href="$bbs?id=$id"><font color="#FFFFFF">$bbsname</font></a>->>>回复文章</font></td>
<td align=right>
EOF
if(($rhome ne "")&&($rhome ne "http://")){
print "<a href=$rhome target=_blank><font color=#FFFFFF>$rhome</font></a></td>";
}
print <<EOF;
</tr>
</table>
<form name=form ACTION="$bbs" METHOD="POST" onSubmit="return formCheck()">
<INPUT TYPE="HIDDEN" NAME="menu" VALUE="reply">
<INPUT TYPE="HIDDEN" NAME="replytime" VALUE="$replytime">
<input type="hidden">
<table border="0" cellpadding="0" width="590" cellspacing="0" align="left">
<tr bgcolor="#7AB7FA">
<td>
<div align="center">
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008000" bordercolordark="#FFFFFF">
<tr valign="top">
<td width="100%">
<div align="center">
<table width="549" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#008000" bordercolordark="#FFFFFF">
<tr>
<td bgcolor=#FFF5E1 align="left" width="263">网上尊称：
<input type="text" name="username" size="23" value="$username" maxlength="10">
</td>
<td bgcolor=#FFF5E1 align="center" width="280">
<p align="left">电子邮件：
<input type="text" name="mail" size="23">
</td>
</tr>
<center>
<center>
<center>
<tr>
<td bgcolor=#FFF5E1 align="left">您的密码：
<input type="password" size="23" name="userpsd" value="$userpsd">
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -