*** /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