status/delete_tmpls.cgi

   1 #!/usr/local/bin/perl
   2 # Delete several templates
   3
   4 require './status-lib.pl';
   5 $access{'edit'} || &error($text{'tmpls_ecannot'});
   6
   7 # Validate inputs
   8 &error_setup($text{'dtmpls_err'});
   9 &ReadParse();
  10 @d = split(/\0/, $in{'d'});
  11 @d || &error($text{'dtmpls_enone'});
  12
  13 # Check for users
  14 @servs = &list_services();
  15 foreach $d (@d) {
  16         @users = grep { $_->{'tmpl'} eq $d } @servs;
  17         if (@users) {
  18                 $tmpl = &get_template($d);
  19                 &error(&text('dtmpls_eusers', "<i>$tmpl->{'desc'}</i>",
  20                         join(", ", map { "<i>$_->{'desc'}</i>" } @users)));
  21                 }
  22         }
  23
  24 # Waste them
  25 foreach $d (@d) {
  26         $tmpl = &get_template($d);
  27         if ($tmpl) {
  28                 &delete_template($tmpl);
  29                 }
  30         }
  31
  32 &webmin_log("deletes", "tmpl", scalar(@d));
  33 &redirect("list_tmpls.cgi");
  34