#!/usr/local/bin/perl


# 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/ALINK="#FF0000"/alink="#ffAA11"/i;
		$line=~s/\.\.\/blaketx1/contents.html/i;

		print NewFile "$line";
	}



	close NewFile
}