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 : rpm-lib.pl

# rpm-lib.pl
# Functions for redhat linux package management

sub list_package_system_commands
{
return ("rpm");
}

# list_packages([package]*)
# Fills the array %packages with all or listed packages
sub list_packages
{
local($i, $list); $i = 0;
$list = @_ ? join(' ', map { quotemeta($_) } @_) : "-a";
%packages = ( );
&open_execute_command(RPM, "rpm -q $list --queryformat \"%{NAME}\\n%{VERSION}-%{RELEASE}\\n%{EPOCH}\\n%{GROUP}\\n%{ARCH}\\n%{SUMMARY}\\n\\n\"", 1, 1);
while($packages{$i,'name'} = <RPM>) {
	chop($packages{$i,'name'});
	chop($packages{$i,'version'} = <RPM>);
	chop($packages{$i,'epoch'} = <RPM>);
	$packages{$i,'epoch'} = undef if ($packages{$i,'epoch'} eq '(none)');
	chop($packages{$i,'class'} = <RPM>);
	chop($packages{$i,'arch'} = <RPM>);
	while(<RPM>) {
		s/\r|\n/ /g;
		last if (!/\S/);
		$packages{$i,'desc'} .= $_;
		}
	if ($packages{$i,'name'} eq 'gpg-pubkey') {
		# Bogus pseudo-package we don't want to include
		$packages{$i,'desc'} = undef;
		$i--;
		}
	$i++;
	}
close(RPM);
return 0 if ($?);	# couldn't find the package
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(@rv, @tmp, $d);
local $n = $_[1] ? "$_[0]-$_[1]" : $_[0];
&open_execute_command(RPM, "rpm -q $n --queryformat \"%{NAME}\\n%{GROUP}\\n%{ARCH}\\n%{VERSION}-%{RELEASE}\\n%{VENDOR}\\n%{INSTALLTIME}\\n\" 2>/dev/null", 1, 1);
@tmp = <RPM>;
chop(@tmp);
local $ex = close(RPM);
if (!@tmp || $tmp[0] =~ /not\s+installed/) { return (); }
&open_execute_command(RPM, "rpm -q $n --queryformat \"%{DESCRIPTION}\"", 1, 1);
while(<RPM>) { $d .= $_; }
close(RPM);
return ($tmp[0], $tmp[1], $d, $tmp[2], $tmp[3], $tmp[4], &make_date($tmp[5]));
}

# is_package(file)
# Check if some file is a package file
sub is_package
{
local($out);
local $real = &translate_filename($_[0]);
if (-d $real) {
	# a directory .. see if it contains any .rpm files
	opendir(DIR, $real);
	local @list = grep { /\.rpm$/ } readdir(DIR);
	closedir(DIR);
	return @list ? 1 : 0;
	}
elsif ($real =~ /\*|\?/) {
	# a wildcard .. see what it matches
	local @list = glob($real);
	return @list ? 1 : 0;
	}
else {
	# just a normal file .. check if it is an RPM and not an SRPM
	local $qm = quotemeta($_[0]);
	$out = &backquote_command("rpm -q -p $qm 2>&1", 1);
	if ($out =~ /does not appear|No such file|with major numbers|not an rpm/i || $?) {
		return 0;
		}
	&open_execute_command(OUT, "rpm -q -p -l $qm 2>&1", 1, 1);
	while(<OUT>) {
		return 0 if (/^([^\/\s]+)\.spec$/);
		}
	close(OUT);
	return 1;
	}
}

# file_packages(file)
# Returns a list of all packages in the given file, in the form
# package-version description
sub file_packages
{
local $real = &translate_filename($_[0]);
local $qm = quotemeta($_[0]);
if (-d $real) {
	local @rv;
	&open_execute_command(RPM, "cd $qm ; rpm -q -p *.rpm --queryformat \"%{NAME} %{SUMMARY}\\n\" 2>&1", 1, 1);
	while(<RPM>) {
		chop;
		push(@rv, $_) if (!/does not appear|query of.*failed|warning:/);
		}
	close(RPM);
	return @rv;
	}
elsif ($_[0] =~ /\*|\?/) {
	local @rv;
	&open_execute_command(RPM, "rpm -q -p $_[0] --queryformat \"%{NAME} %{SUMMARY}\\n\" 2>&1", 1);
	while(<RPM>) {
		chop;
		push(@rv, $_) if (!/does not appear|query of.*failed|warning:/);
		}
	close(RPM);
	return @rv;
	}
else {
	local($out);
	$out = &backquote_command("rpm -q -p $qm --queryformat \"%{NAME} %{SUMMARY}\\n\" 2>&1", 1);
	$out =~ s/warning:.*\n//;
	$out =~ s/\n//g;
	return ($out);
	}
}

