Live Cricket World Cup: April 2011

Saturday, 2 April 2011

Your Browser Do not Support Iframe

Posted by D_Roots at 04:57 0 comments

Email This BlogThis!Share to X Share to Facebook Share to Pinterest

Newer Posts Home

Subscribe to: Comments (Atom)

Chat Room

chatroom

#!/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 = " $fields{webs}

$fields{webs}

$silentparams

EOF }

Powered by Blogger.

About Me

D_Roots

View my complete profile

Followers

Blog Archive

▼ 2011 (2)
- ► July (1)
- ▼ April (1)
  - Your Browser Do not Support Iframe