#!/usr/local/bin/perl -w


# PERL program that searches and replaces html backgrounds
# Patrick Darden Oct 17 1995 for Dr. Hilton
# The Blake Project
# Revised for further page editing, 20 May 1997, N Hilton


while($filename=shift(@ARGV))
{
	open(FILE, "$filename") || die "No such file.\n";
	@file=<FILE>;
	close FILE;
	$newfilename="$filename" . ".old";
	system("mv $filename $newfilename");
#	print "@file \n\n";

	open(NewFile, ">$filename");

	foreach $line (@file)
	{
	#	$line=~s/TEXT="#CC33CC/text="#cccff"/i;
	#	$line=~s/LINK="#333FF/link="#cc66ff"/i;
	#	$line=~s/VLINK="#FFFF00"/vlink="#77aaff"/i;
		$line=~s/cols="300,\*">/cols="25%,\*" border=1 bordercolor=purple>/;
		$line=~s/rows="50%,50%">/rows="50%,50%" border=1 bordercolor=purple>/;
	#	$line=~s/<hr>/<hr size=1>/i;
		print NewFile "$line";
	}



	close NewFile
}