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

# Functions for MacOS pkgsrc repository

$ENV{'PATH'} .= ":/usr/pkg/bin:/usr/pkg/sbin";
$pkgin_sqlite_db = "/var/db/pkgin/pkgin.db";
$no_package_install = 1;

sub list_package_system_commands
{
return ("pkgin", "sqlite3");
}

# execute_pkgin_sql(command)
# Returns an array of rows, each of which is a hash ref from column name to
# value for that row
sub execute_pkgin_sql
{
my ($sql) = @_;
my $errtemp = &transname();
my $cmd = "sqlite3 -header $pkgin_sqlite_db ".quotemeta($sql)." 2>$errtemp";
&open_execute_command(SQL, $cmd, 1, 1);
my $headline = <SQL>;
$headline =~ s/\r|\n//g;
my @cols = split(/\|/, $headline);
while(my $row = <SQL>) {
	$row =~ s/\r|\n//g;
	my @row = split(/\|/, $row);
	my $r = { };
	for(my $i=0; $i<@cols; $i++) {
		$r->{lc($cols[$i])} = $row[$i];
		}
	push(@rv, $r);
	}
close(SQL);
my $ex = $?;
my $err = &read_file_contents($errtemp);
&unlink_file($errtemp);
if ($err || $?) {
	&error("SQL command $sql failed : ".
	 ($err || $headline || "Unknown error"));
	}
return @rv;
}

