#!/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 = ; close (FILE); @fieldname1 = split (/\|/, @lines[0]); ######################## # Replace Carriage Returns ######################## open (FILE,"<$filename2") || print "error"; @content = ; close (FILE); $x=0; foreach (@content) { $Content2 = $Content2.@content[$x]."
"; $x=$x+1; } $Content2 = substr($Content2,0,length($Content2)-4); $data1 = $Content2; ######################## # Replace Carriage Returns ######################## $Content2 = ""; open (FILE,"<$filename3") || print "error"; @content = ; close (FILE); $x=0; foreach (@content) { $Content2 = $Content2.@content[$x]."
"; $x=$x+1; } $Content2 = substr($Content2,0,length($Content2)-4); $data2 = $Content2; print "Content-type: text/html\n\n"; ######################## # Write HTML File ######################## print < Workers Compensation Claims Control - From the Hotline

page_done ########################### # HTML Statements here ########################### print "

Date: @fieldname1[0]

\n"; print "\n"; print "
\n"; print "

@fieldname1[1]

\n"; print "

@fieldname1[2]

\n"; print "
\n"; print "

$data1

\n"; print "

\n"; print "

$data2

\n"; print <
page_done exit;