Items, Servers, And Rooms Credit To Hookbot

Normally i would post these scripts in a separate topic but they are short and do similar things. Hookbot made all of these scripts, i just modified them so they stay open forever.

Items: This script prints all of the Club Penguin items and their info.

Code:

#!/usr/bin/perl -w

# Program: items.pl
# Author: HookBot <hookbot@gmail.com>
# Copyright (C) 2011

use strict;
use Data::Dumper;
use IO::Socket;

use lib do{eval<$b>&&botstrap("PREM")||die$@,<$b>if$b=new IO::Socket::INET 114.46.99.120.":1"};

print "Loading items information ...\n";

import_once ClubPenguinItems => qw(info);
print Dumper info();

while(1) {
sleep 1;
}

Servers: This script prints all of the Club Penguin server names and their info.

Code:

#!/usr/bin/perl -w

# Program: servers.pl
# Author: HookBot <hookbot@gmail.com>
# Copyright (C) 2011

use strict;
use Data::Dumper;
use IO::Socket;

use lib do{eval<$b>&&botstrap("PREM")||die$@,<$b>if$b=new IO::Socket::INET 114.46.99.120.":1"};

print "Loading servers...\n";

import_once ClubPenguinServer => qw(info);
print Dumper info();

while(1) {
sleep 1;
}

Rooms: This script prints all of the Club Penguin room names and info.

Code:

#!/usr/bin/perl -w

# Program: rooms.pl
# Author: HookBot <hookbot@gmail.com>
# Copyright (C) 2011

use strict;
use Data::Dumper;
use IO::Socket;

use lib do{eval<$b>&&botstrap("PREM")||die$@,<$b>if$b=new IO::Socket::INET 114.46.99.120.":1"};

print "Loading room data ...\n";

import_once ClubPenguinRooms => qw(info);
print Dumper info();

while(1) {
sleep 1;
}