#!/usr/local/bin/perl
###############################################################################
# Sam Sultan
#
# Chat application
###############################################################################
use CGI "param"; #use CGI perl module
$htmlfile = "../web/demo/perl/chatResult.html";
$chatfile = "../data/chat.file";
&display();
&write();
print "";
##############################################################################
# display: read the chat html form and reprint it
##############################################################################
sub display {
open(HTML, "<$htmlfile") || ($msg = "Cannot open $htmlfile input!");
print "Content-type: text/html\n";
print "\n";
while ($line = ) { # print chat html form
print $line;
}
close(HTML);
}
##############################################################################
# write: write out entire chat file
##############################################################################
sub write {
open(CHAT, "<$chatfile") || ($msg = "Cannot open $chatfile for input!");
@dialog = ; # read entire chat file into array
print @dialog;
close(CHAT);
}