#!/usr/bin/perl

# jason thaxter <sseye@ahab.com>
# 2003

#   * take opera browser's .adr bookmarks file on stdin
#     and puke a mozilla-style file on stdout
#   * works for opera 6, as far as I know
#   * firebird 0.7 imports it fine, as far as i can see
#   * this is public domain code
#   * use at your own risk


my $line;
my ( $name, $url );

# print header
print <<EOF;
<!DOCTYPE NETSCAPE-Bookmark-file-1>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
<TITLE>Bookmarks</TITLE>
<H1>Bookmarks</H1>

<DL><p>
EOF
$indent = '    ';

while ( $line = <STDIN> ) {
    chomp $line;

    if ( $line =~ m/#FOLDER/ ) {
        while ($sub = <STDIN>){
            chomp $sub;
            last if $sub eq '';

            if ($sub =~ /ID=(.*)/){ next } # don't know how to convert these
            elsif ($sub =~ /NAME=(.*)/){ $name = $1 }
            elsif ($sub =~ /CREATED=(.*)/){ $created = $1 }
            elsif ($sub =~ /ACTIVE|EXPANDED|TRASH/){ ; }
            else { warn "unparsed line: $sub"; }
        }
        $name ||= "Unknown";

        $indent .= '    ';
        print $indent,
            "<DT><H3>$name</H3>",
            "\n";

    }
    elsif ( $line =~ m/#URL/ ) {
        while ($sub = <STDIN>){
            chomp $sub;
            last if $sub eq '';

            if ( $sub =~ /ID=(.*)/ ) { next }  # don't know how to convert these
            elsif ( $sub =~ /NAME=(.*)/ )        { $name        = $1 }
            elsif ( $sub =~ /URL=(.*)/ )         { $url         = $1 }
            elsif ( $sub =~ /CREATED=(.*)/ )     { $created     = $1 }
            elsif ( $sub =~ /VISITED=(.*)/ )     { $visited     = $1 }
            elsif ( $sub =~ /DESCRIPTION=(.*)/ ) { $description = $1 }
            else { warn "unparsed line: $sub"; }
        }

        $created ||= time;
        $visited ||= $created;

        print $indent,
            "<DT><A HREF=\"$url\" ADD_DATE=\"$created\" LAST_VISIT=\"$visited\" LAST_MODIFIED=\"$created\">",
            "$name</A><BR>\n";

        next;
    }
    elsif ( $line =~ m/^-/ ) {
        # closing folder
        print "$indent</DL><p>\n";
        $indent =~ s/    //;
    }
    elsif ( $line eq ''){
        ;
    }
    elsif ( $line =~ /Opera Hotlist version/) {
        print STDERR "VERSION: $line\n";
    }
    elsif ($line =~ /Options:/){
        print STDERR "OPTIONS: $line\n";
    }
    elsif ($line =~ /ACTIVE|EXPANDED|TRASH/){
        ;
    }
    else {
        warn "unparsed line: $line"
    }
}

print STDERR "Done.\n";