mirror of
https://github.com/webmin/webmin.git
synced 2026-02-09 08:42:20 +00:00
37 lines
1.0 KiB
Perl
Executable File
37 lines
1.0 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# newdb_form.cgi
|
|
# Display a form for creating a new database
|
|
|
|
require './mysql-lib.pl';
|
|
$access{'create'} || &error($text{'newdb_ecannot'});
|
|
&ui_print_header(undef, $text{'newdb_title'}, "", "newdb_form");
|
|
|
|
print &ui_form_start("newdb.cgi", "post");
|
|
print &ui_table_start($text{'newdb_header'}, undef, 2);
|
|
|
|
# DB name
|
|
print &ui_table_row($text{'newdb_db'},
|
|
&ui_textbox("db", undef, 20));
|
|
|
|
if ($mysql_version >= 4.1) {
|
|
# Character set option
|
|
print &ui_table_row($text{'newdb_charset'},
|
|
&ui_select("charset", undef,
|
|
[ [ undef, "<$text{'default'}>" ],
|
|
&list_character_sets() ]));
|
|
}
|
|
|
|
# Initial table name
|
|
print &ui_table_row($text{'newdb_table'},
|
|
&ui_radio("table_def", 1, [ [ 1, $text{'newdb_none'} ],
|
|
[ 0, $text{'newdb_tname'} ] ])." ".
|
|
&ui_textbox("table", undef, 20)." ".$text{'newdb_str'}."...");
|
|
$out = &capture_function_output(\&show_table_form, 4);
|
|
print &ui_table_row(undef, $out, 2);
|
|
|
|
print &ui_table_end();
|
|
print &ui_form_end([ [ undef, $text{'create'} ] ]);
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|