blob: b5fa53c37fcf938fe168ef0f2b3cb6db1b01ece6 (
plain)
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
28
29
30
31
32
33
|
<% include( 'checkboxes.html',
'element_name_prefix' => 'cgp_accessmodes_',
'names_list' => \@names,
'checked_callback' => $callback,
%opt,
)
%>
<%once>
my @names = (qw(
Mail Relay Signal Mobile TLS POP IMAP MAPI
AirSync SIP XMPP WebMail XIMSS FTP ACAP PWD
LDAP RADIUS S/MIME WebCAL WebSite PBX HTTP
MobilePBX YMedia
));
#GIPS Media?
</%once>
<%init>
my %opt = @_;
my $curr_value = $opt{'curr_value'};
$curr_value = { map { $_=>1 } split(/\s+/, $curr_value) }
unless ref($curr_value);
my $callback = sub {
my( $cgi, $name ) = @_;
$curr_value->{$name};
};
</%init>
|
