#!/usr/bin/perl $ENV{'TZ'}='JST-9'; ############################## # ############################## require 'jcode.pl'; use CGI; $query = new CGI; @list=$query->param(); foreach $tag (@list) { $value=$query->param($tag); $keyword{$tag}=$value; } $num=$keyword{num}; $num=1 if (! $keyword{num}); $mday=3; $mday=1 if ($keyword{mode} eq 'i'); ############################## # ############################## ($day,$month,$year)=(localtime(time))[3 .. 5]; $month++; $year+=1900; ############################## # 登録リスト ############################## open(LOCK,".lock"); flock(LOCK,2); seek(LOCK,0,2); $count=0; open(IN,"data/diary"); while(){ if (/^date:/) { $count++; } push(@diary,$_) if ($keyword{mode} eq 'list' || $count >= $num && $count < $num+$mday); } close(IN); close(LOCK); ($date)=grep(/^date:/,@diary); chop($date); $date=~s/^date://; ############################## # 表示 ############################## $par="80%"; $par="100%" if ($keyword{mode} eq 'i'); $par="60%" if ($keyword{mode} eq 'list'); print "Content-type: text/html;Charset=EUC-JP\n\n"; $code=($keyword{mode} eq 'i')?"SHIFT_JIS":"EUC-JP"; $text=" 今日のアタクシ

今日のアタクシ

劇団代表グッキーあんとくの不定期日誌。いつまで続くか不明。
"; if ($keyword{mode} eq 'list') { $text.=&get_diary(*diary,'list'); } else { $text.=&get_diary(*diary); } $text.="
\n"; $text.="
"; if ($keyword{mode} ne 'list') { $fur=$num-$mday; $old=$num+$mday; $mode=""; $mode="mode=i&" if ($keyword{mode} eq 'i'); $text.=sprintf("過去\n",$mode,$old) if ($old<$count); $text.="一覧\n" if ($keyword{mode} ne 'i'); $text.=sprintf("未来\n",$mode,$fur) if ($fur>=1); } $text.=&body_end(*keyword); &jcode'convert(*text,'sjis') if ($keyword{mode} eq 'i'); print $text; sub get_diary{ local(*diary,$mode)=@_; local($text); local($line,$main,$year,$month,$day); local($num,$size); foreach(@diary){ chop; $line=$_; $main=0; if ($line =~ /date:/) { $line=~s/date://; if ($main) { $main=0; $text.="\n"; } ($year,$month,$day)=split("_",$line); $year-=1988 if ($year>1900); $text.="\n"; $text.=sprintf("平成%2d年%d月%d日\n",$year,$month,$day); $text.="
\n" if ($mode ne 'list'); } elsif ($line=~ /subject:/) { $size=($mode eq 'list')?'1':'2'; $num++; $line=~s/subject://; $text.="" if ($mode eq 'list'); $text.="$line"; $text.="" if ($mode eq 'list'); $text.="\n"; $main=1; $text.="\n"; } elsif ($mode eq "list") { } elsif ($line =~ /^\(.*::http:.*\)$/) { my ($n,$url)=split("::",$line); $n=~s/\(//; $url=~s/\)$//; $text.="$n
\n"; } elsif ($line eq "---") { $text.="
\n"; } else { $text.="$line
\n"; } } $text; } sub body_end{ local(*keyword)=@_; local($text,$fig); $fig=($keyword{mode} eq 'i')?'../linei.gif':'../line.gif'; $text="
\"---\"
\"ホーム\"
"; $text; }