\n"; if ($pdxdata) { print "push 1 for search[$pdxdata].\n"; } else { print "push 1.\n"; } exit 0; } $pdx = 1; # $section = "ALL"; #PmailDXのときは15KBくらい取得できるので1日分を一気に # pdxdata(PmailDXの表題or本文)があればそれでいきなり検索 $FORM{word} = $pdxdata if ($pdxdata ne ''); $baseuri =~ s/[?](.+)$//; } elsif ($ua =~ /^UP.Browser/) { # ezweb? $ezweb = 1; } $use_onccnv = 0 if (!$pdx); if ($imode or $pdx or $ezweb or $jsky) { $strike = "[S:"; $strike2 = ":S]"; if ($colorimode) { $strike = "$strike"; $strike2 = "$strike2"; } } #$log = 1;でログ採取。0で採取しない。動かないときは0にして if ($log) { # logger on # print "logging\n"; &logging; } if ($FORM{U} || $FORM{URL}) { # ONC GW動作 &onc_gateway($FORM{U} || $FORM{URL}, $baseuri, $ref_max, $flag_maru); exit 0; } #表示する日記の日付 if ($FORM{to} =~ /^(\d{8})(\d+)/) { $day = "$1S$2"; } else { $day = $FORM{d} || $ARGV[0]; # ?20001031 という感じ。 } $tt = time; ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($tt); $year += 1900; $mon++; if ($mon < 10 ) { $mon = "0$mon"; } #0suppress if ($mday < 10 ) { $mday = "0$mday"; } $today = "$year$mon$mday"; #19991231 format if ($day =~ /^(\d{4})(\d{2})(\d*)/) { # ?09270111 if ($1 < 1970) { $day = ""; # 最新の日記 } } if ($day eq 'J') { #日付移動 &print_jump_form; exit 0; } if ($day eq 'E') { #検索メニュー &print_search_form; exit 0; } if ($day eq 'PL') { # today's Plan $day = $today . "P"; } if ($day eq 'P' or ($day eq "" and ($ua =~ /pilo/i or $ua =~ /pscruiser/i))) { #Piloweb and PSCruiser $piloweb = 1; # piloweb flag $section = "ALL"; $day = ""; } if (length($day) > 8) { # ?20001031S2 というかんじ if ($day =~ /P$/i) { # 末尾がP : planモード $day =~ /(\d{8})P/i; #20001031 P に分ける $day = $1; $plan = 1; } elsif ($day =~ /T$/i) { # 末尾がT : todoモード $day =~ /(\d{8})T/i; #20001031 P に分ける $day = $1; $todo = 1; $todof = "$diarydir/todo"; } else { $day =~ /(\d{8})s(.+)/i; #20001031 S2 に分ける $day = $1; $section = $2; } } if ($day eq "") { # today # $day = $today if (-e &make_hnf_fname($today)); if ($FORM{word}) { # 検索文字列あり &search_word($FORM{word}); exit 0; } } else { ($year, $mon, $mday) = unpack("A4A2A2", $day); $hnf = &make_hnf_fname($day); } $newcount = 0; #いくつめのNEWか $subcount = 0; #いくつめのSUBか NEWが変わるとreset $ok = 0; # header識別 OK までの部分はユーザー変数 i systemでは無視 #去年から来年までのhnfファイルのリストを作成する foreach my $y ($year-1..$year+1) { opendir DIR, "$diarydir$y" || next; push(@ddays, (sort grep s/^d(\d+)\.hnf$/$1/, readdir DIR)); closedir DIR; } #$dayがからっぽで当日のhnfがないときは最新のhnfを代用 if ($day eq "") { foreach my $d (reverse @ddays) { $day = $d; ($year, $mon, $mday) = unpack("A4A2A2", $day); $hnf = &make_hnf_fname($day); last if &has_ok($hnf); } } #前日と翌日の日記ファイルを探す for ($i = 0; $i <= $#ddays; $i++) { last if ($ddays[$i] ge $day); } $j = ($ddays[$i] ge $day) ? $i-1 : $i; while ($j >= 0) { my $f = &make_hnf_fname($ddays[$j]); if (&has_ok($f)) { $prevday = $ddays[$j]; last; } $j--; } $j = ($ddays[$i] ge $day) ? $i+1 : $i; while ($j <= $#ddays) { my $f = &make_hnf_fname($ddays[$j]); if (&has_ok($f)) { $nextday = $ddays[$j]; last; } $j++; } if (!$use_onccnv) { $out .= "content-type: text/html\n\n"; # content-typeを出力 } $out .= "\n\n"; $out .= "\n" if (!$nkf); #nkfやjcode.plが使えないときは「や」テク #「や」テクとは、iMODE携帯でEUCのサイトを表示する技術(謎) # tnx 2 masato-3, ari-3 $out .= "
$1年$2月$3日\n"; # $out .= "$1年$2月$3日\n"; # brを取った $tmpday =~ s/%yyyy/$yyyy/; $tmpday =~ s/%mm/$mm/; $tmpday =~ s/%dd/$dd/; $tmpday =~ s/%m/$m/; $tmpday =~ s/%d/$d/; $tmpday =~ s/%w/$w/; $out .= "$tmpday\n"; } #解析 sub parse { $t = $_[0]; my $o = ""; $t =~ s/\r$//; chomp($t); #これは実はいらない? if ( $t =~ /^OK$/ ) { #header識別 $ok = 1; return; } if ($ok == 0) { #header処理中 #$o .= $t; #for debugging # ユーザー変数の表示 my ($var, $value) = $t =~ /^(\S+)\s+(\S.*)/; if ($UserVarAlias{$var}) { $var = $UserVarAlias{$var}; } my $v = $UserVarTemplates{$var}; if ($var ne '' && $v ne '') { $v =~ s/%value/$value/e; $o .= $v; } return; } if ($t =~ /^RL(NEW|SUB)\s(\S+)\s(\S+)\s(.+)/) { #RLNEW 引数1 2 説明 $cmd = $1; $orig = $2; $url = $3; $cmt = $4; #$t = "cmd=$cmd orig=$orig url=$url $cmt"; open(RLINK, "$diarydir" . "conf/rlink.txt"); while($a =
/; } if ($grp > 0) { #GRP機能対応 kenji-3 if ($t =~ /^(NEW|LNEW|RLNEW|GRP)\s.*/) { # GRPの内部は非表示にする } else { return; } } my ($cmd, $p) = ($t =~ /^(\/?[A-Z]+)(?:(?:\s*)|(?:\s+(.*)))$/); if ($cmd eq "CAT") { # CAT hoge $cat = $cat . $p; #複数行のCATに対応 } elsif ($cmd eq "GRP") { # GRP機能 $grp = 1; # grp mode on } elsif ($cmd eq "NEW") { # NEW 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; $o .= "$newmark$newcount:"; $o .= "$new1$p"; if ($cat && $catprint ) { #cat 表示をon/off可能に $o .= "\n[$cat]\n"; $cat = ""; } $o .= "$new2"; } elsif ($cmd eq "LNEW" && $p =~ /(\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 .= $new1; $o .= &make_link($1); $o .= "$2"; if ($cat && $catprint ) { #cat 表示をon/off可能に #print "[$cat]\n"; $o .= "\n[$cat]\n"; $cat = ""; } $o .= $new2; } elsif ($cmd eq "SUB") { # SUB hogehoge #$subtopic = $p; # searchで使うためにsubの中身を保存 $o .= "$subline"; $o .= "$submark$subcount:"; $subcount++; $o .= "$sub1$p$sub2"; } elsif ($cmd eq "LSUB" && $p =~ /(\S+)\s(.+)/) { # LSUB url hogehoge #$subtopic = $2; # searchで使うためにsubの中身を保存 $o .= "$subline"; $o .= "$submark$subcount:"; $subcount++; $o .= &make_link($1); $o .= "$sub1$2$sub2"; } elsif ($cmd eq "LINK" && $p =~ /(\S+)\s(.+)/) { # LINK url hogehoge $o .= &make_link($1); $o .= "$2"; } elsif ($cmd eq "URL" && $p =~ /(\S+)(\s(.+))?/) { # URL url hogehoge $o .= &make_link($1); $o .= "$3 ($1)"; } elsif ( $cmd eq "UL" or $cmd eq "/UL" or $cmd eq "DL" or $cmd eq "/DL" or $cmd eq "OL" or $cmd eq "/OL") { $cmd =~ tr/A-Z/a-z/; $o .= "<$cmd>"; } elsif ( $cmd eq "/PRE") { # /PRE $premode = 0; $o .= ""; } elsif ( $cmd eq "PRE") { # PRE if ($premode) { $o .= "$1"; } else { $o .= "
";
$premode = 1;
}
} elsif ($cmd eq "CITE") {
$o .= "\n";
} elsif ($cmd eq "/CITE") {
$o .= "
\n";
} elsif ($cmd eq "/BIG") {
# do nothing
} elsif ($cmd eq "/DIV") {
# do nothing
} elsif ($cmd eq "DIV") {
#do nothing
} elsif ($cmd eq "BIG" ) {
# do nothing
} elsif ($cmd eq "/SMALL") {
# do nothing
} elsif ($cmd eq "SMALL") {
# do nothing
} elsif ($cmd eq "LIMG" && $p =~ /(\S+)\s(\S+)\s(\S+)\s(.+)/) {
# LIMG url {r|l|n} ファイル名 文字列
$o .= "[LIMG $4]";
} elsif ($cmd eq "LI") { # LI hoge
$o .= ""; if ( $1 eq $orig ) { # 一致したら $o .= "$2"; } } close(ALIAS); } elsif ($cmd eq "RLINK" && $p =~ /(.+)\s(.+)\s(.+)/ ) { # RLINK 引数1 引数2 説明文章 $orig = $1; $url = $2; $cmt = $3; open(RLINK, "$diarydir" . "conf/rlink.txt"); while($a =
"; } elsif ($cmd eq "/P") { # /P $o .= "
"; } else { $o .= $t; } return $o; } #タイトル一覧を表示する sub title { #$out .= "- \n";
my $ok;
my $uv, @sect;
while(
\n"; $sect[$newcount] .= "
\n" unless ($grp); $uri = $day . "S$newcount"; my $t = &html_escape($1); if ($t eq "") { $t = "_"; } #$out .= "$newmark$newcount:$new1" . make_self_link("?$uri") . "$t$new2\n" unless ($grp); $sect[$newcount] .= "$newmark$newcount:$new1" . make_self_link("?$uri") . "$t$new2\n" unless ($grp); # listingをやめた } elsif (/^SUB()$/ or /^SUB\s(.+)/ or /^LSUB\s\S+\s(.+)/ or /^RLSUB\s\S+\s\S+\s(.+)/) { my $t = &html_escape($1); if ($t eq "") { $t = "_"; } #$out .= "$t$sub_separator\n" unless ($grp); $sect[$newcount] .= "$sub_separator$t\n" unless ($grp); } } if ($titlereverse) { for( $xx = $newcount; $xx >=0; $xx--) { $out .= $sect[$xx]; } } else { for($xx = 0; $xx <= $newcount; $xx++) { $out .= $sect[$xx]; } } $out .= "
\n"; if ($prevday) { $out .= make_self_link("?$prevday", "1") . "[前の日]"; } if ($nextday) { $out .= make_self_link("?$nextday", "3") . "[次の日]"; } $up = "?$day" . "P"; $ut = "?$day" . "T"; $out .= make_self_link("?J", "5") . "[日付移動]\n"; $out .= make_self_link("$up", "4") . "[予定]\n"; $out .= make_self_link("$ut", "6") . "[TODO]\n"; $out .= make_self_link("?E", "8") . "[検索]\n"; #(5) $out .= make_self_link("?${day}SALL") . "[全部]\n" unless ($imode); #iMODEでは「全部」表示はしない(表示できないから) $out .= make_self_link("http://yar-3.net/mi/","0") . "[みお]\n"; $out .= "
i system ver $ver
\n"; } # 予定を表示する sub planprint { my %abc = (A => 10.5, B => 20.5, C => 31.5, a => 10.5, b => 20.5, c => 31.5); my %abcString = (A => '上', B => '中', C => '下', a => '上', b => '中', c => '下'); my %dowNum = ('sun', 0, 'mon', 1, 'tue', 2, 'wed', 3, 'thu', 4, 'fri', 5, 'sat', 6, 'su', 0, 'mo', 1, 'tu', 2, 'we', 3, 'th', 4, 'fr', 5, 'sa', 6, '日', 0, '月', 1, '火', 2, '水', 3, '木', 4, '金', 5, '土', 6); my @pp, @p, @repeats; local (*PLAN); $out .= "[予定]
\n"; # 繰り返し予定を読み込む my $planf = $diarydir . "repeat"; open(PLAN, $planf); while(
\n"; # ここでplanの見た目を変更可能 } $out .= "
\n"; #LINK表示 &ichiran; } #曜日を取得! sub getdayoftheweek { my ($y, $m, $d) = ($_[0] =~ /(\d\d\d\d)\/(\d\d)\/(\d\d)/); # return "$m/$d(" . $week[&get_dow($y,$m,$d)] . ")"; return $week[&get_dow($y,$m,$d)]; } #曜日を取得(0:日, 1:月, ..., 6:土) sub get_dow { # hnsのDate.pmを参考に書き換えました # これでtimelocal()を使わずにすみますヨ。 my ($y, $m, $d) = @_; $y = $y + 399 if ($m < 3); ($y + int($y/4) - int($y/100) + int($y/400) + (0, 0, 3, 2, 5, 0, 3, 5, 1, 4, 6, 2, 4)[$m] + $d ) % 7; } #指定年月の第$n$dow曜日($n<0なら月末から数える, $n=-1なら最終) sub get_nth_dow { my ($y, $m, $n, $dow) = @_; #print "get_nth_dow: y=$y, m=$m, n=$n, dow=$dow\n"; my $days = &month_days($y, $m); my $d; if ($n > 0) { my $first = &get_dow($y, $m, 1); if ($dow >= $first) { $d = ($n-1)*7 + $dow - $first + 1; } else { $d = $n*7 + $dow - $first + 1; } } elsif($n < 0) { my $last = &get_dow($y, $m, $days); if ($dow <= $last) { $d = $days - ($last - $dow) + ($n+1)*7; } else { $d = $days - ($last - $dow) + $n*7; } } if ($d < 1 || $d > $days) { return 0; } return $d; } # repeatの範囲指定をparseする # 戻り値: () : 範囲指定なし # ('yyyymmdd', 'yyyymmdd') : 範囲の最初と最後の日 sub parse_range($) { my ($spec) = @_; my @ba = (0, 1, 1); my @ea = (9999, 12, 31); return () if ($spec eq ''); if ($spec =~ /^([^-]*)-(.*)$/) { my ($b, $e) = ($1, $2); if ($b eq '') { # @ba = (0, 1, 1); } elsif ($b =~ /^\d{4}$/) { @ba = ($b, 1, 1); } elsif ($b =~ m!^(\d{4})/(\d+)$!) { @ba = ($1, $2, 1); } elsif ($b =~ m!^(\d{4})/(\d+)/(\d+)$!) { @ba = ($1, $2, $3); } if ($e eq '') { # @ea = (9999, 12, 31); } elsif ($e =~ /^\d{4}$/) { @ea = ($e, 12, 31); } elsif ($e =~ m!^(\d{4})/(\d+)$!) { # my $dmonth = &month_days($1, $2); # @ea = ($1, $2, $dmonth); @ea = ($1, $2, 31); } elsif ($e =~ m!^(\d{4})/(\d+)/(\d+)$!) { @ea = ($1, $2, $3); } } else { # illegal format } return (sprintf("%04d%02d%02d", @ba), sprintf("%04d%02d%02d", @ea)); } # TODOを表示する sub todoprint { my (@num); $out .= "[TODO]
\n"; open(TODO, $todof); while(
\n"; #ここでTODOの見た目を変更可能 } $out .= "
\n"; #LINK表示 &ichiran; } #[前][次]ってやつね sub section_jump { if ($section > 1) { # 前のセクションが存在 $sec = $section - 1; $u = "?$day" . "S$sec"; $out .= make_self_link("$u", "1") . "[前]"; } if ($newcount > $section) { # 後のセクションが存在 $sec = $section + 1; $u = "?$day" . "S$sec"; $out .= make_self_link("$u", "3") . "[次]"; } #一覧 &ichiran; } #日付移動 sub print_jump_form { if (!$use_onccnv) { $out .= "content-type: text/html\n\n"; } $out .= "\n"; $out .= "\n" if (!$nkf); $out .= "\n"; $out .= "
\n";
$out .= "任意の日付にジャンプします。
\n";
$out .= "3.を押すか、ボタンを押して下さい。
\n";
if ($baseuri && $ezweb) { #ezweb対策 ari-3
$out .= qq(
\n"; $out .= "\n"; $out = &conv_html2onc($out, $baseuri, $baseuri, $ref_max, $flag_maru) if $use_onccnv; $out = &convert2sjis($out) if $nkf; #NKF,jcode.pl使用時はsjis変換 print $out; } #検索フォームを表示 sub print_search_form { if (!$use_onccnv) { $out .= "content-type: text/html\n\n"; } $out .= "\n"; $out .= "\n" if (!$nkf); $out .= "\n"; $out .= "
\n"; $out .= "任意の単語を検索します。
\n"; if ($baseuri) { $out .= qq(\n"; $out .= "単語を入力して\n"; $out .= "3.を押すか、ボタンを押して下さい。
\n"; $out .= "
\n"; $out .= "正規表現も使えます\n"; $out .= "\n"; $out = &conv_html2onc($out, $baseuri, $baseuri, $ref_max, $flag_maru) if $use_onccnv; $out = &convert2sjis($out) if $nkf; #NKF,jcode.pl使用時はsjis変換 print $out; } # # log取得 # sub logging { # logging 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.* # from 0.6.8 my $logdir, $count_name, $file_count, $file_date, $file_access, $file_lock; $logdir = $diarydir . "log/"; #hnsの場合はこれでOKのはず $count_name = "isystem"; $file_count = $logdir . "$count_name" . ".cnt"; $file_date = $logdir . "$count_name" . ".dat"; $file_access = $logdir . "$count_name" . ".acc"; # tnx 2 chihalin-3 $file_lock = $logdir . "lock/isystem.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"; $word = convert2euc($word) if ($nkf); # EUCに変換する #あれ？jcode.plを使ってないときはどうするんだろう???? # print $word; # ファイルをpick up masato-3 my @a; for my $y ($year-1..$year) { # 今年と去年の日記が対象 opendir DIR, "$diarydir$y" || next; push(@a, (sort grep s/^(d\d+\.hnf)$/$diarydir$y\/$1/, readdir DIR)); closedir DIR; } @a = sort { $b cmp $a } @a; # 並び替え(降順) #これで、最新のhnfから順に並んでいるはず。 if (!$maxday) { $maxday = 60; #デフォルトで最大60日を検索 } if ($#a < $maxday) { #少ないとき $maxday = $#a + 1; } @a = @a[0 .. $maxday-1]; #検索日数分だけにする if (!$maxresult) { #デフォルトで10件ずつ表示 $maxresult = 10; } if ($bgnday ne '') { # 前回検索時に既に検索した日は飛ばす my $f; while ($f = shift(@a)) { if (($f =~ /d(\d{8})\.hnf/) && ($1 le $bgnday)) { unshift(@a, $f); last; } } $hitcount = $bgnhit; # ヒット数を調整(^^) } my $day; my $day2; my $lastdday; my $lastdhit; SEARCH: foreach my $f (@a) { $ok = 0; #ユーザ変数を検索しないように初期化 $newcount = 0; $subcount = 0; if ($f =~ /d(\d{8})\.hnf/) { $day = $day2 = $1; } else { next; } $day2 =~ s/(\d\d\d\d)(\d\d)(\d\d)/$1\/$2\/$3/; open(IN, $f); # 最新のファイルから順に開く while(
\n"; $lastvc = $hitcount; if ($lastdday ne $day) { $lastdhit = $hitcount; } $lastdday = $day; } $lastu = $u; $lastc = $hitcount; $hitcount++; if ($totalhit && ($hitcount >= $maxresult+$bgncount)) { # 一度に表示できる件数に達したので総ヒット数を # 前回検索時に得た総ヒット数に置換えてヤメ $hitcount = $totalhit; last SEARCH; } } close(IN); } $out .= sprintf("
$hitcount件中(%d〜%d)
\n", $bgncount+1, $lastvc+1); # 前の$maxresult件 if ($bgncount >= $maxresult) { $u = sprintf("?word=%s&b=%d&h=%d", $origword, $bgncount-$maxresult, $hitcount); $out .= make_self_link("$u", "1") . "[前$maxresult件]\n"; } # 一覧 &ichiran; # 次の$maxresult件 if ($bgncount < $hitcount - $maxresult) { # $u = sprintf("?word=%s&b=%d&h=%d", $origword, $bgncount+$maxresult, $hitcount); $u = sprintf("?word=%s&b=%d&h=%d&t=%s&th=%d", $origword, $bgncount+$maxresult, $hitcount, $lastdday, $lastdhit); # URIとして渡すwordはURL encodeされていなくてはならない! $out .= make_self_link("$u", "3") . "[次$maxresult件]\n"; } $out .= "\n"; $out = &conv_html2onc($out, $baseuri, $baseuri, $ref_max, $flag_maru) if $use_onccnv; $out = &convert2sjis($out) if $nkf; #NKF,jcode.pl使用時はsjis変換 print $out; } #[一覧]を表示する sub ichiran { $u = "?$day"; $out .= make_self_link("$u", "2") . "[一覧]\n"; } # HTML中でエスケープする文字の変換 sub html_escape { my ($t) = @_; my %cv = ('&' => '&', '"' => '"', '<' => '<', '>' => '>'); $t =~ s/([&<>"])/$cv{$1}||$1/ge; $t; } # HTML中でエスケープする文字を全角文字に変換 sub html_escape_zen { my ($t) = @_; my %zcv = ('&' => '＆', '"' => '”', '<' => '＜', '>' => '＞'); $t =~ s/([&<>"])/$zcv{$1}||$1/ge; $t; } # 漢字コードをEUCに変換 sub convert2euc { my ($tmp) = @_; if ($nkf == 1) { $tmp = nkf('-e', $tmp); } elsif ($nkf == 2) { jcode::convert(\$tmp, "euc"); } $tmp; } # 漢字コードをShift JISに変換 sub convert2sjis { my ($tmp) = @_; if ($nkf == 1) { $tmp = nkf('-s', $tmp); } elsif ($nkf == 2) { jcode::convert(\$tmp, "sjis"); } $tmp; } # 指定年月の日数 sub month_days { # hnsのDate.pmを参考に書き直し my ($y, $m) = @_; my @days = (0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); if ($m == 2 && (($y%4==0 && $y%100) || ($y==400))) { return 29; } else { return $days[$m]; } } # 翌月 sub next_month { my ($y, $m) = @_; $m++; if ($m > 12) { $m = 1; $y++; } $m = sprintf("%02d", $m); return ($y, $m); } # hnfファイルのフルパス名を作る sub make_hnf_fname { my ($f) = @_; my ($day, $year); if ($f =~ /d((\d{4})\d\d\d\d)\.hnf/) { # 引数は d19991231.hnf とか $day = $1; $year = $2; } elsif ($f =~ /^((\d{4})\d\d\d\d)$/) { # 引数は 19991231 とか $day = $1; $year = $2; } return "$diarydir$year/d$day.hnf"; } sub make_self_link { my ($u, $accesskey) = @_; # $accesskey = 0 に対応 (00/7/5 yar-3) my @IGraph = ("戀", #0,1,2,3,..とならんでいる "驪", "麗", "黎", "力", "曆", "歷", "轢", "年", "憐"); if ($imode) { if ($accesskey ne "") { qq($IGraph[$accesskey]); } else { qq($imode_graphic); } } elsif ($ezweb && $baseuri) { qq(); } else { qq(); } } sub make_link { my ($u) = @_; # $imodegw を定義しておくと、それ経由でアクセスするようになる。 qq(); } # hnfファイルにOKがあるかどうかチェック sub has_ok { my ($file) = @_; local (*F); open (F, $file); while (
$imark$title
\n"; } else { $out .= "$imark$head
\n"; } $out .= "\n"; } $out .= "$head\n" if ($pdx); #PmailDXの時は$headを表示 $out .= "$header\n"; #文頭 if ($section eq "ALL") { #全部系(C)tokumi-3 のとき $out .= &fileprint($confdir . $titleheadfile) if ($titleheadfile); } elsif ($section) { #セクション表示のときに $out .= &fileprint($confdir . $headfile) if ($headfile); } else { #タイトルモード $out .= &fileprint($confdir . $titleheadfile) if ($titleheadfile); } &make_diary_body; #日記本体をレンダリングする if ($piloweb and $piloweb_2days) { #pilowebでのアクセスでかつ２日表示 $hnf = make_hnf_fname($prevday); #前の日記ファイルにする $day = $prevday; &make_diary_body; } if ($footfile ne ""){ $path = $confdir . $footfile; $out .= &fileprint($path); #文末の何か } if ($address ne "") { $out .= "
" if $use_onccnv; $out .= "$address\n"; #メイルアドレス } $out .= "\n"; } sub make_diary_body { my $tmp, $i, @sect, $o; @sect = (); $newcount = 0; &dayprint; #日付を表示 open(IN, $hnf); #当該hnfを開く $ok = 0; #ユーザ変数を表示しないように if ($section) { #いわゆるtitle表示ではない while($tmp =
\n"; #区切り §ion_jump() if ($section ne "ALL"); #全部表示の時以外はjump先一覧を表示 } else { # いわゆるtitle表示など if ($plan) { &planprint(); #予定 } elsif ($todo) { &todoprint(); #TODO } else { &title(); #タイトル一覧 } } close(IN); } # 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/05/26 0.7.4 yar-3 fix list.cgi mode # 2000/05/26 0.7.3 yar-3 fix SALL # 2000/05/16 0.7.2 yar-3 show titleheadfile when SALL and piloweb # 2000/05/16 0.7.1 masato-3 repeat plan with range # 2000/05/15 0.7.0 yar-3 RIS reverse, piloweb_2days # 2000/05/15 0.6.9 chihalin-3 fix NEW bug, no caption section # 2000/05/12 0.6.8 yar-3 fix ichiran bug # 2000/05/12 0.6.7 chihalin-3 maenohi bug fixed # 2000/05/11 0.6.6 tagoh-3 title, color bug fixed # 2000/05/10 0.6.5 tagoh-3 RLNEW,RLSUB problem fixed # 2000/05/10 0.6.4 ari-3 TSUGI problem fixed # 2000/04/23 0.6.3 yar-3 cat on/off # 2000/04/10 0.6.2 yar-3 use istyle tag # 2000/04/10 0.6.1 chihalin-3 patched # 2000/04/10 0.6.0 masato-3 default day user var # 2000/04/09 0.5.9 yar-3 fix color imode bug # 2000/04/06 0.5.8 yar-3,masato-3 pilo ua, fix default day # 2000/04/06 0.5.7 yar-3 default day, Piloweb(P option) # 2000/03/31 0.5.6 yar-3 BIG # 2000/03/30 0.5.5 yar-3,masato-3 small, plan sort # 2000/03/28 0.5.4 yar-3 title modify # 2000/03/28 0.5.3 yar-3 color iMODE # 2000/03/27 0.5.2 yar-3 MARK cmd # 2000/03/24 0.5.1 masato-3 repeat plan # 2000/03/15 0.5 masato-3 new generation monthly, yearly # 2000/03/13 0.4.13 yar-3,masato-3 yearly plan # 2000/03/10 0.4.12 masato-3 fix monthly plan bug # 2000/03/08 0.4.11 masato-3 fix monthly plan bug, modify getdayoftheweek # month-end plan support # 2000/03/06 0.4.10 yar-3 monthly plan # 2000/03/06 0.4.9 masato-3 NKF.pm # 2000/03/02 0.4.8 northeye-3,masato-3 quote, counter file, PDXGW # 2000/03/01 0.4.7 yar-3 RLNEW,RLSUB support, faster search # 2000/03/01 0.4.6 masato-3 many bugs fixed and add new functions # onccnv.pl plan(ABC), &, glob, capital # 2000/02/25 0.4.5 yar-3 fix user-var search bug # 2000/02/24 0.4.4 chihalin-3 lock file fixed(logging) # 2000/02/24 0.4.3 masato-3 patched(maxresult,fix LI,DT,DD etc) # yar-3 fix <> bug, maxresult bug(url encode) # 2000/02/23 0.4.2 masato-3 patched(smarten,plan bug,search print) # yar-3 support {jis|sjis} hnf # 2000/02/22 0.4.1 masato-3 patched(sort,todo,dayoftheweek) # 2000/02/22 0.4.0 yar-3 brush up # 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.