超級用戶管理

#!/usr/local/bin/perl #------------------------------------------------------# # 本程序為飛喵喵提供 # Yuzi論壇3000 免費版 v3.47 # # # 此程式由飛喵喵中文化 # # 中文化版本 : v3.47b5 # 日期 : 2001.2.11 # 中文化作者 : 飛喵喵站長 DC # # 飛喵喵 http://meowfly.myweb.hinet.net # #------------------------------------------------------# require "setup.cgi"; ###################### ## 以下部分不需修改 ## ###################### $cgiurl ="cjyh.cgi"; $list="$filepath/data/list.cgi"; $perpage = 30; ########## ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)= localtime(time+(3600*$time_hour)); $mon=$mon+1; if($mon <10){$mon="0".$mon;} if($mday<10){$mday="0".$mday;} if($hour<10){$hour="0".$hour;} if($min<10){$min="0".$min;} if($sec<10){$sec="0".$sec;} $year=$year+1900; $topdata=$year.$mon; $ftime=$year.$mon.$mday.$hour.$min.$sec; $thistime=$year."-".$mon."-".$mday.".".$hour.":".$min.":".$sec; 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; $FORM{$name} = $value; } $userpsd = $FORM{'userpsd'}; $adm = $FORM{'adm'}; $psd = $FORM{'psd'}; $otitle = $FORM{'otitle'}; $username= $FORM{'username'}; $menu= $FORM{'menu'}; $title = $FORM{'title'}; $titleimg= $FORM{'titleimg'}; $selname = $FORM{'selname'}; $mail = $FORM{'mail'}; $comment = $FORM{'comment'}; $yyin = $FORM{'yyin'}; $type = $FORM{'type'}; $delmon = $FORM{'delmon'}; $ltname = $FORM{'ltname'}; $page = $FORM{'page'}; $tjbbs = $FORM{'tjbbs'}; $money = $FORM{'money'}; $charm = $FORM{'charm'}; $bbsname1 = $FORM{'bbsname1'}; if(($delmon < 1)||($delmon eq "")){$delmon =6;} if(($admname ne $adm)||($delpsd ne $psd)){ &send_html; print < 超級用戶管理

飛喵喵管理

EOF exit; } elsif($menu eq "kills"){&kills;exit;} elsif($menu eq "listusers"){&listusers;exit;} elsif($menu eq "chgusers"){&chgusers;exit;} elsif($menu eq "bf"){&bf;exit;} elsif($menu eq "hf"){&hf;exit;} elsif($menu eq "bf1"){&bf1;exit;} elsif($menu eq "hf1"){&hf1;exit;} elsif($menu eq "ckyh"){&ckyh;exit;} elsif($menu eq "ckbz"){&ckbz;exit;} elsif($menu eq "bbslb"){&bbslb;exit;} elsif($menu eq "delbbs"){&delbbs;exit;} elsif($menu eq "jjzz"){&jjzz;exit;} elsif($menu eq "qlid"){&qlid;exit;} elsif($menu eq "ssff"){&ssff;exit;} elsif($menu eq "club"){&club;exit;} elsif($menu eq "money"){&money;exit;} elsif($menu eq "clubok"){&clubok;exit;} elsif($menu eq "bmdel"){&bmdel;exit;} elsif($menu eq "bmadd"){&bmadd;exit;} else{ &send_html; print < 論壇管理

飛喵喵管理

註冊用戶管理

註冊論壇管理

飛喵喵版面設置

返回飛喵喵首頁 EOF exit; } ########## sub send_html { if ($has_send ne "1") { print "Content-type: text/html\n\n"; $has_send = "1"; } } ######### sub listusers{ &send_html; print < 註冊用戶管理

註冊用戶管理

返回管理選單

EOF exit; } ########## sub chgusers{ unlink("$filepath/yhzl/$selname.cgi"); unlink("$filepath/guest/1$selname.cgi"); unlink("$filepath/guest/2$selname.cgi"); unlink("$filepath/guest/3$selname.cgi"); unlink("$filepath/guest/4$selname.cgi"); &send_html; print <

已經成功刪除！

返回管理選單

