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

# bsd-lib.pl
# Functions for FreeBSD package management

use POSIX;
chop($system_arch = `uname -m`);

if (&use_pkg_ng()) {
	# check whether the new pkg manager is available and use that.
	$pkg_info    = "pkg info";
	$pkg_add     = "pkg add";
	$pkg_delete  = "pkg delete";
	}
else {
	# If not, default to the previous pkg manager tools
	$pkg_info    = "pkg_info";
	$pkg_add     = "pkg_add";
	$pkg_delete  = "pkg_delete";
	}

$package_dir = "/var/db/pkg";

sub use_pkg_ng
{
return 0 if (!-x "/usr/sbin/pkg");
local @lines = split(/\n/, &backquote_command(
			"/usr/sbin/pkg info 2>/dev/null </dev/null"));
return @lines > 1 ? 1 : 0;
}

sub list_package_system_commands
{
return ($pkg_info, $pkg_add);
}

# list_packages([package]*)
# Fills the array %packages with a list of all packages
sub list_packages
{
local $i = 0;
local $arg = @_ ? join(" ", map { quotemeta($_) } @_) : "-a";
%packages = ( );
&open_execute_command(PKGINFO, "$pkg_info -I $arg", 1, 1);
while(<PKGINFO>) {
	if (/^(\S+)\-(\d\S+)\s+(.*)/) {
		$packages{$i,'name'} = $1;
		$packages{$i,'version'} = $2;
		$packages{$i,'class'} = "";
		$packages{$i,'desc'} = $3;
		$i++;
		}
	}
close(PKGINFO);
return $i;
}

# package_info(package, [version])
# Returns an array of package information in the order
#  name, class, description, arch, version, vendor, installtime
sub package_info
{
local ($name, $ver) = @_;
local $qm = quotemeta($name.($ver ? '='.$ver : '>=0'));
local $out = &backquote_command("$pkg_info $qm 2>&1", 1);
return () if ($?);
local @rv = ( $name );
push(@rv, "");
push(@rv, $out =~ /Description:\n([\0-\177]*\S)/i ? $1 : $text{'bsd_unknown'});
push(@rv, $system_arch);
push(@rv, $out =~ /Information\s+for\s+(\S+)\-(\d\S+)/ ? $2 : $ver);
push(@rv, "FreeBSD");
local @st = stat(&translate_filename("$package_dir/$name-$ver"));
push(@rv, @st ? ctime($st[9]) : $text{'bsd_unknown'});
return @rv;
}

# virtual_package_info(package)
# Returns an array of package information for a virtual package, usually called
# if "package_info" returns nothing.
sub virtual_package_info
{
return ( );
}

