#!/bin/sh

perl -pi -e '/name="__index__"/i .. s|<ul>|<ul id="index"><b>Table of contents</b>|i' *.html
perl -pi -e 's|^<link|<link rel="home" href="http://html2wml.org/">\n<link|i' *.html
perl -pi -e 's|root\@law.uucp|mad\@maddingue.org|' *.html
perl -e 'while($f=shift){open(F,$f)||die$!;$/=undef;$s=<F>;$s=~s|</pre>\n<pre>||gi;open(F,">$f")||die$!;print F $s;close(F);}' *.html