# list_packages([package]*)
# Fills the array %packages with all or listed packages
sub list_packages
{
my (@names) = @_;
my $sql = "select * from local_pkg";
if (@names) {
	$sql .= " where pkgname in (".join(", ", map { "'$_'" } @names).")";
	}
my @out = &execute_pkgin_sql($sql);
my $i = 0;
my $arch = &backquote_command("uname -m");
$arch =~ s/\r|\n//g;
foreach my $r (@out) {
	$packages{$i,'name'} = $r->{'pkgname'};
	$packages{$i,'version'} = $r->{'pkgvers'};
	$packages{$i,'desc'} = $r->{'comment'};
	$packages{$i,'arch'} = $arch;
	$packages{$i,'class'} = (split(/\s+/, $r->{'categories'}))[0];
	$packages{$i,'size'} = $r->{'size_pkg'};
	$i++;
	}
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
{
my ($name, $ver) = @_;
my $n = &list_packages($name);
return ( ) if (!$n);
return ($packages{0,'name'}, $packages{0,'class'}, $packages{0,'desc'},
	$packages{0,'arch'}, $packages{0,'version'}, undef, undef);
}

# is_package(file)
# Always returns 0, because pkgsrc doesn't support installing from files
sub is_package
{
return 0;
}

# file_packages(file)
# Returns nothing, because pkgsrc doesn't support installing from files
sub file_packages
{
return ();
}

sub package_system
{
return "PKGsrc";
}

# 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
{
my ($name, $ver) = @_;
my @files = &package_files($name, $ver);
my %errs;
&open_execute_command(CHECK, "pkg_admin check ".quotemeta($name), 1, 1);
while(<CHECK>) {
	if (/^(\/\S+)\s+(.*)/) {
		$errs{$1} = $2;
		}
	}
close(CHECK);
%files = ( );
for(my $i=0; $i<@files; $i++) {
	my @st = stat($files[$i]);
	$files{$i,'path'} = $files[$i];
	$files{$i,'type'} = -l $files[$i] ? 3 :
			 -d $files[$i] ? 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($files[$i]);
	$files{$i,'error'} = $errs{$files[$i]};
	}
return scalar(@files);
}

# package_files(package, [version])
# Returns a list of all files in some package
sub package_files
{
my ($name, $ver) = @_;
&open_execute_command(DUMP, "pkg_admin dump", 1, 1);
while(<DUMP>) {
	if (/file:\s+(\S.*\S)\s+pkg:\s+(\S+)\-/ && $2 eq $name) {
		push(@rv, $1);
		}
	}
close(DUMP);
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
{
my ($file) = @_;
&open_execute_command(DUMP, "pkg_admin dump", 1, 1);
while(<DUMP>) {
	if (/file:\s+(\S.*\S)\s+pkg:\s+(\S+)\-(\S+)/ && $1 eq $file) {
		push(@pkgs, $2);
		push(@vers, $3);
		}
	}
close(DUMP);
return 0 if (!@pkgs);
%file = ( );
$file{'packages'} = join(' ', @pkgs);
$file{'versions'} = join(' ', @vers);
$file{'path'} = $file;
my @st = stat($file);
$file{'type'} = -l $files ? 3 :
		-d $files ? 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($file);
return 1;
}

# delete_package(package, [&options], version)
# Attempt to remove some package
sub delete_package
{
my ($name, $opts, $ver) = @_;
my $out = &backquote_logged("pkgin -y remove ".quotemeta($name)." 2>&1");
return $? ? $out : undef;
}

# delete_packages(&packages, [&options], &versions)
# Attempt to remove multiple packages at once
sub delete_packages
{
my ($names, $opts, $vers) = @_;
my $out = &backquote_logged("pkgin -y remove ".
	join(" ", map { quotemeta($name) } @$names)." 2>&1");
return $? ? $out : undef;
}

###### Update system functions

sub list_update_system_commands
{
return ("pkgin");
}

# update_system_install([package], [&in], [no-force])
# Install some package with apt
sub update_system_install
{
my $update = $_[0] || $in{'update'};
my $in = $_[1];
my $force = !$_[2];
my @rv;

# Build and show command to run
$update = join(" ", map { quotemeta($_) } split(/\s+/, $update));
my $cmd = "pkgin -y install ".$update;
print "",&text('pkgsrc_install', "<tt>$cmd</tt>"),"\n";
print "<pre>";
&additional_log('exec', undef, $cmd);

# Run it
&open_execute_command(CMD, "$cmd", 2);
while(<CMD>) {
	if (/installing\s+(\S+)\-(\d\S*)/i) {
		# New package
		push(@rv, $1);
		}
	print &html_escape("$_");
	}
close(CMD);

print "</pre>\n";
if ($?) { print "$text{'pkg_failed'}\n"; }
else { print "$text{'pkg_ok'}\n"; }
return @rv;
}

# update_system_search(text)
# Returns a list of packages matching some search
sub update_system_search
{
my ($text) = @_;
$text =~ s/\.\*/%/g;
$text =~ s/\./?/g;
my $sql = "select * from remote_pkg";
if ($text) {
	$sql .= " where pkgname like '%$text%' or ".
		"comment like '%$text%'";
	}
my @out = &execute_pkgin_sql($sql);
my @rv;
foreach my $r (@out) {
	push(@rv, { 'name' => $r->{'pkgname'},
		    'version' => $r->{'pkgvers'},
		    'desc' => $r->{'comment'} });
	}
return @rv;
}

# update_system_available()
# Returns a list of package names and versions that are available from PKGSRC
sub update_system_available
{
return &update_system_search(undef);
}

# update_system_updates()
# Returns a list of available package updates
sub update_system_updates
{
my $sql = "select remote_pkg.pkgname,remote_pkg.pkgvers ".
	  "from remote_pkg,local_pkg ".
	  "where remote_pkg.pkgname = local_pkg.pkgname ".
	  "and remote_pkg.pkgvers !=  local_pkg.pkgvers";
my @out = &execute_pkgin_sql($sql);
my @rv;
foreach my $r (@out) {
	push(@rv, { 'name' => $r->{'pkgname'},
		    'version' => $r->{'pkgvers'},
		    'desc' => $r->{'comment'} });
	}
return @rv;

}

# update_system_resolve(name)
# Converts a standard package name like apache, sendmail or squid into
# the name used by ports.
sub update_system_resolve
{
local ($name) = @_;
return $name eq "apache" ? "apache ap24-.*" :
       $name eq "dhcpd" ? "isc-dhcpd" :
       $name eq "mysql" ? "mysql-server mysql-client" :
       $name eq "postgresql" ? "postgresql94-client postgresql94-server" :
       $name eq "openldap" ? "openldap-server openldap-client" :
       			  $name;
}

${this.title}

Code Editor : pkgsrc-lib.pl