#!/opt/perl/bin/perl ######################################## # Thank you for downloading QuikChat... # This script was built and tested under # Perl 5.003 for Win32, but should work # on any platform. PLEASE DO NOT # REDISTRIBUTE THIS SCRIPT! See # README.TXT for more information. # This script may be obtained from Matt # Hahnfeld's Web Site at: # # http://www.cs.hope.edu/~hahnfld/ # # Of course, it is freeware! # THIS IS VERSION 2.1 RELEASED 4/1/97 ######################################## # 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'; # here is where the script is located # with a virtual path (web browser accessed) $thescript='http://www.auburn.edu/cgi-bin/quikchat.pl'; $thelogoffscript='http://www.auburn.edu/cgi-bin/quiklogoff.pl'; ######################################## # 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 "Pragma: no-cache\nContent-type: text/html\n\n"; print "\\\\\n"; print "\\\n"; print "\\n"; print "\\n"; print "\\Your message\:\n\\n"; print "\\n"; print "\"; print "\\\n"; print "\\n"; print "\\n"; print "\\\\n"; print "\\n"; print " \"; print "\\\n"; print "\\n"; print "\\n"; print "\\\n"; print "\\\n"; exit 0; ######################################## # subs sub get_form_data { $buffer = ""; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs=split(/&/,$buffer); foreach $pair (@pairs) { @a = split(/=/,$pair); $name=$a[0]; $value=$a[1]; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/~!/ ~!/g; $value =~ s/\+/ /g; $value =~ s/\/\>\;/g; # html tag removal (optional) $value =~ s/\r//g; push (@data,$name); push (@data, $value); } %formdata=@data; %formdata; }