diff options
Diffstat (limited to 'script/bookmarks_load.pl')
| -rwxr-xr-x | script/bookmarks_load.pl | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/script/bookmarks_load.pl b/script/bookmarks_load.pl index 2687684..8535348 100755 --- a/script/bookmarks_load.pl +++ b/script/bookmarks_load.pl @@ -14,6 +14,8 @@ 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', @@ -22,22 +24,28 @@ my %fields=( modified => 'last_access_date', ); +Bookmarks::M::DB::Links->db_Main()->{sqlite_handle_binary_nulls} = 1; +Bookmarks::M::DB::Links->autoupdate(0); + for my $link (@$links) { print "Loading $link->{href}\n"; 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(Bookmarks::Utils::get_site_icon($link->{href})); + $dblink->icon($icon); + print 'Set icon to: ',$dblink->icon(),"\n"; $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, |