For Webmaster

#! /usr/bin/perl # ========================================================================= # # /////apeboard+ for webmaster Ver.1.02 (Shift_JIS)///// # # Copyright (C) 2000,by 2apes.com # All rights reserved # Script written by Taishi Yokoyama # web site : http://www.2apes.com # mail : support@2apes.com # # ========================================================================= #程式設定------------------------------------------------ #require './jcode.pl'; require './boardini.cgi'; require './skinini.cgi'; #設定結束---------------------------------------------------------------- # ------------------------------------------------------------------------- # 𠾍塲?? # ------------------------------------------------------------------------- &form_decord; &get_cookie($mt_cookiename); $ck_pwd = $cookie{'pwd'}; $command = $FORMDATA{'command'}; $tgtid = $FORMDATA{'target'}; $pwd = $FORMDATA{'pwd'}; $msgnum = $FORMDATA{'msgnum'}; $old_pwd = $FORMDATA{'old_pwd'}; $new_pwd = $FORMDATA{'new_pwd'}; $cknew_pwd=$FORMDATA{'cknew_pwd'}; if ($msgnum eq ''){ $msgnum = 0; } if ($command eq 'read' || $command eq 'f_read'){ &read_mes_res; } elsif ($command eq 'res_mes'){ &res_message; &read_mes_res; } elsif ($command eq 'remove'){ &remove_message; &read_mes_res; } elsif ($command eq 'cg_mtpwd'){ &shw_chpwd; } elsif ($command eq 'cg_and_ck'){ &check_change; &mt_login; } else { &mt_login; } exit(0); # ------------------------------------------------------------------------- # �t�H�[?�f�[�^��f�R�[�h��T�u?�[�`? # ------------------------------------------------------------------------- sub form_decord{ local($query,@assocarray,$assoc,$property,$value); if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); } else { $query= $ENV{'QUERY_STRING'}; } @assocarray = split(/&/, $query); foreach (@assocarray) { ($property, $value) = split(/=/); $value =~ tr/+/ /; $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/eg; $value =~ s/\r\n/\r/g; $value =~ s/\n/\r/g; $value =~ s/ \r \r//g; $value =~ s/\�@\r\�@\r//g; $value =~ s/ \r/\r/g; $value =~ s/\�@\r/\r/g; $value =~ s/\r\r\r\r//g; #$value =~ s/&/&/g; $value =~ s//>/g; $value =~ s/,/\0/g; if ($tagset eq 'off') { $value =~ s/"/"/g; } # �n�b�V?�𢳂𤪤 ------------------------------------------------ if ($property eq 'target'){ push(@RM,$value); } else { $FORMDATA{$property} = $value; } } } # ------------------------------------------------------------------------- # ?�X炥�?�b�Z�[�W鋲䓫㗇𦺄�𦖭璍 # ------------------------------------------------------------------------- sub read_mes_res { # �f�[�^�t�@�C?�𥕛�?� -------------------------------------- &lock_open(TXT, "+<$datafile"); @txt = ; &unlock_close(TXT); ($encoded_pass) = splice(@txt, 0, 1); chop($encoded_pass); if ($command ne 'f_read') { &get_cookie($mt_cookiename); $pwd = $cookie{'pwd'}; } if ($encoded_pass eq '' || &mismatch_password($pwd, $encoded_pass)) { &print_error("管理者密碼錯誤! 請重新輸入!"); } # �f�[�^�?�兞�� -------------------------------------------- $volume = scalar(@txt); # 𦖭璍樭��𩇕坿 ------------------------------------------------ $msgstart = $msgnum; if ($msgstart < 0) { $msgstart = 0; } $msgend = $msgnum + $data_out; if ($msgend > $volume) { $msgend = $volume; } # 㗇𦺄�𦖭璍��䭲�𩇕坿 ---------------------------------------- if ($command eq 'f_read') { undef %cookie; $cookie{'pwd'} = $pwd; &print_cookie($mt_cookiename, 1); } print "Content-type: text/html; charset=big5\n\n"; # �w�b�_?𧞅�𣽁𨯬�澻啹 ---------------------------------------- print "\n"; print "\n"; print "\n"; print "For Webmaster\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "For Webmaster
\n"; print "

\n"; print "管理者專區只屬管理者進入!其他訪客進行禁止!
\n"; print "
\n"; print "管理完畢/回到留言板

