Private

Server IP : 195.201.23.43 / Your IP : 18.188.46.93
Web Server : Apache
System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64
User : kdecoratie ( 1041)
PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1
Disable Function : 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,
MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON
Directory : /usr/share/webmin/cpan/

Upload File :

[ HOME SHELL ]

Current File : /usr/share/webmin/cpan//uninstall_mods.cgi

#!/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'});
	}

Private