use strict;
use warnings;
use IO::Socket::INET;
use Switch;

my $server = $ARGV[0];
my $chan = $ARGV[1];
my $port = '6667';
my $nick = 'google-bot';
my $user = 'bot dbot bot bot';
my $owner = 'name';
my $pass = '***';

my $socket = IO::Socket::INET -> new ( PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp',
Type => SOCK_STREAM,
Timeout => '10') || print "I died.\n";

print $socket "User $user\r\n";
print $socket "NICK $nick\r\n";
print $socket "privmsg nickserv IDENTIFY $pass\r\n";
print $socket "JOIN $chan\r\n";
print $ARGV[1];

my $a;
while ($a = <$socket>) {
if ($a =~ m/^\:(.*?)\!(.*?)\@(.*?) PRIVMSG (.*?) :(.*?)$/) {
my $unick = $1;
my $uident= $2;
my $uchost =$3;
my $uchannel =$4;
my $utxt = $5;

# String is parsed for the valid query.
if ($a =~ m/\!google/) {
if ($unick =~ $owner) {
my @query = split (" ", $utxt);
my $n = 1;
my $google_query;
my $query;
while ($query[$n]) {
$google_query .= $query[$n];
$google_query .= "%20";
$n++;
}

# Open socket to www.google.com.
my $result = IO::Socket::INET -> new ( PeerAddr => 'www.google.com',
   PeerPort => '80',
   Proto => 'tcp',
   Type => SOCK_STREAM,
   Timeout => '5') || print "An error occured.\n";

#Submit the search terms for the google query.
print $result "GET /search?num=5&hl=en&lr=lang=en&q=$google_query&btnG=SEARCH HTTP/1.0\n";
print $result "Host: www.google.com\n\n";

#Get the results from the search term and parse for valid urls. Also remove %20 from the search string when displaying it to the user.
my $get;
my @search = split ("%20", $google_query);
my $term = join (" ", @search);
while ($get = <$result>) {
$get =~ m!(<div class=g><h2 class=r><a href=\")((http\://|https\://|ftp\://)|(www.))+(([a-zA-Z0-9\.-]+\.[a-zA-Z]{2,4})|([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}))(/[a-zA-Z0-9%:/-_\?\.'~]*)?\"!;
print $get;
print $socket "privmsg $uchannel : Search Term: $term || Result : $3$4$5$8\n";
}
}
}
# basic check to see if port is listening on remote address. A simple connect scan.
if ($a =~ m/\!scan/) {
my ($ip, $tport, $res, $scan);

if ($unick =~ $owner) {

my @target = split (" ", $utxt);
$ip = $target[1];
$tport = $target [2];

$scan = IO::Socket::INET -> new ( PeerAddr => $ip,
  PeerPort => $tport,
  Proto => 'tcp',
  Type => SOCK_STREAM,
  Timeout => '3') || print " An error occurred. Die!\n";

if ($scan) {
$res .= "Open";
close ($scan);
}
else {
$res .= "Closed";
}
$res .="\n";
}

print $socket "privmsg $uchannel : Target: $ip : $tport || Result: $res\n";
}

if ($a =~ m/\!owner/) {
my @says = split (" ", $utxt);
my $say = $says[1];

if ($unick) {
print $socket "privmsg $uchannel :$owner is my master!\n";
}
}