| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/11584/root/usr/share/webmin/mysql/ |
Upload File : |
#!/usr/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 (&compare_version_numbers($mysql_version, "4.1") >= 0) {
# Character set option
@charsets = &list_character_sets();
%csmap = map { $_->[0], $_->[1] } @charsets;
print &ui_table_row($text{'newdb_charset'},
&ui_select("charset", undef,
[ [ undef, "<$text{'default'}>" ],
map { [ $_->[0], $_->[0]." (".$_->[1].")" ] }
@charsets ]));
}
@coll = &list_collation_orders();
if (@coll) {
# Collation order option
print &ui_table_row($text{'newdb_collation'},
&ui_select("collation", undef,
[ [ undef, "<$text{'default'}>" ],
map { [ $_->[0], $_->[0]." (".$csmap{$_->[1]}.")" ] }
&list_collation_orders() ]));
}
# 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'}."...");
print &ui_table_row(undef, &show_table_form(4), 2);
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'create'} ] ]);
&ui_print_footer("", $text{'index_return'});