# install_options(file, package)
# Outputs HTML for choosing install options for some package
sub install_options
{
print &yesno_input($text{'rpm_upgrade'}, "upgrade", 1, 0, 1);
print &yesno_input($text{'rpm_replacepkgs'}, "replacepkgs", 1, 0);

print &yesno_input($text{'rpm_nodeps'}, "nodeps", 1, 0);
print &yesno_input($text{'rpm_oldpackage'}, "oldpackage", 1, 0);

print &yesno_input($text{'rpm_noscripts'}, "noscripts", 0, 1);
print &yesno_input($text{'rpm_excludedocs'}, "excludedocs", 0, 1);

print &yesno_input($text{'rpm_notriggers'}, "notriggers", 0, 1);
print &yesno_input($text{'rpm_ignoresize'}, "ignoresize", 0, 1);

print &yesno_input($text{'rpm_replacefiles'}, "replacefiles", 1, 0);
print &ui_table_row(&hlink($text{'rpm_root'}, "root"),
		&ui_textbox("root", "/", 50)." ".
		&file_chooser_button("root", 1), 3);
}

sub yesno_input
{
return &ui_table_row(&hlink($_[0], $_[1]),
		     &ui_radio($_[1], int($_[4]),
			       [ [ $_[2], $text{'yes'} ],
				 [ $_[3], $text{'no'} ] ]));
}

# install_package(file, package, [&inputs])
# Install the given package from the given file, using options from %in
sub install_package
{
local $file = $_[0];
local $real = &translate_filename($file);
local $in = $_[2] ? $_[2] : \%in;
local $opts;
foreach $o ('oldpackage', 'replacefiles', 'replacepkgs', 'noscripts',
	 'excludedocs', 'nodeps', 'upgrade', 'notriggers', 'ignoresize') {
	if ($in->{$o}) { $opts .= " --$o"; }
	}
if ($in->{'root'} =~ /^\/.+/) {
	if (!(-d $in{'root'})) {
		return &text('rpm_eroot', $in->{'root'});
		}
	$opts .= " --root $in->{'root'}";
	}
if (-d $real) {
	# Find the package in the directory
	local ($f, $out);
	opendir(DIR, $real);
	while($f = readdir(DIR)) {
		next if ($f !~ /\.rpm$/);
		$out = &backquote_command("rpm -q -p $file/$f --queryformat \"%{NAME}\\n\" 2>&1", 1);
		$out =~ s/warning:.*\n//;
		$out =~ s/\n//;
		if ($out eq $_[1]) {
			$file = "$file/$f";
			last;
			}
		}
	closedir(DIR);
	&error(&text('rpm_erpm', $_[1], $out)) if ($file eq $_[0]);
	}
elsif ($file =~ /\*|\?/) {
	# Find the package in the glob
	# XXX won't work when translation is in effect
	local ($f, $out);
	foreach $f (glob($real)) {
		$out = &backquote_command("rpm -q -p $f --queryformat \"%{NAME}\\n\" 2>&1", 1);
		$out =~ s/warning:.*\n//;
		$out =~ s/\n//;
		if ($out eq $_[1]) {
			$file = $f;
			last;
			}
		}
	&error(&text('rpm_erpm', $_[1], $out)) if ($file eq $_[0]);
	}
local $temp = &transname();
local $rv = &system_logged("rpm -i $opts ".quotemeta($file)." >$temp 2>&1");
local $out = &backquote_command("cat $temp");
$out =~ s/warning:.*\n//;
&unlink_file($temp);
if ($rv) {
	return "<pre>$out</pre>";
	}
return undef;
}

# install_packages(file, [&inputs])
# Installs all the packages in the given file or glob
sub install_packages
{
local $file = $_[0];
local $in = $_[1] ? $_[1] : \%in;
local $opts;
foreach $o ('oldpackage', 'replacefiles', 'replacepkgs', 'noscripts',
	 'excludedocs', 'nodeps', 'upgrade', 'notriggers', 'ignoresize') {
	if ($in->{$o}) { $opts .= " --$o"; }
	}
if ($in->{'root'} =~ /^\/.+/) {
	if (!(-d $in{'root'})) {
		return &text('rpm_eroot', $in->{'root'});
		}
	$opts .= " --root $in->{'root'}";
	}
if (-d &translate_filename($file)) {
	# Install everything in a directory
	$file = "$file/*.rpm";
	}
else {
	# Install packages matching a glob (no need for any special action)
	}
local $temp = &transname();
local $rv = &system_logged("rpm -i $opts $file >$temp 2>&1");
local $out = &backquote_command("cat $temp");
$out =~ s/warning:.*\n//;
unlink($temp);
if ($rv) {
	return "<pre>$out</pre>";
	}
return undef;
}

