PAL.C.T MINI SHELL
#!/usr/bin/perl
# Enable, disable or delete a bunch of accounts
require './virtualmin-registrar-lib.pl';
$access{'registrar'} || &error($text{'edit_ecannot'});
&ReadParse();
# Get the accountS
%d = map { $_, 1 } split(/\0/, $in{'d'});
@delaccounts = grep { $d{$_->{'id'}} } &list_registrar_accounts();
if ($in{'disable'}) {
# Disable selected
&error_setup($text{'delete_err1'});
@delaccounts || &error($text{'delete_enone'});
foreach $a (@delaccounts) {
$a->{'enabled'} = 0;
&save_registrar_account($a);
}
&webmin_log("disable", undef, scalar(@delaccounts));
&redirect("");
}
elsif ($in{'enable'}) {
# Enable selected
&error_setup($text{'delete_err2'});
@delaccounts || &error($text{'delete_enone'});
foreach $a (@delaccounts) {
$a->{'enabled'} = 1;
&save_registrar_account($a);
}
&webmin_log("enable", undef, scalar(@delaccounts));
&redirect("");
}
elsif ($in{'delete'}) {
# Delete selected, if not used and if the user confirms
&error_setup($text{'delete_err3'});
@delaccounts || &error($text{'delete_enone'});
foreach $a (@delaccounts) {
@doms = &find_account_domains($a);
if (@doms) {
&error(&text('delete_edoms', "<i>$a->{'desc'}</i>",
join(" ", map { "<tt>$_->{'dom'}</tt>" } @doms)));
}
}
if ($in{'confirm'}) {
# Do it
foreach $a (@delaccounts) {
&delete_registrar_account($a);
}
&webmin_log("delete", undef, scalar(@delaccounts));
&redirect("");
}
else {
# Ask first
&ui_print_header(undef, $text{'delete_title'}, "");
print &ui_form_start("delete.cgi", "post");
foreach $a (@delaccounts) {
print &ui_hidden("d", $a->{'id'});
}
print &ui_hidden("delete", 1);
print "<center>",
&text('delete_rusure', scalar(@delaccounts)),"<p>\n",
&ui_submit($text{'delete_ok'}, 'confirm'),
"</center>\n";
print &ui_form_end();
&ui_print_footer("", $text{'index_return'});
}
}
else {
&error("No button clicked!");
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`