0
#!/usr/bin/perl
use Net::OSCAR qw(:standard);
$uin="7777777"; 
$password="1234567";
$sender = "43214312";
$text = "test";
$oscar = Net::OSCAR -> new();
$oscar -> signon($uin, $password);
$oscar -> send_im($sender, $text);
$oscar -> signoff();

why dont send me message?

Alan Haggai Alavi
  • 72,802
  • 19
  • 102
  • 127
user701981
  • 1

3 Answers3

7

You don't do any error checking. Do that and the problem will be obvious.

daxim
  • 39,270
  • 4
  • 65
  • 132
1

I'm the ORIGINAL author of this software, wow - surprised it's still in use.. I've not touched it in years..

In short, the software uses Net::Oscar which is a library I took over as maintainer of years ago, but after a lawsuit with AOL ( over icqbot, not oscar ) .. I lost my desire to work on either.. I know that the net::oscar library was still downloaded and used for years after but I've not personally maintained it and I don't know if anyone has forked off of my work.. the icqbot software itself runs atop that library, so as long as it's methods work.. it will work.. but I've not updated icqbot in YEARS ..

Frankly I'm honored to have found this =)

Lonnie Waugh
  • 11
  • 1
0

I'm amazed that me, as the author.. got nothing and someone else got 7 .. amusing :) but seriously the library is extremely outdated and the protocol has changed.. I no longer maintain the software.. I have no interest in returning to it...

Ps. The other guy is right though, no error checking is a bad idea.. that's how hacks happen.. it's just sloppy code... no offence, good luck... there's other ways to accomplish what you wanted now days.. :) for me it was a means to an end for an AI chat bot.

  • Lonnie Waugh
Lonnie
  • 36
  • 1