updown/uninstall.pl

   1 # uninstall.pl
   2 # Called when webmin is uninstalled to delete and at jobs
   3
   4 require 'updown-lib.pl';
   5
   6 sub module_uninstall
   7 {
   8 if (&foreign_check("at")) {
   9         &foreign_require("at", "at-lib.pl");
  10         @ats = &at::list_atjobs();
  11         foreach $a (@ats) {
  12                 if ($a->{'realcmd'} =~ /\Q$atjob_cmd\E\s+(\d+)/) {
  13                         &at::delete_atjob($a->{'id'});
  14                         }
  15                 }
  16         }
  17 }
  18