diff options
Diffstat (limited to 'script/bookmarks_load.pl')
-rwxr-xr-x | script/bookmarks_load.pl | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/script/bookmarks_load.pl b/script/bookmarks_load.pl index 8535348..9862f87 100755 --- a/script/bookmarks_load.pl +++ b/script/bookmarks_load.pl @@ -14,8 +14,6 @@ my $links; $yaml = <>; $links=YAML::Load($yaml); } -my $icon=do {local $/;open my $fh,'<:raw','favicon.ico';<$fh>}; -print "Icon is $icon\n"; my %fields=( description => 'title', @@ -32,20 +30,18 @@ for my $link (@$links) { my $dblink=Bookmarks::M::DB::Links->find_or_create({ url => $link->{href}, }); -# if (!Bookmarks::Utils::check_link($link->{href})) { -# warn "Link $link->{href} non valido, marco come tale\n"; -# $link->{title}.=' [INVALID]'; -# } + if (!Bookmarks::Utils::check_link($link->{href})) { + warn "Link $link->{href} non valido, marco come tale\n"; + $link->{title}.=' [INVALID]'; + } $link->{created}||=time(); $link->{modified}||=time(); while (my ($f1,$f2) = each %fields) { $dblink->$f2($link->{$f1}); } -# $dblink->icon(Bookmarks::Utils::get_site_icon($link->{href})); - $dblink->icon($icon); - print 'Set icon to: ',$dblink->icon(),"\n"; + $dblink->set_icon(Bookmarks::Utils::get_site_icon($link->{href})); $dblink->update(); - print 'Set icon to: ',$dblink->icon(),"\n"; + for my $tagname (@{$link->{tags}}) { my $dbtag=Bookmarks::M::DB::Tags->find_or_create({ name => $tagname, |