inittab/delete.cgi

   1 #!/usr/local/bin/perl
   2 # Delete multiple inittab entries
   3
   4 require "./inittab-lib.pl";
   5 &ReadParse();
   6 &error_setup($text{'delete_err'});
   7 @d = split(/\0/, $in{'d'});
   8 @d || &error($text{'delete_enone'});
   9
  10 # Do the delete
  11 &lock_file($config{ 'inittab_file' });
  12 @inittab = &parse_inittab();
  13 foreach $d (reverse(@d)) {
  14         ($init) = grep { $_->{'id'} eq $d } @inittab;
  15         if ($init) {
  16                 &delete_inittab($init);
  17                 }
  18         }
  19 &unlock_file($config{ 'inittab_file' });
  20
  21 &webmin_log("delete", "inittabs", scalar(@d), \%in);
  22 &redirect("");
  23