# 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 size error
sub check_files
{
local($i, $_, @w, %errs, $epath); $i = 0;
local $n = $_[1] ? "$_[0]-$_[1]" : $_[0];
local $qn = quotemeta($n);
&open_execute_command(RPM, "rpm -V $qn", 1, 1);
while(<RPM>) {
	/^(.{8}) (.) (.*)$/;
	if ($1 eq "missing ") {
		$errs{$3} = $text{'rpm_missing'};
		}
	else {
		$epath = $3;
		@w = grep { $_ ne "." } split(//, $1);
		$errs{$epath} =
			join("\n", map { &text('rpm_checkfail', $etype{$_}) } @w);
		}
	}
close(RPM);
&open_execute_command(RPM, "rpm -q $qn -l --dump", 1, 1);
while(<RPM>) {
	chop;
	@w = split(/ /);
	$files{$i,'path'} = $w[0];
	if ($w[10] ne "X") { $files{$i,'link'} = $w[10]; }
	$files{$i,'type'} = $w[10] ne "X" ? 3 :
			 (-d &translate_filename($w[0])) ? 1 :
			 $w[7] ? 5 : 0;
	$files{$i,'user'} = $w[5];
	$files{$i,'group'} = $w[6];
	$files{$i,'size'} = $w[1];
	$files{$i,'error'} = $w[7] ? "" : $errs{$w[0]};
	$i++;
	}
close(RPM);
return $i;
}

# package_files(package, [version])
# Returns a list of all files in some package
sub package_files
{
local ($pkg, $version) = @_;
local $qn = quotemeta($version ? "$pkg-$version" : $pkg);
local @rv;
&open_execute_command(RPM, "rpm -q -l $qn", 1, 1);
while(<RPM>) {
	s/\r|\n//g;
	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($pkg, @w, $_, @pkgs, @vers);
undef(%file);
local $qm = quotemeta($_[0]);
$pkg = &backquote_command("rpm -q -f $qm --queryformat \"%{NAME}\\n\" 2>&1", 1);
if ($pkg =~ /not owned/ || $?) { return 0; }
@pkgs = split(/\n/, $pkg);
$pkg = &backquote_command("rpm -q -f $qm --queryformat \"%{VERSION}-%{RELEASE}\\n\" 2>&1", 1);
@vers = split(/\n/, $pkg);
&open_execute_command(RPM, "rpm -q $pkgs[0] -l --dump", 1, 1);
while(<RPM>) {
	chop;
	@w = split(/ /);
	if ($w[0] eq $_[0]) {
		$file{'packages'} = join(' ', @pkgs);
		$file{'versions'} = join(' ', @vers);
		$file{'path'} = $w[0];
		if ($w[10] ne "X") { $files{$i,'link'} = $w[10]; }
		$file{'type'} = $w[10] ne "X" ? 3 :
				(-d &translate_filename($w[0])) ? 1 :
				$w[7] ? 5 : 0;
		$file{'user'} = $w[5];
		$file{'group'} = $w[6];
		$file{'mode'} = substr($w[4], -4);
		$file{'size'} = $w[1];
		last;
		}
	}
close(RPM);
return 1;
}

# delete_options(package)
# Outputs HTML for package uninstall options
sub delete_options
{
print "$text{'delete_nodeps'}\n";
print &ui_yesno_radio("nodeps", 0)," \n";

print "$text{'delete_noscripts'}\n";
print &ui_yesno_radio("noscripts", 0)," \n";
}

# delete_package(package, [&options], version)
# Attempt to remove some package
sub delete_package
{
local $opts;
$opts .= $_[1]->{'nodeps'} ? "--nodeps " : "";
$opts .= $_[1]->{'noscripts'} ? "--noscripts " : "";
local $n = $_[2] ? "$_[0]-$_[2]" : $_[0];
local $qm = quotemeta($n);
local $out = &backquote_logged("rpm -e $opts $qm 2>&1");
if ($? || $out =~ /error:/) { return "<pre>$out</pre>"; }
return undef;
}

# delete_packages(&packages, [&options], &versions)
# Attempt to remove multiple packages at once
sub delete_packages
{
local $opts;
$opts .= $_[1]->{'nodeps'} ? "--nodeps " : "";
$opts .= $_[1]->{'noscripts'} ? "--noscripts " : "";
local $cmd = "rpm -e $opts";
local $i;
for($i=0; $i<@{$_[0]}; $i++) {
	if ($_[2]->[$i]) {
		$cmd .= " ".quotemeta($_[0]->[$i]."-".$_[2]->[$i]);
		}
	else {
		$cmd .= " ".quotemeta($_[0]->[$i]);
		}
	}
local $out = &backquote_logged("$cmd 2>&1");
if ($? || $out =~ /error:/) { return "<pre>$out</pre>"; }
return undef;
}

sub package_system
{
return "RPM";
}

sub package_help
{
return "rpm";
}

%etype = (	"5", $text{'rpm_md5'},	"S", $text{'rpm_fsize'},
		"L", $text{'rpm_sym'},	"T", $text{'rpm_mtime'},
		"D", $text{'rpm_dev'},	"U", $text{'rpm_user'},
		"M", $text{'rpm_perm'},	"G", $text{'rpm_group'} );

$has_search_system = 1;

sub search_system_input
{
print "<input type=button onClick='window.ifield = document.forms[2].url; chooser = window.open(\"rpmfind.cgi\", \"chooser\", \"toolbar=no,menubar=no,scrollbars=yes,width=800,height=500\")' value=\"$text{'rpm_find'}\">";
}

${this.title}

Code Editor : rpm-lib.pl