gtalk自动检测bot0.01

原理：

因为google的 gtalk采用了xmpp协议，因此用开源的实现方案轻松无比，任何jabber的客户端经小改之

都可以与GTalk互通，此段代码用的条件

perl 5.6.0及以上

Net:XMPP

Net:Ping

# !/usr/bin/perl -w
use  strict;
use  Net :: XMPP;
use  Net :: Ping;
# ##########################################
#use Net::Ping mod check the remote machie
#is alive or not!
#sub ping
############################################
sub  ping{
open  END ,   " >/tmp/bot/ping_end_gtalk.txt "  or  die   " cann't open file: $! " ;
my   @ip   =  qw{x . x . x .. 30
           x . x . x . x . 33
           x . x . x . x . 34
           x . x . x . x . 35
           x . x . x . x . 36
           x . x . x . x .. 39
           };
my   $host ;
my   $check   =  Net :: Ping -> new();
foreach   $host ( @ip ){
  if  ( $check -> ping( $host )) {
         print  END  " $host is alive. " ;
 }
  else  {
         print  END  " WARNING!!! $host is unreachable. " ;
 }
}
$check -> close ();
close  END;
}
& ping;



# #########################################
#gtalk send ping_file to x5ywsir
########################################
my   $username   =   " ark119 " ;
my   $password   =   " xxxxxxxxx " ;

my   $body ;
my   $to   =   " x5ywsir " ;
my   $resource   =   " PerlBot " ;
# # End of configuration

#------------------------------------

# Google Talk & Jabber parameters :

my   $hostname   =   ' talk.google.com ' ;
my   $port   =   5222 ;
my   $componentname   =   ' gmail.com ' ;
my   $connectiontype   =   ' tcpip ' ;
my   $tls   =   1 ;

# ------------------------------------

my   $Connection   =  new Net :: XMPP :: Client();

#  Connect to talk.google.com
my   $status   =   $Connection -> Connect (
       hostname  =>   $hostname ,  port  =>   $port ,
       componentname  =>   $componentname ,
       connectiontype  =>   $connectiontype ,  tls  =>   $tls );

if  ( ! ( defined ( $status ))) {
    print   " ERROR:  XMPP connection failed. " ;
    print   "         ($!) " ;
    exit ( 0 );
}

#  Change hostname
my   $sid   =   $Connection -> {SESSION} -> {id};
$Connection -> {STREAM} -> {SIDS} -> { $sid } -> {hostname}  =   $componentname ;

#  Authenticate
my   @result   =   $Connection -> AuthSend(
       username  =>   $username ,  password  =>   $password ,
       resource  =>   $resource );

if  ( $result [ 0 ] ne  " ok " ) {
    print   " ERROR: Authorization failed: $result[0] - $result[1] " ;
    exit ( 0 );
}

#  Change hostname
my   $sid   =   $Connection -> {SESSION} -> {id};
$Connection -> {STREAM} -> {SIDS} -> { $sid } -> {hostname}  =   $componentname ;

#  Authenticate
my   @result   =   $Connection -> AuthSend(
       username  =>   $username ,  password  =>   $password ,
       resource  =>   $resource );

if  ( $result [ 0 ] ne  " ok " ) {
    print   " ERROR: Authorization failed: $result[0] - $result[1] " ;
    exit ( 0 );
}

#  Send message
open  PING_FILE ,   " /tmp/bot/ping_end_gtalk.txt " ;
while  ( < PING_FILE > ){
print   $body = $_ ;
$Connection -> MessageSend(
       to  =>   " $to@$componentname " ,  body  =>   $body ,
       resource  =>   $resource );
sleep   5 ;
}
close  PING_FILE;