#!/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 =~ "         <A HREF=\"index.htm\"><IMG SRC=\"info.gif\" BORDER=0 ALT=\"Index\"></A>") {
                        print OUTPUT "         <A HREF=\"../irs13_toc.html\"><IMG SRC=\"info.gif\" BORDER=0 ALT=\"Index\"></A>\n";                         
#		}
#		if ($line =~ "<IMG SRC=\"text.gif\" BORDER=0 ALT=\"Text\"></A>") { 
#                	print OUTPUT "         <A HREF=\"../../irs13_text/p" . $chapter . "-" . $page . ".txt\"><IMG SRC=\"text.gif\" BORDER=0 ALT=\"Text\"></A>\n";
#		
		$page ++	
		} else {
			print OUTPUT "$line\n";
		}
		#if ($page =~ "50") {$chapter = "p2";  $page = "01"};
                #if ($page =~ "68") {$chapter = "p3"; $page = "01"};
                #if ($page =~ "59") {$chapter = "p4"; $page = "01"};
                #if ($page =~ "31") {$chapter = "p5"; $page = "01"};
                #if ($page =~ "61") {$chapter = "p6"; $page = "01"};
                #if ($page =~ "23") {$chapter = "p7"; $page = "01"};             
                #if ($page =~ "60") {$chapter = "p8"; $page = "01"};
                #if ($page =~ "27") {$chapter = "p9"; $page = "01"};
                #if ($page =~ "53") {$chapter = "p10"; $page = "01"};
                #if ($page =~ "42") {$chapter = "pA"; $page = "01"};
                #if ($page =~ "18") {$chapter = "pB"; $page = "01"};
		}	

&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 );
}