#!/usr/local/bin/perl # batch_form.cgi # Display a form for doing batch creation, updates or deletion from a text file require './ldap-useradmin-lib.pl'; $access{'batch'} || &error($text{'batch_ecannot'}); &ui_print_header(undef, $text{'batch_title'}, ""); $ldap = &ldap_connect(); $schema = $ldap->schema(); $pft = $schema->attribute("shadowLastChange") ? 2 : 0; print "$text{'batch_desc'}\n"; print "

",$text{'batch_desc'.$pft},"

\n"; print "$text{'batch_descafter'}
\n"; print "$text{'batch_descafter2'}
\n"; print "$text{'batch_descafter3'}
\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 "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$text{'batch_source'} \n"; print " ", "$text{'batch_source0'}
\n"; print " ", "$text{'batch_source1'} ", &file_chooser_button("local"),"
\n"; print " ", "$text{'batch_source2'}
", "
$text{'batch_others'}",&ui_yesno_radio("others", $mconfig{'default_other'} ? 1 : 0), "
$text{'batch_batch'}",&ui_yesno_radio("batch", 1),"
$text{'batch_makehome'}",&ui_yesno_radio("makehome", 1),"
$text{'batch_copy'}",&ui_yesno_radio("copy", 1),"
$text{'batch_movehome'}",&ui_yesno_radio("movehome", 1),"
$text{'batch_chuid'}",&ui_radio("chuid", 1, [ [ 0, $text{'no'} ], [ 1, $text{'home'} ], [ 2, $text{'uedit_allfiles'} ] ]),"
$text{'batch_chgid'}",&ui_radio("chgid", 1, [ [ 0, $text{'no'} ], [ 1, $text{'home'} ], [ 2, $text{'uedit_allfiles'} ] ]),"
$text{'batch_delhome'}",&ui_yesno_radio("delhome", 1),"
$text{'batch_crypt'}",&ui_yesno_radio("crypt", 0),"
$text{'batch_samba'}",&ui_yesno_radio("samba", $config{'samba_def'} ? 1 : 0),"
\n"; &ui_print_footer("", $text{'index_return'});