+++ /dev/null
-#!/usr/bin/perl
-
-# hotexplode -- a program for "exploding" a xmosaic hotlist or Netscape
-# bookmark file into a hierarchial multi-page structure.
-# acb 60 Chs 3162
-
-# revision history:
-# v1.0: 1-3-1996: initial version
-
-$date = `date`;
-
-# customise below
-
-# header: some arbitrary HTML text which is appended below the title and
-# above the hotlist data
-
-$header = <<FOO;
-<hr width="50%">
-<blockquote>
-This hotlist was generated with
-<a href="http://www.zikzak.net/~acb/hacks/hotexplode.html">hotexplode</a>
-on $date.
-<p>
-<b>WARNING:</b> 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.
-</blockquote>
-<hr width="50%">
-<blockquote>
-Please <b>DO NOT</b> bookmark this page. Bookmark the
-<a href="http://phdru.name/Bookmarks/">main page</A> instead.
-Any other page in the hierarchy can be renamed, moved or removed at any time.
-</blockquote>
-FOO
-
-$footer = <<FOO;
-<hr>
-FOO
-
-# which directory shall contain the hotlist?
-
-$outdir = "hotlist";
-
-
-# end of customisable portion
-
-require "getopts.pl";
-
-&Getopts("o:t:v");
-
-$outdir = $opt_o if $opt_o;
-
-
-# seek forward to the title
-while (<>) {
- if (/<TITLE>([^\<\>]*)<\/TITLE>/) {
- $title = $1;
- last;
- }
-}
-
-$title = $opt_t if $opt_t;
-
-# seek forward to the start of the list
-
-
-while (<>) {
- if(/<UL>/) { warn "Detected xmosaic hotlist format\n" if $opt_v;
- &parse_mosaic_hotlist($outdir, $title); last; }
- if(/<DL>/) { warn "Detected Netscape bookmark format\n" if $opt_v;
- &parse_netscape_bookmarks($outdir, $title); last; }
-}
-
-# parse an xmosaic hotlist
-# exit when we meet a </UL>
-# arguments: pathname of directory in which output is to be placed,
-# title
-
-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) = "<HTML><HEAD>\
-<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=koi8-r\">\
-<TITLE>$title</TITLE>\
-</HEAD>\
-<BODY>\n<CENTER><H1>$title</H1></CENTER>\n $header \n<hr>\n<ul>";
-
- warn "Creating $prefix...\n" if $opt_v;
-
- # create the directory, if needed
- mkdir($prefix, 0755) unless -d $prefix;
-
- while (<>) {
- last if (/<\/UL>/);
-
- if(/<LI> *<A HREF=\"([^\"]*)\"[^\>]*>([^\<]*)<\/A>/) {
- #
- # A URL
- #
- local($url,$name) = ($1, $2);
- $result = $result."<li><a href=\"$url\">$name </a>\n";
- next;
- }
- if(/<LI> (.*)$/) {
- #
- # we've got a live one here...
- #
- local($subtitle)=local($filename)=$1;
- $filename =~ tr/0-9A-Za-z//cd;
- $filename =~ tr/A-Z/a-z/;
- <>; # eat the "<UL>" line.
- $result .= "<li><b><a href=\"${filename}/index.html\">${subtitle}</a></b>\n";
- &parse_mosaic_hotlist("${prefix}/${filename}", "${title}:${subtitle}");
- next;
- }
-
- }
-
- $result = $result . $footer . "</body></html>";
- # write it to a file
- open(FILE, ">${prefix}/index.html");
- print FILE $result;
- close(FILE);
-}
-
-# parse a Netscape bookmarks list
-# exit when we meet a </DL>
-# arguments: pathname of directory in which output is to be placed,
-# subtitle
-
-sub parse_netscape_bookmarks {
- # 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) = "<HTML><HEAD>\
-<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=koi8-r\">\
-<TITLE>$title</TITLE>\
-</HEAD>\
-<BODY>\n<CENTER><H1>$title</H1></CENTER>\n $header \n<hr>\n<dl>";
-
- warn "Creating $prefix...\n" if $opt_v;
-
- # create the directory, if needed
- mkdir($prefix, 0755) unless -d $prefix;
-
- while (<>) {
- last if (/<\/DL>/);
- if (/<DT><H3[^\>]*>([^\<]*)<\/H3>/) {
- #
- # a nested list
- #
- local($subtitle)=$1;
- local($filename)=$1;
- $filename =~ tr/0-9A-Za-z//cd;
- $filename =~ tr/A-Z/a-z/;
- # parse the description here
- local($desc)="";
- while(<>) {
- last if (/<DL>/);
- $desc = $desc . $_;
- }
- $result = $result . "<dt><b><a href=\"${filename}/index.html\">${subtitle}</a></b>\n";
- unless("$desc" eq "") { $result = $result . $desc; }
- &parse_netscape_bookmarks("${prefix}/${filename}",
- "${title}:${subtitle}");
- next;
- }
- if (/<DT><A HREF=\"([^\"]*)\"[^\>]*>([^\<]*)<\/A>/) {
- #
- # A URL
- #
- local($url, $name) = ($1, $2);
- $result = $result."<dt><a href=\"$url\">$name </a>\n";
- next;
- }
- $result = $result . $_;
- }
- $result = $result . $footer . "</body></html>";
- # write it to a file
- open(FILE, ">${prefix}/index.html");
- print FILE $result;
- close(FILE);
-}
-
-
projects / bookmarks_db.git / commitdiff