#!/usr/local/bin/perl # sync_form.cgi # Display a form for creating some or all missing users and groups on # some or all servers require './cluster-useradmin-lib.pl'; &ui_print_header(undef, $text{'sync_title'}, ""); print "$text{'sync_desc'}

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$text{'sync_hosts'} \n"; &create_on_input(undef, 1, 1); print "
$text{'sync_users'} \n"; print " ", "$text{'sync_uall'}  \n"; print " ", "$text{'sync_unone'}
\n"; print " ", "$text{'sync_usel'}\n"; print " ",&user_chooser_button("usel", 1),"
\n"; print " ", "$text{'sync_unot'}\n"; print " ",&user_chooser_button("unot", 1),"
\n"; print " ", "$text{'sync_uuid'}\n"; print " -
\n"; print " ", "$text{'sync_ugid'}\n"; print &unix_group_input("ugid"),"
\n"; print "
$text{'sync_groups'} \n"; print " ", "$text{'sync_gall'}  \n"; print " ", "$text{'sync_gnone'}
\n"; print " ", "$text{'sync_gsel'}\n"; print " ",&group_chooser_button("gsel", 1),"
\n"; print " ", "$text{'sync_gnot'}\n"; print " ",&group_chooser_button("gnot", 1),"
\n"; print " ", "$text{'sync_ggid'}\n"; print " -
\n"; print "
$text{'sync_test'} $text{'yes'}\n"; print " $text{'no'}
$text{'sync_makehome'} $text{'yes'}\n"; print " $text{'no'}
$text{'sync_copy'} $text{'yes'}\n"; print " $text{'no'}
$text{'sync_others'} $text{'yes'}\n"; print " $text{'no'}
\n"; print "
\n"; &ui_print_footer("", $text{'index_return'});