aim usr status

[mu-b]

use IO::Socket;
print "Enter AIM Screen name to check: ";
$aimscreename = <STDIN>;
chomp($aimscreename);

$Host = "big.oscar.aol.com";
$Socket = new IO::Socket::INET(
                               PeerAddr => $Host,
                               PeerPort => 80,
                               Proto => 'tcp',
                              ) || die "Could not connect $!\n";
print"Connected.\n";
print"Getting online status--*\n";
print $Socket "GET /$aimscreename?on_url=online&off_url=offline HTTP/1.0\n";
print $Socket "Accept: */*\n";
print $Socket "Accept-Language: en-us\n";
print $Socket "Accept-Encoding: gzip , deflate\n";
print $Socket "User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)\n";
print $Socket "Host: big.oscar.aol.com\n";
print $Socket "Connection: Keep-Alive\n\n";
print "User: $aimscreename is: ";

while($result=<$Socket>)
{
    @b = split(/:/, $result);
    print $b[1]
}

tels u the status of a aim user, kind of useless but i was askd 2 write it 4 a friend.

 

[super_]

You are so clueless... that code is in perl, this is a C/++ board. Something tells me you lack the intelligence required to write this.