Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	3.03 KB	-rw-r--r--	2026-07-17 21:17
aix-lib.pl	19.56 KB	-rwxr-xr-x	2026-07-17 21:17
apk-lib.pl	8.52 KB	-rw-r--r--	2026-07-17 21:17
apt-lib.pl	16.07 KB	-rwxr-xr-x	2026-07-17 21:17
apt_upgrade.cgi	1.99 KB	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	524 B	-rwxr-xr-x	2026-07-17 21:17
close.cgi	263 B	-rwxr-xr-x	2026-07-17 21:22
config-aix	30 B	-rw-r--r--	2026-07-17 21:17
config-alpine-linux	37 B	-rw-r--r--	2026-07-17 21:17
config-cobalt-linux	30 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	30 B	-rw-r--r--	2026-07-17 21:17
config-corel-linux	33 B	-rw-r--r--	2026-07-17 21:17
config-cygwin	33 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	51 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	54 B	-rw-r--r--	2026-07-17 21:17
config-freebsd-8.4-ALL	52 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	33 B	-rw-r--r--	2026-07-17 21:17
config-hpux	31 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	30 B	-rw-r--r--	2026-07-17 21:17
config-msc-linux	30 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	34 B	-rw-r--r--	2026-07-17 21:17
config-open-linux	30 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	30 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	34 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	48 B	-rw-r--r--	2026-07-17 21:17
config-openserver	33 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	48 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux	36 B	-rw-r--r--	2026-07-17 21:17
config-solaris	33 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	30 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	50 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	30 B	-rw-r--r--	2026-07-17 21:17
config-turbo-linux	30 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	30 B	-rw-r--r--	2026-07-17 21:17
config-unixware	33 B	-rw-r--r--	2026-07-17 21:17
config-windows	30 B	-rw-r--r--	2026-07-17 21:17
config.info	541 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	554 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	372 B	-rw-r--r--	2026-07-17 21:17
config.info.de	523 B	-rw-r--r--	2026-07-17 21:17
config.info.es	320 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	135 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	428 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	409 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	411 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	415 B	-rw-r--r--	2026-07-17 21:17
config.info.no	424 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	392 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	175 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	224 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	123 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	174 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	122 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	125 B	-rw-r--r--	2026-07-17 21:17
csw-lib.pl	2.66 KB	-rwxr-xr-x	2026-07-17 21:17
cygwin-lib.pl	22.64 KB	-rwxr-xr-x	2026-07-17 21:17
debian-lib.pl	9.23 KB	-rwxr-xr-x	2026-07-17 21:17
delete_file.cgi	340 B	-rwxr-xr-x	2026-07-17 21:22
delete_pack.cgi	1.71 KB	-rwxr-xr-x	2026-07-17 21:22
delete_packs.cgi	1.82 KB	-rwxr-xr-x	2026-07-17 21:22
do_install.cgi	2.67 KB	-rwxr-xr-x	2026-07-17 21:22
edit_pack.cgi	1.13 KB	-rwxr-xr-x	2026-07-17 21:22
emerge-lib.pl	7.83 KB	-rwxr-xr-x	2026-07-17 21:17
file_info.cgi	2.09 KB	-rwxr-xr-x	2026-07-17 21:22
find.cgi	1.63 KB	-rwxr-xr-x	2026-07-17 21:22
freebsd-lib.pl	8.26 KB	-rwxr-xr-x	2026-07-17 21:17
hpux-lib.pl	8.42 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	3.3 KB	-rwxr-xr-x	2026-07-17 21:22
install_pack.cgi	4.8 KB	-rwxr-xr-x	2026-07-17 21:22
ipkg-close.cgi	269 B	-rwxr-xr-x	2026-07-17 21:22
ipkg-edit_pack.cgi	1.45 KB	-rwxr-xr-x	2026-07-17 21:22
ipkg-lib.pl	8.04 KB	-rwxr-xr-x	2026-07-17 21:17
ipkg-open.cgi	243 B	-rwxr-xr-x	2026-07-17 21:22
ipkg-tree.cgi	4 KB	-rwxr-xr-x	2026-07-17 21:22
ipkg_upgrade.cgi	937 B	-rwxr-xr-x	2026-07-17 21:22
list_pack.cgi	1.73 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	1.34 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	497 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	170 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	214 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	116 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	21 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	30 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	114 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	124 B	-rw-r--r--	2026-07-17 21:17
module.info.de	106 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	21 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	220 B	-rw-r--r--	2026-07-17 21:17
module.info.es	29 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	106 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	129 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	215 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	130 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	29 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	117 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	138 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	108 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	134 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	43 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	157 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	34 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	128 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	104 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	18 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	27 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	104 B	-rw-r--r--	2026-07-17 21:17
module.info.no	26 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	107 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	121 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	21 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	28 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	102 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	139 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	30 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	205 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	145 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	21 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	100 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	28 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	107 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	202 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	18 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	91 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	24 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	97 B	-rw-r--r--	2026-07-17 21:17
msi-lib.pl	8.63 KB	-rwxr-xr-x	2026-07-17 21:17
open.cgi	238 B	-rwxr-xr-x	2026-07-17 21:22
openbsd-lib.pl	4.98 KB	-rwxr-xr-x	2026-07-17 21:17
pkg-lib.pl	2.49 KB	-rw-r--r--	2026-07-17 21:17
pkgadd-lib.pl	10.26 KB	-rwxr-xr-x	2026-07-17 21:17
pkgadd-no-ask	164 B	-rw-r--r--	2026-07-17 21:17
pkgsrc-lib.pl	7.41 KB	-rw-r--r--	2026-07-17 21:17
ports-lib.pl	3.46 KB	-rw-r--r--	2026-07-17 21:17
ports_upgrade.cgi	512 B	-rwxr-xr-x	2026-07-17 21:22
rhn-lib.pl	3.01 KB	-rwxr-xr-x	2026-07-17 21:17
rhn.cgi	1.3 KB	-rwxr-xr-x	2026-07-17 21:22
rhn_check.cgi	1.84 KB	-rwxr-xr-x	2026-07-17 21:22
rpm-lib.pl	13.23 KB	-rwxr-xr-x	2026-07-17 21:17
rpmfind.cgi	2.11 KB	-rwxr-xr-x	2026-07-17 21:22
search.cgi	2.29 KB	-rwxr-xr-x	2026-07-17 21:22
slackware-lib.pl	7.13 KB	-rwxr-xr-x	2026-07-17 21:17
software-lib.pl	9.15 KB	-rwxr-xr-x	2026-07-17 21:17
tree.cgi	3.79 KB	-rwxr-xr-x	2026-07-17 21:22
urpmi-lib.pl	2.13 KB	-rwxr-xr-x	2026-07-17 21:17
urpmi_upgrade.cgi	850 B	-rwxr-xr-x	2026-07-17 21:22
view.cgi	931 B	-rwxr-xr-x	2026-07-17 21:22
yum-lib.pl	13.46 KB	-rwxr-xr-x	2026-07-17 21:17
yum_upgrade.cgi	919 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# install_pack.cgi
# Install a package from some source

