1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
// Example of Perl object macros.
! version = 2.0
> object base64 perl
my ($rs, @args) = @_;
use MIME::Base64 qw(encode_base64);
return encode_base64(join(" ", @args));
< object
> object setvar perl
my ($rs, @args) = @_;
# This function demonstrates using currentUser() to get
# the current user ID, to set a variable for them.
my $uid = $rs->currentUser();
my $var = shift(@args);
my $value = join(" ", @args);
$rs->setUservar($uid, $var, $value);
return "";
< object
+ encode * in base64
- OK: <call>base64 <star></call>
+ perl set * to *
- Setting user variable <star1> to <star2>.<call>setvar <star1> <star2></call>
|
