Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	2.82 KB	-rw-r--r--
aix-lib.pl	19.2 KB	-rwxr-xr-x
apt-lib.pl	13.32 KB	-rwxr-xr-x
apt_upgrade.cgi	1.97 KB	-rwxr-xr-x
cgi_args.pl	524 B	-rwxr-xr-x
close.cgi	263 B	-rwxr-xr-x
config-aix	30 B	-rw-r--r--
config-cobalt-linux	30 B	-rw-r--r--
config-coherent-linux	30 B	-rw-r--r--
config-corel-linux	33 B	-rw-r--r--
config-cygwin	33 B	-rw-r--r--
config-debian-linux	51 B	-rw-r--r--
config-freebsd	54 B	-rw-r--r--
config-freebsd-8.4-ALL	52 B	-rw-r--r--
config-gentoo-linux	33 B	-rw-r--r--
config-hpux	31 B	-rw-r--r--
config-mandrake-linux	30 B	-rw-r--r--
config-msc-linux	30 B	-rw-r--r--
config-netbsd	34 B	-rw-r--r--
config-open-linux	30 B	-rw-r--r--
config-openbsd	34 B	-rw-r--r--
config-openmamba-linux	48 B	-rw-r--r--
config-openserver	33 B	-rw-r--r--
config-redhat-linux	48 B	-rw-r--r--
config-slackware-linux	36 B	-rw-r--r--
config-solaris	33 B	-rw-r--r--
config-suse-linux	30 B	-rw-r--r--
config-syno-linux	50 B	-rw-r--r--
config-trustix-linux	30 B	-rw-r--r--
config-turbo-linux	30 B	-rw-r--r--
config-united-linux	30 B	-rw-r--r--
config-unixware	33 B	-rw-r--r--
config-windows	30 B	-rw-r--r--
config.info	511 B	-rw-r--r--
config.info.ca	549 B	-rw-r--r--
config.info.ca.UTF-8	554 B	-rw-r--r--
config.info.cz	359 B	-rw-r--r--
config.info.cz.UTF-8	372 B	-rw-r--r--
config.info.de	523 B	-rw-r--r--
config.info.de.UTF-8	523 B	-rw-r--r--
config.info.es	372 B	-rw-r--r--
config.info.es.UTF-8	372 B	-rw-r--r--
config.info.fr	133 B	-rw-r--r--
config.info.fr.UTF-8	135 B	-rw-r--r--
config.info.ja_JP.UTF-8	428 B	-rw-r--r--
config.info.ja_JP.euc	384 B	-rw-r--r--
config.info.ko_KR.UTF-8	409 B	-rw-r--r--
config.info.ko_KR.euc	373 B	-rw-r--r--
config.info.ms	188 B	-rw-r--r--
config.info.ms.UTF-8	188 B	-rw-r--r--
config.info.ms_MY	411 B	-rw-r--r--
config.info.ms_MY.UTF-8	411 B	-rw-r--r--
config.info.nl	415 B	-rw-r--r--
config.info.nl.UTF-8	415 B	-rw-r--r--
config.info.no	424 B	-rw-r--r--
config.info.no.UTF-8	424 B	-rw-r--r--
config.info.pl	391 B	-rw-r--r--
config.info.pl.UTF-8	392 B	-rw-r--r--
config.info.ru.UTF-8	222 B	-rw-r--r--
config.info.ru_RU	179 B	-rw-r--r--
config.info.ru_RU.UTF-8	222 B	-rw-r--r--
config.info.ru_SU	179 B	-rw-r--r--
config.info.sv	224 B	-rw-r--r--
config.info.sv.UTF-8	224 B	-rw-r--r--
config.info.tr	122 B	-rw-r--r--
config.info.uk_UA	181 B	-rw-r--r--
config.info.uk_UA.UTF-8	218 B	-rw-r--r--
config.info.zh_CN	115 B	-rw-r--r--
config.info.zh_CN.UTF-8	122 B	-rw-r--r--
config.info.zh_TW.Big5	117 B	-rw-r--r--
config.info.zh_TW.UTF-8	125 B	-rw-r--r--
csw-lib.pl	2.68 KB	-rwxr-xr-x
cygwin-lib.pl	22.33 KB	-rwxr-xr-x
debian-lib.pl	6.54 KB	-rwxr-xr-x
delete_file.cgi	239 B	-rwxr-xr-x
delete_pack.cgi	1.46 KB	-rwxr-xr-x
delete_packs.cgi	1.85 KB	-rwxr-xr-x
do_install.cgi	2.56 KB	-rwxr-xr-x
edit_pack.cgi	1.13 KB	-rwxr-xr-x
emerge-lib.pl	7.65 KB	-rwxr-xr-x
file_info.cgi	2.09 KB	-rwxr-xr-x
find.cgi	1.63 KB	-rwxr-xr-x
freebsd-lib.pl	7.95 KB	-rwxr-xr-x
hpux-lib.pl	8.01 KB	-rwxr-xr-x
index.cgi	3 KB	-rwxr-xr-x
install_pack.cgi	4.7 KB	-rwxr-xr-x
ipkg-close.cgi	269 B	-rwxr-xr-x
ipkg-edit_pack.cgi	1.45 KB	-rwxr-xr-x
ipkg-lib.pl	7.78 KB	-rwxr-xr-x
ipkg-open.cgi	243 B	-rwxr-xr-x
ipkg-tree.cgi	4 KB	-rwxr-xr-x
ipkg_upgrade.cgi	926 B	-rwxr-xr-x
list_pack.cgi	1.85 KB	-rwxr-xr-x
log_parser.pl	1.34 KB	-rwxr-xr-x
module.info	484 B	-rw-r--r--
module.info.ca	115 B	-rw-r--r--
module.info.ca.UTF-8	128 B	-rw-r--r--
module.info.cz	27 B	-rw-r--r--
module.info.cz.UTF-8	36 B	-rw-r--r--
module.info.de	106 B	-rw-r--r--
module.info.de.UTF-8	118 B	-rw-r--r--
module.info.es	29 B	-rw-r--r--
module.info.es.UTF-8	35 B	-rw-r--r--
module.info.fr	29 B	-rw-r--r--
module.info.fr.UTF-8	35 B	-rw-r--r--
module.info.hu	36 B	-rw-r--r--
module.info.hu.UTF-8	44 B	-rw-r--r--
module.info.ja_JP.UTF-8	52 B	-rw-r--r--
module.info.ja_JP.euc	39 B	-rw-r--r--
module.info.ko_KR.UTF-8	43 B	-rw-r--r--
module.info.ko_KR.euc	33 B	-rw-r--r--
module.info.ms	23 B	-rw-r--r--
module.info.ms.UTF-8	29 B	-rw-r--r--
module.info.ms_MY	110 B	-rw-r--r--
module.info.ms_MY.UTF-8	122 B	-rw-r--r--
module.info.nl	27 B	-rw-r--r--
module.info.nl.UTF-8	33 B	-rw-r--r--
module.info.no	26 B	-rw-r--r--
module.info.no.UTF-8	32 B	-rw-r--r--
module.info.pl	120 B	-rw-r--r--
module.info.pl.UTF-8	133 B	-rw-r--r--
module.info.pt	28 B	-rw-r--r--
module.info.pt.UTF-8	34 B	-rw-r--r--
module.info.ru.UTF-8	36 B	-rw-r--r--
module.info.ru_RU	23 B	-rw-r--r--
module.info.ru_RU.UTF-8	39 B	-rw-r--r--
module.info.ru_SU	23 B	-rw-r--r--
module.info.sv	21 B	-rw-r--r--
module.info.sv.UTF-8	27 B	-rw-r--r--
module.info.tr	26 B	-rw-r--r--
module.info.zh_CN	18 B	-rw-r--r--
module.info.zh_TW.Big5	25 B	-rw-r--r--
msi-lib.pl	8.44 KB	-rwxr-xr-x
open.cgi	238 B	-rwxr-xr-x
openbsd-lib.pl	4.72 KB	-rwxr-xr-x
pkg-lib.pl	2.5 KB	-rw-r--r--
pkgadd-lib.pl	9.97 KB	-rwxr-xr-x
pkgadd-no-ask	164 B	-rw-r--r--
pkgsrc-lib.pl	7.22 KB	-rw-r--r--
ports-lib.pl	3.49 KB	-rw-r--r--
ports_upgrade.cgi	501 B	-rwxr-xr-x
rhn-lib.pl	3.02 KB	-rwxr-xr-x
rhn.cgi	1.3 KB	-rwxr-xr-x
rhn_check.cgi	1.84 KB	-rwxr-xr-x
rpm-lib.pl	11.18 KB	-rwxr-xr-x
rpmfind.cgi	2.11 KB	-rwxr-xr-x
search.cgi	2.27 KB	-rwxr-xr-x
slackware-lib.pl	6.95 KB	-rwxr-xr-x
software-lib.pl	7.56 KB	-rwxr-xr-x
tree.cgi	3.79 KB	-rwxr-xr-x
urpmi-lib.pl	2.14 KB	-rwxr-xr-x
urpmi_upgrade.cgi	839 B	-rwxr-xr-x
view.cgi	899 B	-rwxr-xr-x
yum-lib.pl	12.8 KB	-rwxr-xr-x
yum_upgrade.cgi	908 B	-rwxr-xr-x

Code Editor : slackware-lib.pl

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

# 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";
}

${this.title}

Code Editor : slackware-lib.pl