| Subject: | Questions |
| Date: | Mon, 27 Oct 2008 15:55:25 -0200 |
| To: | bug-Net-Msmgr [...] rt.cpan.org |
| From: | "Victor Detoni" <victordetoni [...] gmail.com> |
Hi!,
I'm developing a script in perl for connect on MSN and i'm using the
Net-Msmgr to it's, but not ok, the script is executed and nothing happen...
Please, You have same example of script that works?
my script:
#!/usr/bin/perl
use Net::Msmgr;
use Net::Msmgr::Session;
use Net::Msmgr::User;
$ssid = 'victor_detoni@hotmail.com';
$message = "Test from perl client";
our $session = new Net::Msmgr::Session;
our $user = new Net::Msmgr::User ( user => 'vicdetoni@hotmail.com',
password => 'DOUGUI' ) ;
$session->user($user);
$session->login_handler( sub { shift->Logout } ) ;
$session->connect_handler ( ... ) ;
$session->Login;
print "Username is: ", $user->user ."\n";
#Initiate list syncronization.
$session->ui_sync;
print"$session->ui_sync \n";
#Ping the Notification Server.
print "$session->ping \n";
#Online Status
$session->ui_state_nln;
print "$session->ui_state_nln";
$session->ui_new_conversation;
$session->ui_send_message($ssid, $message);