God Makes Youth eXist Club

Wednesday, 2018-06-20, 9:33 AM
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
«  June 2018  »
SuMoTuWeThFrSa
     12
3456789
10111213141516
17181920212223
24252627282930
...
Are you a Christian ?
Total of answers: 3
Statistics

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