mirror of
https://github.com/webmin/webmin.git
synced 2026-02-14 02:42:07 +00:00
28 lines
714 B
Perl
28 lines
714 B
Perl
# display args for pam_stack
|
|
|
|
# display_args(&service, &module, &args)
|
|
sub display_module_args
|
|
{
|
|
print "<tr> <td><b>$text{'stack_service'}</b></td>\n";
|
|
print "<td><select name=service>\n";
|
|
local $found;
|
|
foreach $c (&get_pam_config()) {
|
|
printf "<option value=%s %s>%s\n",
|
|
$c->{'name'},
|
|
$_[2]->{'service'} eq $c->{'name'} ? 'selected' : '',
|
|
$text{"desc_".$c->{'name'}} ? $text{"desc_".$c->{'name'}}
|
|
: $c->{'name'};
|
|
$found++ if ($_[2]->{'service'} eq $c->{'name'});
|
|
}
|
|
if ($_[2]->{'service'} && !$found) {
|
|
print "<option checked>$_[2]->{'service'}\n";
|
|
}
|
|
print "</select></td> </tr>\n";
|
|
}
|
|
|
|
# parse_module_args(&service, &module, &args)
|
|
sub parse_module_args
|
|
{
|
|
$_[2]->{'service'} = $in{'service'};
|
|
}
|