#!/usr/local/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 "
\n"; print "\n"; print "\n"; print "
$text{'user_header1'}
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; $mp = int((scalar(@mods)+2)/3); print "\n"; &create_on_input($text{'user_servers'}, 0, 1); print "
$text{'user_name'}$text{'user_group'}
$text{'user_pass'} \n"; print "
$text{'user_lang'} \n"; print "$text{'user_theme'} \n"; print "
$text{'user_ips'}\n"; print "\n"; print "\n"; print "
", "$text{'user_allips'}
\n"; print " $text{'user_allow'}
\n"; print " $text{'user_deny'}
$text{'user_mods'}
", "$text{'user_groupmods'}
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "$text{'user_sall'} \n"; print "$text{'user_snone'} \n"; print "$text{'user_sinvert'}
\n"; print "

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