#!/usr/bin/perl # user_form.cgi # Display a form for adding a new webmin user to all servers require './cluster-webmin-lib.pl'; &ui_print_header(undef, $text{'user_title1'}, ""); @hosts = &list_webmin_hosts(); @mods = &all_modules(\@hosts); @themes = &all_themes(\@hosts); @wgroups = &all_groups(\@hosts); print "<form action=create_user.cgi method=post>\n"; print "<table border width=100%>\n"; print "<tr $tb> <td><b>$text{'user_header1'}</b></td> </tr>\n"; print "<tr $cb> <td><table width=100%>\n"; print "<tr> <td><b>$text{'user_name'}</b></td>\n"; print "<td><input name=name size=15></td>\n"; print "<td><b>$text{'user_group'}</b></td>\n"; print "<td><select name=group>\n"; print "<option selected value=''>$text{'user_nogroup'}</option>\n"; foreach $g (@wgroups) { print "<option>$g->{'name'}</option>\n"; } print "</select></td> </tr>\n"; print "<tr> <td><b>$text{'user_pass'}</b></td> <td colspan=3>\n"; print "<select class='ui_select margined-bottom-1' name=pass_def>\n"; print "<option value=0 selected>$text{'user_set'} ..</option>\n"; print "<option value=3>$text{'user_unix'}</option>\n"; print "<option value=4>$text{'user_lock'}</option>\n"; print "<option value=5>$text{'user_extauth'}</option>\n"; print "</select> <input type=password name=pass size=25></td> </tr>\n"; print "<tr> <td><b>$text{'user_lang'}</b></td> <td>\n"; print "<select name=lang>\n"; print "<option value='' selected>$text{'user_default'}</option>\n"; foreach $l (&list_languages()) { printf "<option value=%s>%s</option>\n", $l->{'lang'}, $l->{'desc'}; } print "</select></td>\n"; print "<td><b>$text{'user_theme'}</b></td> <td>\n"; print "<select name=theme>\n"; print "<option value=webmin selected>$text{'user_default'}</option>\n"; foreach $t ( { 'desc' => $text{'user_themedef'} }, @themes) { printf "<option value='%s'>%s</option>\n", $t->{'dir'}, $t->{'desc'}; } print "</select></td> </tr>\n"; print "<tr> <td valign=top><b>$text{'user_ips'}</b></td>\n"; print "<td colspan=3><table><tr>\n"; print "<td nowrap><input name=ipmode type=radio value=0 checked> ", "$text{'user_allips'}<br>\n"; print "<input name=ipmode type=radio value=1> $text{'user_allow'}<br>\n"; print "<input name=ipmode type=radio value=2> $text{'user_deny'}</td>\n"; print "<td><textarea name=ips rows=4 cols=30>\n"; print " \n"; $mp = int((scalar(@mods)+2)/3); print " $text{'user_mods'}
", "$text{'user_groupmods'} \n"; print "\n"; for($i=0; $i<$mp; $i++) { print "{'dir'}>$mods[$i]->{'desc'}\n"; } print "\n"; print "\n"; for($i=$mp; $i<$mp*2; $i++) { print "{'dir'}>$mods[$i]->{'desc'}\n"; } print "\n"; print "\n"; for($i=$mp*2; $i<@mods; $i++) { print "{'dir'}>$mods[$i]->{'desc'}\n"; } print "\n"; print "
\n"; print "$text{'user_sall'}\n"; print "$text{'user_snone'}\n"; print "$text{'user_sinvert'}
\n"; print " \n"; &create_on_input($text{'user_servers'}, 0, 1, undef, 3); print "

\n"; print "\n"; &ui_print_footer("", $text{'index_return'});