EOF exit; } ########## sub kills{ open (GUEST,"$filepath/data/list.cgi") ; @lines=; close(GUEST); open (GUEST,">$filepath/data/list.cgi") ; foreach $usersays (@lines) { $usersays=~ s/\n//g; if($usersays ne ""){ ($index)=split(/\t/,$usersays); if($selname ne $index){ print GUEST "$usersays\n"; } } } close(GUEST); opendir (MEMBERDIR2, "$filepath/list/$selname"); @members2 = readdir(MEMBERDIR2); closedir (MEMBERDIR2); foreach $m (@members2){ unlink("$filepath/list/$selname/$m"); } rmdir("$filepath/list/$selname"); unlink("$filepath/list/$selname.cgi"); unlink("$filepath/temp/$selname.stat"); unlink("$filepath/temp/$selname.top"); unlink("$filepath/temp/$selname.tmp"); unlink("$filepath/temp/$selname.good"); unlink("$filepath/temp/$selname.top$topdata"); &send_html; print <

已經成功刪除此論壇的所有數據！

返回管理選單

EOF exit; } ########## sub jjzz{ if ( -X "$filepath/yhzl/$selname.cgi"){&errorview("$selname 已經暫時被停止使用權限！");exit;} open(TITLES,"$filepath/data/prison"); @hastitles=; close(TITLES); $size=@hastitles; open(TITLES,">$filepath/data/prison"); print TITLES $selname."\t".$thistime."\t".$yyin."\t1\n"; for($i=0;$i<=23;$i++){ $m=@hastitles[$i]; print TITLES "$m"; } close(TITLES); open(TMP,">$filepath/temp/$selname.cgi"); close(TMP); &send_html; print <

您已經成功地將 $selname 停權了！

返回管理選單

EOF exit; } sub ssff{ open(TITLES,"$filepath/data/prison"); @hastitles=; close(TITLES); open(TITLES,">$filepath/data/prison"); foreach $m (@hastitles){ $m=~ s/\n//g; if($m ne ""){ ($rthistime)=split(/\t/,$m); if($rthistime ne $selname){ print TITLES $m."\n"; }}} close(TITLES); unlink("$filepath/temp/$selname.cgi"); &send_html; print <

您已經成功地將 $selname 從監獄里釋放出來了！

返回管理選單

EOF exit; } ########## sub ckyh{ if ( -e "$filepath/yhzl/$username.cgi"){ open(PSD,"$filepath/yhzl/$username.cgi"); @lines=; close(PSD); foreach $line (@lines) { $line=~ s/\n//g; ($rdpassword,$username1,$mail1,$home1,$lasttime1,$qm1,$sex1,$work1,$city1,$love1,$rdfy,$rdhf,$tu,$jiao,$iewin,$oicq,$photo)=split(/\t/,$line); $fy1=$rdfy+0; $hf1=$rdhf+0; $tol=$fy1+$hf1; open(NUMBER,"$filepath/guest/2$username.cgi"); $NUMBER=; close(NUMBER); ($lys,$oldlys,$money,$charm)=split(/\t/,$NUMBER); if($sex1 eq ""){$sex1="(不告訴您)"}; if($city1 eq ""){$city1="(不告訴您)"}; if($love1 eq ""){$love1="(不告訴您)"}; if($work1 eq ""){$work1="(不告訴您)"}; if(($home1 eq "http://")||($home1 eq "")){$home1="(不告訴您)"}; if($mail1 eq ""){$mail1="(不告訴您)"}; if($jiao eq ""){$jiao="這隻喵很懶,什麼都沒有留下。"}; if($tol < 11){$deji="新手上路";} elsif ($tol > 10 && $tol < 31){$deji="一般站友";} elsif ($tol > 30 && $tol < 101){$deji="中級站友";} elsif ($tol > 100 && $tol < 201){$deji="高級站友";} elsif ($tol > 200 && $tol < 501){$deji="老站友";} elsif ($tol > 500 && $tol < 1001){$deji="長老級";} elsif ($tol > 1000 && $tol < 2001){$deji="本站元老";} elsif ($tol > 2000){$deji="開國大老";}$fy1=$rdfy+0; $hf1=$rdhf+0; $tol=$fy1+$hf1; if (-e "$ImgDir/img/$username.jpg") {$ttt="$ImgurlDir/$photo.jpg"}else{$ttt="$imagurl/photo.gif"} } &send_html; print < 查看 $username 的資料！

用戶 $username 的資料！

入獄原因：

　　　　　　　

　秘密檔案請勿外傳：）給 $username 發送一句悄悄話

匿稱 $username 密碼 $rdpassword

性別 $sex1
$jiao

等級 $deji

省份 $city1

愛好 $love1

職業 $work1

貨幣

魅力

OICQ $oicq

發表文章 $fy1 篇

回復文章 $hf1 篇

總發表文章 $tol 篇 Email $mail1

註冊日期 $lasttime1 個人主頁 $home1

本頁面使用CGI程序更新，程序制作：飛喵喵
中文化 :飛喵喵

EOF exit; }else{ &errorview("對不起，此用戶沒有註冊！");exit; } } ########## sub ckbz{ if ($FORM{'bzname'} ne ""){ if ( -e "$filepath/yhzl/$FORM{'bzname'}.cgi"){}else{&errorview("對不起，你輸入的這個新版主的用戶名還沒有註冊！");exit;} open(PSD,"$filepath/list/$username.cgi"); @lines=; close(PSD); foreach $line (@lines) { $line=~ s/\n//g; ($rname,$rpass,$rmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw,$jj,$fbanz)=split(/\t/,$line); } open(PSD,">$filepath/list/$username.cgi"); print PSD $FORM{'bzname'}."\t\t".$rmail."\t".$rhome."\t".$rtitle."\t".$yhq."\t".$rtime."\t".$htmlt."\t".$htmlw."\t".$jj."\t".$fbanz; close(PSD); } if ( -e "$filepath/list/$username.cgi"){ open(PSD,"$filepath/list/$username.cgi"); @lines=; close(PSD); foreach $line (@lines) { $line=~ s/\n//g; ($rname,$rpass,$rmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw)=split(/\t/,$line); } open(PSD88,"$filepath/yhzl/$rname.cgi"); @lines88=; close(PSD88); foreach $line88 (@lines88) { $line88=~ s/\n//g; ($mmymm)=split(/\t/,$line88); } $oldmon=$mon-2; if($oldmon < 1){$year=$year-1;$oldmon=$oldmon+12} if($oldmon <10){$oldmon="0".$oldmon;} &send_html; print < function del_reset(){ if (confirm("您確定要刪除該論壇的全部數據嗎?")){ return true; } return false; } function mon_reset(){ if (confirm("您確定要該刪除該論壇以前的文章嗎?")){ return true; } return false; } 查看 $rtitle 的資料！

