Changeset 23026 for misc

Timestamp:

11/15/08 19:09:06 (8 weeks ago)

Author:

azawawi

Message:

[evalbot] refactored to be /msg nick my $foo
[evalbot] 'highlight:' is not needed, TimToady?++

Files:

• misc/evalbot/evalbot.pl (modified) (2 diffs)

misc/evalbot/evalbot.pl

@@ -113 +113 @@
             my ($eval_name, $str) = ($1, $2);
             my $e = $impls{$eval_name};
-            return "Please use /msg $self->{nick} highlight: $str" 
-                if($eval_name eq 'highlight' && $address ne 'msg');
+            return "Please use /msg $self->{nick} $str" 
+                if($eval_name eq 'highlight');
             warn "Eval: $str\n";
             my $result = EvalbotExecuter::run($str, $e, $eval_name);
@@ -153 +153 @@
             }
 
+        } elsif ($message =~ m/\A(.+)\z/ && $address eq 'msg') {
+            #a request like /msg evalbot perl6 code
+            my ($eval_name, $str) = ('highlight', $1);
+            my $e = $impls{$eval_name};
+            warn "Highlight: $str\n";
+            my $result = EvalbotExecuter::run($str, $e, $eval_name);
+            my $revision = '';
+            if (reftype($e) eq 'HASH' && $e->{revision}){
+                $revision = ' ' . $e->{revision}->();
+            }
+            return sprintf "%s%s: %s", $eval_name, $revision, $result;           
         }
         return;