Server Site Lister

By Ivanalicius on Mar 21, 2008

#!/usr/bin/perl 
#################################### 
# (C)oded by Ivanalicius
# server site lister 
#################################### 
use LWP::UserAgent; 
$xpl = LWP::UserAgent->new( ) or die; 

my $OperatingSystem = $^O; 
my $unix = ""; 
if (index(lc($OperatingSystem),"win")!=-1){ 
$unix="0"; #windows system 
}else{ 
$unix="1"; #unix system 
} 
if($unix){ 
system("clear"); 
} 
else{system("cls");} 
$site=$ARGV[0]; 
if(!$site){&usage} 
$res = $xpl->get("http://hackinger.org/tool/whois.php?ip=$site", 'USER_AGENT'=>"hackozilla"); 
if($res->is_success) { 
$content=$res->content; 
$content=~s/<title>Coded by Ivanalicius<\/title>//; 
print "h4ckinger's Server Site Lister\n(C)oded by Ivanalicius - ghost_boy\n\n---------------------------------------\n"; 
$content=~s/<br>/\n/g; 

print "$content---------------------------------------"; 

} 

sub usage{ 
if($unix){ 
system("clear"); 
} 
else{system("cls");} 
print q[ 
============================================================ =========== 
Server Site Lister 
(C)oded by Ivanalicius
usage: list.pl <site> 
example: list.pl hackinger.org 
============================================================ =========== 
]; 
exit; 
}
Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.