Last-Modified: Mon, 03 Apr 2023 03:42:09 JST

さかにゃ日記

あなたはこの日記にアクセスした14,670,003人目のお客様です………けどRSSの普及によりもうあてになりません（ぉ 本日は13,204人目ですね。あなたはこれまでに1回いらっしゃいました。 この日記の最新版はこのあたりで読めるようです この日記の更新時間はここから所得してください。 RSSはこちらかもしくはこちらから所得してください。後者には日記全文が含まれています。 各種検索エンジンより来られた方は、こちらの日記内検索を利用することでお望みの情報がみつかるかもしれません。 見つからなかったらごめんなさい :-p

さかにゃ日記 Information(臨時連絡)：

現在臨時連絡はありません。 まぁ暇なときでかまわないので、 一度くらいは通常のInformationをご覧ください。

2003/9/23(Tue) [n]

%2 めも

FSWiki3.4系のTodaysLink pluginのバグ*1を直しつつ TodaysLinkのくせにYesterdaysLinkも見る（ぉ

plugin/info/TodaysLink.pmあたり。

--- TodaysLink.pm-old	Wed Jul 23 21:25:26 2003
+++ TodaysLink.pm	Tue Sep 23 00:36:56 2003
@@ -53,13 +53,19 @@
 	$month += 1;
 	my $today =sprintf("%04d/%02d/%02d",$year,$month,$mday);
 
+	$time = $time - 86400;
+	($sec,$min,$hour,$mday,$month,$year,$wday) = localtime($time);
+	$year += 1900;
+	$month += 1;
+	my $yesterday =sprintf("%04d/%02d/%02d",$year,$month,$mday);
+
 	my $count={};
 	#logを走査
 	open(LOG,$wiki->config('log_dir')."/".$wiki->config('access_log_file')) or return "";
 	while(my $line=<LOG>){
 		chomp $line;
 		my ($page,$date,$time,$ip,$ref,$ua) = split(/ /,$line);
-		if($date =~ /$today/){
+		if(($date =~ /$today/) or ($date =~ /$yesterday/)){
 		    $count->{$ref}++;
 		}
 	}
@@ -96,7 +102,7 @@
 		
 		if($way ne "H" && $way ne "h"){
 			my $decodeurl = Util::url_decode($ref);
-			&Jcode::convert(\$ref,"euc");
+			&Jcode::convert(\$decodeurl,"euc");
 			$buf .= "<li><a href=\"".Util::escapeHTML($ref)."\">".Util::escapeHTML($decodeurl)."</a>".
 			        "($refcount)</li>\n";
 		}else{

---

*1:検索文字列のEUC-JPへのconvertができていない。 3.5.0でもまだなおってない。3.5.1dev3だとなおってる。

[dynamic,style:osakana,cache:off]
Powered by Tomsoft Diary System 1.7.3