hns - 日記自動生成システム - Version 2.19.9

先月 2000年02月 来月
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
Namazu for hns による簡易全文検索
詳しくは 詳細指定/ヘルプを参照して下さい
検索式:

2000年02月10日(木) 旧暦 [n年日記]

#1 [URL] PathChar 回線の太さを測定出来る

Unix Magazine のどこかで PathChar という名前を見たので infoseek で探して見た。 http://www.caida.org/Pathchar/ かな。Van Jacobson が作っているが、まだ alpha で source は公開 していないとのこと、一部の機種の実行形式しか入手出来ない。

#2 [hns] hnf-mode.el

12 時を過ぎたら、次の日の分になってしまう。それはそうなのですが、 25 時頃までは前の日にして欲しい。(そう言えば選択があった気もする)

#3 [HTML] href-checker

高林さんにいただいた http://cl.aist-nara.ac.jp/~satoru-t/misc/hrefchecker/ を次のように使う時には譜名を表示した 方が都合がいい。
find . -name \*html -exec ~/perl/hrefchecker-0.2.4 -Q -f '{}' \;
そこで修正して見た。
--- /home/makoto/perl/hrefchecker-0.2.4	2000/02/10 15:03:00	1.2
+++ /home/makoto/perl/hrefchecker-0.2.4	2000/02/10 15:58:28
@@ -198,6 +198,7 @@
 	$LinkListing = 1 if ($ARGV[0] =~ /L/);
 	$AnchorListing = 1 if ($ARGV[0] =~ /A/);
 	$LocalOnly   = 1 if ($ARGV[0] =~ /l/);
+	$AddFileName = 1 if ($ARGV[0] =~ /f/);
 	$Verbose     = 1 if ($ARGV[0] =~ /v/);
 	$ViaProxy    = 1 if ($ARGV[0] =~ /p/);
 	$ContentNego = 1 if ($ARGV[0] =~ /c/);
@@ -611,13 +612,16 @@
 # put result message.
 sub result_put ($$$$$) {
     my ($file, $link, $orig, $line, $result) = @_;
-
+    if ( $result eq '' ) { $result = 'OK' }
     unless ($Quiet && $result =~ /OK/ || $MoreQuiet && $result =~ /warning/) {
 	print "$file:" if $FilenamePut;
 	if (defined($orig)) {
 	    print "$line:$link [$orig] is $result.\n";
 	} else {
-	    print "$line:$link is $result.\n";
+	    if ( $AddFileName ) {
+		printf ("%-20s %4d: %s is %s.\n", $file,$line,$link,$result );}
+	    else {
+		print "$line:$link is $result.\n";}		
 	}
     }
 }

本当は、ここだけ直したのでは不充分。しかし僕は -Q しか使いそうにないから。



最近の日記
2024年03月10日
停電 (瞬電)
2024年03月03日
the second try on bare-metal
useradd
2024年02月29日
opendkim and senmail
2024年01月24日
chat/iam 0.0.8
2024年01月21日
uselocale vs setlocale (textproc/R-readxl)
以上、1 日分です。
タイトル一覧
カテゴリ分類
Powered by hns-2.19.9, HyperNikkiSystem Project

Count.cgi (since 2000/02/05)