X-Git-Url: https://git.phdru.name/?a=blobdiff_plain;f=hotexplode.pl;h=2273b2fec714e0bf9d4c0d4b5b26f1cc7c48c1dc;hb=2626a655eb1ad0631280674e9564dc6802b73e3b;hp=4ada424bdafac68ae6426ec86b0261ba53ea5da0;hpb=f97d97b040fc8dcab4b43af16e966e0ff4c877a9;p=bookmarks_db.git diff --git a/hotexplode.pl b/hotexplode.pl index 4ada424..2273b2f 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,18 +11,18 @@ $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.

@@ -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; }