#!/usr/local/bin/perl

$file = shift(@ARGV);
open(FILE, "<$file") || die "Couldn't open $file\n";

while ($line = <FILE>) {
  $_ = $_ . $line;
}
close(FILE);

# Change any ftp commands

s!ftp.cs.utah.edu/pub/IntroSciProg!ftp.telospub.com/pub/ScientificComputing/IntroSciProg!g;


# Change the cover links

s!../../../ISPCover.gif!/COVERS/zachary.gif!g;
s!../ISPCover.gif!/COVERS/zachary.gif!g;


# Change the main page links

s!../IntroSciProg.html!../COMPUTERSCI/IntroSciProg.html!g;
s!../IntroSciProgMma.html!../MATHEMATICA/IntroSciProgMma.html!g;


# Output to the file

open(FILE, ">$file") || die "Couldn't open $file\n";

print FILE $_;
close(FILE);