Changeset 453

Timestamp:

07/10/12 17:09:37 (12 years ago)

Author:

nanardon

Message:

Display error message (including perl error from website)

File:

• bot/trunk/lib/Sophie/Bot/Term.pm (modified) (1 diff)

bot/trunk/lib/Sophie/Bot/Term.pm

@@ -18 +18 @@
 sub show_reply {
     my ($self, $heap, $reply) = @_;
-    if ($reply->{error}) {
+    if ($reply->{faultString}) {
+        print $reply->{faultString} . "\n";
+    } elsif ($reply->{error}) {
         print $reply->{error} . "\n";
     } else {