\n"; #区切り §ion_jump() if ($section ne "ALL"); #全部表示の時以外はjump先一覧を表示 } else { # いわゆるtitle表示 if ($plan) { &planprint(); #予定 } elsif ($todo) { &todoprint(); #TODO } else { &title(); #タイトル一覧 } } close(IN); if ($footfile ne ""){ $path = $confdir . $footfile; &fileprint($path); #文末の何か } if ($address ne "") { $out .= "$address\n"; #メイルアドレス } $out .= "\n"; #html生成終わり &jcode::convert(\$out, "sjis") if ($nkf == 2); #jcode.pl使用時はsjis変換 print $out; #出力 ################################################################ # # おしまい # # あとはsubroutine # ################################################################ # ファイルを読み出して表示 sub fileprint { open(IN, $_[0]); while(
$1年$2月$3日\n"; $out .= "$1年$2月$3日\n"; # brを取った } #解析 sub parse { $t = $_[0]; $o = ""; chomp($t); #これは実はいらない? if ($t =~ /~$/) { #末尾の改行を変換 $t =~ s/~$/
/; } if ( $t =~ /^OK$/ ) { #header識別 $ok = 1; return; } if ($ok == 0) { #header処理中 # ユーザー変数は非表示にする return; } if ($grp > 0) { #GRP機能対応 kenji-3 if ($t =~ /^(NEW|LNEW|GRP)\s.*/) { # GRPの内部は非表示にする } else { return; } } if ($t =~ /^CAT\s(.+)/) { # CAT hoge $cat = $cat . $1; #複数行のCATに対応 } elsif ( $t =~ /^GRP/ ) { # GRP機能 $grp = 1; # grp mode on } elsif ( $t =~ /^NEW(.*)/) { # NEW hogehoge $newtopic = $1; # searchで使うためにnewの中身を保存 if ($grp == 1) { # GRPの内部は非表示にする $grp = 2; return; } elsif ($grp == 2) { $grp = 0; } $newcount++; #if ( $newcount != 1 and $imode != 1) { if ( $imode != 1) { #常時 $newlineで区切ってみる $o .= "$newline"; } else { #iMODEのときは $o .= "
"; #とりあえず改行 } $subcount = 1; $o .= "$newmark$newcount:"; #$o .= "$new1$1; $o .= "$new1$1"; if ($cat) { #$o .= "[$cat]"; #カテゴリ表示をやめてみる(ari-3) $cat = ""; } $o .= "$new2"; } elsif ( $t =~ /^LNEW\s(\S+)\s(.+)/) { # LNEW url hogehoge #$newtopic = $2; # searchで使うためにnewの中身を保存 if ($grp == 1) { # GRPの内部は非表示にする $grp = 2; return; } elsif ($grp == 2) { $grp = 0; } $newcount++; #if ( $newcount != 1 and $imode != 1) { if ( $imode != 1) { #常時 $newlineで区切ってみる $o .= "$newline"; } else { #iMODEのときは $o .= "
"; #とりあえず改行 } $subcount = 1; $fncount = 1; $fnmode = 0; $fn = ""; $o .= "$newmark$newcount:"; $o .= "\n" . "$new1$2"; if ($cat) { #print "[$cat]\n"; $o .= "[$cat]\n"; $cat = ""; } $o .= "$new2"; } elsif ($t =~ /^SUB(.*)/) { # SUB hogehoge #$subtopic = $1; # searchで使うためにsubの中身を保存 $o .= "$subline"; $o .= "$submark$subcount:"; $subcount++; $o .= "$sub1$1$sub2"; } elsif ($t =~ /^LSUB\s(\S+)\s(.+)/) { # LSUB url hogehoge #$subtopic = $2; # searchで使うためにsubの中身を保存 $o .= "$subline"; $o .= "$submark$subcount:"; $subcount++; $o .= ""; $o .= "$sub1$2$sub2"; } elsif ($t =~ /^LINK\s(\S+)\s(.+)/) { # LINK url hogehoge $o .= ""; $o .= "$2"; } elsif ($t =~ /^URL\s(\S+)(\s(.+))?/) { # URL url hogehoge $o .= ""; $o .= "$2 ($1)"; } elsif ($t =~ /^UL/ or $t =~ /^\/UL/ or $t =~ /^DL/ or $t =~ /^\/DL/ or $t =~ /^OL/ or $t =~ /^\/OL/) { $o .= "<$t>"; } elsif ( $t =~ /^\/PRE/) { # /PRE $premode = 0; $o .= ""; } elsif ( $t =~ /^PRE(.*)/) { # PRE if ($premode) { $o .= "$1"; } else { $o .= "
";
$premode = 1;
}
} elsif ( $t =~ /^CITE/) {
$o .= "\n";
} elsif ( $t =~ /^\/CITE/) {
$o .= "
\n";
} elsif ( $t =~ /^LI\s(.*)/) { # LI hoge
$o .= ""; if ( $1 eq $orig ) { # 一致したら $o .= "$2"; } } close(ALIAS); } elsif ($t =~ /^RLINK\s(.+)\s(.+)\s(.+)/ ) { # RLINK 引数1 引数2 説明文章 $orig = $1; $url = $2; $cmt = $3; open(RLINK, "$diarydir" . "conf/rlink.txt"); while($a =
"; } elsif ( $t eq "/P" ) { # /P $o .= "
"; } else { $o .= "$t"; } } #タイトル一覧を表示する sub title { #$out .= "- \n";
while($tmp =
- $1:\n" unless ($grp); $out .= "$newmark$newcount:$1:\n" unless ($grp); # listingをやめた } elsif ($tmp =~ /^SUB\s(.+)/ or $tmp =~ /^LSUB\s\S+\s(.+)/) { $out .= "$1 \n" unless ($grp); } } #$out .= "
\n"; if ($prevday) { if ($imode) { $out .= qq(驪[前の日]); #(1) } else { $out .= qq([前の日]); } } if ($nextday) { if ($imode) { $out .= qq(黎[次の日]); # (3) } else { $out .= qq([次の日]); } } $up = "?$day" . "P"; $ut = "?$day" . "T"; if ($imode) { $out .= "曆[日付移動]\n"; #(5) $out .= "力[予定]\n"; $out .= "歷[TODO]\n"; $out .= "年[検索]\n"; #(5) #iMODEでは「全部」表示はしない(表示できないから) } else { $out .= "[日付移動]\n"; $out .= "[予定]\n"; $out .= "[TODO]\n"; $out .= "[検索]\n"; $uri = $day ."SALL"; $out .= "[全部]\n"; } $out .= "
i system ver $ver\n"; } # 予定を表示する sub planprint { $out .= "[予定]
\n"; open(PLAN1, $plan1f); while($tmp =
\n"; # ここでplanの見た目を変更可能 } $out .= "
\n"; #LINK表示 &ichiran; } #曜日を取得! sub getdayoftheweek { $_[0] =~ /(\d\d\d\d)\/(\d\d)\/(\d\d)/; my $year = $1 - 1900; my $mon = $2; my $day = $3; my $tt = timelocal(0,0,0,$day,$mon - 1,$year); my @tmp = localtime($tt); return "$mon/$day($week[$tmp[6]])"; } # TODOを表示する sub todoprint { my (@num); $out .= "[TODO]
\n"; open(TODO, $todof); while($tmp =
\n"; #ここでTODOの見た目を変更可能 } $out .= "
\n"; #LINK表示 &ichiran; } #[前][次]ってやつね sub section_jump { if ($section > 1) { # 前のセクションが存在 $sec = $section - 1; $u = "?$day" . "S$sec"; if ($imode) { $out .= "驪[前]"; } else { $out .= "[前]"; } } if ($newcount > $section) { # 後のセクションが存在 $sec = $section + 1; $u = "?$day" . "S$sec"; if ($imode) { $out .= "黎[後]"; } else { $out .= "[次]"; } } #一覧 &ichiran; } #日付移動 sub print_jump_form { open(STDOUT, "|nkf -s") if ($nkf == 1); $out .= "content-type: text/html\n\n"; $out .= "\n"; $out .= "\n" if (!$nkf); $out .= "
\n";
$out .= "任意の日付にジャンプします。
\n";
$out .= "3.を押すか、ボタンを押して下さい。
\n";
if ($baseuri) { #ezweb対策 ari-3
$out .= qq(
\n"; $out .= "\n"; &jcode::convert(\$out, "sjis") if ($nkf == 2); #jcode.pl使用時はsjis変換 print $out; } #検索フォームを表示 sub print_search_form { open(STDOUT, "|nkf -s") if ($nkf == 1); $out .= "content-type: text/html\n\n"; $out .= "\n"; $out .= "\n" if (!$nkf); $out .= "
\n"; $out .= "任意の単語を検索します。
\n"; if ($baseuri) { $out .= qq(\n"; $out .= "単語を入力して\n"; $out .= "3.を押すか、ボタンを押して下さい。
\n"; $out .= "
\n"; $out .= "正規表現も使えます\n"; $out .= "\n"; &jcode::convert(\$out, "sjis") if ($nkf == 2); #jcode.pl使用時はsjis変換 print $out; } # # log取得 # sub logging { # loggin subroutine is based on # tohoho wwwwcounter # http://wakusei.cplaza.ne.jp/twn/wwwcount.htm # thanks 2 tohoho # server setup # # $ mkdir lock # $ touch isystem.cnt # $ touch isystem.dat # $ touch isystem.acc # $ chmod 777 lock # $ chmod 666 isystem.* $count_name = $confdir . "isystem"; $file_count = "$count_name" . ".cnt"; $file_date = "$count_name" . ".dat"; $file_access = "$count_name" . ".acc"; $file_lock = "lock/$count_name" . ".loc"; # # 環境変数TZを日本時間に設定する # $ENV{'TZ'} = "JST-9"; # # ロック権を得る # if ($do_file_lock) { foreach $i ( 1, 2, 3, 4, 5, 6 ) { if (mkdir("$file_lock", 0755)) { # ロック成功。次の処理へ。 last; } elsif ($i == 1) { # 10分以上古いロックファイルは削除する。 ($mtime) = (stat($file_lock))[9]; if ($mtime < time() - 600) { rmdir($file_lock); } } elsif ($i < 6) { # ロック失敗。1秒待って再トライ。 sleep(1); } else { # 何度やってもロック失敗。あきらめる。 exit(1); } } } # # 途中で終了してもロックファイルが残らないようにする # $SIG{'PIPE'} = $SIG{'INT'} = $SIG{'HUP'} = $SIG{'QUIT'} = $SIG{'TERM'} = "sigexit"; # # カウンターファイルからカウンター値を読み出す。 # if (open(IN, "< $file_count")) { $count =
\n"; &jcode::convert(\$word, "euc") if ($nkf == 2); # EUCに変換する #あれ？jcode.plを使ってないときはどうするんだろう???? # print $word; # ファイルをpick up masato-3 @a = (); for $y ($year-1..$year) { # 今年と去年の日記が対象 push(@a, <$diarydir$y/d*.hnf>); } @a = sort { $b cmp $a } @a; # 並び替え(降順) #これで、最新のhnfから順に並んでいるはず。 if (!$maxday) { $maxday = 60; #デフォルトで最大60日を検索 } if ($#a < $maxday) { # 少ないとき $maxday = $#a + 1; } for ( $i = 0 ; $i < $maxday ; $i++) { open(IN, $a[$i]); # 最新のファイルから順に開く $newcount = 0; $subcount = 0; $a[$i] =~ /d(\d{8})\.hnf/; $tmpday = $tmpday2 = $1; $tmpday2 =~ s/(\d\d\d\d)(\d\d)(\d\d)/$1\/$2\/$3/; while($tmp =
\n"; $hitcount++; $lastu = $u; } } } close(IN); } $out .= "
$hitcount件hit
\n"; &ichiran; $out .= "\n"; &jcode::convert(\$out, "sjis") if ($nkf == 2); print $out; } #[一覧]を表示する sub ichiran { $u = "?$day"; if ($imode) { $out .= "麗[一覧]\n"; } else { $out .= "[一覧]\n"; } } # i system history # yns(1999/9) > mns(1999/10) > mns for iMODE(2000/1) > i system(2000/2) # yns: yar-3 nikki system # mns: MIOMIO nikki system # # version up list # with many users....... # 2000/02/22 0.3.5 ari-3 patched # 2000/02/21 0.3.4 yar-3 search bug fix(regexp etc...) # 2000/02/21 0.3.3 yar-3 i search system # 2000/02/21 0.3.2 yar-3 with jcode.pl # 2000/02/18 0.3.1 yar-3 PLAN,TODO # 2000/02/17 0.3.0 yar-3 ez logger # 2000/02/17 0.2.9 yar-3 jump refined $baseuri set # 2000/02/17 0.2.8 yar-3 P fixed # 2000/02/15 0.2.7 yar-3 ALL sections show # 2000/02/15 0.2.6 ari-3 Lynx patched (SUB on title) # 2000/02/15 0.2.5 yar-3 PDXGW(-H") patched # 2000/02/15 0.2.4 key-3 iMODE char accesskey patched # 2000/02/15 0.2.3 yar-3 RLINK # 2000/02/15 0.2.2 yar-3 ALIAS problem fixed # 2000/02/14 0.2.1 ari-3 patched (headfile, URL problem, SJIS) # 2000/02/13 0.2.0 yar-3 (NEW fixed) # 2000/02/13 0.1.7 key-3 patched (title,author, SUB problem) # 2000/02/13 0.1.6 kenji-3 patched (GRP) # 2000/02/13 0.1.5 masato-3 patched (without CGI.pm) # 2000/02/04 by yar-3 # original 1999/10/06 by yar-3 # # # thanks 2 all users. # 1999,2000,2001 (C)yar-3 All rights reserved.