Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
newfeatures	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
CHANGELOG	406 B	-rw-r--r--	2026-07-17 21:17
config	31 B	-rw-r--r--	2026-07-17 21:17
config.info	313 B	-rw-r--r--	2026-07-17 21:17
config.info.ar	253 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	172 B	-rw-r--r--	2026-07-17 21:17
config.info.de	182 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.it	191 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	98 B	-rw-r--r--	2026-07-17 21:17
config.info.no	93 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	111 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	186 B	-rw-r--r--	2026-07-17 21:17
create_repo.cgi	332 B	-rwxr-xr-x	2026-07-17 21:22
index.cgi	8.55 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	372 B	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	815 B	-rw-r--r--	2026-07-17 21:17
module.info	285 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	173 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	236 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	157 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	0 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	150 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.de	122 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	232 B	-rw-r--r--	2026-07-17 21:17
module.info.es	0 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	160 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	140 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	230 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	148 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	167 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	135 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	38 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	94 B	-rw-r--r--	2026-07-17 21:17
module.info.it	159 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	193 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	171 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	146 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	34 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	82 B	-rw-r--r--	2026-07-17 21:17
module.info.no	38 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	97 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	157 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	151 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	157 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	224 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	151 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	139 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	146 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	207 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	103 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	109 B	-rw-r--r--	2026-07-17 21:17
package-updates-lib.pl	21.13 KB	-rw-r--r--	2026-07-17 21:17
save_repos.cgi	1.55 KB	-rwxr-xr-x	2026-07-17 21:22
save_sched.cgi	1.71 KB	-rwxr-xr-x	2026-07-17 21:22
save_view.cgi	386 B	-rwxr-xr-x	2026-07-17 21:22
update.cgi	5.28 KB	-rwxr-xr-x	2026-07-17 21:22
update.pl	4.37 KB	-rwxr-xr-x	2026-07-17 21:22
view.cgi	2.38 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# Update selected packages

require './package-updates-lib.pl';
&ReadParse();
if ($in{'redir'}) {
	$redir = $in{'redir'};
	$redirdesc = $in{'redirdesc'};
	}
elsif ($in{'redirdesc'}) {
	$redir = $ENV{'HTTP_REFERER'};
	$redirdesc = $in{'redirdesc'};
	}
else {
	$redir = "index.cgi?mode=".&urlize($in{'mode'}).
		 "&search=".&urlize($in{'search'});
	$redirdesc = $text{'index_return'};
	$redir = $redir =~ /tab=/ ? $redir :
		$redir =~ /\?/ ? "$redir&tab=pkgs" : "$redir?tab=pkgs";
	}

if ($in{'refresh'} || $in{'refresh_top'}) {
	&ui_print_unbuffered_header(undef, $text{'refresh_title'}, "");

# Clear all caches
	print $text{'refresh_clearing'}," \n";
	&flush_package_caches();
	&clear_repository_cache();
	print $text{'refresh_done'},"\n";

# Force re-fetch
	print $text{'refresh_available'}," \n";
	@avail = &list_possible_updates();
	print &text('refresh_done3', scalar(@avail)),"\n";

&webmin_log("refresh");
	&ui_print_footer($redir, $redirdesc);
	}
