Viewing file:  mass_form.cgi (2.06 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Show a form for changing settings in multiple users at once
require './virtual-server-lib.pl';
&ReadParse();
&error_setup($text{'mass_err'});
$d = &get_domain($in{'dom'});
&can_edit_domain($d) || &error($text{'users_ecannot'});
&can_edit_users() || &error($text{'users_ecannot'});
@mass = split(/\0/, $in{'d'});
@mass || &error($text{'mass_enone'});
&ui_print_header(&domain_in($d), $text{'mass_title'}, "");
print &text('mass_desc', scalar(@mass)),"<p>\n";
print &ui_form_start("mass_change.cgi", "post");
foreach $d (@mass) {
print &ui_hidden("d", $d),"\n";
}
print &ui_hidden("dom", $in{'dom'}),"\n";
print &ui_table_start($text{'mass_header'}, undef, 2);
# Inputs for quotas
@qtypes = ( );
push(@qtypes, "quota") if (&has_home_quotas());
push(@qtypes, "mquota") if (&has_mail_quotas());
push(@qtypes, "qquota") if (&has_server_quotas());
foreach $quota (@qtypes) {
print &ui_table_row($text{'mass_'.$quota},
&opt_quota_input($quota, "none",
$quota eq "quota" ? "home" :
$quota eq "mquota" ? "mail" : "none",
$text{'mass_leave'}, $text{'mass_set'}));
}
# Primary email address
if ($d->{'mail'}) {
print &ui_table_row($text{'mass_email'},
&ui_radio('email', 0,
[ [ 0, $text{'mass_leave'} ],
[ 1, $text{'mass_enable'} ],
[ 2, $text{'mass_disable'} ] ]));
}
# FTP login
if (&can_mailbox_ftp()) {
print &ui_table_row($text{'mass_shell'},
&ui_radio('shell_def', 1,
[ [ 1, $text{'mass_leave'} ],
[ 0, $text{'mass_set'} ] ])." ".
&available_shells_menu("shell", undef, "mailbox"));
}
# Disable or enable
print &ui_table_row($text{'mass_tempdisable'},
&ui_radio('disable', 0,
[ [ 0, $text{'mass_leave'} ],
[ 1, $text{'mass_tempdisable1'} ],
[ 2, $text{'mass_tempdisable2'} ] ]));
# Email on change?
print &ui_table_hr();
print &ui_table_row($text{'mass_updateemail'},
&ui_yesno_radio('updateemail', 0));
print &ui_table_end();
print &ui_form_end([ [ "mass", $text{'mass_ok'} ] ]);
&ui_print_footer("list_users.cgi?dom=$in{'dom'}", $text{'users_return'},
"", $text{'index_return2'});
|