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

# hpux-lib.pl
# Functions for HP-UX package management

sub list_package_system_commands
{
return ("swlist", "swinstall");
}

# list_packages([package]*)
# Fills the array %packages with all or listed packages
sub list_packages
{
local($i, $name, $class, @contents, $products, $title_flag);
$i = 0;
$products = join(' ', @_);
$name = "";
%packages = ( );

open(SW, "swlist -v -a title -a contents |");
while(<SW>) {
	s/#.*$//g;
# bundles and unbundled products
	if (/^  (\S*)/) {
		$name = $1;
		$packages{$i,'name'} = $1;
		$packages{$i,'class'} = $1;
		}
        if (/^bundle/ || /^product/) {
                $title_flag = 1;
                }
	if (/^title\s+(.*)/ && $title_flag) {
		$packages{$i,'desc'} = $1;
		if ($products eq "" || (index $products,$name) ne -1) {
			$i++;
			}
                $title_flag = "";
		}
# bundled products
	if (/^contents\s+(.*)/) {
		@contents = split(/\./, $1);
		$packages{$i,'name'} = "$name.$contents[0]";
		$packages{$i,'class'} = $name;
		if (($products eq "" ||
		     (index $products,"$contents[0]") ne -1) &&
		    $packages{$i,'name'} ne $packages{$i - 1,'name'} ) {
			$i++;
			}
		}
	}
close(SW);

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(@name, $level, $name, $class, $desc, $arch, $version, $vendor, $date);
local $qm;

$name = $_[0];
@name = split(/\./, $name);
$class = $name[0];
$qm = quotemeta($name);

open(SW, "swlist -l product -v -a vendor.title -a title -a revision -a architecture -a date $qm | ");
while(<SW>) {
	s/#.*$//g;
	if (/^date\s+(.*)/ &&
	    ($name[1] eq "" && $date eq "" || $name[1] ne "")) {
		$date = $1;
		}
	if (/^architecture\s+(.*)/ &&
	    ($name[1] eq "" && $arch eq "" || $name[1] ne "")) {
		$arch = $1;
		}
	if (/^revision\s+(.*)/ &&
	    ($name[1] eq "" && $version eq "" || $name[1] ne "")) {
		$version = $1;
		}
	if (/^vendor\.title\s+(.*)/ &&
	    ($name[1] eq "" && $vendor eq "" || $name[1] ne "")) {
		$vendor = $1;
		}
	if (/^title\s+(.*)/ &&
	    ($name[1] eq "" && $desc eq "" || $name[1] ne "")) {
		$desc = $1;
		}
	}
close(SW);

return ($name, $class, $desc, $arch, $version, $vendor, $date);
}

# 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 ( );
}

# is_package(file)
# Check if some file is a package file
sub is_package
{
local($out);
$out = &backquote_command("swlist -s ".quotemeta($_[0])." 2>&1");
return $out !~ /ERROR:   /;
}

# file_packages(file)
# Returns a list of all packages in the given file, in the form
#  package description
sub file_packages
{
local(@list);
local $qm = quotemeta($_[0]);
open(SW, "swlist -s $qm |");
while(<SW>) {
	s/#.*$//g;
	if (/^  (\S*)\s+(\S*)/) {
		push (@list, "$1 $2");
		}
	}
close(SW);

return @list;
}

# install_options(file, package)
# Outputs HTML for choosing install options for some package
sub install_options
{
print &ui_table_row($text{'hpux_create_target_path'},
	&ui_yesno_radio("create_target_path", 1));

print &ui_table_row($text{'hpux_mount_all_filesystems'},
	&ui_yesno_radio("mount_all_filesystems", 1));

print &ui_table_row($text{'hpux_reinstall'},
	&ui_yesno_radio("reinstall", 0));

print &ui_table_row($text{'hpux_reinstall_files'},
	&ui_yesno_radio("reinstall_files", 1));

print &ui_table_row($text{'hpux_reinstall_files_use_cksum'},
	&ui_yesno_radio("reinstall_files_use_cksum", 1));

print &ui_table_row($text{'hpux_allow_multiple_versions'},
	&ui_yesno_radio("allow_multiple_versions", 0));

print &ui_table_row($text{'hpux_defer_configure'},
	&ui_yesno_radio("defer_configure", 0));

print &ui_table_row($text{'hpux_autorecover_product'},
	&ui_yesno_radio("autorecover_product", 0));

print &ui_table_row($text{'hpux_allow_downdate'},
	&ui_yesno_radio("allow_downdate", 0));

print &ui_table_row($text{'hpux_allow_incompatible'},
	&ui_yesno_radio("allow_incompatible", 0));

print &ui_table_row($text{'hpux_autoselect_dependencies'},
	&ui_yesno_radio("autoselect_dependencies", 1));

print &ui_table_row($text{'hpux_enforce_dependencies'},
	&ui_yesno_radio("enforce_dependencies", 1));

print &ui_table_row($text{'hpux_enforce_scripts'},
	&ui_yesno_radio("enforce_scripts", 1));

print &ui_table_row($text{'hpux_enforce_dsa'},
	&ui_yesno_radio("enforce_dsa", 1));

print &ui_table_row($text{'hpux_root'},
	&ui_textbox("root", "/", 50)." ".
	&file_chooser_button("root", 1), 3);
}

