Viewing file:  delete_domain.cgi (3.33 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# delete_domain.cgi
# Delete a domain, after asking first
require './virtual-server-lib.pl';
&require_bind() if ($config{'dns'});
&require_useradmin();
&require_mail() if ($config{'mail'});
&ReadParse();
$d = &get_domain($in{'dom'});
$d || &error($text{'edit_egone'});
$d->{'dom'} || &error("Domain $in{'dom'} is not valid!");
&can_delete_domain($d) || &error($text{'delete_ecannot'});
if ($in{'confirm'}) {
$main::force_bottom_scroll = 1;
&ui_print_unbuffered_header(&domain_in($d), $text{'delete_title'}, "");
}
else {
&ui_print_header(&domain_in($d), $text{'delete_title'}, "");
}
@users = &list_domain_users($d, 1);
@aliases = &list_domain_aliases($d, 1);
@subs = &get_domain_by("parent", $d->{'id'});
@aliasdoms = &get_domain_by("alias", $d->{'id'});
@aliasdoms = grep { $_->{'parent'} != $d->{'id'} } @aliasdoms;
if (!$in{'confirm'}) {
# Ask the user if he is sure
if ($d->{'unix'}) {
$sz = &disk_usage_kb($d->{'home'});
print &text('delete_rusure2',
"<tt>".&show_domain_name($d)."</tt>",
&nice_size($sz*1024)),"<p>\n";
}
else {
print &text('delete_rusure3',
"<tt>".&show_domain_name($d)."</tt>"),"<p>\n";
}
print "<ul>\n";
my @features_ = @features;
features_sort(\@features_, \@features_);
foreach $f (@features_) {
if ($d->{$f} && ($config{$f} || $f eq 'unix')) {
my $msg = $d->{'parent'} ? $text{"sublosing_$f"}
: undef;
$msg ||= $text{"losing_$f"};
print "<li>",$text{'feature_'.$f}," - ",$msg,"<br>\n";
}
}
my @list_feature_plugins = &list_feature_plugins();
features_sort(\@list_feature_plugins, \@list_feature_plugins);
foreach $f (@list_feature_plugins) {
if ($d->{$f}) {
print "<li>",&plugin_call($f, "feature_name")," - ",
&plugin_call($f, "feature_losing"),"<br>\n";
}
}
if (@users && @aliases) {
print "<li>",&text('delete_mailboxes',
scalar(@users), scalar(@aliases)),"<br>\n";
}
elsif (@users) {
print "<li>",&text('delete_mailboxes2',
scalar(@users)),"<br>\n";
}
elsif (@aliases) {
print "<li>",&text('delete_mailboxes3',
scalar(@aliases)),"<br>\n";
}
print "</ul>\n";
if (@subs) {
print "<p><font size=+1>",&text('delete_subs',
join(", ", map { "<tt>".&show_domain_name($_)."</tt>" }
@subs)),
"</font><p>\n";
}
if (@aliasdoms) {
print "<p><font size=+1>",&text('delete_aliasdoms',
join(", ", map { "<tt>".&show_domain_name($_)."</tt>" }
@aliasdoms)),
"</font><p>\n";
}
# Show the OK button
print "<center>\n";
print &ui_form_start("delete_domain.cgi");
print &ui_hidden("dom", $in{'dom'});
@rfeatures = &list_remote_domain_features($d);
if (&can_import_servers() && @rfeatures) {
$rnames = join(", ", map { $text{'feature_'.$_} } @rfeatures);
print &ui_checkbox("preserve", 1,
&text('delete_preserve', $rnames), 0),"<br>\n";
}
print &ui_form_end([ [ "confirm", $text{'delete_ok'} ] ]);
print "</center>\n";
&ui_print_footer(&domain_footer_link($d),
"", $text{'index_return'});
}
else {
# Go ahead and delete this domain and all sub-domains ..
$err = &delete_virtual_server($d, 0, 0, $in{'preserve'});
&error($err) if ($err);
# Call any theme post command
if (defined(&theme_post_save_domain)) {
&theme_post_save_domain(undef, 'delete');
}
&run_post_actions();
&webmin_log("delete", "domain", $d->{'dom'}, $d);
&ui_print_footer("", $text{'index_return'});
}
|