I'm blogging with a kwiki. This is how I published a static copy
from the perl debugger, after retrieving it with recursive wget,
and using IO::All of course.
@files = glob ('index.cgi*');
%pages = map { m/^index\.cgi\?(\w*)$/; $_ => "$1.html"} @files;
for (keys %pages){delete $pages{$_} if $pages{$_} eq '.html'};
$pages{'index.cgi'}='index.html';
for (keys %pages) {io( $_) > io( $pages{$_})};
for (glob('*.html')) { $page < io($_); $page =~
s/"index\.cgi"/"index.html"/g; $page > io($_) };
for (glob('*.html')) { $page < io($_); $page =~
s/"index\.cgi\?(\w+)"/"$1.html"/g; $page > io($_) };
for (glob('*.html')) { $page < io($_); $page =~ s/(<!-- BEGIN
theme_toolbar2?_pane)/<comment>$1/g; $page > io($_) };
for (glob('*.html')) { $page < io($_); $page =~ s/(<!-- END
theme_toolbar2?_pane -->)/$1<\/comment>/g; $page > io($_) };
--
Greg Matheson There is nothing as practical as a
good theory.
--Kurt Lewin
--
This message has been scanned for viruses and
dangerous content by MailScanner, and is
believed to be clean.
