God Makes Youth eXist Club

Friday, 2018-09-21, 8:26 PM
Welcome Guest

Registration
Login

Chat Room


#!/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{'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{'chatfontsize'} = "12"; 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 = ""; } if ($fields{'webs'} eq '') { $fields{'webs'} = "Welcome to $fields{'chan'} Java Chat!"; } $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=7070&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
EOF }
What's Up
Search
Menu
Login
Calendar
«  September 2018  »
SuMoTuWeThFrSa
      1
2345678
9101112131415
16171819202122
23242526272829
30
Statistics

Total online: 1
Guests: 1
Users: 0
...