設定を見直してください。'); } unlink("$storedir$prefix$id.$type"); } &write if($comment); close (UPLOCK); # 排他処理の終わり &readlog; } # フォームデータのデコード(GET) $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; $FORM{$name} = $value; } # 環境設定モード if($ENV{QUERY_STRING} eq 'env'){ &env_form; } # 過去ログ検索 elsif($FORM{search} ne "" || $ENV{QUERY_STRING} eq "search"){ if($FORM{search}){ @search_ary = &search_log($FORM{search}); $search_hit = @search_ary; } &search_result; } # 画像閲覧モード elsif($ENV{QUERY_STRING} eq "image" || $FORM{image} ne ""){ &image_view($FORM{image}); } # URLリスト作成 elsif($FORM{lstart} ne "" && $FORM{lend} ne ""){ &list; } # 投稿データ削除フォーム elsif($FORM{del} ne "" && $del_enable){ &del_form($FORM{del}); } # 投稿データの削除 elsif($FORM{delid} && $FORM{delpass} ne ""){ &del($FORM{delid},$FORM{delpass}); &readlog; &html; } # md5表示 elsif($md5_enable && $FORM{md5} ne ""){ &md5_disp($FORM{md5}); } # dcrc elsif($dcrc_enable && $FORM{dcrc} ne ""){ &dcrc_disp($FORM{dcrc}); } # ヘルプ elsif($FORM{help} ne ""){ &help($FORM{help}); } # トップページ表示 else{ &html; } # ロックファイル削除 unlink($lockfile) if($lock); # 終了 exit; # ############################################################################ # 以下関数定義&実装 # ############################################################################ # ログ読み込み sub readlog{ if(!open(DB,"$countsource")){&error('カウント用のログファイルがオープンできません','スクリプトの設定を見直してください。');} seek(DB,0,0); $no =
設定を見直してください。'); } } else{unlink("$storedir$prefix$id.$type");} } unshift(@lines,$value); open(DB,">$getsource"); eval { flock(DB,2); }; seek(DB,0,0); print DB @lines; eval { flock(DB,8); }; close(DB); } # POSTされたデータのMIMEタイプ決定、CRC・MD5算出、 # コメント長計算・パスワード照合処理 sub decode{ my $size, $expfile; return if($ENV{CONTENT_LENGTH} > $limitk*1024); return unless($ENV{HTTP_REFERER} =~/$url/); binmode(STDIN); while(
| $title_h |
$info
HEADER } # HTMLのフッタ部分 sub print_footer{ print "ゆいのーと + \n", "$copyright $modified\n", "
\n$ban
\n\n"; close(STDOUT) if($gzipenc_enable && $gzipence); } # 投稿記事部分のHTML sub print_postdata{ my @matrix = @_; my $id, $type, $comment, $host, $brauza, $date, $size, $ctype, $pass, $md5, $dcrc; print "| ACT | \n" if($acte); print "NAME | \n"; print "COMMENT | \n" if($commente); print "SIZE(KB) | \n" if($sizee); print "MIME | \n" if($mimee); print "DATE | \n" if($datee); print "MD5 | \n" if($md5e && $md5_enable); print "CRC | \n" if($crce && $dcrc_enable); print "DL | \n"; print "
|---|---|---|---|---|---|---|---|---|
| \n"; print "D\n" if($del_enable); print " C\n" if($dcrc_enable && !$crce); print " 5\n" if($md5_enable && !$md5e); print " | \n"; } print "[$prefix$id.$type] | \n"; print "$comment | \n" if($commente); print "$size | \n" if($sizee); print "$ctype | \n" if($mimee); print "$date | \n" if($datee); print "$md5 | \n" if($md5e && $md5_enable); print "$dcrc | \n" if($crce && $dcrc_enable); print "$readcount | \n"; print "
ID：$target_idを削除します
DEL &print_footer; } # 投稿ファイル削除処理 sub del{ my ($target_id, $target_pass) = @_; my $id, $type, $pass, $target_type; foreach (@lines){ chop; ($id, $type, undef, undef, undef, undef, undef, undef, $pass, undef, undef) = split(/\t/); if($id eq $target_id){$target_type=$type; $org_pass=$pass; last;} } &error('削除エラー','該当ファイル無し') if(!$target_type); if(!$admindel_enable || ($admindel_enable && $adminpass ne (crypt($target_pass, $adminseed)))){ &error('削除エラー','削除禁止ファイルです') if($org_pass eq '*'); &error('削除エラー','パスワードが違います') if($org_pass ne (crypt($target_pass, $del_seed))); } if($ftp_enable){ if(-f $upftp_pl){ require $upftp_pl; &upftp::login($ftp_host, 21, $ftp_user, $ftp_pass); &upftp::cd($ftp_dir); &upftp::del("$prefix$id.$type"); &upftp::logout; } else{ &error('エラー','upftp.plが見つかりません。設定を見直してください。'); } } else{unlink("$storedir$prefix$target_id.$target_type");} open(DB,">$getsource"); eval { flock DB, 2; }; foreach (@lines){ next if($target_id eq (split(/\t/))[0]); s/\n//g; print DB "$_\n"; } eval { flock DB, 8; }; close(DB); } # エラー出力 sub error{ &print_header('Notice！'); print <<"ERROR";
$_[1]
Return'; if($search_hit){&print_postdata(@search_ary);} if($search_str){ print "
\"$search_str\"は$search_hit件見つかりました。
" if($search_hit); print "\"$search_str\"は見つかりませんでした。
" if(!$search_hit); } &print_footer; } # dcrcからターゲットファイルのCRCを得る sub dcrc{ my $target = shift; open DCRC, "$dcrc_path $target |"; my $val =| 過去ログ検索\n", " | 画像閲覧 | 環境設定 $links\n"; print "
\n", "ページ: "; for($i=1; $i<=$page_max; $i++){ if($i==$page){ print "[$i]\n"; } else { print "[$i]\n"; } } print "
\n
\n";
print "$prefix$id.$type
\n",
"$comment $date
環境設定
戻る ENV &print_footer; } # cookie送信 sub send_cookie{ my $cookie = "crce:$FORM{crce}<>md5e:$FORM{md5e}<>acte:$FORM{acte}<>"; $cookie .= "commente:$FORM{commente}<>sizee:$FORM{sizee}<>mimee:$FORM{mimee}<>"; $cookie .= "datee:$FORM{datee}<>anothere:$FORM{anothere}<>gzipence:$FORM{gzipence}"; # cookieの有効期限の計算 my($sec, $min, $hour, $mday, $month, $year, $wday) = gmtime(time + $cookie_limit_day * 24 * 60 * 60); my $youbi = ('Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday') [$wday]; my $tuki = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec') [$month]; my $year = 1900 + $year; my $expire = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT", $youbi, $mday, $tuki, $year, $hour, $min, $sec); print "Set-Cookie: env=$cookie; expires=$expire\n"; } # cookie取得 sub get_cookie{ my $key, $value, $db, $db2, $env; foreach (split(/; /,$ENV{HTTP_COOKIE})){ ($key, $value) = split(/=/); $db{$key} = $value; } $env = $db{env}; foreach (split(/<>/,$env)){ ($key, $value) = split(/:/); $db2{$key} = $value; } $crce = $db2{crce}; $md5e = $db2{md5e}; $acte = $db2{acte}; $commente = $db2{commente}; $sizee = $db2{sizee}; $mimee = $db2{mimee}; $datee = $db2{datee}; $anothere = $db2{anothere}; $gzipence = $db2{gzipence}; if(!$env){ # cookieが取得できなかった場合 $acte=1; $commente=1; $sizee=1; $datee=1; $gzipence=$gzipenc_def; } } # HELPページ表示 sub help{ my $target = shift; &print_header('HELP'); if($target eq 'del'){ print <<"DEL";
投稿記事削除パスについて
投稿者が後々自分の投稿記事を削除したい場合に入力します。
パスワードが入力されないまま投稿された記事は管理者にしか削除できなくなります。
パスワードには10文字未満の英数記号を指定できます。
投稿用パスワードについて
全ての投稿者は、管理者があらかじめ設定した投稿用パスワードを、"postpass"
フィールドに入力する必要があります。投稿用パスワードは、サイトの管理者から
入手してください。