#!/usr/bin/perl ################# # Form Data Parsing $fields{'directstart'} = "true"; $fields{'appbg'} = "89,0,179"; $fields{'chatroomident'} = "jchatter"; $fields{'appfg'} = "0,255,0"; $fields{'chan'} = "ChattersOnline"; $fields{'webs'} = "Welcome to ChattersOnline Java Chat!"; $fields{'bgcolor'} = "#5900B3"; $fields{'pagecolor'} = "#cccccc"; $fields{'titlecolor'} = "#00ff00"; $fields{'bordercolor'} = "#000000"; $fields{'fonttype'} = "Arial"; $fields{'titlesize'} = "30"; $fields{'homepageurl'} = "http://www.chattersonline.com"; $fields{'textcolor'} = "0,0,0"; $fields{'textareabg'} = "255,255,255"; $fields{'servcmdcolor'} = "255,102,0"; $fields{'serverrorcolor'} = "255,0,0"; $fields{'usercmdcolor'} = "0,0,255"; $fields{'actioncolor'} = "0,153,153"; $fields{'nick'} = "Guest"; $fields{'bodycss'} = ""; $fields{'serv'} = "206.41.117.133"; $fields{'port'} = "7070"; if ($ENV{'REQUEST_METHOD'} eq 'GET') { $buffer = $ENV{'QUERY_STRING'}; } else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } @pairs = split(/&/, $buffer); $querystring = ""; foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $querystring = $querystring . $name . "=" . $value . "&"; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $fields{$name} = $value; } if ($fields{'chan'} eq 'tempSeanBiggerstaff') { $silentparams = ""; } $referer=$ENV{'HTTP_REFERER'}; use CGI; my $q=CGI->new(); $room = $fields{'chan'}; $referer=$q->escape($referer); $querystring=$q->escape($querystring); $room=$q->escape($room); $encodedvars = "room=$room&referer=$referer&querystring=$querystring"; if ($ENV{'HTTP_USER_AGENT'} =~ /WebTV/) { ############################################################################ ######################### START OF WEB TV CHAT ############################ ############################################################################ $webtventrance = "http://www.chattersonline.com/ads/webtv/wtvchat.php?serv=206.41.117.133&port=8180&chan=$fields{'chan'}"; print "Location: $webtventrance\n\n"; } else { ############################################################################ ########################## START OF JAVA CHAT ############################# ############################################################################ print "Content-type: text/html\n\n"; print < $fields{webs}
Click here to create a chat room for your website!
Click here to make a donation and support this site! Thanks!
$fields{webs}
$silentparams
Java Chat Help
Big Grin
Frown
Smile
Tongue
Op
Deop
Voice
Devoice
Kick
Kick Ban
Whois Info
Set Topic		 Cool
Wink
Mad
Blush
Moderate
UnModerate
Invite only
Remove invite only
Secret On
Secret Off
Change Rooms
Change Nickname
Please Read.
Please Read.
Click to Open $fields{chan} Website.
 
EOF }