#!/usr/local/bin/perl
#
# Merge html files into one so that MSWord can read
# it and generate a ps file.
#
$file = $ARGV[0]; # Name the file
open(INFO, "<$file" ) ; # Open the file
@lines = ; # Read it into an array
close(INFO) ; # Close the file
foreach $line (@lines) # assign @lines to $line, one at a time
{ # braces {} are required, bracket code
$line =~ s#"introductionToGeant4.src/#"../html/introductionToGeant4.src/#;
### $line =~ s#"../../../../resources/#"../../../resources/#;
if ($file =~ "index.html")
{
if ($line =~ /About the authors/)
{
$line = 'About the authors
';
}
}
print "$line" ; # print formatted lines to screen
}
#
# DONE
#