#!/usr/local/bin/perl

#
use File::Basename;
#Call CHK_CMD_LINE
&CHK_CMD_LINE;
#sets chapter and page variables
        $chapter = "10";
        $page = "01";
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 =~ " <TITLE>") {
			print OUTPUT "<TITLE>IRLIB: Automatic Indexing</TITLE>"
		} 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"`;
}

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