forked from AuroraMiddleware/gtk
11 lines
291 B
Plaintext
11 lines
291 B
Plaintext
|
#!/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");
|
||
|
|
}
|