#!/usr/bin/perl #2002年10月11日(金)版 $\ = "\n"; #入力を整理。 $val = ""; unless($ENV{CONTENT_LENGTH} == 0){ read(STDIN,$_,$ENV{CONTENT_LENGTH}) ; @argv = split /&/; foreach(@argv){ ($key,$val) = split /=/; $arg{$key} = $val; } unless($arg{text} eq ""){ # リロード対策。 $chk =""; open(CHK,"chk"); while(){ chop; $chk = $chk.$_ ; } close(CHK); $ref = $arg{name}.$arg{text}; chop $ref ; if( $chk eq $ref){ $arg{name} = ""; $arg{text} = ""; } else{ open(CHK,">chk"); print CHK $ref ; close(CHK); } $arg{name} =~ s/%(..)/pack("C",hex($1))/eg ; $arg{text} =~ s/%(..)/pack("C",hex($1))/eg ; $name = $arg{name}; $val = $arg{text}; # #SJIS,JIS,EUC -> SJIS use Jcode ; $name = jcode($name)->h2z->sjis; $name =~ s///g; $name =~ s/\+/ /g; $name =~ s/\t//g; $name =~ s/\r\n/\n/g; # Win→Unix $name =~ s/\r/\n/g; # Mac→Unix #$name =~ s/&/&/g; #$name =~ s/"/"/g; #$name =~ s//>/g; $val = jcode($val)->h2z->sjis; $val =~ s///g; $val =~ s/\+/ /g; $val =~ s/\t//g; $val =~ s/\r\n/\n/g; # Win→Unix $val =~ s/\r/\n/g; # Mac→Unix $val =~ s/&/&/g; #$val =~ s/"/"/g; #$val =~ s//>/g; }} ########################################################### #最新ログナンバーを取得。上位15件を表示する準備。 ########################################################### #!/usr/bin/perl opendir DIR ,"."; @dir = readdir DIR ; @list = grep {/^[0-9]+.log/} @dir; @list2 = sort @list; $big = pop @list2; $big =~ s/^(....).*/\1/; $big = $big-0; ########################################################## # ########################################################## $\ = "\n"; #$mes = ""; $date = localtime; #open(LOG,"byo.log"); #while(){ # $mes = $mes.$_; #} #close(LOG); #chop $mes; $_ = $val; if ( $_ ne ""){ $big++ ; $log = sprintf("%04d.log",$big); open( LOG ,">".$log); print LOG ' '; print LOG 'おなまえ
',$name; print LOG '--------'; print LOG 'メッセージ
',$_; print LOG '
日付',$date; close(LOG); $\ = "\n"; } # print < はげましのお声、ないしは罵詈雑言

はげましのお声、ないしは罵詈雑言

END for( $i = $big ; $i > 0 ; $i--){ print "

"; print $i; $mes = ""; $log = sprintf("%04d.log",$i); open(LOG,$log); while(){ $mes = $mes.$_; } close(LOG); #print

; $_ = $mes; s/①/(1)/g; s/②/(2)/g; s/③/(3)/g; s/④/(4)/g; s/⑤/(5)/g; s/⑥/(6)/g; s/⑦/(7)/g; s/⑧/(8)/g; s/⑨/(9)/g; s/⑩/(10)/g; s/⑪/(11)/g; s/⑫/(12)/g; s/⑬/(13)/g; s/⑭/(14)/g; s/⑮/(15)/g; s/⑯/(16)/g; s/⑰/(17)/g; s/⑱/(18)/g; s/⑲/(19)/g; s/⑳/(20)/g; s/\n/
/g; print $_; print "

"; } print <やっぱり15件づつのメッセージを読む。

[Home] [目次]

END2