#!/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'});