--- awstats.pl.orig	2009-10-10 14:36:38.000000000 +0200
+++ awstats.pl	2010-03-20 01:14:49.224346965 +0100
@@ -8496,6 +8496,10 @@ sub ShowHostInfo {
 #------------------------------------------------------------------------------
 sub ShowURLInfo {
 	my $url     = shift;
+	my $anonym  = 0;
+	if(length(@_) > 0) {
+		$anonym  = shift;
+	}
 	my $nompage = CleanXSS($url);
 
 	# Call to plugins' function ShowInfoURL
@@ -8516,7 +8520,7 @@ sub ShowURLInfo {
 			if ( $newkey =~ /^http(s|):/i )
 			{    # URL seems to be extracted from a proxy log file
 				print "<a href=\""
-				  . XMLEncode("$newkey")
+				  . XMLEncode(($anonym)?"http://anonym.to/?$newkey":"$newkey")
 				  . "\" target=\"url\">"
 				  . XMLEncode($nompage) . "</a>";
 			}
@@ -15579,7 +15583,7 @@ if ( scalar keys %HTMLOutput ) {
 					  10;
 				}
 				print "<tr><td class=\"aws\">";
-				&ShowURLInfo($key);
+				&ShowURLInfo($key,1);
 				print "</td>";
 				print "<td>"
 				  . ( $_pagesrefs_p{$key} ? $_pagesrefs_p{$key} : '&nbsp;' )
@@ -18957,7 +18961,7 @@ if ( scalar keys %HTMLOutput ) {
 				);
 				foreach my $key (@keylist) {
 					print "<tr><td class=\"aws\">- ";
-					&ShowURLInfo($key);
+					&ShowURLInfo($key,1);
 					print "</td>";
 					print "<td>"
 					  . ( $_pagesrefs_p{$key} ? $_pagesrefs_p{$key} : '0' )