| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,mail,shell_exec,system,proc_open,popen,ini_alter,dl,proc_close,curl_exec,curl_multi_exec,readfile,parse_ini_file,escapeshellarg,escapeshellcmd,show_source,pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,mail,php_uname,phpinfo MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/cpan/ |
Upload File : |
#!/usr/bin/perl
# Uninstall a bunch of perl module groups, after asking for confirmation
require './cpan-lib.pl';
&ReadParse();
&error_setup($text{'uninstalls_err'});
@d = split(/\0/, $in{'d'});
@d || &error($text{'uninstalls_enone'});
if ($in{'upgrade'}) {
# Just redirect to the install page from CPAN
&redirect("download.cgi?missingok=1&source=3&cpan=".
&urlize(join(" ", @d)));
exit;
}
# Get the modules
@allmods = &list_perl_modules();
foreach $d (@d) {
($mod) = grep { $_->{'name'} eq $d } @allmods;
if ($mod) {
push(@mods, $mod);
}
}
if ($in{'confirm'}) {
# Go ahead and do it
foreach $mod (@mods) {
$err = &remove_module($mod);
&error(&text('uninstalls_emod', "<tt>$mod</tt>", $err))
if ($err);
}
&redirect("");
}
else {
# Ask the user if he is sure
&ui_print_header(undef, $text{'uninstalls_title'}, "");
print &ui_form_start("uninstall_mods.cgi", "post");
print "<center>\n";
foreach $d (@d) {
print &ui_hidden("d", $d),"\n";
}
$mcount = 0;
$fcount = 0;
foreach $mod (@mods) {
$mcount += scalar(@{$mod->{'mods'}})-1;
$fcount += scalar(@{$mod->{'packlist'}})+1;
}
print &text('uninstalls_rusure', scalar(@mods), $mcount, $fcount),
"<p>\n";
print "<input type=submit name=confirm ",
"value='$text{'uninstall_ok'}'></center></form>\n";
&ui_print_footer("", $text{'index_return'});
}