\n"; # ?嶤�𦖭璍 ---------------------------------------------------- for ($i = $msgstart; $i < $msgend; $i++) { ($dispid,$dispname,$dispicon,$dispmail,$dispurl,$dispdate,$disppwd,$dispsubject,$dispmsg,$disphost,$dispres) = split(/,/, $txt[$i]); $dispname =~ s/\0/,/g; $dispicon =~ s/\0/,/g; $dispmail =~ s/\0/,/g; $dispurl =~ s/\0/,/g; $disppwd =~ s/\0/,/g; $dispsubject =~ s/\0/,/g; $dispmsg =~ s/\0/,/g; $disphost=~ s/\0/,/g; $dispres =~ s/\0/,/g; chomp($dispres); $dat_tmp = $dateline; ($d_year,$d_mon,$d_day,$d_weekstr,$d_hour,$d_min) = split(/&/, $dispdate); if ($addzero_md eq 'on') { if ($d_mon < 10) { $d_mon = "0$d_mon"; } if ($d_day <10) { $d_day = "0$d_day"; } if ($d_hour < 10) { $d_hour = "0$d_hour"; } if ($d_min < 10) { $d_min = "0$d_min"; } } $dat_tmp =~ s/year/$d_year/i; $dat_tmp =~ s/month/$d_mon/i; $dat_tmp =~ s/day/$d_day/i; $dat_tmp =~ s/week/$d_weekstr/i; $dat_tmp =~ s/hour/$d_hour/i; $dat_tmp =~ s/minute/$d_min/i; # 䲰䭲�?�[?�A�h?�X�??�N�� ---------------------------- if($dispmail ne '') { $dispname = '' . $dispname . ''; } # URL�??�N�� --------------------------------------------- if($dispurl ne '') { $dispurl = '- ' . Website . ''; } # ?�C??𧞅�𣽁𨯬�i遡?𧞅�j ------------------------------------ print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "\n"; print "	[$dispid] $dispsubject
內容	\n"; print "Time：$dat_tmp IP：$disphost \n"; print "$dispsubject by $dispname $dispurl \n"; print " $dispmsg \n"; print "\n"; # ?�C??𧞅�𣽁𨯬�i𥳁?𧞅�j ------------------ open(RES, $res_file) \|\| &print_error('開啟檔案出錯!不能回覆!'); $reshtml = join('',); close(RES); @part_res = split(/:&:/, $dispres); $res_volume = scalar(@part_res); for ($j = 0; $j < $res_volume; $j++) { ($dresnum,$dresname,$dresicon,$dresmail,$dresurl,$dresdate,$drespwd,$dressubject,$dresmsg,$dreshost) = split(/<>/, $part_res[$j]); $res_dat_tmp = $dateline; ($dres_year,$dres_mon,$dres_day,$dres_weekstr,$dres_hour,$dres_min) = split(/&/, $dresdate); if ($addzero_md eq 'on') { if ($dres_mon < 10) { $dres_mon = "0$dres_mon"; } if ($dres_day <10) { $dres_day = "0$dres_day"; } } if($addzero_hm eq 'on') { if ($dres_hour < 10) { $dres_hour = "0$dres_hour"; } if ($dres_min < 10) { $dres_min = "0$dres_min"; } } $res_dat_tmp =~ s/year/$dres_year/i; $res_dat_tmp =~ s/month/$dres_mon/i; $res_dat_tmp =~ s/day/$dres_day/i; $res_dat_tmp =~ s/week/$dres_weekstr/i; $res_dat_tmp =~ s/hour/$dres_hour/i; $res_dat_tmp =~ s/minute/$dres_min/i; # 䲰䭲�?�[?�A�h?�X�??�N�� ---------------------------- if($dresmail ne '') { $dresname = '' . $dresname . ''; }; # URL�??�N�� --------------------------------------------- if($dresurl ne '') { $dresurl = '- ' . Website . ''; } print " \n"; print "<$res_dat_tmp>[$dreshost]刪除 \n"; print "$dressubject by $dresname $dresurl \n"; print " \n"; print " $dresmsg \n"; print " \n"; } if ($reshtml =~ /ressubject/i){ print "
主旨	\n"; print "\n"; } print "
回覆	\n"; print "\n"; print "

\n"; } # �t�b�^�𣽁𨯬�訜?𡎘�澻啹 ------------------------------------ $nextmsg = $msgend ; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "\n"; print "\n"; print "

\n"; print "

\n"; print ""; print "\n"; print "\n"; if ($data_out + $msgnum + 1 > $volume) { print "\n"; print "

< TopLog

\n"; } else { print "

OldLog >

\n"; } print "

\n"; print "\n"; print "

�@