Handle hostnames with upper-case letters
[webmin.git] / pam / pam_stack.so.pl
1 # display args for pam_stack
2
3 # display_args(&service, &module, &args)
4 sub display_module_args
5 {
6 print &ui_table_row($text{'stack_service'},
7     &ui_select("service", $_[2]->{'service'},
8         [ map { [ $_->{'name'},
9                   $_->{'name'}.($text{'desc_'.$_->{'name'}} ?
10                                 " (".$text{'desc_'.$_->{'name'}}.")" : "") ] }
11               &get_pam_config() ],
12         1, 0, $_[2]->{'service'} ? 1 : 0), 3);
13 }
14
15 # parse_module_args(&service, &module, &args)
16 sub parse_module_args
17 {
18 $_[2]->{'service'} = $in{'service'};
19 }