#!/usr/local/bin/perl

#
use File::Basename;
#Call CHK_CMD_LINE
&CHK_CMD_LINE;
#sets chapter and page variables
        $chapter = "01";
        $page = "001";
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=\"../../cranv1p1_text/" ) { 
                	print OUTPUT "         <A HREF=\"../../sp500207_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 =~ "031") {$chapter = "03"};
                if ($page =~ "059") {$chapter = "04"};
                if ($page =~ "073") {$chapter = "05"};
                if ($page =~ "089") {$chapter = "06"};
                if ($page =~ "101") {$chapter = "07"};             
                if ($page =~ "107") {$chapter = "08"};
                if ($page =~ "113") {$chapter = "09"};
                if ($page =~ "131") {$chapter = "10"};
                if ($page =~ "137") {$chapter = "11"};
                if ($page =~ "153") {$chapter = "12"};
                if ($page =~ "173") {$chapter = "13"};
                if ($page =~ "189") {$chapter = "14"};
                if ($page =~ "193") {$chapter = "15"};
                if ($page =~ "199") {$chapter = "16"};
                if ($page =~ "209") {$chapter = "17"};
                if ($page =~ "229") {$chapter = "18"};
                if ($page =~ "245") {$chapter = "19"};
                if ($page =~ "251") {$chapter = "20"};
                if ($page =~ "287") {$chapter = "21"};
                if ($page =~ "297") {$chapter = "22"};
                if ($page =~ "309") {$chapter = "23"};
                if ($page =~ "319") {$chapter = "24"};
                if ($page =~ "329") {$chapter = "25"};
                if ($page =~ "337") {$chapter = "26"};
                if ($page =~ "343") {$chapter = "27"};
                if ($page =~ "353") {$chapter = "28"};
                if ($page =~ "372") {$page = "373"};
                if ($page =~ "373") {$chapter = "A"};
                if ($page =~ "431") {$chapter = "B"};
                if ($page =~ "455") {$chapter = "C"};
		}	

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