查看 $rtitle 的資料！

論壇名稱：	$rtitle
現任版主：
密碼：	$mmymm
信箱：	$rmail
個人主頁：	$rhome
申請時間：	$rtime.

本頁面使用CGI程序更新，程序制作：飛喵喵
中文化 :飛喵喵

[ 返回 ] EOF exit; }else{ &errorview("對不起，此ID沒有註冊！");exit; } } ######### sub bbslb{ &send_html; print < 註冊論壇管理

註冊論壇管理

返回管理選單

EOF open(ROOM,"$list"); @lines=; close(ROOM); $size=@lines; &send_html; $ii=0; $j=$size; while ($j>0) { $j=$j-$perpage; $ii++; } print <; close(TMP); } open(TITLES,"$filepath/list/bbs"); @hastitles=; close(TITLES); $bbsdx=@hastitles; print <

EOF $chgcolor==0; if($page eq ""){$page=$ii;} $pages=$page-1; $pages=$page*$perpage-$perpage; for($i=$pages; $i<$pages+$perpage; $i++) { $line=@lines[$i]; $line=~ s/\n//g; if($line ne ""){ ($username1)=split(/\t/,$line); unless(-f "$filepath/list/$username1.cgi"){ open(TMP,">$filepath/list/$username1.cgi"); close(TMP); chmod(0666,"$filepath/list/$username1.cgi"); } open(TITLES,"$filepath/list/$username1.cgi"); @a=; close(TITLES); foreach $m (@a){ $m=~ s/\n//g; if($m ne ""){ ($rname,$rpass,$rmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw,$jj)=split(/\t/,$m); } unless(-f "$filepath/list/$username1/bbs"){ open(TMP,">$filepath/list/$username1/bbs"); close(TMP); chmod(0666,$filepath/list/$username1/bbs); } $bbsbook ="$filepath/list/$username1/bbs"; open(TITLES,"$bbsbook"); @hastitles=; close(TITLES); $hastitle=@hastitles; $wzs=$hastitle; $rqzs=$hastitle*3; if($chgcolor==0){ $chgcolor=0; print < EOF } } } } print <

討論區	論題數	版主	資料
$rtitle $jj	$wzs	$rname
免費論壇服務由 $zyname 提供：飛喵喵中文化 :飛喵喵
EOF #$i=1; $j=$size; while ($j>0) { print "" if ($page != $ii); print "[$ii]"; print "" if ($page != $ii); $j=$j-$perpage; $ii--; } print <

EOF exit; } ########## sub qlid{ $oldmon=$mon-$FORM{'mon'}; if($oldmon <1){$year=$year-1;$oldmon=$oldmon+12} if($oldmon <10){$oldmon="0".$oldmon;} open (GUEST2,"$filepath/list/$selname/bbs") ; @lines2=; close(GUEST2); open (GUEST2,">$filepath/list/$selname/bbs") ; foreach $usersays2 (@lines2) { $usersays2=~ s/\n//g; ($rd_time2)=split(/\t/,$usersays2); if($rd_time2 > "$year$oldmon"."00000000"){ print GUEST2 "$usersays2\n"; }else{ unlink("$filepath/list/$selname/$usersays2"); unlink("$filepath/list/$selname/$usersays2"."b"); $delno++; } } close(GUEST); if($delno eq ""){$delno=0}; &send_html; print <