else {
	# Upgrade some packages
	my @pkgs = split(/\0/, $in{'u'});
	@pkgs || &error($text{'update_enone'});
	&ui_print_unbuffered_header(undef,
	    $in{'mode'} eq 'new' ? $text{'update_title2'} : $text{'update_title'}, "");

# Save this CGI from being killed by a webmin or apache upgrade
	$SIG{'TERM'} = 'IGNORE';
	$SIG{'PIPE'} = 'IGNORE';

# Work out what will be done, if possible
	@ops = ( );
	if (!$in{'confirm'}) {
		print $text{'update_ops'},"\n";
		@pkgnames = ( );
		foreach my $ps (@pkgs) {
			($p, $s) = split(/\//, $ps);
			push(@pkgnames, $p);
			}
		@ops = &list_package_operations(join(" ", @pkgnames), $s);
		}

if (@ops) {
		# Ask first
		my $getconfform = sub {
			my ($bottom) = @_;
			my $bottom_sel;
			$bottom_sel = 'data-outside-of-viewport'
				if ($bottom);
			my $confform = &ui_form_start("update.cgi", "post", undef, $bottom_sel);
			$confform .= &ui_hidden("mode", $in{'mode'});
			$confform .= &ui_hidden("search", $in{'search'});
			$confform .= &ui_hidden("redir", $in{'redir'});
			$confform .= &ui_hidden("redirdesc", $in{'redirdesc'});
			foreach $ps (@pkgs) {
				$confform .= &ui_hidden("u", $ps);
				}
			$confform .= &text('update_rusure', scalar(@ops)),"\n"
				if (!$bottom);
			$confform .= &ui_form_end([ [ "confirm", $text{'update_confirm'} ] ]);
			};
		print &$getconfform();

# Show table of all depends
		@current = &list_current(1);
		print &ui_columns_start([ $text{'index_name'},
					 $text{'update_oldver'},
					 $text{'update_newver'},
					 $text{'index_desc'},
					], 100);
		foreach $p (@ops) {
			($c) = grep { $_->{'name'} eq $p->{'name'} &&
				 $_->{'system'} eq $p->{'system'} } @current;
			if (!$c && !@avail) {
				# Only get available if needed
				@avail = &list_available(0);
				}
			($a) = grep { $_->{'name'} eq $p->{'name'} &&
				 $_->{'system'} eq $p->{'system'} } @avail;
			print &ui_columns_row([
				$p->{'name'},
				$c ? $c->{'version'}
				 : "$text{'update_none'}",
				$p->{'version'},
				$c ? $c->{'desc'} :
				 $a ? $a->{'desc'} : '',
				]);
			}
		print &ui_columns_end();
		print &$getconfform(1), &ui_hide_outside_of_viewport();
		}
	else {
		# Check if a reboot was required before
		$reboot_before = &check_reboot_required();

# Do it
		$msg = $in{'mode'} eq 'new' ? 'update_pkg2' : 'update_pkg';
		&start_update_progress([ map { (split(/\//, $_))[0] } @pkgs ]);
		if ($config{'update_multiple'} && @pkgs > 1) {
			# Update all packages at once
			@pkgnames = ( );
			foreach my $ps (@pkgs) {
 ($p, $s) = split(/\//, $ps);
				push(@pkgnames, $p);
				$pkgsystem ||= $s;
				}
			print &text($msg, "<tt>".&html_escape(join(" ", @pkgnames))."</tt>"),
			 " \n";
			print "<ul data-package-updates='1'>\n";
			@got = &package_install_multiple(
				\@pkgnames, $pkgsystem, $in{'mode'} eq 'new', $in{'flags'});
			print "</ul> \n";
			}
		else {
			# Do them one by one in a loop
			foreach my $ps (@pkgs) {
				($p, $s) = split(/\//, $ps);
				next if ($donedep{$p});
				print &text($msg, "<tt>@{[&html_escape($p)]}</tt>")," \n";
				print "<ul data-package-updates='2'>\n";
				@pgot = &package_install(
					$p, $s, $in{'mode'} eq 'new', $in{'flags'});
				foreach $g (@pgot) {
					$donedep{$g}++;
					}
				push(@got, @pgot);
				print "</ul> \n";
				}
			}
		if (@got) {
			print &text('update_ok', scalar(@got)),"\n";
			}
		else {
			print $text{'update_failed'},"\n";
			}
		&end_update_progress(\@pkgs);

# Refresh collected package info
		print $text{'refresh_available'}," \n";
		if (&foreign_check("system-status")) {
			&foreign_require("system-status");
			&system_status::refresh_possible_packages(\@got);
			}

# Refresh collected package info
		if (&foreign_check("virtual-server") && @got) {
			&foreign_require("virtual-server");
			&virtual_server::refresh_possible_packages(\@got);
			}
		print $text{'refresh_done'},"\n";
		# Check if a reboot is required now
		if (!$reboot_before && &check_reboot_required() &&
		 &foreign_check("init")) {
			print &ui_form_start(
				"@{[&get_webprefix()]}/init/reboot.cgi");
			print &ui_hidden("confirm", 1);
			print "",$text{'update_rebootdesc'},"\n";
			print &ui_form_end(
				[ [ undef, $text{'update_reboot'} ] ]);
			}

&webmin_log("update", "packages", scalar(@got),
			    { 'got' => \@got });
		}

&ui_print_footer($redir, $redirdesc);
	}