Revision: | 1.1 |
Committed: | Tue Jul 11 20:03:57 2006 UTC (17 years, 10 months ago) by elmex |
Branch: | MAIN |
Log Message: | added some 'sample' code for eval client command |
# | User | Rev | Content |
---|---|---|---|
1 | elmex | 1.1 | #! perl |
2 | |||
3 | # untested dm support extension | ||
4 | |||
5 | use Storable qw/freeze thaw/; | ||
6 | |||
7 | #cf::register_extcmd perleval => sub { | ||
8 | # my ($pl, $indata) = @_; | ||
9 | # | ||
10 | # my ($token, $evaldata) = split / /, $indata, 2; | ||
11 | # my ($code, $storablein) = split /\0/, $evaldata, 2; | ||
12 | # | ||
13 | # unless ($pl->flag (cf::FLAG_WIZ)) { | ||
14 | # $pl->send ("ext $token"); | ||
15 | # return; | ||
16 | # } | ||
17 | # | ||
18 | # my $data = thaw $storablein; | ||
19 | # | ||
20 | # $pl->send ("ext $token " . freeze eval $code); | ||
21 | #}; |