#!/usr/bin/perl

#############################################
#   Banner Update -
#   Rewrite a Web Page with java banner
#   Copyright (1998) Mills Group Multimedia
#############################################

$path = "/www/wcccusa/datafiles/";
$filename = $path."message.dat";
$filename2 = $path."message1.dat";
$filename3 = $path."message2.dat";

open (FILE,"<$filename");
@lines = <FILE>;
close (FILE);

@fieldname1 = split (/\|/, @lines[0]);

########################
#   Replace Carriage Returns
########################

open (FILE,"<$filename2") || print "error";
@content = <FILE>;
close (FILE);

$x=0;

foreach (@content) {
$Content2 = $Content2.@content[$x]."<BR>";
$x=$x+1;
}

$Content2 = substr($Content2,0,length($Content2)-4);
$data1 = $Content2;

########################
#   Replace Carriage Returns
########################

$Content2 = "";
open (FILE,"<$filename3") || print "error";
@content = <FILE>;
close (FILE);

$x=0;
foreach (@content) {
$Content2 = $Content2.@content[$x]."<BR>";
$x=$x+1;
}

$Content2 = substr($Content2,0,length($Content2)-4);
$data2 = $Content2;

print "Content-type: text/html\n\n";

########################
#   Write HTML File
########################

print <<page_done;

<html>	
<head>		
<meta name="generator" content="GoLive CyberStudio 3">		
<title>Workers Compensation Claims Control - From the Hotline</title>
<link rel="stylesheet" href="../style/general.css" type="text/css">
</head>	
<body class="internal"><br>
<img src="../images/header_Hotline.jpg" width="400" height="55"> <br>
<blockquote class="bodyText">

page_done

###########################
#   HTML Statements here
###########################

print "<p><font face=\'Arial\'><b>Date: @fieldname1[0]</b></font></p>\n";
print "</div>\n";
print "<center>\n";
print "<p><font face=\'Arial\' size=\'3\'><b>@fieldname1[1]</b></font></p>\n";
print "<p><font face=\'Arial\'><b><i>@fieldname1[2]</i></b></font></p></center>\n";
print "<div align=\'left\'>\n";
print "<p><font face=\'Arial\'>$data1</font></p>\n";
print "<hr><br>\n";
print "<p><font face=\'Arial\'>$data2</font></p>\n";

print <<page_done;

</p>
</blockquote>		
<img src="../images/footer.jpg" width="400" height="55">
</body>
</html>

page_done

exit;