前の日 / 次の日 / 最新 / 2003-06

たまにっき。 / 2003-06-15

2003-06
日	月	火	水	木	金	土
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30

2003-06-15 Sun

2004 2005 2006 2007 2008

■ 実家から

かなりの量の肴を持ってきた。
これでつまみにはしばらく不自由しないぞ。

Category: [misc]

[ 固定リンク | コメント | トラックバック () |

]

■ バージョンアップ

このたまにっきで利用させてもらっている chalow が 0.14 になったので
バージョンアップした。

私のサイトは cgi スクリプトは cgi-bin 以下でしか動かないので、
clsearch.cgi をちょっと手直し。
diff を取ってみた。

--- clsearch.orig Sun Jun 15 18:29:47 2003
+++ clsearch.cgi Sun Jun 15 18:48:28 2003
@@ -5,10 +5,13 @@
### User Setting from here
# お好みにあわせて変えて下さい
-my $home_page_url = "http://nais.to/~yto/";
-my $home_page_name = "たつをのホームページ";
+my $home_page_url = "http://www.oikaze.com/~tamada/";
+my $home_page_name = "たまぺーじ";
+my $diary_name = "たまにっき";
+my $diary_search_name = "たまにっき検索";
+my $diary_path = "../Diary";
my $numnum = 20; # 一度に表示できる数
-my $css_file;
+my $css_file = "diary.css";
### to here
# nkf 自動設定 --- 日本語コードで悩まされないために...
@@ -25,12 +28,12 @@
# ■■■ HTML head 出力 ■■■
print "Content-type: text/html; charset=euc-jp\n\n";
-print qq(<html><head><title>CHALOW Search</title>
-<meta http-equiv="Content-Type" content="text/html; charset=EUC-JP">);
-print qq(<link rel=stylesheet href="$css_file" media=all>\n)
+print qq(<html lang="ja"><head><title>$diary_search_name</title>
+<meta http-equiv="Content-Type" content="text/html; charset=euc-jp">);
+print qq(<link rel="stylesheet" href="$diary_path/$css_file" media="all">\n)
     if defined $css_file;
-print qq(</head><body><a href="index.html">ChangeLog INDEX</a>
- / <a href="$home_page_url">$home_page_name</a>\n);
+print qq(</head><body><a href="$diary_path/index.html">$diary_name</a>
+ / <a href="$home_page_url">$home_page_name</a>\n <h1>$diary_search_name</h1>);
print $q->startform, $q->textfield('key'), $q->submit, $q->endform, "\n";
# ■■■ 検索 ■■■
@@ -38,7 +41,7 @@
my $cnt = 0;
if (defined $key) {
- my @fl = reverse sort <[0-9][0-9][0-9][0-9]-[0-9][0-9].html>;
+ my @fl = reverse sort <$diary_path/[0-9][0-9][0-9][0-9]-[0-9][0-9].html>;
     for my $fn (@fl) {
open(F, "$NKF -ed $fn |") or die "file open error: $fn\n";
my $date = "";
@@ -84,6 +86,8 @@
}
close F;
     }
+ $outstr =~ s|(images/.*\.jpg)|$diary_path/$i|gix;
+ $outstr =~ s|href="([0-9][0-9][0-9][0-9]-[0-9][0-9]\.html)|href="$diary_path/$1|gix;
}
my $page_max = int(($cnt - 1) / $numnum);
@@ -113,7 +117,7 @@
}
print qq($bar<hr><pre>$outstr</pre>$bar<hr>
-<a href="index.html">ChangeLog INDEX</a>
+<a href="$diary_path/index.html">$diary_name</a>
  / <a href="$home_page_url">$home_page_name</a>
<div align="right">Powered by
<a href="http://nais.to/~yto/tools/chalow/"><b>chalow</b></a></div>);