| Server IP : 182.53.201.61 / Your IP : 216.73.217.175 Web Server : Apache/2.2.15 (Fedora) System : Linux km10.dyndns.org 2.6.31.5-127.fc12.i686.PAE #1 SMP Sat Nov 7 21:25:57 EST 2009 i686 User : apache ( 48) PHP Version : 5.3.3 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/13386/root/usr/libexec/webmin/ |
Upload File : |
#!/usr/bin/perl
# run-uninstalls.pl
# Run all the uninstall.pl scripts in module directories
$no_acl_check++;
use WebminCore;
&init_config();
if (@ARGV > 0) {
@mods = map { local %minfo = &get_module_info($_); \%minfo } @ARGV;
}
else {
@mods = &get_all_module_infos();
}
foreach $m (@mods) {
$mdir = &module_root_directory($m->{'dir'});
if (&check_os_support($m) &&
-r "$mdir/uninstall.pl") {
# Call this module's uninstall function
eval {
$main::error_must_die = 1;
&foreign_require($m->{'dir'}, "uninstall.pl");
&foreign_call($m->{'dir'}, "module_uninstall");
};
if ($@) {
print STDERR "$m->{'dir'}/postinstall.pl failed : $@\n";
}
}
}