#!/usr/local/bin/perl

#################################################################################################
# Page Merger
# Ben Christensen (benjc@ocii.com)
# Created July 31 1996
#
#
#
#
#################################################################################################

$template='/web/htdocs/investments/profile-template.html';
$filedir='/web/htdocs/profiles';
$whichfile=$ARGV[0];

$file="&filedir/&whichfile";
#################################################################################################


open(BOOK, "$file") || die "Content-type: text/plain\n\n Could not open $book";
@contents=<BOOK>;	#get contents of file so we can add this to the template.
close(BOOK);


open(TEMPLATE, "$template") || die "Content-type: text/plain\n\n Could not open $book";
@tempcontents=<TEMPLATE>;	#get contents of Guestbook so you can add this entry to it.
close(TEMPLATE);



open(TEMPLATE2, "$template");
foreach $line (@tempcontents)
{
	if($line =~ /<!--Do not change or get rid of this line-->/)	#print new entry after this line
	{
		print BOOK2 "$line\n\n";
		print BOOK2 "<\!\-\-Begin Entry\-\->\n";
#print contents from file into this template.
		print "@contents";

		print BOOK2 "<\!\-\-End Entry\-\->\n";
	}
	else
	{
		print BOOK2 $line;
	}
}
close(TEMPLATE2);


#################################################################################################
exit 0;
#################################################################################################