PAL.C.T MINI SHELL
#!/usr/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'}<p>\n";
print &ui_form_start("sync.cgi", "post");
print &ui_table_start($text{'sync_hosts'}, undef, 2);
# Hosts to sync
print &ui_table_row($text{'sync_hosts'},
&create_on_input(1, 1));
# Users to sync
print &ui_table_row($text{'sync_users'},
&ui_radio_table("users_mode", 0,
[ [ 1, $text{'sync_uall'} ],
[ 0, $text{'sync_unone'} ],
[ 2, $text{'sync_usel'}, &ui_users_textbox("usel") ],
[ 3, $text{'sync_unot'}, &ui_users_textbox("unot") ],
[ 4, $text{'sync_uuid'}, &ui_textbox("uuid1", "", 6)." - ".
&ui_textbox("uuid2", "", 6) ],
[ 5, $text{'sync_ugid'}, &ui_group_textbox("ugid") ],
]));
# Groups to sync
print &ui_table_row($text{'sync_groups'},
&ui_radio_table("groups_mode", 0,
[ [ 1, $text{'sync_gall'} ],
[ 0, $text{'sync_gnone'} ],
[ 2, $text{'sync_gsel'}, &ui_groups_textbox("gsel") ],
[ 3, $text{'sync_gnot'}, &ui_groups_textbox("gnot") ],
[ 4, $text{'sync_ggid'}, &ui_textbox("ggid1", "", 6)." - ".
&ui_textbox("ggid2", "", 6) ],
]));
# Test mode?
print &ui_table_row($text{'sync_test'},
&ui_yesno_radio("test", 0));
# Create home dir?
print &ui_table_row($text{'sync_makehome'},
&ui_yesno_radio("makehome", 1));
# Copy home dir files?
print &ui_table_row($text{'sync_copy'},
&ui_yesno_radio("copy_files", 1));
# Create in other modules?
print &ui_table_row($text{'sync_others'},
&ui_yesno_radio("others", 1));
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'sync_ok'} ] ]);
&ui_print_footer("", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`