version 1.420, 2009/08/10 23:32:26
|
version 1.422, 2009/08/18 20:08:13
|
Line 4559 sub dump_domainroles_handler {
|
Line 4559 sub dump_domainroles_handler {
|
$rolesfilter=&unescape($rolesfilter); |
$rolesfilter=&unescape($rolesfilter); |
@roles = split(/\&/,$rolesfilter); |
@roles = split(/\&/,$rolesfilter); |
} |
} |
|
|
my $hashref = &tie_domain_hash($udom, "nohist_domainroles", &GDBM_WRCREAT()); |
my $hashref = &tie_domain_hash($udom, "nohist_domainroles", &GDBM_WRCREAT()); |
if ($hashref) { |
if ($hashref) { |
my $qresult = ''; |
my $qresult = ''; |
while (my ($key,$value) = each(%$hashref)) { |
while (my ($key,$value) = each(%$hashref)) { |
my $match = 1; |
my $match = 1; |
my ($start,$end) = split(/:/,&unescape($value)); |
my ($end,$start) = split(/:/,&unescape($value)); |
my ($trole,$uname,$udom,$runame,$rudom,$rsec) = split(/:/,&unescape($key)); |
my ($trole,$uname,$udom,$runame,$rudom,$rsec) = split(/:/,&unescape($key)); |
unless ($startfilter eq '.' || !defined($startfilter)) { |
unless (@roles < 1) { |
if ((defined($start)) && ($start >= $startfilter)) { |
unless (grep/^\Q$trole\E$/,@roles) { |
$match = 0; |
$match = 0; |
|
next; |
} |
} |
} |
} |
unless ($endfilter eq '.' || !defined($endfilter)) { |
unless ($startfilter eq '.' || !defined($startfilter)) { |
if ((defined($end)) && ($end <= $endfilter)) { |
if ((defined($start)) && ($start >= $startfilter)) { |
$match = 0; |
$match = 0; |
|
next; |
} |
} |
} |
} |
unless (@roles < 1) { |
unless ($endfilter eq '.' || !defined($endfilter)) { |
unless (grep/^\Q$trole\E$/,@roles) { |
if ((defined($end)) && (($end > 0) && ($end <= $endfilter))) { |
$match = 0; |
$match = 0; |
|
next; |
} |
} |
} |
} |
if ($match == 1) { |
if ($match == 1) { |
Line 4885 sub enrollment_enabled_handler {
|
Line 4888 sub enrollment_enabled_handler {
|
sub validate_instcode_handler { |
sub validate_instcode_handler { |
my ($cmd, $tail, $client) = @_; |
my ($cmd, $tail, $client) = @_; |
my $userinput = "$cmd:$tail"; |
my $userinput = "$cmd:$tail"; |
my ($dom,$instcode,$owner) = split(/:/, $tail); |
my ($dom,$instcode,$owner,$inststatus,$instseclist) = split(/:/, $tail); |
my $outcome=&localenroll::validate_instcode($dom,$instcode,$owner); |
$instcode = &unescape($instcode); |
|
$owner = &unescape($owner); |
|
$inststatus = &unescape($inststatus); |
|
$instseclist = &unescape($instseclist); |
|
my $outcome=&localenroll::validate_instcode($dom,$instcode,$owner, |
|
$inststatus,$instseclist); |
&Reply($client, \$outcome, $userinput); |
&Reply($client, \$outcome, $userinput); |
|
|
return 1; |
return 1; |