1#!/usr/local/bin/perl 2# Show a form for creating a new base DN for something 3 4require './ldap-server-lib.pl'; 5&ui_print_header(undef, $text{'create_title'}, ""); 6$access{'create'} || &error($text{'create_ecannot'}); 7 8print $text{'create_desc'},"<p>\n"; 9print &ui_form_start("create.cgi", "post"); 10print &ui_table_start($text{'create_header'}, undef, 2); 11 12# Domain or DN 13$dn = &get_ldap_base(); 14$dom = &get_system_hostname(); 15if ($dom =~ /^([^\.]+)\.([^\.]+\.\S+)$/) { 16 $dom = $2; # Just domain name 17 } 18print &ui_table_row($text{'create_dn'}, 19 &ui_radio_table("mode", 0, 20 [ [ 0, $text{'create_dn0'}, &ui_textbox("domain", $dom, 50) ], 21 [ 1, $text{'create_dn1'}, &ui_textbox("dn", $dn, 50) ] ])); 22 23# Example to create 24print &ui_table_row($text{'create_example'}, 25 &ui_radio("example", 0, 26 [ [ 0, $text{'no'} ], 27 [ 1, $text{'create_unix'} ], 28 [ 2, $text{'create_mail'} ], 29 [ 4, $text{'create_group'} ], 30 [ 3, $text{'create_virt'} ] ])); 31 32print &ui_table_end(); 33print &ui_form_end([ [ undef, $text{'create'} ] ]); 34 35&ui_print_footer("", $text{'index_return'}); 36 37 38