Problems sending IM from perl MSN messenger

[jonathan184]

Problems sending IM from perl MSN messenger

Hi I am trying to send a msn message from perl msn messenger but I am trying to send am essage and nothing works.

This is the cod eI am using could someone tell me where i am going wrong please.

#!/usr/bin/perl
 
use Net::Msmgr;
use Net::Msmgr::Session;
use Net::Msmgr::User;
 
$ssid = "[e-mail]";
$message = "Test from perl client";
 
our $session = new Net::Msmgr::Session;
our $user = new Net::Msmgr::User(
    user => '[e-mail]',
    password => 'password',
);
$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);

[KevinADC]

change this line:

$ssid = "[e-mail]";

to:

$ssid = '[e-mail]';

and see if that helps.

The double quotes in your code is causing perl to treat @hotmail as if it were an array, an empty one in this case, so $ssid is being defined as "mscontact.com" instead of "[e-mail]". The single-quotes in my suggestion will eliminate that problem.

[jonathan184]

Hi Kevin

I did that change but it did not work.

any other ideas?

[KevinADC]

Sorry, I don't know anything about those particular modules, I would have to read the documentation to see if you are using them correctly, but you can do that as well as I can.

[jabdulius]

Hey guys,

I'm trying to use the same package (net-msmgr) to send IM from Perl, but with no luck either. I know for one, or at least I'm pretty sure, that your ssid Jonathan should not be set to an email address. It should be some network identifier which I'm sad to say I don't know what it should be either.

I think you should be passing the email of the person you want to chat with to your Conversation object. Also, I'm pretty sure you need to associate a switchboard with your conversation as well and you send the switchboard the ssid.

my $switchBoard = new Net::Msmgr::Switchboard( ssid => '8888' );
$conversation->switchboard( $switchBoard );
 

I really wish there was more documentation on this package.

Please let me know if anyone has made any progress on this.

-Karim Varela