#! perl
#
# convert tagpacker html export to a netscape html compatible format to make it importable in linkwarden
# the script is pretty sloppy, it will likely break for some lines
#
# alexlehm/at/gmail.com
#
# https://wiki.creativecommons.org/wiki/CC0
#

print qq[<!DOCTYPE NETSCAPE-Bookmark-file-1>
<!-- This is an automatically generated file.
     It will be read and overwritten.
     DO NOT EDIT! -->
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
<TITLE>Bookmarks</TITLE>
<H1>Bookmarks Menu</H1>
];

print qq[<DL><p>
<HR><DT><H3>Tagpacker bookmarks</H3>
<DL><p>
];

while(<>) {
  chop;
  
  if(m@<DT>(<A[^<]*</A>)@i) {
    $msg=$1;

	if($msg=~m@<a href="([^"]+)" +add_date="([0-9]+)" +tags="([^\"]*)".*>([^<]+)</a>@i) {
	  $link=$1;
	  $added=$2;
	  $tags=$3;
	  $desc=$4;

	  print qq[<DT><A HREF="$link" ADD_DATE="$added" TAGS="$tags">$desc</A>
];
	} else {
		warn "failed to match line\n";
	}
  }
}

print qq[</DL><p>
];