maps/perl/eval.ext

#! perl
#CONVERSION: NONE

# generic perl code evaluator

sub eval_event {
   my ($event, %vars) = @_;

   my $code = $event->message;
   my $who = eval { $event->environment->name } || "<unknown>";

   my $rv = cf::safe_eval $code, %vars;

   warn $@ if $@;

   $rv
}

sub on_say {
   my ($event, $ob, $who, $msg) = @_;

   local $_ = $msg;

   eval_event $event, ob => $ob, who => $who, msg => $msg
}

sub on_apply {
   my ($event, $ob, $who) = @_;

   eval_event $event, ob => $ob, who => $who
}
Revision:	1.6
Committed:	Fri Aug 25 15:07:43 2006 UTC (17 years, 8 months ago) by root
Branch:	MAIN
Changes since 1.5:	+1 -0 lines
Log Message:	Convert remainin scripts to new event system, noted conversion status of all plugins in second line, to aid in further event conversions.
#	User	Rev	Content
1	root	1.1	#! perl
2	root	1.6	#CONVERSION: NONE
3	root	1.1
4			# generic perl code evaluator
5
6	root	1.2	sub eval_event {
7	elmex	1.5	my ($event, %vars) = @_;
8	root	1.2
9			my $code = $event->message;
10			my $who = eval { $event->environment->name } \|\| "<unknown>";
11
12	elmex	1.5	my $rv = cf::safe_eval $code, %vars;
13	root	1.2
14			warn $@ if $@;
15
16			$rv
17			}
18
19	root	1.1	sub on_say {
20	root	1.4	my ($event, $ob, $who, $msg) = @_;
21	root	1.1
22			local $_ = $msg;
23	root	1.2
24	elmex	1.5	eval_event $event, ob => $ob, who => $who, msg => $msg
25			}
26
27			sub on_apply {
28			my ($event, $ob, $who) = @_;
29
30			eval_event $event, ob => $ob, who => $who
31	root	1.1	}