# check_files(package, version)
# Fills in the %files array with information about the files belonging
# to some package. Values in %files are  path type user group mode size error
sub check_files
{
local ($name, $ver) = @_;
local $i = 0;
local $file;
local $qm = quotemeta($name.($ver ? '='.$ver : '>=0'));
&open_execute_command(PKGINFO, "$pkg_info -L $qm", 1, 1);
while($file = <PKGINFO>) {
	$file =~ s/\r|\n//g;
	next if ($file !~ /^\//);
	local $real = &translate_filename($file);
	local @st = stat($real);
	$files{$i,'path'} = $file;
	$files{$i,'type'} = -l $real ? 3 :
			    -d $real ? 1 : 0;
	$files{$i,'user'} = getpwuid($st[4]);
	$files{$i,'group'} = getgrgid($st[5]);
	$files{$i,'mode'} = sprintf "%o", $st[2] & 07777;
	$files{$i,'size'} = $st[7];
	$files{$i,'link'} = readlink($real);
	$i++;
	}
return $i;
}

# package_files(package, version)
# Returns a list of all files in some package
sub package_files
{
local ($pkg, $v) = @_;
local $qn = quotemeta($pkg.($v ? '='.$v : '>=0'));
local @rv;
&open_execute_command(RPM, "$pkg_info -L $qn", 1, 1);
while(<RPM>) {
	s/\r|\n//g;
	if (/^\//) {
		push(@rv, $_);
		}
	}
close(RPM);
return @rv;
}

# installed_file(file)
# Given a filename, fills %file with details of the given file and returns 1.
# If the file is not known to the package system, returns 0
# Usable values in %file are  path type user group mode size packages
sub installed_file
{
local (%packages, $file, $i, @pkgin);
local $n = &list_packages();
for($i=0; $i<$n; $i++) {
	local $qm = quotemeta($packages{$i,'name'});
	&open_execute_command(PKGINFO, "$pkg_info -L $qm", 1, 1);
	while($file = <PKGINFO>) {
		$file =~ s/\r|\n//g;
		if ($file eq $_[0]) {
			# found it
			push(@pkgin, $packages{$i,'name'});
			}
		}
	close(PKGINFO);
	}
if (@pkgin) {
	local $real = &translate_filename($_[0]);
	local @st = stat($real);
	$file{'path'} = $_[0];
	$file{'type'} = -l $real ? 3 :
			-d $real ? 1 : 0;
	$file{'user'} = getpwuid($st[4]);
	$file{'group'} = getgrgid($st[5]);
	$file{'mode'} = sprintf "%o", $st[2] & 07777;
	$file{'size'} = $st[7];
	$file{'link'} = readlink($real);
	$file{'packages'} = join(" ", @pkgin);
	return 1;
	}
else {
	return 0;
	}
}

# is_package(file)
sub is_package
{
local $real = &translate_filename($_[0]);
local $qm = quotemeta($_[0]);
if (-d $_[0]) {
	# A directory .. see if it contains any tgz files
	opendir(DIR, $real);
	local @list = grep { /\.tgz$/ || /\.tbz$/ } readdir(DIR);
	closedir(DIR);
	return @list ? 1 : 0;
	}
elsif ($_[0] =~ /\*|\?/) {
	# a wildcard .. see what it matches
	local @list = glob($real);
	return @list ? 1 : 0;
	}
else {
	# just a normal file - see if it is a package
	local $cmd;
	foreach $cmd ('gunzip', 'bunzip2') {
		next if (!&has_command($cmd));
		local ($desc, $contents);
		&open_execute_command(TAR, "$cmd -c $qm | tar tf -", 1, 1);
		while(<TAR>) {
			$desc++ if (/^\+DESC/);
			$contents++ if (/^\+CONTENTS/);
			}
		close(TAR);
		return 1 if ($desc && $contents);
		}
	return 0;
	}
}

# file_packages(file)
# Returns a list of all packages in the given file, in the form
#  package description
sub file_packages
{
local $real = &translate_filename($_[0]);
local $qm = quotemeta($_[0]);
if (-d $real) {
	# Scan directory for packages
	local ($f, @rv);
	opendir(DIR, $real);
	while($f = readdir(DIR)) {
		if ($f =~ /\.tgz$/i || $f =~ /\.tbz$/i) {
			local @pkg = &file_packages("$_[0]/$f");
			push(@rv, @pkg);
			}
		}
	closedir(DIR);
	return @rv;
	}
elsif ($real =~ /\*|\?/) {
	# Expand glob of packages
	# XXX won't work in translation
	local ($f, @rv);
	foreach $f (glob($real)) {
		local @pkg = &file_packages($f);
		push(@rv, @pkg);
		}
	return @rv;
	}
else {
	# Just one file
	local $cmd;
	foreach $cmd ('gunzip', 'bunzip2') {
		next if (!&has_command($cmd));
		local $temp = &transname();
		&make_dir($temp, 0700);
		local $rv = &execute_command("cd $temp && $cmd -c $qm | tar xf - +CONTENTS +COMMENT");
		if ($rv) {
			&unlink_file($temp);
			next;
			}
		local ($comment, $name);
		&open_readfile(COMMENT, "$temp/+COMMENT");
		($comment = <COMMENT>) =~ s/\r|\n//g;
		close(COMMENT);
		&open_readfile(CONTENTS, "$temp/+CONTENTS");
		while(<CONTENTS>) {
			$name = $1 if (/^\@name\s+(\S+)/);
			}
		close(CONTENTS);
		&unlink_file($temp);
		return ( "$name $comment" );
		}
	return ( );
	}
}

# install_options(file, package)
# Outputs HTML for choosing install options
sub install_options
{
print &ui_table_row($text{'bsd_scripts'},
	&ui_radio("scripts", 0, [ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));

print &ui_table_row($text{'bsd_force'},
	&ui_yesno_radio("force", 0));
}

# install_package(file, package)
# Installs the package in the given file, with options from %in
sub install_package
{
local $in = $_[2] ? $_[2] : \%in;
local $args = ($in->{"scripts"} ? " -I" : "").
	      ($in->{"force"} ? " -f" : "");
local $qm = quotemeta($_[0]);
local $out = &backquote_logged("$pkg_add $args $qm 2>&1");
if ($?) {
	return "<pre>$out</pre>";
	}
return undef;
}

# install_packages(file, [&inputs])
# Installs all the packages in the given file or glob
sub install_packages
{
local $in = $_[2] ? $_[2] : \%in;
local $args = ($in->{"scripts"} ? " -I" : "").
	      ($in->{"force"} ? " -f" : "");
local ($file, $qm);
if (-d $_[0]) {
	$file = "$_[0]/*.tgz";
	}
else {
	$file = $_[0];
	}
$qm = quotemeta($file);
$qm =~ s/\\([*?])/$1/g if ($file =~ /[\*\?]/);
local $out = &backquote_logged("$pkg_add $args $qm 2>&1");
if ($?) {
	return "<pre>$out</pre>";
	}
return undef;
}

# delete_package(package, &in, version)
# Totally remove some package
sub delete_package
{
local ($name, $in, $ver) = @_;
local $qm = quotemeta($name.($ver ? '='.$ver : '>=0'));
local $out = &backquote_logged("$pkg_delete $qm 2>&1");
if ($? && $ver) {
	$qm = quotemeta($name.'-'.$ver);
	$out = &backquote_logged("$pkg_delete $qm 2>&1");
	}
if ($?) { return "<pre>$out</pre>"; }
return undef;
}

# delete_packages(&packages, &in, &versions)
# Totally remove some list of packages
sub delete_packages
{
local ($names, $in, $vers) = @_;
local @qm;
for(my $i=0; $i<@$names; $i++) {
	local $qm = quotemeta($names[$i].($vers[$i] ? '='.$vers[$i] : '>=0'));
	push(@qm, $qm);
	}
local $out = &backquote_logged("$pkg_delete ".join(" ", @qm)." 2>&1");
if ($?) { return "<pre>$out</pre>"; }
return undef;
}

sub package_system
{
return &text('bsd_manager', "FreeBSD");
}

sub package_help
{
return "$pkg_add $pkg_info $pkg_delete";
}