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 (20 years, 3 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			#};