mirror of
https://github.com/webmin/webmin.git
synced 2025-08-19 01:15:14 +00:00
49 lines
1.5 KiB
Perl
Executable File
49 lines
1.5 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# drop_dbase.cgi
|
|
# Drop an existing database
|
|
|
|
require './mysql-lib.pl';
|
|
&ReadParse();
|
|
&error_setup($text{'ddrop_err'});
|
|
&can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
|
|
$access{'edonly'} && &error($text{'dbase_ecannot'});
|
|
if ($in{'confirm'}) {
|
|
# Drop the database
|
|
&execute_sql_logged($master_db, "drop database "."estr($in{'db'}));
|
|
&webmin_log("delete", "db", $in{'db'});
|
|
&redirect("");
|
|
}
|
|
elsif ($in{'empty'}) {
|
|
# Delete all the tables
|
|
foreach $t (&list_tables($in{'db'})) {
|
|
&execute_sql_logged($in{'db'}, "drop table "."estr($t));
|
|
}
|
|
&webmin_log("delete", "db", $in{'db'});
|
|
&redirect("edit_dbase.cgi?db=$in{'db'}");
|
|
}
|
|
else {
|
|
# Ask the user if he is sure..
|
|
&ui_print_header(undef, $text{'ddrop_title'}, "");
|
|
@tables = &list_tables($in{'db'});
|
|
$rows = 0;
|
|
foreach $t (@tables) {
|
|
$d = &execute_sql($in{'db'}, "select count(*) from "."estr($t));
|
|
$rows += $d->{'data'}->[0]->[0];
|
|
}
|
|
|
|
print "<center><b>",&text('ddrop_rusure', "<tt>$in{'db'}</tt>",
|
|
scalar(@tables), $rows),"\n";
|
|
print $text{'ddrop_mysql'},"\n" if ($in{'db'} eq $master_db);
|
|
print "</b><p>\n";
|
|
print "<form action=drop_dbase.cgi>\n";
|
|
print "<input type=hidden name=db value='$in{'db'}'>\n";
|
|
print "<input type=submit name=confirm value='$text{'ddrop_ok'}'>\n";
|
|
print "<input type=submit name=empty value='$text{'ddrop_empty'}'>\n"
|
|
if (@tables);
|
|
print "</form></center>\n";
|
|
&ui_print_footer("edit_dbase.cgi?db=$in{'db'}", $text{'dbase_return'},
|
|
"", $text{'index_return'});
|
|
}
|
|
|
|
|