#!/usr/bin/perl # Stupid script to fix look of html files created with sgml2html... foreach (@ARGV) { print "Fixing... $_\n"; system("mv $_ $_.orig"); system("sed -e 's/<BODY>/<BODY BGCOLOR=\"#FFFFFF\">/g' -e 's/<HR>/<HR NOSHADE>/g' $_.orig > $_"); unlink("$_.orig"); }