diff options
author | dakkar <dakkar@luxion> | 2005-11-10 20:31:00 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2005-11-10 20:31:00 +0000 |
commit | 81ef2f5739d5c1a337ed686acf4eae72b69a118b (patch) | |
tree | 63526e168b7021c7fb208f0bb08ccf5280b6188e | |
parent | aggiunta la funzionalità di ricerca, e "finiti" gli stili (diff) | |
download | Bookmarks-81ef2f5739d5c1a337ed686acf4eae72b69a118b.tar.gz Bookmarks-81ef2f5739d5c1a337ed686acf4eae72b69a118b.tar.bz2 Bookmarks-81ef2f5739d5c1a337ed686acf4eae72b69a118b.zip |
tolte delle print inutili (e dannose sotto mod_perl)
-rw-r--r-- | lib/Bookmarks/Utils.pm | 3 |
1 files changed, 0 insertions, 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/) { |