#!/usr/local/bin/perl # delete_mod.cgi # Delete selected modules from webmin, after asking first require './webmin-lib.pl'; &ReadParse(); &error_setup($text{'delete_err'}); @mods = split(/\0/, $in{'mod'}); @mods || &error($text{'delete_enone'}); # check if any other module depends on those to be deleted foreach $minfo (&get_all_module_infos()) { if (&check_os_support($minfo) && &indexof($minfo->{'dir'}, @mods) < 0) { foreach $d (split(/\s+/, $minfo->{'depends'})) { if (&indexof($minfo->{'dir'}, @mods) < 0) { $depends{$d} = $minfo->{'desc'}; } } } } foreach $m (@mods) { %minfo = &get_module_info($m); %minfo = &get_theme_info($m) if (!%minfo); if (!$in{'nodeps'} && !-l &module_root_directory($m) && $depends{$m}) { &error(&text('delete_edep', "$minfo{'desc'}", "$depends{$m}")); } } # ask the user if he is sure if (!$in{'confirm'}) { &ui_print_header(undef, $text{'delete_title'}, ""); print "
\n"; &ui_print_footer("", $text{'index_return'}); exit; } # delete the selected modules or themes foreach $m (split(/\0/, $in{'mod'})) { next if (!$m || !-d &module_root_directory($m)); push(@mdesc, &delete_webmin_module($m, $in{'acls'})); } &flush_webmin_caches(); &ui_print_header(undef, $text{'delete_title'}, ""); print $text{'delete_msg'},"\n"; print "
\n"; } print "
\n"; if (defined(&theme_post_change_modules)) { &theme_post_change_modules(); } &ui_print_footer("", $text{'index_return'});