11 lines
291 B
Perl
Executable File
11 lines
291 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
# 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");
|
|
}
|