package Bookmarks::Utils;
use strict;
use warnings;
use LWP::Simple;
use URI::URL;

sub check_link {
    my ($url)=@_;
    return 1 if $url!~/^http:/;
    #my ($type,$length,$update,$expires,$server)=head($url);
    #return defined $type;
    return scalar head($url);
}

sub get_site_icon {
    my ($url)=@_;

    return if $url!~/^http:/;

    print "Provo nella pagina\n";
    my $page=get($url);
    my ($favicon)= grep {defined $_ and $_ ne ''}
        ($page =~
             m{<link
               \s+
               (?:
               rel="shortcut\ icon"
               \s+
               href="(.*?)"
           )|(?:
               href="(.*?)"
               \s+
               rel="shortcut\ icon"
           )}smx);
    if (!$favicon) {
        $favicon='/favicon.ico';
    }
    print "Trovato: '$favicon'";
    $favicon=URI::URL->new($favicon,$url)->abs->canonical->as_string;
    print ", ovvero '$favicon'\n";
    my $icon=get($favicon);
    return $icon;
}

1;