require './software-lib.pl';
if ($ENV{REQUEST_METHOD} eq "POST") {
	&ReadParse(\%getin, "GET");
	&ReadParseMime(undef, \&read_parse_mime_callback, [ $getin{'id'} ]);
	}
else {
	&ReadParse();
	$no_upload = 1;
	}
&error_setup($text{'install_err'});

if ($in{'source'} == 3 && &foreign_installed("package-updates")) {
	# Use the package updates module instead, as it has a nicer UI
	&redirect(
	  "/package-updates/update.cgi?".
	  "redir=".&urlize($in{'return'} || "/$module_name/").
	  "&redirdesc=".&urlize($in{'returndesc'} || $module_info{'desc'}).
	  "&flags=".&urlize($in{'flags'}).
	  "&mode=new".
	  "&".join("&", map { "u=".&urlize($_) }
			    split(/\s+/, $in{'update'})));
	return;
	}

if ($in{'source'} >= 2) {
	&ui_print_unbuffered_header(undef, $text{'install_title'}, "", "install");
	}
else {
	&ui_print_header(undef, $text{'install_title'}, "", "install");
	}

if ($in{source} == 0) {
	# installing from local file (or maybe directory)
	if (!$in{'local'})
		{ &install_error($text{'install_elocal'}); }
	if (!-r $in{'local'} && !-d $in{'local'} && $in{'local'} !~ /\*|\?/)
		{ &install_error(&text('install_elocal2', $in{'local'})); }
	$source = $in{'local'};
	$pfile = $in{'local'};
	$need_unlink = 0;
	}
