Wednesday, 13.12.2017, 10:35:37
Welcome Guest

CLTU

#!/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 }
Logare
Link-uri utile
  • google