servers/delete_servs.cgi

   1 #!/usr/local/bin/perl
   2 # Delete serveral servers at once
   3
   4 use strict;
   5 use warnings;
   6 require './servers-lib.pl';
   7 our (%text, %access, %in);
   8 &ReadParse();
   9 &error_setup($text{'delete_err'});
  10 my @del = split(/\0/, $in{'d'});
  11 @del || &error($text{'delete_enone'});
  12 $access{'edit'} || &error($text{'delete_ecannot'});
  13 foreach my $d (@del) {
  14         &delete_server($d);
  15         }
  16 &webmin_log("deletes", undef, scalar(@del));
  17 &redirect("");
  18