Public Diary

● AWStats ime.nu対応パッチ

AWStats の「リンク元」の表示は、リンク元URLを表示してくれるのは便利なんだけど、そのままリンクを踏むとAWStatsのURLがリファラとして相手方に飛ぶので、場合によっては好ましくない場合がある。

そこで、AWStatsの「リンク元」の表示で ime.nu をクッションにかますようにするパッチを作ったので公開。以前から使ってましたけどね。

(ダウンロード:awstats-imenu.patch.txt)

*** /usr/lib/cgi-bin/awstats.pl 2005-03-26 15:11:52.000000000 +0900
--- awstats.pl  2005-08-07 03:58:04.000000000 +0900
***************
*** 4847,4860 ****
		my $newkey=CleanFromCSSA($url);
		if ($LogType eq 'W' || $LogType eq 'S') {	       # Web or streaming log file
			if ($newkey =~ /^http(s|):/i) { # URL seems to be extracted from a proxy log file
!			       print "<a href=\"".XMLEncode("$newkey")."\" target=\"url\">".XMLEncode($nompage)."</a>";
			}
			elsif ($newkey =~ /^\//) {	      # URL seems to be an url extracted from a web or wap server log file
				$newkey =~ s/^\/$SiteDomain//i;
				# Define urlprot
				my $urlprot='http';
				if ($UseHTTPSLinkForUrl && $newkey =~ /^$UseHTTPSLinkForUrl/) { $urlprot='https'; }
!			       print "<a href=\"".XMLEncode("$urlprot://$SiteDomain$newkey")."\" target=\"url\">".XMLEncode($nompage)."</a>";
			}
			else {
				print XMLEncode($nompage);
--- 4847,4860 ----
		my $newkey=CleanFromCSSA($url);
		if ($LogType eq 'W' || $LogType eq 'S') {	       # Web or streaming log file
			if ($newkey =~ /^http(s|):/i) { # URL seems to be extracted from a proxy log file
!			       print "<a href=\"".ImeNuProxy(XMLEncode("$newkey"))."\" target=\"url\">".XMLEncode($nompage)."</a>";
			}
			elsif ($newkey =~ /^\//) {	      # URL seems to be an url extracted from a web or wap server log file
				$newkey =~ s/^\/$SiteDomain//i;
				# Define urlprot
				my $urlprot='http';
				if ($UseHTTPSLinkForUrl && $newkey =~ /^$UseHTTPSLinkForUrl/) { $urlprot='https'; }
!			       print "<a href=\"".ImeNuProxy(XMLEncode("$urlprot://$SiteDomain$newkey"))."\" target=\"url\">".XMLEncode($nompage)."</a>";
			}
			else {
				print XMLEncode($nompage);
***************
*** 10193,10198 ****
--- 10193,10205 ----

  #sleep 10;

+ sub ImeNuProxy
+ {
+    my $url = shift;
+    $url =~ s!([^:]+)\://(.+)!http://ime.nu/$2!;
+    return $url;
+ }
+
  0;    # Do not remove this line

なんか最近こういうマニアックな改造ばっかりですな。うーむ。