Permalink
Browse files

Code cleanup and new SOAP URLs for contact list

  • Loading branch information...
1 parent 340126c commit 28c8174151da2eb31ab1680d667552172d52ac73 @sanko committed Mar 15, 2012
Showing with 1,090 additions and 1,079 deletions.
  1. +8 −2 examples/client.pl
  2. +860 −850 lib/AnyEvent/MSN.pm
  3. +222 −227 lib/AnyEvent/MSN/Protocol.pm
View
@@ -6,6 +6,8 @@
$AnyEvent::MSN::DEBUG++;
my ($user, $pass) = @ARGV; # XXX - Better to use a GetOpt-like module
my $cv = AnyEvent->condvar;
+($user, $pass) = ('anyevent_msn@hotmail.com', 'public');
+($user, $pass) = ('msn@penilecolada.com', 'password');
my $reconnect_timer;
#
@@ -23,8 +25,8 @@
my $msn = shift;
warn 'Connected as ' . $msn->passport;
- #$msn->add_contact('junk@penilecolada.com');
- #$msn->send_message('junk@penilecolada.com', 'Test');
+ $msn->add_contact('msn@propernoun.com');
+ $msn->send_message('msn@propernoun.com', 'Hi?');
},
on_im => sub { # simple echo bot
my ($msn, $head, $body) = @_;
@@ -67,6 +69,10 @@
warn $head->{From} . ' just nudged us';
$msn->nudge($head->{From});
},
+ on_create_circle=>sub{
+
+ warn 'NEW CIRCLE!!!!!';
+ },
on_error => sub {
my ($msn, $msg) = @_;
warn 'Error: ' . $msg;
Oops, something went wrong.

0 comments on commit 28c8174

Please sign in to comment.