mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
20 lines
491 B
Perl
Executable File
20 lines
491 B
Perl
Executable File
# display args for pam_stack
|
|
|
|
# display_args(&service, &module, &args)
|
|
sub display_module_args
|
|
{
|
|
print &ui_table_row($text{'stack_service'},
|
|
&ui_select("service", $_[2]->{'service'},
|
|
[ map { [ $_->{'name'},
|
|
$_->{'name'}.($text{'desc_'.$_->{'name'}} ?
|
|
" (".$text{'desc_'.$_->{'name'}}.")" : "") ] }
|
|
&get_pam_config() ],
|
|
1, 0, $_[2]->{'service'} ? 1 : 0), 3);
|
|
}
|
|
|
|
# parse_module_args(&service, &module, &args)
|
|
sub parse_module_args
|
|
{
|
|
$_[2]->{'service'} = $in{'service'};
|
|
}
|