#!/usr/local/bin/perl


#
use File::Basename;
#Call CHK_CMD_LINE
&CHK_CMD_LINE;
for $arg (@ARGV) {
	&OPEN_FILES;
#prints message to STDOUT "Processing file arg"
	print( STDOUT "Processing file $arg  \n");
        while ($line=<INPUT>) {
		chomp ($line);
		if ($line =~ "         <A HREF=\"index.htm\"><IMG SRC=\"info.gif\" BORDER=0 ALT=\"Index\"></A>") { 
                	print OUTPUT "         <A HREF=\"../cranv1p1_toc.html\"><IMG SRC=\"info.gif\" BORDER=0 ALT=\"Index\"></A>\n";
		
		} else {
			print OUTPUT "$line\n";
		}
	}

&RENAME_FILES;
&CLOSE_FILES;
}
#
sub CHK_CMD_LINE {
	if ( $#ARGV < 0 )
	{
    	print "Usage: ", $0, " inputfiles \n";
	exit 0;
	}
}

sub OPEN_FILES {
	my $filename, $path, $dir, @path;
	($filename, $path) = fileparse($arg);
	@path=split('/', $path);
	$dir=pop(@path);
	open( INPUT, $arg ) or die "Cannot open file for reading: $arg. ";
	open( OUTPUT, "> $arg.buffer" ) or die "Cannot open file for writing: $arg. ";
}

sub RENAME_FILES {
	`mv "$arg".buffer "$arg".r`;
}

sub CLOSE_FILES {
        close( INPUT );
        close( OUTPUT );
}