maps/perl/dm-support.ext

#! perl

# untested dm support extension

use Storable qw/freeze thaw/;

#cf::register_extcmd perleval => sub {
#   my ($pl, $indata) = @_;
#
#   my ($token, $evaldata) = split / /, $indata, 2;
#   my ($code, $storablein) = split /\0/, $evaldata, 2;
#
#   unless ($pl->flag (cf::FLAG_WIZ)) {
#      $pl->send ("ext $token");
#      return;
#   }
#
#   my $data = thaw $storablein;
#
#   $pl->send ("ext $token " . freeze eval $code);
#};
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
#	Content
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	#};