#!/usr/local/bin/perl

#
use File::Basename;
#Call CHK_CMD_LINE
&CHK_CMD_LINE;
#sets chapter and page variables
        $chapter = "01";
        $page = "002";
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=\"../sp500215_toc.html\"><IMG SRC=\"info.gif\" BORDER=0 ALT=\"Index\"></A>\n";                         
		}
		if ($line =~ "<IMG SRC=\"info.gif\" BORDER=0 ALT=\"Index\"></A>") { 
                	print OUTPUT "         <A HREF=\"../../cranv1p1_text/" . $chapter . "_" . $page . ".txt\"><IMG SRC=\"text.gif\" BORDER=0 ALT=\"Text\"></A>\n";
		
		$page ++	
		} else {
			print OUTPUT "$line\n";
		}
		if ($page =~ "021") {$chapter = "02"};
                if ($page =~ "035") {$chapter = "03"};
                if ($page =~ "045") {$chapter = "04"};
                if ($page =~ "057") {$chapter = "05"};
                if ($page =~ "067") {$chapter = "06"};
                if ($page =~ "075") {$chapter = "07"};             
                if ($page =~ "085") {$chapter = "08"};
                if ($page =~ "101") {$chapter = "09"};
                if ($page =~ "105") {$chapter = "10"};
                if ($page =~ "117") {$chapter = "11"};
                if ($page =~ "123") {$chapter = "12"};
                if ($page =~ "137") {$chapter = "13"};
                if ($page =~ "151") {$chapter = "14"};
                if ($page =~ "163") {$chapter = "15"};
                if ($page =~ "171") {$chapter = "16"};
                if ($page =~ "181") {$chapter = "17"};
                if ($page =~ "191") {$chapter = "18"};
                if ($page =~ "201") {$chapter = "19"};
                if ($page =~ "209") {$chapter = "20"};
                if ($page =~ "223") {$chapter = "21"};
                if ($page =~ "233") {$chapter = "22"};
                if ($page =~ "243") {$chapter = "23"};
                if ($page =~ "253") {$chapter = "24"};
                if ($page =~ "265") {$chapter = "25"};
                if ($page =~ "271") {$chapter = "26"};
                if ($page =~ "275") {$chapter = "27"};
                if ($page =~ "279") {$chapter = "28"};
                if ($page =~ "291") {$chapter = "29"};
                if ($page =~ "303") {$chapter = "middle"};
		}	

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