# install_package(file, package)
# Install the given package from the given file, using options from %in
sub install_package
{
local $in = $_[2] ? $_[2] : \%in;
foreach $o ('create_target_path',
	    'mount_all_filesystems',
	    'reinstall',
	    'reinstall_files',
	    'reinstall_files_use_cksum',
	    'allow_multiple_versions',
	    'defer_configure',
	    'autorecover_product',
	    'allow_downdate',
	    'allow_incompatible',
	    'autoselect_dependencies',
	    'enforce_dependencies',
	    'enforce_scripts',
	    'enforce_dsa') {
	if ($in->{$o}) { $opts .= " -x $o=true"; }
	else { $opts .= " -x $o=false"; }
	}
if ($in->{'root'} =~ /^\/.+/) {
	if (!(-d $in->{'root'})) {
		return "Root directory '$in->{'root'}' does not exist";
		}
	$opts .= " -r ".quotemeta($in->{'root'});
	}
local $qfile = quotemeta($_[0]);
local $qpack = quotemeta($_[1]);
$out = &backquote_logged("swinstall -s $qfile $opts $qpack 2>&1");
if ($?) { return "<pre>$out</pre>"; }
return undef;
}

# check_files(package)
# Fills in the %files array with information about the files belonging
# to some package.
sub check_files
{
local($i, $path); $i = -1;
local $qm = quotemeta($_[0]);
open(SW, "swlist -l file -v -a path -a owner -a group -a type -a link_source -a size $qm | ");
while(<SW>) {
	s/#.*$//g;
	if (/^path\s+(.*)/) {
		$i++;
		$files{$i,'path'} = $1;
		$files{$i,'size'} = "-";
		$files{$i,'user'} = "-";
		$files{$i,'group'} = "-";
		$files{$i,'link'} = "";
		$path = $1;
		}
	if (/^owner\s+(.*)/ && $path ne "") {
		$files{$i,'user'} = $1;
		}
	if (/^group\s+(.*)/ && $path ne "") {
		$files{$i,'group'} = $1;
		}
	if (/^type\s+(.*)/ && $path ne "") {
                $files{$i,'type'} = $1 eq "f" ? 0 :
                                    $1 eq "d" ? 1 :
                                    $1 eq "s" ? 3 :
                                    $1 eq "h" ? 4 :
                                    -1;
		}
	if (/^link_source\s+(.*)/ && $path ne "") {
		$files{$i,'link'} = $1;
		}
	if (/^size\s+(.*)/ && $path ne "") {
		$files{$i,'size'} = $1;
		$path = "";
		}
	$files{$i,'error'} = "\n";
	}
close(SW);
return $i;
}

# 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
sub installed_file
{
local($path, $search, @tmp, $product, $product_flag, $path_flag);
$search = $_[0];

open(SW, "swlist -l file -v -a path -a owner -a group -a type -a link_source -a mode -a size | ");
while(<SW>) {
#	s/#.*$//g;
        if (/^product/) {
                $product_flag = 1;
                }
	if (/^# (\S*)/ && $product_flag) {
		@tmp = split(/\./, $1);
		$product = $tmp[0];
                $product_flag = "";
		}
	if (/^path\s+(.*)/) {
		if ($1 eq $search) {
			$file{'path'} = $1;
			$file{'size'} = "-";
			$file{'user'} = "-";
			$file{'mode'} = "-";	
			$file{'group'} = "-";
			if ((index $file{'packages'},$product) eq -1) {
				$file{'packages'} = join(' ', $product, $file{'packages'});
				}
			$path_flag = 1;
			}
		else {
			$path_flag = "";
			}
		}
	if (/^owner\s+(.*)/ && $path_flag) {
		$file{'user'} = $1;
		}
	if (/^group\s+(.*)/ && $path_flag) {
		$file{'group'} = $1;
		}
	if (/^type\s+(.*)/ && $path_flag) {
                $file{'type'} = $1 eq "f" ? 0 :
                                $1 eq "d" ? 1 :
                                $1 eq "s" ? 3 :
                                $1 eq "h" ? 4 :
                                -1;
		}
	if (/^link_source\s+(.*)/ && $path_flag) {
		$file{'link'} = $1;
		}
	if (/^mode\s+(.*)/ && $path_flag) {
		$file{'mode'} = $1;
		}
	if (/^size\s+(.*)/ && $path_flag) {
		$file{'size'} = $1;
		}
	$file{'error'} = "\n";
	}
close(SW);

if ($file{'packages'} ne "") { return 1; }
else { undef(%file); return 0; }
}

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

sub package_system
{
return "HP-UX SW";
}

sub package_help
{
return "swinstall swlist swremove";
}