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

# slackware-lib.pl
# Functions for slackware package management

$package_dir = "/var/log/packages";
%class_map = (  'a', 'Base Slackware system',
		'ap', 'Linux applications',
		'd', 'Program development',
		'e', 'GNU Emacs',
		'extra', 'Extra Slackware packages',
		'f', 'FAQs, howtos, and documentation',
		'gnome', 'GNOME desktop and programs',
		'k', 'Linux kernel source',
		'kde', 'KDE desktop and programs',
		'kdei', 'Language support of KDE',
		'l', 'Libraries',
		'n', 'Networking',
		'pasture', 'Software put to pasture',
		't', 'TeX',
		'testing', 'Software in testing',
		'tcl', 'TcL/Tk',
		'x', 'X Windows',
		'xap', 'X applications',
		'y', 'Classic BSD console games' );
use POSIX;
chop($system_arch = `uname -m`);

sub validate_package_system
{
return -d &translate_filename($package_dir) ? undef :
	&text('slack_edir', "<tt>$package_dir</tt>");
}

# list_packages([package]*)
# Fills the array %packages with a list of all packages
sub list_packages
{
local ($i, $f, @list);
%packages = ( );
opendir(DIR, &translate_filename($package_dir));
local @list = @_ ? @_ : grep { !/^\./ } readdir(DIR);
$i = 0;
foreach $f (@list) {
	$packages{$i,'name'} = $f;
	$packages{$i,'class'} = $text{'slack_unclass'};
	&open_tempfile(PKG, "$package_dir/$f");
	while(<PKG>) {
		if (/^PACKAGE LOCATION:\s+disk([a-z]+)\d+/i ||
		    /^PACKAGE LOCATION:\s+\S+\/([a-z]+)\/[^\/]+$/i) {
			$packages{$i,'class'} = $class_map{$1} ||
						$text{'slack_unclass'};
			}
		elsif (/^PACKAGE DESCRIPTION:/i) {
			local $desc = <PKG>;
			$desc =~ s/^\S+:\s+//;
			$desc =~ s/\n//;
			$packages{$i,'desc'} = $desc;
			}
		}
	close(PKG);
	$i++;
	}
closedir(DIR);
return $i;
}

# package_info(package)
# Returns an array of package information in the order
#  name, class, description, arch, version, vendor, installtime
sub package_info
{
local @rv = ( $_[0], $text{'slack_unclass'}, $text{'slack_unknown'},
	      $system_arch, $text{'slack_unknown'}, "Slackware" );
local @st = stat(&translate_filename("$package_dir/$_[0]"));
$rv[6] = ctime($st[9]);
&open_readfile(PKG, "$package_dir/$_[0]");
while(<PKG>) {
	if (/^PACKAGE LOCATION:\s+disk([a-z]+)\d+/i) {
		$rv[1] = $class_map{$1};
		}
	elsif (/^PACKAGE DESCRIPTION:/i) {
		$rv[2] = "";
		while(<PKG>) {
			last if (/^FILE LIST/i);
			s/^\S+: *//;
			if (!$rv[2] && /([0-9][0-9\.]*)/) {
				$rv[4] = $1;
				}
			$rv[2] .= $_;
			}
		$rv[2] =~ s/\s+$//;
		}
	}
close(PKG);
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)
# 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 $i = 0;
local $file;
&open_readfile(PKG, "$package_dir/$_[0]");
while(<PKG>) {
	last if (/^FILE LIST:/i);
	}
while($file = <PKG>) {
	$file =~ s/\r|\n//g;
	next if ($file eq "./");
	$file = '/'.$file;
	local $real = &translate_filename($file);
	$files{$i,'path'} = $file;
	local @st = stat($real);
	if (@st) {
		$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($file);
		}
	else {
		$files{$i,'type'} = $file =~ /\// ? 1 : 0;
		$files{$i,'user'} = $files{$i,'group'} =
		 $files{$i,'mode'} = $files{$i,'size'} = $text{'slack_unknown'};
		$files{$i,'error'} = $text{'slack_missing'};
		}
	$i++;
	}
