#!/usr/bin/perl  
use strict;  
use warnings;  
use Net::XMPP;  
use utf8;  
binmode(STDIN, ‘:encoding(utf8)’);  
binmode(STDOUT, ‘:encoding(utf8)’);  
binmode(STDERR, ‘:encoding(utf8)’);  
my $username = "USERNAME"; #用户名，不带@的  
my $password = "PASSWORD"; #纯文本密码  
my $resource = "perl_script";

my $gtalkserver = "talk.google.com";  
my $gtalkport = 5222;  
my $componentname = "gmail.com";  
my $connectiontype = "tcpip";  
my $tls = 1;  
my $connect = Net::XMPP::Client->new;  
#my $connect = Net::XMPP::Client->new(debuglevel=>2,debugfile=>"stdout",debugtime=>1);

#如果想打印出登陆中的消息信息，可以打开debug模式，把debug信息输出的标注输出。  
my $status = $connect->Connect(hostname => $gtalkserver,  
port => $gtalkport,  
componentname => $componentname,  
connectiontype => $connectiontype,  
tls => $tls  
);  
if ( !(defined($status))) {  
print "xmpp connect failed! ,$!\n";  
exit(1);  
}  
#change hostname

my $sid = $connect->{SESSION}->{id};  
$connect->{STREAM}->{SIDS}->{$sid}->{hostname}=$componentname ;

#authcenticate

my @login =$connect->AuthSend(  
username => $username,  
password => $password,  
resource => $resource );  
if ( $login[0] ne "ok" ){  
print "login failed: $login[0] -$login[1]\n";  
exit(2);

} else {  
print "login successful!\n";  
}  
my $to=’MSG_TO@gmail.com’;  
print "input txt:";  
while (my $line=<STDIN>) {  
chomp $line;  
last if ($line eq "quit" );  
$connect->MessageSend(  
to => "$to",  
resource =>$resource,  
suject => "nagios",  
body => "$line"  
);  
print "input continue ..\n";  
print "input txt:";  
}  
$connect->Disconnect;