Add confirmation before mass server deletion http://virtualmin.com/node/32221

servers/delete_servs.cgi

@@ -7,12 +7,30 @@ require './servers-lib.pl';
 our (%text, %access, %in);
 &ReadParse();
 &error_setup($text{'delete_err'});
+
+# Validate inputs
 my @del = split(/\0/, $in{'d'});
 @del || &error($text{'delete_enone'});
 $access{'edit'} || &error($text{'delete_ecannot'});
-foreach my $d (@del) {
-	&delete_server($d);
-	}
-&webmin_log("deletes", undef, scalar(@del));
-&redirect("");
 
+if ($in{'confirm'}) {
+	# Go ahead and delete
+	foreach my $d (@del) {
+		&delete_server($d);
+		}
+	&webmin_log("deletes", undef, scalar(@del));
+	&redirect("");
+	}
+else {
+	# Ask first
+	&ui_print_header(undef, $text{'delete_title'}, "");
+
+	print &ui_confirmation_form(
+		"delete_servs.cgi",
+		&text('delete_rusure', scalar(@del)),
+		[ map { [ "d", $_ ] } @del ],
+		[ [ 'confirm', $text{'delete_confirm'} ] ],
+		);
+
+	&ui_print_footer("", $text{'index_return'});
+	}

servers/lang/en

@@ -118,6 +118,9 @@ this_server=this server
 delete_err=Failed to delete servers
 delete_enone=None selected
 delete_ecannot=You are not allowed to delete servers
+delete_title=Delete Servers
+delete_rusure=Are you sure you want to remove the $1 selected servers?
+delete_confirm=Delete Now
 
 auto_title=Automatically Find Servers
 auto_header=Automatic server registration options