\n"; if ( $FORM{'action'} ne 'maintenance' && $FORM{'action'} ne 'repair') { print "\n"; } print "
\n"; } else { print "$title
\n"; } print "
| \n"; if ( $kanrisw eq 'yes' ) { print "\n"; } print " | \n"; print "\n"; } else { print " | \n"; } print " | \n"; print "\n"; print " |
\n"; print "
";
print "
|
$head_comment" if ( $head_comment ) ; } ###<-------------------------------------------------------------- ###<--- フォーム処理 ###<-------------------------------------------------------------- sub formproc2 { &header ; #htmlヘッダー print "[BACK]
\n"; print "
\n"; } else { print "$title
\n"; } if ( $FORM{'action'} eq 'maintenance' && $FORM{'proc'} eq 'edit') { print "||||| 修正フォーム |||||
\n"; } else { print "||||| 登録フォーム |||||
\n"; } print "
\n"; if ( $ikinarisw eq 'yes' ) { print "
\n"; } if ( $p == 0 ) { $p = 1; } if ( $FORM{'linkchoice'} == 0 && $FORM{'word'} eq '') { print "新着サイトを$sinchaku件\表\示しています
\n"; } if ( $FORM{'word'} ) { if ( $#CATEGORYLOG + 1 <= 0 ) { print "
指定した文字列に該当する記事はありませんでした。
\n"; } else { print "
$total 件見つかりました
\n"; } } $z = 1 ; for ( $i = $d ; ( $z <= $pagemax ) && ( $i < $total ); $i++ ) { ($dt,$ctgr,$hpttl,$hpadr,$hpcom,$area,$banner,$pass,$kanri,$no,$sougo,$look,$osusume,$imgfile) = split(/,/,$CATEGORYLOG[$i]); $osusume =~ s/\n//g; $imgfile =~ s/\n//g; &colorset ; #セル背景色の設定 print "
\n"; if ( $FORM{'linkchoice'} == 0 ) { print "$CATEGORY[$ctgr]
\n"; } if ( $areaflg == 1 && $kanri && $countflg == 1 ) { $dmy = "colspan=3"; } elsif ( ($areaflg == 1 && ($kanri || $countflg == 1 )) || ($areaflg == 0 && ($kanri && $countflg == 1 )) ) { $dmy = "colspan=2"; } else { $dmy = ""; } if ( $areaflg == 0 && !($kanri) && $countflg == 0 ) { $dmy4 = "rowspan=2"; } else { $dmy4 = "rowspan=3"; } if ( !($FORM{'kflg'}) ) { print "
";
if ( !($FORM{'kflg'}) ) {
print "
|
"; print "現在のバックアップファイルの状態\n"; print "
| バックアップファイル名 | "; print "ファイルサイズ | \n"; print "最終更新日 | \n"; print "処理 |
| " . sprintf("%02d",$_) . ".txt | "; if ( !($STATTBL[7]) ) { $STATTBL[7] = 0 ; $wk = " "; } else { $wk = "$year年$month月$day日($hour:$min)"; } print "$STATTBL[7]byte | \n"; print "$wk | \n"; print "
/\n/g; $c_pass = $FORM{'pass'} ; local ($img) = $c_imgfile =~ /([^\/]+)$/; $img = $UpFolder .$img; if($img) { $c_upload = $img ; } &formproc2 ; } } if ( $found == 0 ) { &error("該当する記事Noのデータは存在していません。"); } exit; } ###<-------------------------------------------------------------- ###<--- ログファイル更新 ###<-------------------------------------------------------------- sub update { if ( $FORM{'proc'} eq 'edit' ) { #i010410 if ( $maxword ne '' && (length($FORM{$name_comment}) > $maxword)) { &error("メッセージは$maxword文字までしか登録出来ません。"); } if ($FORM{'hptitle'} eq '' ) { &error("ホームページのタイトルを書いて下さい"); } if ($FORM{'hpaddress'} eq '' ) { &error("ホームページのアドレスを書いて下さい"); } if ($FORM{$name_comment} eq '' ) { &error("ホームページの紹介文を書いて下さい"); } if ( $FORM{'banner'} ne '' && $FORM{'fileupload'} ne '' ) { &error("バナーアドレス又はファイルアップロードのどちらか一方しか設定出来ません。"); } if ( $FORM{'osusume'} ne '' && $FORM{'pass'} ne $password ) { &error("管理者以外は、「管理者オススメ」の登録は出来ません。"); } } #i010410 &filelock ; #ファイルロック &dataread ; #ログ読み込み foreach (@data) { ($dt,$ctgr,$hpttl,$hpadr,$hpcom,$area,$banner,$pass,$kanri,$no,$sougo,$look,$osusume,$imgfile) = split(/,/,$_); if ( $FORM{'no'} eq $no) { #メンテ対象の場合 $osusume =~ s/\n//g; $imgfile =~ s/\n//g; if ($FORM{'pass'} ne $password && (&pass_dec($pass))) { &fileunlock ; #ファイルロック解除 &error("パスワードが違います。"); } #■アップロードファイルの削除 local ($img) = $imgfile =~ /([^\/]+)$/; $img = $UpFolder .$img; if ( ($FORM{'fileupload'} || $FORM{'proc'} eq 'delete' || $FORM{'banner'} ne '' ) && $img && (-e $img)) { unlink($img); } if ( $FORM{'proc'} eq "edit" ) { # ファイル添付処理 $ImgFile = ""; if($incfn{'fileupload'} =~ /http/gi) { $ImgFile = $FORM{'fileupload'} ; } elsif ($incfn{'fileupload'}) { &fileupload; } else { $ImgFile = $imgfile ; } push(@new,"$dt,$FORM{'category'},$FORM{'hptitle'},$FORM{'hpaddress'},$FORM{$name_comment},$FORM{'area'},$FORM{'banner'},$pass,$FORM{'hpkanri'},$no,$FORM{'sougo'},$look,$FORM{'osusume'},$ImgFile\n"); } } else { push(@new,"$_"); #そのまま出力 } } if ( !(open(OUT,">$logfile"))) { &fileunlock ; &error("ログファイル($logfile)のオープンに失敗しました"); } print OUT @new; close(OUT); &fileunlock ; #ファイルロック解除 if ( $damedame == 0 ) { print "Location: $script?linkchoice=$FORM{'category'}\n\n"; } else { print "Content-type: text/html\n\n"; print "\n\n"; } exit ; } ###<-------------------------------------------------------------- ###<--- ＨＰ参照数のカウント＆ＨＰリンク ###<-------------------------------------------------------------- sub link { &filelock ; #ファイルロック &dataread ; #ログ読み込み foreach (@data) { ($dt,$ctgr,$hpttl,$hpadr,$hpcom,$area,$banner,$pass,$kanri,$no,$sougo,$look,$osusume,$img) = split(/,/,$_); if ( $FORM{'no'} eq $no) { #メンテ対象の場合 $osusume =~ s/\n//g; $img =~ s/\n//g; $look++ ; $sv_hpadr = $hpadr ; push(@new,"$dt,$ctgr,$hpttl,$hpadr,$hpcom,$area,$banner,$pass,$kanri,$no,$sougo,$look,$osusume,$img\n"); } else { push(@new,"$_"); #そのまま出力 } } if ( !(open(OUT,">$logfile"))) { &fileunlock ; &error("ログファイル($logfile)のオープンに失敗しました"); } print OUT @new; close(OUT); &fileunlock ; #ファイルロック解除 if ( $damedame == 0 ) { print "Location: http://$sv_hpadr\n\n"; #u010602 } else { print "Content-type: text/html\n\n"; print "\n\n"; } exit ; } ###<-------------------------------------------------------------- ###<--- ランキング表示 ###<-------------------------------------------------------------- sub rank { &header ; #htmlヘッダー &formproc ; #検索フォーム print "
\n"; foreach ( @CATEGORYLOG ) { ($dt,$ctgr,$hpttl,$hpadr,$hpcom,$area,$banner,$pass,$kanri,$no,$sougo,$look,$osusume,$imgfile) = split(/,/,$_); $imgfile =~ s/\n//g; $TBL_no{$no} = $no ; $TBL_look{$no} = $look ; $TBL_ctgr{$no} = $ctgr ; $TBL_hpttl{$no} = $hpttl ; $TBL_hpadr{$no} = $hpadr ; $TBL_hpcom{$no} = $hpcom ; $TBL_banner{$no} = $banner ; $TBL_imgfile{$no} = $imgfile ; $TBL_pass{$no} = $pass; } $i = 1 ; foreach ( sort { ( $TBL_look{$b} <=> $TBL_look{$a} ) || ( $a cmp $b ) } keys ( %TBL_look ) ) { if ( $i > $rankcnt ) { last ; } $pass = $TBL_pass{$_}; &colorset ; #セル背景色の設定 print "
\n"; if ( $FORM{'linkchoice'} == 0 ) { print "$CATEGORY[$TBL_ctgr{$_}]
\n"; } print "
";
print "
| |||||
\n"; print "$_[0]
"; &footer2; exit; } ###<-------------------------------------------------------------- ###<--- ファイルロック設定 ###<-------------------------------------------------------------- sub filelock { foreach (1 .. 5) { if (-e $lockfile) { sleep(1); } else { open(LOCK,">$lockfile"); close(LOCK); return; } } &error("只今他の方が書き込み中です。再度登録を行って下さい。"); } ###<-------------------------------------------------------------- ###<--- ファイルロック解除 ###<-------------------------------------------------------------- sub fileunlock { if (-e $lockfile) { unlink($lockfile); } } ###<------------------------------------------------------------- ###<--- パスワード暗号化 ###<-------------------------------------------------------------- sub pass_enc { if ( $ango == 1 ) { $pass = crypt($_[0], $_[0]); } else { $pass = $_[0]; } } ###<------------------------------------------------------------- ###<--- パスワードチェック ###<-------------------------------------------------------------- sub pass_dec { if ( $ango == 1 ) { if ($_[0] ne '' && ( crypt($FORM{'pass'}, $_[0]) eq $_[0]) ) { return 0 ; } } else { if ($FORM{'pass'} eq $_[0]) { return 0 ; } } return 1; } ###<-------------------------------------------------------------- ###<--- スクロール ###<-------------------------------------------------------------- sub scrl { $dm = @CATEGORYLOG; if ( $dm % $pagemax == 0) { $p = $dm / $pagemax ;} else { $p = $dm / $pagemax + 1;} $p = sprintf("%3d",$p); if ( $p > 1 ) { print "
| \n"; for ( $i = 1 ; $i <= $p ; $i++ ) { if ( (!($FORM{'disppage'}) && $i != 1 ) || ( $FORM{'disppage'} && ( $i ne $FORM{'disppage'}) ) ) { print "$i\n"; } else { print "$i\n"; } if ( $i != $p ) { print " "; } } print " |
\n"; print "ログファイルの復旧が正常終了しました。\n"; print "
[BACK]