X-Git-Url: https://git.phdru.name/?a=blobdiff_plain;f=hotexplode.pl;h=8cf2dd4f282fd503c7fb38fa894409d256f5c4a8;hb=d594d5acd1c256017e0343ba7910a127a319e2bd;hp=4f3e8459479ff529f18420acfe685953a340ff3e;hpb=fb5c3b2b91aeeb615d6d6d890491af3fdff69556;p=bookmarks_db.git diff --git a/hotexplode.pl b/hotexplode.pl index 4f3e845..8cf2dd4 100755 --- a/hotexplode.pl +++ b/hotexplode.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -# hotexplode -- a program for "exploding" a xmosaic hotlist or Netscape +# hotexplode -- a program for "exploding" a xmosaic hotlist or Netscape # bookmark file into a hierarchial multi-page structure. # acb 60 Chs 3162 @@ -11,25 +11,25 @@ $date = `date`; # customise below -# header: some arbitrary HTML text which is appended below the title and +# header: some arbitrary HTML text which is appended below the title and # above the hotlist data $header = <

-This hotlist was generated with +This hotlist was generated with hotexplode on $date.
-WARNING: The inclusion of a link to a page on -this hotlist is not an indication of the maintainer's +WARNING: The inclusion of a link to a page on +this hotlist is not an indication of the maintainer's approval of or agreement with its content.

-Please DO NOT bookmark this page. Bookmark -main page instead. -Any other page in the hierarchy may disappear at any time. +Please DO NOT bookmark this page. Bookmark the +main page instead. +Any other page in the hierarchy can be renamed, moved or removed at any time.

FOO @@ -65,7 +65,7 @@ $title = $opt_t if $opt_t; while (<>) { - if(/

/) { warn "Detected Netscape bookmark format\n" if $opt_v; &parse_netscape_bookmarks($outdir, $title); last; } @@ -80,11 +80,14 @@ sub parse_mosaic_hotlist { # we write the file at the very end, because (I think) filehandles do # not have local scope, and this is recursive local($prefix, $title) = @_; - local($result) = "$title \ -\n

$title

\n $header \n

$title

"; + local($result) = "\ +\ +$title\ +\ +\n

$title

\n $header \n

${subtitle}\n"; unless("$desc" eq "") { $result = $result . $desc; } - &parse_netscape_bookmarks("${prefix}/${filename}", + &parse_netscape_bookmarks("${prefix}/${filename}", "${title}:${subtitle}"); next; }