#!/usr/local/bin/perl # group_form.cgi # Display a form for adding a new webmin group to all servers require './cluster-webmin-lib.pl'; &ui_print_header(undef, $text{'user_title1'}, ""); @hosts = &list_webmin_hosts(); @mods = &all_modules(\@hosts); @wgroups = &all_groups(\@hosts); print "
\n"; print "\n"; print "\n"; print "
$text{'group_header1'}
\n"; print "\n"; print "\n"; print "\n"; print "\n"; $mp = int((scalar(@mods)+2)/3); print "\n"; &create_on_input($text{'group_servers'}, 0, 1); print "
$text{'group_name'}$text{'user_group'}
$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'});