elsif ($in{source} == 1) {
	# installing from upload .. store file in temp location
	if ($no_upload) {
		&install_error($text{'install_eupload'});
		}
	$in{'upload_filename'} =~ /([^\/\\]+$)/;
	$pfile = &tempname("$1");
	&open_tempfile(PFILE, ">$pfile", 0, 1);
	&print_tempfile(PFILE, $in{'upload'});
	&close_tempfile(PFILE);
	$source = $in{'upload_filename'};
	$need_unlink = 1;
	}
elsif ($in{source} == 2) {
	# installing from URL.. store downloaded file in temp location
	$in{'url'} = &convert_osdn_url($in{'url'});
	$in{'url'} =~ /\/([^\/]+)\/*$/;
	$pfile = &tempname("$1");
	local $error;
	$progress_callback_url = $in{'url'};
	if ($in{'url'} =~ /^(http|https):\/\/([^\/]+)(\/.*)$/) {
		# Make a HTTP request
		$ssl = $1 eq 'https';
		$host = $2; $page = $3; $port = $ssl ? 443 : 80;
		if ($host =~ /^(.*):(\d+)$/) { $host = $1; $port = $2; }
		&http_download($host, $port, $page, $pfile, \$error,
			       \&progress_callback, $ssl);
		}
	elsif ($in{'url'} =~ /^ftp:\/\/([^\/]+)(:21)?(\/.*)$/) {
		$host = $1; $file = $3;
		&ftp_download($host, $file, $pfile, \$error,
			      \&progress_callback);
		}
	else {
		&install_error(&text('install_eurl', &html_escape($in{'url'})));
		}
	&install_error(&html_escape($error)) if ($error);
	$source = $in{'url'};
	$need_unlink = 1;
	}
elsif ($in{'source'} == 3) {
	# installing from some update system
	&clean_environment();
	$in{'update'} =~ /\S/ || &error($text{'install_eupdate'});
	@packs = &update_system_install($in{'update'}, \%in);
	&reset_environment();

print &ui_hr() if (@packs);
	foreach $p (@packs) {
		&show_package_info($p);
		}
	&webmin_log($config{'update_system'}, "install", undef,
		    { 'packages' => \@packs } ) if (@packs);

if ($in{'caller'} && &foreign_check("webmin")) {
		# Software installed - refresh installed flag cache
		&foreign_require("webmin");
		($inst, $changed) =
			&webmin::build_installed_modules(0, $in{'caller'});
		if (@$changed && defined(&theme_post_change_modules)) {
			&theme_post_change_modules();
			}
		}

if ($in{'return'}) {
		&ui_print_footer($in{'return'}, $in{'returndesc'});
		}
	else {
		&ui_print_footer("?tab=install", $text{'index_return'});
		}
	exit;
	}

# Check validity
if (!&is_package($pfile)) {
	if (-d $pfile) {
		&install_error(&text('install_edir', &package_system()));
		}
	else {
		# attempt to uncompress
		local $unc = &uncompress_if_needed($pfile, $need_unlink);
		if ($unc ne $pfile) {
			# uncompressed ok..
			if (!&is_package($unc)) {
				&unlink_file($unc);
				&install_error(&text('install_ezip',
					     &package_system()));
				}
			$pfile = $unc;
			}
		else {
			# uncompress failed.. give up
			#unlink($pfile) if ($need_unlink);
			&install_error(&text('install_efile', &package_system()));
			}
		}
	}

# ask for package to install and install options
@rv = &file_packages($pfile);

print &ui_form_start("do_install.cgi");
print &ui_hidden("file", $pfile);
print &ui_hidden("need_unlink", $need_unlink);
print &ui_table_start($text{'install_header'}, undef, 4);

# Packages to install
$plist = "";
foreach (@rv) {
	($p, $d) = split(/\s+/, $_, 2);
	if ($d) {
		$plist .= &html_escape($d)," (",&html_escape($p),")<br>\n";
		}
	else {
		$plist .= &html_escape($p),"<br>\n";
		}
	}
print &ui_table_row($text{'install_packs'}, $plist, 3);

# Type-specific options
&install_options($pfile, $p);

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'install_ok'} ] ]);

&ui_print_footer("?tab=install", $text{'index_return'});

sub install_error
{
print "$main::whatfailed : @{[&html_escape($_[0])]} <p>\n";
&ui_print_footer("?tab=install", $text{'index_return'});
exit;
}