#!/usr/local/bin/perl #------------------------------------------------------# # 本程序為Yuzi工作室提供 # Yuzi論壇3000 免費版 v3.47 # # # 此程式由 台北抒情夜 中文化 # # 中文化版本 : v3.47b5 # 日期 : 2001.2.11 # 中文化作者 : 台北抒情夜站長 DC # # 台北抒情夜 http://www.ttt.idv.tw # #------------------------------------------------------# 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///g; $value =~ s/\t/--/g; $value =~ s/>/>/g; $value =~ s/; 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=; 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=; 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=; 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=; close(TITLESyu); foreach $myu (@ayu){ $myu=~ s/\n//g; ($bzdel)=split(/\t/,$myu); } if($fbzmc ne ""){ open(TITLESyu2,"$filepath/yhzl/$fbzmc.cgi"); @ayu2=; 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 ( -e "$filepath/temp/$username.cgi"){&errorview("您被暫時停權了，可能被你的信箱被系統確認無法認証或在飛喵喵網胡言亂語");exit;} &send_html; print < 回覆文章 "; } print <
您當前的位置：$bbsname->>>回覆文章 EOF if(($rhome ne "")&&($rhome ne "http://")){ print "$rhome
網上尊稱： 我要註冊

電子郵件：

您的密碼： 忘記密碼 主頁地址：
回覆標題：

文章內容
取 消
請選擇您的表情
隨便說說啦
我來回答你
堅決同意！
反對反對！
大家過來..
好奇怪喲！
哇，原來如此
管它呢:--{
號外！號外！
大家小心！
將本文章寄一份給原作者　　 EOF if ($YBBCodeAllow eq "is") { print <* YBB代碼支持 EOF } print <
EOF exit; sub copy{ &send_html; print <複製主題 - YuziBBS3000

論壇: $bbsname
主題: $titles

怎樣複製 您可使用"選擇全部"按鈕或用滑鼠/鍵盤手動選擇文章內容，然後使用Ctrl+C或Apple+C複制選擇內容
複制內容

EOF exit; } sub mail{ if($username ne ""){ open(PSD,"$filepath/yhzl/$username.cgi"); @lines=; close(PSD); foreach $line (@lines) { ($rdpassword,$rdnamee,$rdmail)=split(/\t/,$line); } } if ($mail eq "") { &send_html; print <


請 輸 入 E-mail
如果要輸入多個，請用“,”格開。






EOF }else{ if(!($mail=~ /.*\@.*\..*/)){&errorview("您的Email輸入錯誤！");exit(0);} open (OUTMAIL,"| $mailprg") || die "Mail system error"; print OUTMAIL "To: $mail\n"; print OUTMAIL "Subject: $titles\n"; print OUTMAIL "發信人：$rusername　討論區：$bbsname\n"; print OUTMAIL "標 題：$titles\n\n"; print OUTMAIL "$nr\n\n"; print OUTMAIL "論壇服務由 飛喵喵空服網提供　程式設計 Yuzi工作室)\n"; print OUTMAIL "修正中文化：飛喵喵空服網(http://meowfly.myweb.hinet.net)\n"; print OUTMAIL "\n\n"; close(OUTMAIL); &errorview("您的郵件已經送出!");exit; } exit; } sub lock{ if($userpsd eq ""){&errorview("對不起，您當前的身份是訪客！");exit;} if(($userpsd ne "$delpsd")&&($userpsd ne $fbzdel)&&($userpsd ne $bzdel)){&errorview("親愛的..抱歉囉，我們在你的主機硬碟未發現認証密碼,不是版主！無法執行");exit;} open(PSD,"$filepath/list/$id/$replytime"); $line=; close(PSD); ($rtitles,$rthistime,$rusername,$nr,$rfrom88,$rhasreply,$remote,$rlastname,$rlasttime,$re,$rhassee,$jing,$lock)=split(/\t/,$line); if ($lock eq "1"){ open(PSD,">$filepath/list/$id/$replytime"); print PSD $rtitles."\t".$rthistime."\t".$rusername."\t".$nr."\t".$rfrom88."\t".$rhasreply."\t".$remote."\t".$rlastname."\t".$rlasttime."\t".$re."\t".$rhassee."\t".$jing."\t".0; close(PSD); &errorview("親愛的這個主題已經開放，可以自由回覆了！");exit; }else{ open(PSD,">$filepath/list/$id/$replytime"); print PSD $rtitles."\t".$rthistime."\t".$rusername."\t".$nr."\t".$rfrom88."\t".$rhasreply."\t".$remote."\t".$rlastname."\t".$rlasttime."\t".$re."\t".$rhassee."\t".$jing."\t".1; close(PSD); &errorview("親愛的這個主題有爭議已關閉，不再接受新的回覆！");exit; } } sub jing{ if($userpsd eq ""){&errorview("親愛的對不起，您當前的身份是訪客！");exit;} if(($userpsd ne "$delpsd")&&($userpsd ne $fbzdel)&&($userpsd ne $bzdel)){&errorview("親愛的..抱歉囉，我們發現您不是版主！無法執行");exit;} open(PSD,"$filepath/list/$id/$replytime"); $line=; close(PSD); ($rtitles,$rthistime,$rusername,$nr,$rfrom88,$rhasreply,$remote,$rlastname,$rlasttime,$re,$rhassee,$jing,$lock)=split(/\t/,$line); if ($jing eq "1"){ open(PSD,">$filepath/list/$id/$replytime"); print PSD $rtitles."\t".$rthistime."\t".$rusername."\t".$nr."\t".$rfrom88."\t".$rhasreply."\t".$remote."\t".$rlastname."\t".$rlasttime."\t".$re."\t".$rhassee."\t0\t".$lock; close(PSD); &errorview("主題已經精華區中移出了！");exit; }else{ open(PSD,">$filepath/list/$id/$replytime"); print PSD $rtitles."\t".$rthistime."\t".$rusername."\t".$nr."\t".$rfrom88."\t".$rhasreply."\t".$remote."\t".$rlastname."\t".$rlasttime."\t".$re."\t".$rhassee."\t1\t".$lock; close(PSD); $counter ="$filepath/guest/2$rusername.cgi"; open(NUMBER,"$counter"); $NUMBER=; close(NUMBER); ($lys,$oldlys,$money,$charm)=split(/\t/,$NUMBER); $lys=$lys+0; $oldlys=$oldlys+0; $money=$money+10; $charm=$charm+3; open(NUMBER,">$counter"); print NUMBER "$lys"."\t"."$lys"."\t"."$money"."\t"."$charm"; close(NUMBER); &errorview("主題已經添加到精華區了！");exit; } } ######################### END OF SCRIPT #########################