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	1.01 KB	-rw-r--r--	2026-07-17 21:17
add.cgi	904 B	-rwxr-xr-x	2026-07-17 21:22
close.cgi	272 B	-rwxr-xr-x	2026-07-17 21:22
closeall.cgi	179 B	-rwxr-xr-x	2026-07-17 21:22
cluster-software-lib.pl	10.06 KB	-rwxr-xr-x	2026-07-17 21:17
compare.cgi	1.81 KB	-rwxr-xr-x	2026-07-17 21:22
compare_form.cgi	1.13 KB	-rwxr-xr-x	2026-07-17 21:22
config	25 B	-rw-r--r--	2026-07-17 21:17
config.info	108 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	133 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	82 B	-rw-r--r--	2026-07-17 21:17
config.info.de	125 B	-rw-r--r--	2026-07-17 21:17
config.info.es	90 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	134 B	-rw-r--r--	2026-07-17 21:17
config.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	131 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	130 B	-rw-r--r--	2026-07-17 21:17
config.info.no	129 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	121 B	-rw-r--r--	2026-07-17 21:17
defaultacl	6 B	-rw-r--r--	2026-07-17 21:17
delete_host.cgi	254 B	-rwxr-xr-x	2026-07-17 21:22
delete_pack.cgi	3.15 KB	-rwxr-xr-x	2026-07-17 21:22
delete_packs.cgi	2.86 KB	-rwxr-xr-x	2026-07-17 21:22
do_install.cgi	6.98 KB	-rwxr-xr-x	2026-07-17 21:22
do_install_serial.cgi	3.68 KB	-rwxr-xr-x	2026-07-17 21:22
edit_host.cgi	3.84 KB	-rwxr-xr-x	2026-07-17 21:22
edit_pack.cgi	3.33 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	4.87 KB	-rwxr-xr-x	2026-07-17 21:22
install_pack.cgi	4.85 KB	-rwxr-xr-x	2026-07-17 21:22
list_pack.cgi	2.28 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	440 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	201 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	251 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	155 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	31 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	40 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	122 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	153 B	-rw-r--r--	2026-07-17 21:17
module.info.de	133 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	25 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	263 B	-rw-r--r--	2026-07-17 21:17
module.info.es	39 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	119 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	141 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	228 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	156 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	41 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	139 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	155 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	33 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	125 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	147 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	228 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	193 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	119 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	25 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	35 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.no	35 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	115 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	132 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	33 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	154 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	163 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	278 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	162 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	151 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	159 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	272 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	131 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	140 B	-rw-r--r--	2026-07-17 21:17
open.cgi	250 B	-rwxr-xr-x	2026-07-17 21:22
openall.cgi	427 B	-rwxr-xr-x	2026-07-17 21:22
prefs.info	28 B	-rw-r--r--	2026-07-17 21:17
refresh.cgi	1.61 KB	-rwxr-xr-x	2026-07-17 21:22
search.cgi	1.97 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

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

require './cluster-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} == 2) {
	&ui_print_unbuffered_header(undef, $text{'install_title'}, "", "install_pack");
	}
else {
	&ui_print_header(undef, $text{'install_title'}, "", "install_pack");
	}

if ($in{source} == 0) {
	# installing from local file (or maybe directory)
	if (!$in{'local'}) {
		&install_error($text{'install_elocal'});
		}
	if (!-r $in{'local'}) {
		&install_error(&text('install_elocal2', &html_escape($in{'local'})));
		}
	$source = $in{'local'};
	$pfile = $in{'local'};
	$filename = $in{'local'};
	$filename =~ s/^(.*)[\\\/]//;
	$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'} =~ /([^\/\\]+$)/;
	$filename = $in{'upload_filename'};
	$filename =~ s/^(.*)[\\\/]//;
	$pfile = &tempname("$1");
	&open_tempfile(PFILE, ">$pfile");
	&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'} =~ /\/([^\/]+)\/*$/;
	$pfile = &tempname("$1");
	$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', $in{'url'})); }
	&install_error($error) if ($error);
	$source = $in{'url'};
	$need_unlink = 1;
	$filename = $in{'url'};
	$filename =~ s/^(.*)[\\\/]//;
	}
elsif ($in{source} == 3) {
	# installing from some update system, so nothing to do here
	$pfile = $in{'update'};
	@rv = map { $_." ".$_ } split(/\s+/, $in{'update'});
	}

# Check if any remote systems are using the same package system
@anysame = grep { &same_package_system($_) } &list_software_hosts();
@anydiff = grep { !&same_package_system($_) } &list_software_hosts();

# Check validity, if we can
$invalid_msg = undef;
if ($in{'source'} != 3) {
	$ps = &software::package_system();
	if (!&software::is_package($pfile)) {
		if (-d $pfile) {
			&install_error(&text('install_edir', $ps));
			}
		else {
			# attempt to uncompress
			local $unc = &software::uncompress_if_needed(
				$pfile, $need_unlink);
			if ($unc ne $pfile) {
				# uncompressed ok..
				if (!&software::is_package($unc)) {
					# but still not valid :(
					unlink($unc);
					$invalid_msg =
						&text('install_ezip', $ps);
					}
				else {
					$pfile = $unc;
					}
				}
			else {
				# uncompress failed.. give up
				$invalid_msg = &text('install_efile', $ps);
				}
			}
		}

if (!$invalid_msg) {
		# ask for package to install and install options
		@rv = &software::file_packages($pfile);
		}
	}

if ($invalid_msg) {
	# Could not check package .. but this is OK if we have any remote
	# systems of different types
	if (@anydiff) {
		$filename =~ s/\.[a-z]+$//i;
		@rv = ( $filename );
		$unknownfile = $filename;
		}
	else {
		unlink($pfile) if ($need_unlink);
		&install_error($invalid_msg);
		}
	}

# Show install form
print &ui_form_start("do_install.cgi");
print &ui_hidden("file", $pfile);
print &ui_hidden("unknownfile", $unknownfile);
print &ui_hidden("need_unlink", $need_unlink);
print &ui_hidden("source", $in{'source'});
print &ui_hidden("ssl", $ssl);
print &ui_hidden("host", $host);
print &ui_hidden("page", $page);
print &ui_hidden("port", $port);
print &ui_hidden("ftpfile", $file);
print &ui_hidden("down", $in{'down'});
print &ui_table_start($text{'install_header'}, undef, 4);

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

# Type-specific options
if ($in{'source'} != 3 && !@anydiff) {
	&software::install_options($pfile, $p);
	}

# Show input for hosts to install on
&create_on_input($text{'install_servers'},
		 $in{'source'} == 3, $in{'source'} == 3);

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

&ui_print_footer("", $text{'index_return'});

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