- Timestamp:
- 11/15/08 18:34:21 (8 weeks ago)
- Files:
-
- 1 modified
-
misc/evalbot/evalbot.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
misc/evalbot/evalbot.pl
r23021 r23024 109 109 my $e = shift; 110 110 my $message = $e->{body}; 111 my $address = $e->{address} // ''; 111 112 if ($message =~ m/\A$regex\s+(.*)\z/){ 112 113 my ($eval_name, $str) = ($1, $2); 113 114 my $e = $impls{$eval_name}; 115 return "Please use /msg $self->{nick} highlight: $str" 116 if($eval_name eq 'highlight' && $address ne 'msg'); 114 117 warn "Eval: $str\n"; 115 118 my $result = EvalbotExecuter::run($str, $e, $eval_name);
