移動文章

#!/usr/local/bin/perl #------------------------------------------------------# # 本程序為Yuzi工作室提供 # Yuzi論壇3000 免費版 v3.47 # # # 此程式由飛喵喵空服網中文化 # # 中文化版本 : v3.47b5 # 日期 : 2001.2.11 # 中文化作者 : 飛喵喵空服網站長 DC # # 飛喵喵空服網 http://meowfly.myweb.hinet.net # #------------------------------------------------------# 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}}; 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); } $nr=~ s/<([^>]|\n)*>/\n/g; 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($userpsd eq ""){&errorview("對不起，您當前的身份是訪客！");exit;} if(($userpsd ne $delpsd)&&($userpsd ne $fbzdel)&&($userpsd ne $bzdel)){&errorview("對不起，您不是版主！");exit;} open(ROOM,"$list"); @lines=; close(ROOM); &send_html; print < 移動文章

EOF exit; sub ok{ if($fid eq ""){&errorview("請選擇您要將主題移動到哪個論壇！");exit;} unless ( -e "$filepath/list/$id/$replytime"){&errorview("文章已經移動到其它的論壇了!");exit;} open(PSD,"$filepath/list/$id/$replytime"); $index=; close(PSD); open(PSD,">$filepath/list/$fid/$replytime"); print PSD $index; close(PSD); chmod(0666,"$filepath/list/$fid/$replytime"); open(PSD,"$filepath/list/$id/$replytime"."b"); @lines=; close(PSD); foreach $line (@lines) { if ($line ne ""){ $aaa="$aaa$line"; } } open(PSD,">$filepath/list/$fid/$replytime"."b"); print PSD $aaa; close(PSD); chmod(0666,"$filepath/list/$fid/$replytime"."b"); open(TITLES,"$filepath/list/$fid/bbs"); @hastitles=; close(TITLES); open(TITLES,">$filepath/list/$fid/bbs"); print TITLES "$replytime\n"; foreach $m (@hastitles) { print TITLES "$m"; } close(TITLES); if($fff eq 2){ open(TITLES,"$filepath/list/$id/bbs"); @hastitles=; close(TITLES); open(TITLES,">$filepath/list/$id/bbs"); foreach $m (@hastitles){ $m=~ s/\n//g; if($m ne ""){ ($rthistime)=split(/\t/,$m); if($rthistime ne $replytime){ print TITLES $m."\n"; } } } close(TITLES); unlink("$filepath/list/$id/$replytime"); unlink("$filepath/list/$id/$replytime"."b"); } &send_html; print < 您已經成功地將主題移動到您選擇的論壇了，請稍候，系統將自動返回......

如果系統沒有反應，請點這返回！ EOF exit; } ######################### END OF SCRIPT #########################

移動文章功能（注意：只有社區長或版主才擁有此權限)
	主題轉移到論壇：注意: 你有兩個選項. 轉移之後刪除主題在當前的論壇或保持主題在當前的論壇. 　轉移之後保持主題在當前的論壇. 　轉移之後刪除主題從當前的論壇.