#! /usr/local/bin/perl #はじあや＠ふぁみーるのパソヲタさん、本当にありがとう #-------------------- $body = ''; $bbstitle ="あやしいわーるど＠はるな"; $logdir = './log/'; $cgiurl = 'getlog.cgi'; $action ='getlog'; $bbsurl = './bbs.cgi'; # 日本語コード変換ライブラリjocde.plのパス require './jcode.pl'; # キーワードの最大文字数（半角） $keylength = 64; # 時差 サーバの時計がずれてる時や日本時間以外にしたい時に使う $tim = 0; $\ = "\n"; #-------------------- #if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } #else { $buffer = $ENV{'QUERY_STRING'}; } $buffer = $ENV{'QUERY_STRING'}; @argv = split(/&/,$buffer); foreach (@argv) { ($name, $value) = split(/=/); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'sjis'); # 処理の都合上の処理 $value =~ s/\\/\\\\/; $value =~ s/\[/\\[/; $COMMAND{$name} = $value; } &error(2) if (length($COMMAND{'keyword'}) > $keylength); &viewlog if ($COMMAND{'action'} eq "$action"); &list; sub list { &error(0) if(!opendir(DIR, $logdir)); @files=readdir(DIR); closedir(DIR); @files = sort by_number @files; $end = @files; $end--; print "Content-type: text/html\n\n"; print "$bbstitle 過去ログ\n"; print "$body\n"; print "
$bbstitle 過去ログ
\n"; print "
"; print ""; print ""; #print ""; foreach (0 .. $end) { if (!($files[$_] eq "." or $files[$_] eq "..")) { ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat "$logdir$files[$_]"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($mtime + 32400 + $tim); $mon++; $mon = "0$mon" if ($mon < 10); if ($mday < 10) { $mday = "0$mday"; } if ($min < 10) { $min = "0$min"; } if ($hour < 10) { $hour = "0$hour"; } $checked = ' checked' if ($_ == $end); print ""; print ""; print ""; } } print "\n"; print ""; print "
ファイル名サイズ日付
$files[$_]$size\ byte
※ラジオボタンでファイル名を指定してください。
から"; print "まで　

"; print ""; print "："; print "

"; print "
"; print "現在ベータテスト中です。バグを見つけたら掲示板に書いてね"; print "

掲示板へ

"; print "

Getlog Ver0.3b3

"; print ""; } sub viewlog { if (!open(DB,"$logdir$COMMAND{'logfile'}")) { &error(1); } @lines = ; close(DB); $COMMAND{'last'} = $COMMAND{'first'} + 1 if ($COMMAND{'first'} >= $COMMAND{'last'}); $first = $COMMAND{'first'}; $last = $COMMAND{'last'}; $first = "0$COMMAND{'first'}" if ($first < 10); $last = "0$COMMAND{'last'}" if ($last < 10); if ($COMMAND{'searchmode'} eq 'name') { $keyword = "投稿者：.*>${COMMAND{'keyword'}}<"; } elsif ($COMMAND{'searchmode'} eq 'subject') { $keyword = "color=\"#ffffee\">${COMMAND{'keyword'}}"; } else { $keyword = $COMMAND{'keyword'}; } print "Content-type: text/html\n"; print "$bbstitle 過去ログ $COMMAND{'logfile'}"; print "$body"; print "

$COMMAND{'logfile'} $first時〜$last時

"; $end = @lines; $end--; foreach (0 .. $end) { if ($lines[$_] =~ /　投稿日：/) { $hour = substr( $lines[$_], 36, 4 ); last if ($hour ge "$first時"); } $skip++; } $skip--; foreach ($skip .. $end) { if ($lines[$_] =~ /　投稿日：/) { $hour = substr( $lines[$_], 36, 4 ); last if ($hour ge "$last時"); } if ($keyword ne '') { if ($lines[$_] =~ /$keyword/) { $flag = 1; $hit++; } push( @article, $lines[$_] ); if ($lines[$_] =~ /<\/blockquote>/) { print @article if ($flag > 0); splice( @article, 0 ); $flag = 0; } } else { print $lines[$_]; } } if ($keyword ne '') { print "
"; $keyword =~ s/\\\\/\\/; $keyword =~ s/\\\[/\[/; if ( $hit > 0 ) { print "

キーワード「$COMMAND{'keyword'}」は $hit件見つかりました。

"; } else { print "

キーワード「$COMMAND{'keyword'}」は見つかりませんでした。

"; } } print ""; exit; } sub error { $error = $_[0]; if ($error == 0) { $errmsg = 'ディレクトリが開けませんでした。'; } if ($error == 1) { $errmsg = 'ファイルが開けませんでした。'; } if ($error == 2) { $errmsg = 'キーワードが長すぎます。'; } print "Content-type: text/html\n"; print "エラー"; print "$body"; print "

$errmsg

"; print ""; exit; } sub by_number { $a <=> $b; }