version 1.317, 2006/02/07 05:08:27
|
version 1.318, 2006/02/07 16:20:39
|
Line 4349 sub photo_permission_handler {
|
Line 4349 sub photo_permission_handler {
|
my $cdom = $tail; |
my $cdom = $tail; |
my ($perm_reqd,$conditions); |
my ($perm_reqd,$conditions); |
my $outcome = &localenroll::photo_permission($cdom,\$perm_reqd, |
my $outcome = &localenroll::photo_permission($cdom,\$perm_reqd, |
\$conditions); |
\$conditions); |
&Reply($client, &escape($outcome.':'.$perm_reqd.':'. $conditions)."\n", |
&Reply($client, &escape($outcome.':'.$perm_reqd.':'. $conditions)."\n", |
$userinput); |
$userinput); |
} |
} |
®ister_handler("autophotopermission",\&photo_permission_handler,0,1,0); |
®ister_handler("autophotopermission",\&photo_permission_handler,0,1,0); |
|
|