Permalink
Browse files

Our echobot should respond with the same text format

  • Loading branch information...
1 parent ebbc675 commit 969ccb8cb61c352d0dbf3b24a6e580c4158e037e @sanko committed Jun 24, 2011
Showing with 3 additions and 4 deletions.
  1. +3 −4 examples/client.pl
View
@@ -18,7 +18,7 @@
on_connect => sub { warn 'Connected as ' . shift->passport },
on_im => sub { # simple echo bot
my ($msn, $head, $body) = @_;
- $msn->send_messsage($head->{From}, $body);
+ $msn->send_message($head->{From}, $body, $head->{'X-MMS-IM-Format'});
},
on_nudge => sub {
my ($msn, $head) = @_;
@@ -27,9 +27,8 @@
},
on_error => sub {
my ($msn, $msg) = @_;
- warn 'Error: '. $msg;
- },
-
+ warn 'Error: ' . $msg;
+ },
on_fatal_error => sub {
my ($msn, $msg, $fatal) = @_;
warn sprintf 'Fatal error: ' . $msg;

0 comments on commit 969ccb8

Please sign in to comment.