God Makes Youth eXist Club

Wednesday, 2019-01-23, 11:54 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
«  January 2019  »
SuMoTuWeThFrSa
  12345
6789101112
13141516171819
20212223242526
2728293031
Statistics

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