return $i;
}

# package_files(package)
# Returns a list of all files in some package
sub package_files
{
local ($pkg) = @_;
local @rv;
&open_readfile(PKG, "$package_dir/$_[0]");
while(<PKG>) {
	last if (/^FILE LIST:/i);
	}
while(my $file = <PKG>) {
	$file =~ s/\r|\n//g;
	next if ($file eq "./");
	$file = '/'.$file;
	push(@rv, $file);
	}
close(PKG);
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 ($f, $file, @pkgin);
opendir(DIR, &translate_filename($package_dir));
while($f = readdir(DIR)) {
	next if ($f =~ /^\./);
	&open_readfile(PKG, "$package_dir/$f");
	while(<PKG>) {
		last if (/^FILE LIST:/);
		}
	while($file = <PKG>) {
		next if ($file eq "./");
		$file =~ s/[\/\r\n]+$//;
		$file = '/'.$file;
		if ($_[0] eq $file) {
			# found it!
			push(@pkgin, $f);
			last;
			}
		}
	close(PKG);
	}
closedir(DIR);
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 $count;
local $qm = quotemeta($_[0]);
if ($_[0] =~ /\.txz$/) {
	&open_execute_command(TAR, "tar tf $qm 2>&1", 1, 1);
	}
else {
	&open_execute_command(TAR, "gunzip -c $qm | tar tf - 2>&1", 1, 1);
	}
while(<TAR>) {
	$count++ if (/^[^\/\s]\S+/);
	}
close(TAR);
return $count < 2 ? 0 : 1;
}

# file_packages(file)
# Returns a list of all packages in the given file, in the form
#  package description
sub file_packages
{
if ($_[0] !~ /^(.*)\/(([^\/]+)(\.tgz|\.txz|\.tar\.gz))$/) {
	return "$_[0] $text{'slack_unknown'}";
	}
local ($dir, $file, $base) = ($1, $2, $3);
local $diskfile;
opendir(DIR, &translate_filename($dir));
while($f = readdir(DIR)) {
	if ($f =~ /^disk\S+\d+$/ || $f eq 'package_descriptions') {
		# found the slackware disk file
		$diskfile = "$dir/$f";
		last;
		}
	}
closedir(DIR);
return "$base $text{'slack_unknown'}" if (!$diskfile);

# read the disk file
local $desc;
&open_readfile(DISK, $diskfile);
while(<DISK>) {
	if (/^$base:\s*(.*)/) {
		$desc = $1;
		last;
		}
	}
close(DISK);
return $desc ? "$base $desc" : "$base $text{'slack_unknown'}";
}

# install_options(file, package)
# Outputs HTML for choosing install options
sub install_options
{
print &ui_table_row($text{'slack_root'},
	&ui_textbox("root", "/", 50)." ".
	&file_chooser_button("root", 1), 3);
}

# install_package(file, package)
# Installs the package in the given file, with options from %in
sub install_package
{
local $in = $_[2] ? $_[2] : \%in;
return $text{'slack_eroot'} if (!-d $in->{'root'});
$ENV{'ROOT'} = $in->{'root'};
local $out;
local $qm = quotemeta($_[0]);
if (&has_command("upgradepkg") &&
    -r &translate_filename("$package_dir/$_[1]")) {
	# Try to upgrade properly
	$out = &backquote_logged("upgradepkg $qm 2>&1");
	}
else {
	# Just install
	$out = &backquote_logged("installpkg $qm 2>&1");
	}
if ($?) {
	return "<pre>$out</pre>";
	}
return undef;
}

# delete_package(package)
# Totally remove some package
sub delete_package
{
local $qm = quotemeta($_[0]);
local $out = &backquote_logged("removepkg $qm 2>&1");
if ($?) { return "<pre>$out</pre>"; }
return undef;
}

sub package_system
{
return $text{'slack_manager'};
}

sub package_help
{
return "installpkg removepkg";
}