#!/opt/perl/bin/perl ######################################## # Thank you for downloading QuikChat... # PLEASE DO NOT REDISTRIBUTE THIS SCRIPT # # This is a sample logoff script for 2.1 ######################################## # CONFIGURATION SECTION # place the absolute path to your messages # file here (where the chat messages are # written to). You will also have to change # the permissions of that file to read- and # writable. $file='/home/duc4/collear/public_html/qchat/messages.html'; ######################################## # This script is almost identical to the # regular QuikChat script. The only # difference is the message it sends to # the user after he or she logs off. # I left this stuff seperate from the # main script so it could easily be # changed. ######################################## # read in the form data &get_form_data; ######################################## # read in the old message file open (HTMLOLD, "$file"); @lines=; close(HTMLOLD); ######################################## # output new message file ####### get the time ####### $now_string = localtime; @thetime = split(/ +/,$now_string); @theclock = split(/:/,$thetime[3]); $ampm = 'am'; if ($theclock[0] > 11) { $ampm = 'pm'; } if ($theclock[0] == 0) { $theclock[0] = 12; } if ($theclock[0] > 12) { $theclock[0] -= 12; } else { $theclock[0] += 0; } ############################ open (NEW, ">$file"); print NEW "\\\\\\n"; for ($i = 2; $i < 16; $i++) { print NEW "$lines[$i]"; } print NEW "\\$formdata{'username'}\"; print NEW " says\,\""; print NEW "$formdata{'message'}"; print NEW "\" $$thetime[0] $theclock[0]\:$theclock[1]$ampm$"; print NEW "\n\\\QuikChat $c$ 1997 Matt Hahnfeld\\\\n"; close(NEW); ######################################## # initialize the message form after logon print "Content-type: text/html\n\n"; print "\\\\\n"; print "\"; ######################################## # this is what the user sees after # logging off... print "Goodbye\! Thanks for chatting on CheerChat\!\n"; ######################################## # This line calls a goto URL script to # replace the above line if you want... # (this is what is used on my demo) # print "\