Created after CB discussion about switching from Opera to Mozilla.

Place "Opera6.adr" in same directory. The generated NS bookmark file is printed to STDOUT.

use strict;
use Netscape::Bookmarks;

my %imports;

open(my $fh, "Opera6.adr") or die;
$/ = undef;
my $file = <$fh>;
$/ = "\n";
close($fh);

my @folders = split(/\n-\n/, $file);
foreach my $folder (@folders){
    next if $folder =~ /^\s+$/;
    my $folder_name;
    if($folder =~ /#FOLDER\n\tNAME=(.+)\n/){
        $folder_name = $1;
    }
    else{
        $folder_name = "rootfolder1234";
    }
    my @links = split(/\n\n#URL\n\t/, $folder);
    foreach(@links){
        if(/NAME=/){
            /NAME=(.+)\n\tURL=(.+)\n/;
            next if $1 eq '';
            $imports{$folder_name}->{$1} = $2;
        }
        else{ next; }
    }
}

my $bookmarks = Netscape::Bookmarks->new;

foreach my $folder(sort keys %imports){

my $category = Netscape::Bookmarks::Category->new(
                {folded=>"0",
                title=>$folder,
                add_date=>"0",
                description=>""});
    my $links = $imports{$folder};
    foreach my $importlink (sort keys %$links){
        my $link = new Netscape::Bookmarks::Link{
            TITLE=>"$importlink",
            HREF=>"$imports{$folder}->{$importlink}",};
        if($folder eq 'rootfolder1234'){
            $bookmarks->add($link);
        }
        else{
            $category->add($link);
        }
    }
    if($folder ne 'rootfolder1234'){
        $bookmarks->add($category);
    }
}
print $bookmarks->as_string;

[download]

John J Reiser
newrisedesigns.com

Replies are listed 'Best First'.
Re: Convert Opera Bookmarks to Netscape Bookmarks
by BigJoe (Curate) on Dec 05, 2002 at 18:50 UTC
    This is pretty cool. I would like to make a suggestion though. You should take this and make it into a bookmark sync tool. Have it so when you run it, it will sync all the "selected browsers" bookmarks. I bounce between Opera, Mozilla, and Galeon because I usually run the latest and greatest till it dies then use a different one. This would be a pretty cool OpenSource project kind of like the projects handling clipboards for Linux. This could handle all bookmarks for a linux user.

    --BigJoe

    Learn patience, you must.
    Young PerlMonk, craves Not these things.
    Use the source Luke.
[reply]

      I don't use Linux, and thus Galeon, but if you can point me towards a spec on how it stores bookmarks, I wouldn't mind giving it a shot.

      John J Reiser
      newrisedesigns.com

[reply]
        The Galeon Bookmarks file is called "bookmarks.xbel". This file is located at $HOME/.galeon/ There is example code from the file. Galeon has support for smart bookmarks where you can assign it a nick (as I did for freshmeat fm). Then you put a %s where you want what every you type after the nick to be placed. example:
        fm anjuta
        This will go directly to the search page on Freshmeat and search for it. Pheonix has the same functionality. Opera has had that for a while. I am going to play with your code and see if I can't make a user daemon to keep all the bookmarks syncronized. I was thinking of creating a daemon and tie-ing the files to functions in the daemon so when Opera reads its bookmarks the daemon will respond with what it is looking for. When it writes to the file another function would accept it and put it into it's DB. I would really like to have it use live data from a DB instead of having a wait time to sync the bookmarks.
        <?xml version="1.0"?>
<!DOCTYPE xbel PUBLIC "+//IDN python.org//DTD XML Bookmark Exchange La
+nguage 1.0//EN//XML" "http://www.python.org/topics/xml/dtds/xbel-1.0.
+dtd">
<xbel version="1.0">
  <info>
    <metadata owner="http://galeon.sourceforge.net/">
      <default_folder>yes</default_folder>
    </metadata>
  </info>
  <title>Bookmarks</title>
  <folder folded="no">
    <title>Smart Bookmarks Toolbar</title>
    <bookmark href="http://freshmeat.net/">
      <title>freshmeat.net: Welcome to freshmeat.net</title>
      <info>
        <metadata owner="http://galeon.sourceforge.net/">
          <nick>fm</nick>
          <time_modified>1034086323</time_modified>
          <time_added>1034086260</time_added>
          <smarturl>http://freshmeat.net/search/?q=%s&amp;section=proj
+ects</smarturl>
        </metadata>
      </info>
    </bookmark>
    <bookmark href="http://www.google.com">
      <title>Google</title>
      <info>
        <metadata owner="http://galeon.sourceforge.net/">
          <nick>google</nick>
          <pixmap>/usr/share/galeon/google.png</pixmap>
          <time_visited>1033653044</time_visited>
          <smarturl>http://www.google.com/search?q=%s</smarturl>
        </metadata>
      </info>
    </bookmark>
    <bookmark href="http://groups.google.com">
      <title>Usenet</title>
      <info>
        <metadata owner="http://galeon.sourceforge.net/">
          <nick>news</nick>
          <pixmap>/usr/share/galeon/google_groups.png</pixmap>
          <smarturl>http://groups.google.com/groups?q=%s&amp;meta=site
+%3Dgroups</smarturl>
        </metadata>
      </info>
    </bookmark>
  </folder>
</xbel>
</xml>

        [download]


        --BigJoe

        Learn patience, you must.
        Young PerlMonk, craves Not these things.
        Use the source Luke.
[reply]
[d/l]

Back to Cool Uses for Perl