□ HOME □ HELP □ SEARCH $rank_link $klog_link
$Henko
| $com_top |
_HTML_ if($oyaup){print"[投稿は管理者のみになっています]";}else{&form;} if($Top_t){ print"
□U R L/ http://$url"; } } if($ico){foreach (0..$#exn){if($ico=~ /$exn[$_]$/ || $ico =~ /\U$exn[$_]\E$/){$fimg=$exi[$_]; last;}}} if($Ent==0 && $mas_c && $fimg){$fimg=$no_ent; $A=0;} print <<"_HTML_";
$AEND$KSize\KB\n"; }else{ print "\n"; } if ($a_link == 1) { &auto_($comment); } print "
\n"; $res = 0; foreach $lines(@RES) { ($rnam,$rdate,$rname,$rmail,$rd_may,$rcom, $rurl,$rfont,$rico,$rtype) = split(/<>/,$lines); if($namber eq "$rtype"){ if($res==0){print " \n";} if($rd_may eq ""){ $rd_may= "No Title"; } if($h_ti){$rdate=substr($rdate,0,15);} if($M_Rank){ $ROK=1; foreach $RA (@RA){ ($Na,$Co,$Em,$Ti)=split(/<>/,$RA); if($Na eq $rname){$CON="$Co回/";$ROK=0;last;} } if($ROK){$CON="0回/";} } if($r_m && $rmail ne ""){$rname="$rname $emark";} if($a_link){&auto_($rcom);} if($res_f){ print"
$rcom / /g; print"■ $rname => $rcom"; print" ($CON$rdate/No$rnam) \n"; } $res++; if($N[$namber]==$res){last;} } } print " |
_HTML_ } } print "
| _BACK_ } if ($page_end ne $end_data) { print <<"_NEXT_"; | _NEXT_ } print" |
| $title の使い方 |
|---|
|
- UPP-BOARD -
同じファイル名があったため、$filenameに変更しました
"; }elsif($filename =~/[^\w\-\.]/){ $TIME=time; $filename="$TIME$TAIL"; $Henko="ファイル名に全角文字が含まれていたため、$filenameに変更しました
"; } $file=$filename; if (open(OUT, "> $i_dir/$filename")) { binmode(OUT); print OUT substr($read_data, $pos2, $size); close(OUT); } chmod(0666,"$i_dir/$filename"); }elsif($name){ $FORM{$name}=substr($read_data,$pos2,$size); $value=$FORM{$name}; &jcode'h2z_sjis(*value); &jcode'convert(*value,'sjis'); if(@NW){ foreach (0..$#NW){ if(index($value,$NW[$_]) >= 0){ $NW[$_]=~ s//\>\;/g; &er_("「$NW[$_]」は使用できません!"); } } } if ($tag == 0) { $value =~ s/&/&\;/g; $value =~ s//\>\;/g; $value =~ s/\"/\"\;/g; } else { $value =~ s/<>/\<\;\>\;/g; $value =~ s///g; } $FORM{$name}=$value; } $pos1=$pos3+length("\r\n$delimiter"); if(substr($read_data, $pos1, 4) eq "--\r\n"){last;} else{$pos1+=2; if($max_count++ > 20){last;} next;} } }else{ 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; &jcode'h2z_sjis(*value); &jcode'convert(*value,'sjis'); if ($tag == 0) { $value =~ s/&/&\;/g; $value =~ s//\>\;/g; $value =~ s/\"/\"\;/g; } else { $value =~ s/<>/\<\;\>\;/g; $value =~ s///g; } $FORM{$name} = $value; if(@NW){ foreach (0..$#NW){ if(index($value,$NW[$_]) >= 0){ $NW[$_]=~ s//\>\;/g; &er_("「$NW[$_]」は使用できません!"); } } } if ($name eq 'del') { push(@d_,$value); } if ($name eq 'ENT') { push(@E_,$value); } } } $d_may= $FORM{'d_may'}; $name = $FORM{'name'}; $comment=$FORM{'comment'};$comment=~ s/\r\n//g;$comment=~ s/\r|\n/
/g; $email= $FORM{'email'}; $url = $FORM{'url'};$url =~ s/^http\:\/\///; $mode = $FORM{'mode'}; $font = $FORM{'font'}; $kiji = $FORM{'kiji'}; $namber=$FORM{'namber'}; $type = $FORM{'type'}; $delkey=$FORM{"delkey"}; $mo =$FORM{"mo"}; $hr =$FORM{"hr"}; $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time); $year=$year+1900; $mon++; 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"; } $week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday]; $date = "$year\/$mon\/$mday\($week\) $hour\:$min\:$sec"; } # # [クッキー発行] # sub set_ { ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60); $yearg += 1900; if ($secg < 10) { $secg = "0$secg"; } if ($ming < 10) { $ming = "0$ming"; } if ($hourg < 10) { $hourg = "0$hourg"; } if ($mdayg < 10) { $mdayg = "0$mdayg"; } $month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong]; $youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg]; $date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT"; $cook="name\:$name\,email\:$email\,url\:$url\,min\:$FORM{'min'}\,font\:$font<>$hr\,delkey\:$delkey"; print "Set-Cookie: UPP=$cook; expires=$date_gmt\n"; } # # [クッキー取得] # sub get_ { $cookies = $ENV{'HTTP_COOKIE'}; @pairs = split(/;/,$cookies); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ s/ //g; $DUMMY{$name} = $value; } @pairs = split(/,/,$DUMMY{'UPP'}); foreach $pair (@pairs) { ($name, $value) = split(/:/, $pair); $COOKIE{$name} = $value; } $c_name = $COOKIE{'name'}; $c_email= $COOKIE{'email'}; $c_url = $COOKIE{'url'}; if($FORM{"min"} eq ""){$FORM{"min"}=$COOKIE{'min'};} ($c_font,$c_B)=split(/<>/,$COOKIE{'font'}); $c_key = $COOKIE{'delkey'}; if($FORM{'name'}) {$c_name =$FORM{'name'}; } if($FORM{'email'}) {$c_email=$FORM{'email'}; } if($FORM{'url'}) {$c_url =$url; } if($FORM{'font'}) {$c_font =$FORM{'font'}; } if($FORM{'hr'}) {$c_B =$FORM{'hr'};} if($FORM{'delkey'}){$c_key = $FORM{'delkey'}; } } # # [管理用ページ] # sub del_ { if($FORM{'pass'} ne "$pass"){&er_("パスワードが違います!");} &hed_("Edit"); print <<"_HTML_"; □ BACK
| 管理モード |
|---|
|
■ 記事を編集したい場合、その記事のタイトルをクリック。 ■ 削除したい記事にチェックを入れ「削除」ボタンを押す。 ■ 名前の下の数字は IPアドレス です。 □ 親記事を削除するとレス記事、アップファイルもすべて削除されます。 |
| _BACK_ } if ($page_end ne $end_data) { print <<"_NEXT_"; | _NEXT_ } print " |
\n"; if($bup){ if(-e $bup_f){$bl=int(-M $bup_f); $bs=-s $bup_f; $bc="$bs バイト、$bl 日前のBackUpあり。";} else{$bc="BackUpはありません。";} print <<"_BUP_";
_BUP_ } if($oyaup){print"
[親記事投稿フォーム]
";&get_;&form;} print <<"_HTML_";
ファイル表\示許可設定
/\n/g; if($tag){$comment =~ s//>/g;} if($type && $res_f==0){$fom="";} else{$fom="";} if($type==0){($font,$hr)=split(/;/,$font);} print <<"_HTML_"; □ BACK
| 記事ナンバー[$namber] の編集 |
|---|
*) 画像の編集はできません! 画像削除をしたい場合、記事を削除して画像削除して下さい。
削除完了
"; &del_;}else{$Henko="削除完了
"; &html_;} } # # [編集記事置換] # sub h_w_ { if($mo){if($FORM{'pass'} ne "$pass"){&er_("パスワードが違います!");}} open(DB,"$log"); @lines =編集完了
";&del_;}else{&html_;} } # # [ロック処理] # sub lock_ { $lflag = 0; foreach (1 .. 5) {if(mkdir($_[0], 0755)){$lflag=1; last;}else{sleep(1);}} if ($lflag == 0) { if(-e $_[0]){rmdir($_[0]);} &er_("LOCK is BUSY (ロック中)","1"); } } # # [メール通知処理] # sub mail_ { $mail_subj = "$title の投稿通知"; if($type != 0 && $type ne ""){ $types = "($type Res)"; } if($email eq ""){ $email='nomail@xxx.xxx'; } if($url ne "") { $url ="URL : http://$url"; } if($d_may eq ""){ $d_may="No Title"; } $Mail_Msg=<<"_MAIL_"; $mail_subj --Comment------------------------------ Title: $d_may $types Name : $name ($email) Time : $date $url $comment ----------------------------------END-- _MAIL_ $Mail_Msg=~ s//\n/g; $Mail_Msg=~ s/\<\;//g; $Mail_Msg=~ s/\"\;/\"/g; $Mail_Msg=~ s/\&\;/&/g; &jcode'convert(*mail_subj,'jis'); &jcode'convert(*Mail_Msg,'jis'); if(open(MAIL,"| $s_mail $mailto")) { print MAIL "X-Mailer: UPP MAILER\n"; print MAIL "To: $mailto\n"; print MAIL "From: $email\n"; print MAIL "Subject: $mail_subj\n"; print MAIL "MIME-Version: 1.0\n"; print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n"; print MAIL "Content-Transfer-Encoding: 7bit\n"; print MAIL "\n\n"; print MAIL "$Mail_Msg\n"; close(MAIL); } } # # [URLリンク] # sub auto_ { $_[0]=~ s/([^=^\"]|^)((http|ftp|https)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+)/$1$2<\/a>/g; } # # [カウンタ処理] # sub con_ { if($locks){&lock_("$c_loc");} open(NO,"$c_f") || &er_("Can't open $c_f",'1'); $cnt =
\n";
if($m_pas){
foreach(0 .. $#cnts){print"![](\"$m_pas/$cnts[$_]\.gif\") ";}
} else {print "$cnt";}
print " |
\n"; } # # [エラー表示] # sub er_ { if(-e $lockf){rmdir($lockf);} if(-e $c_loc){rmdir($c_loc);} if(-e "$i_dir/$file"){unlink("$i_dir/$file");} &hed_("Error"); print "
\n"; &foot_; } # # [過去ログ] # sub log_ { open(NO,"$klog_c") || &er_("Can't open $klog_c"); $n =
修復完了
"; &del_; } # # [許可システム] # sub ent_ { if($FORM{'pass'} ne "$pass"){&er_("パスワードが違います!");} &hed_("Permit"); print <<"_ENT_"; □掲示板に戻る| ファイル表\示許可 |
|---|
□ 許可する/未許可にするファイルをチェックし、ボタンを押して下さい。
_KEY_ } # # [画像幅取得] # とほほのラウンジ参考 => http://tohoho.wakusei.ne.jp/ sub size { $Cg=1; $Wn=$W; $Hn=$H; $IW=0; $IH=0; if($ico=~/.gif$|.GIF$/){ #GIF open(GIF,"$i_dir/$ico"); binmode(GIF); seek(GIF,6,0); read(GIF,$size,4); close(GIF); ($IW,$IH)=unpack("vv",$size); }elsif($ico=~/.png$|.PNG$/){ #PNG open(PNG,"$i_dir/$ico"); binmode(PNG); seek(PNG,16,0); read(PNG,$Pw,4); read(PNG,$Ph,4); close(PNG); $PW=unpack("H*",$Pw);$IW=hex($PW); $PH=unpack("H*",$Ph);$IH=hex($PH); }elsif($ico=~/.jpg$|.JPG$|.jpeg$|.JPEG$/){ #JPEG open(JPG,"$i_dir/$ico"); binmode(JPG); read(JPG,$Top,2); while (JPG) { read(JPG,$Top,4); ($mark,$Cell,$Lar)=unpack("aan",$Top); if($mark ne "\xFF"){ $IW=0; $IH=0; last; }elsif((ord($Cell) >= 0xC0) && (ord($Cell) <= 0xC3)){ read(JPG,$Top,5); ($IH, $IW)=unpack("xn2",$Top); last; }else{read(JPG,$Top,($Lar-2));} } close(JPG); }elsif($ico=~/.bmp$|.BMP$/){ #BMP open(BMP,"$i_dir/$ico"); binmode(BMP); seek(BMP,18,0); read(BMP,$size,8); close(BMP); ($IW,$IH)=unpack("V2",$size); } if($IW && $IH){ if($IW > $Wn){$IK=$Wn*$IH;$kH=int($IK/$IW);$kW=$Wn;$Cg=0;} if($Cg && $IH > $Hn){$IK=$Hn*$IW;$kW=int($IK/$IH);$kH=$Hn;$Cg=0;} elsif($Cg==0 && $kH > $Hn){$IK=$Hn*$kW;$kW=int($IK/$kH);$kH=$Hn;} print"$IW×$IH"; if($Cg){$kW=$IW;$kH=$IH;} else{print" =\>\; $kW×$kH";} print"
\n"; }else{$kW=$W;$kH=$H;} } # # [ランキング] # sub rank { open(IN,"$RLOG") || &er_("$RLOG"); @R =
| 発言ランキング |
|---|
集計発言数:$total回 _F_ &foot_; }