已經成功將 $year 年 $oldmon 份以前的文章刪除了！

（共刪除 $delno 篇文章）

返回管理選單

EOF exit; } ############### sub club{ &send_html; print < 飛喵喵版面設置

飛喵喵版面設置

返回管理選單
EOF open(ROOM,"$list"); @lines=; close(ROOM); $size=@lines; &send_html; $ii=0; $j=$size; while ($j>0) { $j=$j-$perpage; $ii++; } print <; close(TMP); } open(TITLES,"$filepath/list/bbs"); @hastitles=; close(TITLES); $bbsdx=@hastitles; print <

添加論壇到飛喵喵版面，請輸入論壇的ID EOF $chgcolor==0; if($page eq ""){$page=$ii;} $pages=$page-1; $pages=$page*$perpage-$perpage; for($i=$pages; $i<$pages+$perpage; $i++) { $line=@lines[$i]; $line=~ s/\n//g; if($line ne ""){ ($username1)=split(/\t/,$line); open(TITLES,"$filepath/list/$username1.cgi"); @a=; close(TITLES); foreach $m (@a){ $m=~ s/\n//g; if($m ne ""){ ($rname,$rpass,$rmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw,$jj)=split(/\t/,$m); } unless(-f "$filepath/list/$username1/bbs"){ open(TMP,">$filepath/list/$username1/bbs"); close(TMP); chmod(0666,$filepath/list/$username1/bbs); } $bbsbook ="$filepath/list/$username1/bbs"; open(TITLES,"$bbsbook"); @hastitles=; close(TITLES); $hastitle=@hastitles; $wzs=$hastitle; $rqzs=$hastitle*3; if($chgcolor==0){ $chgcolor=0; print < EOF } } } } print <

討論區

論題數

版主

請求

　$rtitle
$jj

$wzs

免費論壇服務由yuzi 設計 $zyname 飛喵喵空服網提供修正 :飛喵喵空服網

EOF #$i=1; $j=$size; while ($j>0) { print "" if ($page != $ii); print "[$ii]"; print "" if ($page != $ii); $j=$j-$perpage; $ii--; } print <

EOF exit; } sub clubok{ open (GUEST,"$filepath/data/list.cgi") ; @lines=; close(GUEST); open (GUEST,">$filepath/data/list.cgi") ; print GUEST "$username\n"; foreach $usersays (@lines) { $usersays=~ s/\n//g; ($rd_time)=split(/\t/,$usersays); if($username ne $rd_time){ print GUEST "$usersays\n"; } } close(GUEST); print "Content-type: text/html\n\n"; print < EOF exit; } sub money{ open (GUEST,"$filepath/guest/2$selname.cgi") ; $line=; close(GUEST); ($lys,$oldlys)=split(/\t/,$line); open (GUEST,">$filepath/guest/2$selname.cgi") ; print GUEST "$lys"."\t"."$lys"."\t"."$money"."\t"."$charm"; close(GUEST); print "Content-type: text/html\n\n"; print < EOF exit; } sub bmdel{ open (GUEST,"$filepath/data/list.cgi") ; @lines=; close(GUEST); open (GUEST,">$filepath/data/list.cgi") ; foreach $usersays (@lines) { $usersays=~ s/\n//g; ($rd_time)=split(/\t/,$usersays); if($username ne $rd_time){ print GUEST "$usersays\n"; } } close(GUEST); print "Location: $cgiurl?menu=club&adm=$adm&psd=$psd\n\n"; exit; } sub bmadd{ unless ( -e "$filepath/list/$username.cgi"){&errorview("對不起，您輸入的論壇ID錯誤，此ID不存在！");exit;} open (GUEST,">>$filepath/data/list.cgi") ; print GUEST "$username\n"; close(GUEST); print "Location: $cgiurl?menu=club&adm=$adm&psd=$psd\n\n"; exit; } ######################### END OF SCRIPT #########################