From 81ef2f5739d5c1a337ed686acf4eae72b69a118b Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Thu, 10 Nov 2005 20:31:00 +0000
Subject: tolte delle print inutili (e dannose sotto mod_perl)

---
 lib/Bookmarks/Utils.pm | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/lib/Bookmarks/Utils.pm b/lib/Bookmarks/Utils.pm
index b65b707..88ad5ff 100644
--- a/lib/Bookmarks/Utils.pm
+++ b/lib/Bookmarks/Utils.pm
@@ -19,7 +19,6 @@ sub get_site_icon {
 
     return if $url!~/^http:/;
 
-    print "Provo nella pagina\n";
     my $res=$ua->get($url);
     return unless $res->is_success();
     my $page=$res->decoded_content();
@@ -39,9 +38,7 @@ sub get_site_icon {
     if (!$favicon) {
         $favicon='/favicon.ico';
     }
-    print "Trovato: '$favicon'";
     $favicon=URI::URL->new($favicon,$url)->abs->canonical->as_string;
-    print ", ovvero '$favicon'\n";
     $res=$ua->get($favicon);
 
     if ($res->is_success() and $res->header('Content-type') !~ /^text/) {
-- 
cgit v1.2.3