if (param) {
    if ($name) {
        if ($message) {

            		 open( LOG, "$file" );   # open count log for ID
    	 $cnt = <LOG>;
   		 close(LOG);

  		 $cnt++;
   		 open( LOG, "> $file" );
   	 	 print LOG $cnt;
   		 close(LOG);

$name =~ s/</&lt\;/g;    # removing exploit
$message =~ s/</&lt\;/g;  # removing exploit

$name =~ s/$_/****/g for @words; # say goodbye to swear words
$message =~ s/$_/****/g for @words; # say goodbye to swear words

$message =~ s/:\)/\<img src=\"$imagedir\/smiley.gif\"\>/g; # happy emoticon
$message =~ s/:\(/\<img src=\"$imagedir\/sad.gif\"\>/g;    # sad emoticon
$message =~ s/:p/\<img src=\"$imagedir\/tongue.gif\"\>/g;  # tongue emoticon
$message =~ s/:P/\<img src=\"$imagedir\/tongue.gif\"\>/g;  # tongue1 emoticon
$message =~ s/:o/\<img src=\"$imagedir\/oh.gif\"\>/g;      # oh emoticon
$message =~ s/:O/\<img src=\"$imagedir\/oh.gif\"\>/g;      # oh1 emoticon
$message =~ s/\*hug\*/\<img src=\"$imagedir\/hug.gif\"\>/g;  # hug emoticon
$message =~ s/\*flower\*/\<img src=\"$imagedir\/flower.gif\"\>/g;  # flower emoticon
$message =~ s/\*wink\*/\<img src=\"$imagedir\/wink.gif\"\>/g;  # wink emoticon
$message =~ s/\*devil\*/\<img src=\"$imagedir\/devil.gif\"\>/g;# devil emoticon
$message =~ s/\*love\*/\<img src=\"$imagedir\/love.gif\"\>/g;  # love emoticon
$message =~ s/\*sleep\*/\<img src=\"$imagedir\/sleep.gif\"\>/g;# sleep emoticon
$message =~ s/\*conf\*/\<img src=\"$imagedir\/confused.gif\"\>/g;# sleep emoticon




    my $keeptime = join (':', $hour, $min, $sec);
    my $info = join ( '::', $name, $message, $keeptime );

    $chat{$cnt} = $info;
        }
        else {
        print "Message was missing, data not sent.<br>";
        }
    }
    else {
        print "Name was missing, data not sent.<br>";
    }
}

foreach (reverse keys (%chatorder)) {
my ( $name, $message, $time ) = split /::/, $chatorder{$_};
$message = wrap('', '', $message);
    print Tr(td({-width=>'700'},"<font color=blue>&lt;$name @ $time&gt;</font>$message")),
    
}