run-uninstalls.pl

   1 #!/usr/local/bin/perl
   2 # run-uninstalls.pl
   3 # Run all the uninstall.pl scripts in module directories
   4
   5 $no_acl_check++;
   6 use WebminCore;
   7 &init_config();
   8
   9 if (@ARGV > 0) {
  10         @mods = map { local %minfo = &get_module_info($_); \%minfo } @ARGV;
  11         }
  12 else {
  13         @mods = &get_all_module_infos();
  14         }
  15
  16 foreach $m (@mods) {
  17         $mdir = &module_root_directory($m->{'dir'});
  18         if (&check_os_support($m) &&
  19             -r "$mdir/uninstall.pl") {
  20                 # Call this module's uninstall function
  21                 eval {
  22                         $main::error_must_die = 1;
  23                         &foreign_require($m->{'dir'}, "uninstall.pl");
  24                         &foreign_call($m->{'dir'}, "module_uninstall");
  25                         };
  26                 if ($@) {
  27                         print STDERR "$m->{'dir'}/postinstall.pl failed : $@\n";
  28                         }
  29                 }
  30         }
  31