summaryrefslogtreecommitdiffstats
path: root/base/pkg-get
diff options
context:
space:
mode:
Diffstat (limited to 'base/pkg-get')
-rw-r--r--base/pkg-get/.md5sum2
-rw-r--r--base/pkg-get/Pkgfile6
-rw-r--r--base/pkg-get/pkg-get1208
-rw-r--r--base/pkg-get/pkg-get-0.4.5-NuTyX-01.patch276
-rw-r--r--base/pkg-get/pkg-get.patch12
5 files changed, 1488 insertions, 16 deletions
diff --git a/base/pkg-get/.md5sum b/base/pkg-get/.md5sum
index a8f835422..b367c9862 100644
--- a/base/pkg-get/.md5sum
+++ b/base/pkg-get/.md5sum
@@ -1,5 +1,5 @@
+a7899560ed0004d8d3fda72274dbd44f pkg-get-0.4.5-NuTyX-01.patch
5ee169f2f99fc501387219b6b96ca9ef pkg-get-0.4.5.tar.gz
10721fb1fe16ab0305320f9278eb1087 pkg-get.conf
-c3fb4f7ca868903da78d316be77cca16 pkg-get.patch
c4cca630bfcc85a3f3b13497aff01310 pkg-repgen.patch
822d7518ce531572db5f285169e8502b syn
diff --git a/base/pkg-get/Pkgfile b/base/pkg-get/Pkgfile
index c9a02dbfc..706940505 100644
--- a/base/pkg-get/Pkgfile
+++ b/base/pkg-get/Pkgfile
@@ -6,15 +6,15 @@
name=pkg-get
version=0.4.5
-release=7
+release=8
source=(http://www.varlock.com/files/$name-$version.tar.gz \
- $name.patch pkg-get.conf pkg-repgen.patch syn)
+ pkg-get-0.4.5-NuTyX-01.patch pkg-get.conf pkg-repgen.patch syn)
build() {
ARCH_=`uname -m`
cd $name-$version
patch -Np1 -i ../pkg-repgen.patch
- patch -p1 < ../$name.patch
+ patch -Np1 -i ../pkg-get-$version-NuTyX-01.patch
make PREFIX=$PKG/usr CFGDIR=$PKG/etc install
install -m 755 ../syn $PKG/usr/bin/syn
sed -i "s|CRUX Packages|Paquets NuTyX Architecture $ARCH_|g" $PKG/usr/bin/pkg-repgen
diff --git a/base/pkg-get/pkg-get b/base/pkg-get/pkg-get
new file mode 100644
index 000000000..a9ffe3384
--- /dev/null
+++ b/base/pkg-get/pkg-get
@@ -0,0 +1,1208 @@
+#!/usr/bin/env perl
+# -*- coding: utf-8 -*-
+#
+# pkg-get - A binary package management utility for CRUX Linux
+# Copyright (C) 2004-06 Simone Rota <sip@varlock.com>
+# Modified by Arnaud Fernandés <ferarduansednan@laposte.net> 2009-10
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+
+use warnings;
+use strict;
+use Getopt::Long;
+
+my $VERSION = "0.4.5";
+my $CFGFILE = "/etc/pkg-get.conf";
+my $LOCKFILE = "/var/lib/pkg/pkg-get.locker";
+my $PKGDB = "/var/lib/pkg/db" ;
+
+$SIG{HUP} = \&trap; $SIG{INT} = \&trap; $SIG{QUIT} = \&trap; $SIG{TERM} = \&trap;
+
+# Global vars
+my @repos = (); # package repositories
+my @donetasks; my @failtasks; my @prevtasks; my %pptasks; my %readmetasks;
+my $curraction = ""; my %installed; my %deps; my @dependencies; my %missingdeps;
+
+# CL Options
+my $download_only; my $pre_install; my $post_install;
+my $install_scripts; my $filter = ""; my $all; my $unused;
+my $aargs=""; my $ignore_md5sum; my $force; my $root;
+GetOptions("do"=>\$download_only,
+ "pre-install"=>\$pre_install, "post-install"=>\$post_install,
+ "install-scripts"=>\$install_scripts, "all"=>\$all,
+ "filter=s"=>\$filter, "config=s"=>\$CFGFILE, "aargs=s"=>\$aargs,
+ "f"=>\$force, "im"=>\$ignore_md5sum, "margs=s"=>\$unused,
+ "rargs=s"=>\$unused, "r=s"=>\$root);
+
+if ($root) {
+ $LOCKFILE = $root.$LOCKFILE ;
+ $PKGDB = $root.$PKGDB;
+}
+
+# Get command, verify it's valid
+my $command = getcommand(@ARGV);
+if (index($command,"Error: ") eq 0 ) {
+ $command =~ s/Error\: //;
+ exiterr($command);
+}
+readconfig();
+
+my $exitcode = 0; # 2009-10
+
+SWITCH: {
+ if ($command eq "version") { version(); last SWITCH; }
+ if ($command eq "sync") { sync(); last SWITCH; }
+ if ($command eq "info") { info(); last SWITCH; }
+ if ($command eq "help") { help(); last SWITCH; }
+ if ($command eq "readme") { readme(); last SWITCH; }
+ if ($command eq "search") { search(); last SWITCH; }
+ if ($command eq "dsearch") { dsearch(); last SWITCH; }
+ if ($command eq "list") { list(); last SWITCH; }
+ if ($command eq "path") { path(); last SWITCH; }
+ if ($command eq "remove") { remove(); last SWITCH; }
+ if ($command eq "listinst") { listinst(); last SWITCH; }
+ if ($command eq "lock") { dolock(); last SWITCH; }
+ if ($command eq "unlock") { unlock(); last SWITCH; }
+ if ($command eq "listlocked") { listlocked(); last SWITCH; }
+ if ($command eq "printf") { doprintf(); last SWITCH; }
+ if ($command eq "isinst") { isinst(); last SWITCH; }
+ if ($command eq "diff") { diff(); last SWITCH; }
+ if ($command eq "quickdiff") { quickdiff(); last SWITCH; }
+ if ($command eq "dup") { dup(); last SWITCH; }
+ if ($command eq "depends") { depends(); last SWITCH; }
+ if ($command eq "quickdep") { quickdep(); last SWITCH; }
+ if ($command eq "install") { install(@ARGV); last SWITCH; }
+ if ($command eq "update") { update(@ARGV); last SWITCH; }
+ if ($command eq "sysup") { sysup(); last SWITCH; }
+ if ($command eq "dependent") { dependent(); last SWITCH; }
+ if ($command eq "depinst") { $exitcode = depinst(); last SWITCH; } # 2009-10
+ if ($command eq "current") { current(); last SWITCH; }
+}
+
+exit($exitcode); # 2009-10
+
+############################################################################
+# Support functions
+############################################################################
+
+# Exit with error
+sub exiterr {
+ my ($msg) = @_;
+ print "pkg-get: $msg\n";
+ exit 1;
+}
+
+sub trap {
+ printresults(1);
+ die("\npkg-get: interrupted\n");
+}
+
+# Get command, return an error if not in the list of allowed commands
+sub getcommand {
+ my @args = @_;
+ my $givencmd = $args[0];
+ my $givenarg = $args[1];
+ if (not $givenarg){$givenarg = ""};
+ if (not $givencmd){$givencmd = ""};
+ my @allowed = ("depinst:", "install:", "sysup", "diff", "update:", "depends:", "info:", "sync",
+ "version", "help", "quickdep:", "dependent:", "list", "listinst", "isinst:",
+ "search:", "dsearch:", "lock:", "unlock:", "listlocked", "quickdiff", "printf:",
+ "remove:", "readme:", "dup", "path:", "current:");
+
+ foreach my $valid(@allowed) {
+ if ($givencmd eq ""){
+ return "Error: no command given. try pkg-get help for more information";
+ }
+ if ($givencmd eq $valid) {
+ return $givencmd;
+ } elsif ($givencmd.":" eq $valid) {
+ if ($givenarg ne "") {
+ return $givencmd;
+ } else {
+ return "Error: '$givencmd' requires an argument";
+ }
+ }
+ }
+ return "Error: unknown command '$givencmd'. try pkg-get help for more information";
+}
+
+# Parses the configuration file
+sub readconfig {
+ open(CFG, $CFGFILE)
+ or exiterr("could not open $CFGFILE");
+ while (<CFG>) {
+ chomp;
+ if ( /^pkgdir\s+/ ) {
+ my $repo = $_;
+ $repo =~ s/^pkgdir\s+//;
+ $repo =~ s/#(.*)$//;
+ $repo =~ s/\s+$//;
+ push @repos, $repo;
+ } elsif (/^runscripts\s+/) {
+ my $rs = $_;
+ $rs =~ s/^runscripts\s+//;
+ $rs =~ s/#(.*)$//;
+ $rs =~ s/\s+$//;
+ if ($rs eq "yes") {$install_scripts = 1};
+ }
+ }
+ close(CFG);
+}
+
+# Parse a line describing a package
+sub parsepackage {
+ my @p = split(/\:/, $_[0]);
+ if ($#p != 6) {exiterr("$_[1]/PKGREPO appears to be in wrong format!\nAborting.")};
+ my %pkg;
+ my $name = $p[0];
+ $name =~ s/\#.*$//;
+ my $version = $p[0];
+ $version =~ s/^.*\#//;
+ $version =~ s/-\w*\.pkg\.tar\.gz//;
+ my $release = $p[0];
+ $release =~ s/^.*-//;
+ $release =~ s/\.pkg\.tar\.gz//;
+ if (not $_[2]) {$_[2] = $_[1]};
+ $pkg{'name'} = $name;
+ $pkg{'version'} = $version;
+ $pkg{'release'} = $release;
+ $pkg{'path'} = $_[1];
+ $pkg{'url'} = $_[2] . "/$p[0]";
+ $pkg{'size'} = $p[1];
+ $pkg{'md5sum'} = $p[2];
+ $pkg{'description'} = $p[3];
+ $pkg{'pre_install'} = $p[4];
+ $pkg{'post_install'} = $p[5];
+ $pkg{'readme'} = $p[6];
+ if ($_[3] == 1) {
+ getinstalled();
+ $pkg{'instversion'} = $installed{$name};
+ }
+ return %pkg;
+}
+
+# Parse a line describing a package (just the name)
+sub parsepackagelight {
+ my @p = split(/\:/, $_[0]);
+ if ($#p != 6) {exiterr("$_[1]/PKGREPO appears to be in wrong format!\nAborting.")};
+ my %pkg;
+ my $name = $p[0];
+ $name =~ s/\#.*$//;
+ $pkg{'name'} = $name;
+ return %pkg;
+}
+
+# Print info about the given package
+sub printinfo {
+ my %pkg = @_;
+ print "Name : " . $pkg{'name'} . "\n";
+ print "Version : " . $pkg{'version'} . "\n";
+ print "Release : " . $pkg{'release'} . "\n";
+ print "Description : " . $pkg{'description'} . "\n";
+ print "URL : " . $pkg{'url'} . "\n";
+ print "Md5sum : " . $pkg{'md5sum'} . "\n";
+ print "Size : " . $pkg{'size'} . "\n";
+ my $deps = getdirectdeps($pkg{'name'}, $pkg{'path'});
+ if ($deps ne "") { print "Depends on : $deps\n";};
+ my $files = "";
+ if ($pkg{'readme'} eq "yes") {$files .= "README,"};
+ if ($pkg{'pre_install'} eq "yes") {$files .= "pre-install,"};
+ if ($pkg{'post_install'} eq "yes") {$files .= "post-install,"};
+ $files =~ s/\,$//;
+ if ($files ne "") { print "Files : $files\n";};
+}
+
+# Get direct dependencies for package
+sub getdirectdeps {
+ my $pkgname = $_[0];
+ my $dir = $_[1];
+ open(DEPS, "$dir/PKGDEPS")
+ or exiterr("could not open $dir/PKGDEPS");
+ while (<DEPS>) {
+ chomp;
+ if ( /^\Q$pkgname\E\s+/ ) {
+ my $dep = $_;
+ $dep =~ s/^.*\: //;
+ close(DEPS);
+ return $dep;
+ }
+ }
+ close(DEPS);
+ return "";
+}
+
+# Prints the README file to stdout
+sub printreadme {
+ my %pkg = @_;
+ my $dir = $pkg{'path'};
+ my $pkgname = $pkg{'name'};
+ my $found = 0;
+ my $finished = 0;
+ open(READ, "$dir/PKGREAD")
+ or exiterr("could not open $dir/PKGREAD");
+ while (<READ>) {
+ if ($finished eq 1) {return;};
+ chomp;
+ if ($found eq 1) {
+ if ( /PKGREADME\:/ ) {
+ $finished = 1;
+ close(READ);
+ return;
+ } else {
+ print "$_\n";
+ }
+ }
+ if ($finished eq 0) {
+ if ( /PKGREADME: $pkgname$/ ) {
+ $found = 1;
+ }
+ }
+ }
+ close(READ);
+}
+
+# Print results for multiple package operations
+sub printresults {
+ my $okaction = $curraction;
+ my $curr = "";
+ my $action;
+ my $pkg;
+ my @t;
+ my @readme;
+ my $goterror = 0;
+ if (@donetasks) {
+ print "\n-- Packages $okaction\n";
+ foreach my $task(@donetasks) {
+ if ($readmetasks{$task}) {push(@readme, $task)}
+ print "$task" . $pptasks{$task}."\n";
+ }
+ }
+ if (@prevtasks) {
+ if ($okaction eq "installed") {
+ print "\n-- Packages installed before this run (ignored)\n";
+ } else {
+ print "\n-- Packages not previously installed (ignored)\n";
+ }
+ foreach my $task(@prevtasks) {
+ print "$task\n";
+ }
+ }
+ if (@failtasks) {
+ @failtasks = sort(@failtasks);
+ foreach my $task(@failtasks) {
+ @t = split(/,/,$task);
+ $action = $t[0];
+ $pkg = $t[1];
+ if ($curr ne $action) {
+ print "\n-- Packages $action\n";
+ $curr = $action;
+ }
+ print "$pkg\n";
+ }
+ }
+ if (@readme) {
+ print "\n-- $okaction packgages with README file\n";
+ foreach my $task(@readme) {
+ print "$task" . $pptasks{$task}."\n";
+ }
+ }
+ if(@donetasks and not @failtasks and not $_[0]) {
+ print "\npkg-get: $okaction successfully\n"
+ }
+}
+
+# Get the list of installed packages
+sub getinstalled {
+ if (%installed) {
+ return;
+ }
+ my $name;
+ my $version;
+ my $sec = 0;
+ open(DB, $PKGDB)
+ or exiterr("could not open ".$PKGDB);
+ while (<DB>) {
+ chomp;
+ if ($_ ne "") {
+ if ($sec == 0) {
+ $name = $_;
+ $sec = 1;
+ } elsif ($sec == 1) {
+ $version = $_;
+ $sec = 3;
+ }
+ }
+ if ($sec == 3) {
+ if ($_ eq "") {
+ $sec = 0;
+ $installed{$name} = $version;
+ }
+ }
+ }
+ close(DB);
+}
+
+# Lock the given pkgname
+sub lockadd {
+ my $pkg = $_[0];
+ my @locked = ();
+ if (not -e $LOCKFILE) {
+ open(LCK, "+>> $LOCKFILE") or exiterr("could not write to lock file");
+ close(LCK);
+ }
+ open(LCK, $LOCKFILE);
+ while (<LCK>) {
+ chomp;
+ if ($_ eq $pkg) {
+ print "Already locked: $pkg\n";
+ close(LCK);
+ return;
+ } else {
+ push (@locked, $_);
+ }
+ }
+ close(LCK);
+ push(@locked, $pkg);
+ @locked = sort(@locked);
+ open(LCK, "> $LOCKFILE") or exiterr("could not write to lock file");
+ foreach my $lock(@locked) {
+ print LCK "$lock\n";
+ }
+ close(LCK);
+}
+
+# Rrint formatted info for given package
+sub formattedprint {
+ my %pkg = @_;
+ my $fmt = $ARGV[1];
+ $fmt =~ s|%n|$pkg{'name'}|;
+ $fmt =~ s|%p|$pkg{'path'}|;
+ $fmt =~ s|%v|$pkg{'version'}|;
+ $fmt =~ s|%r|$pkg{'release'}|;
+ $fmt =~ s|%d|$pkg{'description'}|;
+ $fmt =~ s|%u|$pkg{'url'}|;
+ $fmt =~ s|%R|$pkg{'readme'}|;
+ $fmt =~ s|%E|$pkg{'pre_install'}|;
+ $fmt =~ s|%O|$pkg{'post_install'}|;
+ $fmt =~ s|%M|Nobody|; # for prt-get compatibility
+ $fmt =~ s|%P|Nobody|; # for prt-get compatibility
+ $fmt =~ s|\\n|\n|;
+ $fmt =~ s|\\t|\t|;
+ if (index($fmt,"%e") >=0) {
+ my $deps = getdirectdeps($pkg{'name'}, $pkg{'path'});
+ $fmt =~ s|%e|$deps|;
+ }
+ if (index($fmt,"%l") >=0) {
+ my $locked = islocked($pkg{'name'});
+ $fmt =~ s|%l|$locked|;
+ }
+ if (index($fmt,"%i") >=0) {
+ my $inst = "no";
+ if ($pkg{'instversion'}) {
+ if ($pkg{'instversion'} eq $pkg{'version'}."-".$pkg{'release'}) {
+ $inst = "yes";
+ } else {
+ $inst = "diff";
+ }
+ }
+ $fmt =~ s|%i|$inst|;
+ }
+ print "$fmt";
+}
+
+# See if package is currently locked
+sub islocked {
+ my $pkg = $_[0];
+ open(LCK, $LOCKFILE) or return "no";
+ while (<LCK>) {
+ chomp;
+ if ($_ eq $pkg) {
+ close(LCK);
+ return "yes";
+ }
+ }
+ close(LCK);
+ return "no";
+}
+
+# Get package from the repo(s)
+sub getpackage {
+ my $pkgname = $_[0];
+ my $checkver = $_[1];
+ my %found;
+ my %res;
+ foreach my $repo(@repos) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(REPO, "$dir/PKGREPO") or exiterr("could not open $dir/PKGREPO");
+ while (<REPO>) {
+ chomp;
+ my %pkg = parsepackage($_, $dir, $url, $checkver);
+ if ($pkg{'name'} eq $pkgname) {
+ close (REPO);
+ return %pkg;
+ }
+ }
+ close (REPO);
+ }
+ return %res;
+}
+
+# Get short status for package, ie [i]
+sub getshortstatus {
+ my %pkg = @_;
+ if ($pkg{'instversion'}) {
+ if ($pkg{'instversion'} eq $pkg{'version'}."-".$pkg{'release'}) {
+ return "[i]";
+ } else {
+ return "[u]";
+ }
+ }
+ return "[ ]";
+}
+
+# Get (recursive) dependencies for pkgname
+sub getdependencies {
+ my $pkgname = $_[0];
+ my $checkver = $_[1];
+ my $pkgparent = $_[2];
+ my $depstring = "";
+ if ($pkgparent eq "") {
+ #%deps = ();
+ };
+ if (not $deps{$pkgname}) {
+ my %pkg = getpackage($pkgname, 1);
+ if (%pkg) {
+ my $ddeps = getdirectdeps($pkg{'name'}, $pkg{'path'});
+ my @d = split(/,/, $ddeps);
+ foreach my $dep(@d) {
+ getdependencies($dep, $checkver, $pkgname);
+ }
+ if ($checkver) {
+ $depstring = getshortstatus(%pkg) . " $pkgname";
+ } else {
+ $depstring = $pkgname;
+ }
+ $deps{$pkgname} = $depstring;
+ push(@dependencies, $depstring);
+ } else {
+ if ($pkgparent eq "") {
+ return 0;
+ } else {
+ $missingdeps{$pkgname} = $pkgparent;
+ }
+ }
+ }
+}
+
+# Download given package (if needed), check md5sum
+sub downloadpkg {
+ my %pkg = @_;
+ my $fullpath = $pkg{'path'}."/".$pkg{'name'}."#".$pkg{'version'}."-".$pkg{'release'}.".pkg.tar.gz";
+ if (-f $fullpath) {
+ my $md5 = `md5sum $fullpath`; chomp;
+ $md5 =~ s/\s+.*$//;
+ $md5 =~ chop($md5);
+ if ($md5 ne $pkg{'md5sum'} and not $ignore_md5sum) {
+ print STDERR "=======> ERROR: md5sum mismatch for $pkg{'name'}:\n";
+ print STDERR "required : $pkg{'md5sum'}\n";
+ print STDERR "found : $md5\n";
+ return 0;
+ }
+ return 1;
+ } else {
+ if ($pkg{'url'} eq "") {return 1}; # repo is local and pkg does not exist.
+ my $url = $pkg{'url'};
+ $url =~ s/\#/\%23/;
+ system ("wget --no-directories --tries=3 --waitretry=3 --directory-prefix=$pkg{'path'} $url") == 0 or return 0;
+ my $md5 = `md5sum $fullpath`; chomp;
+ $md5 =~ s/\s+.*$//;
+ $md5 =~ chop($md5);
+ if ($md5 ne $pkg{'md5sum'} and not $ignore_md5sum) {
+ print STDERR "=======> ERROR: md5sum mismatch for $pkg{'name'}:\n";
+ print STDERR "required : $pkg{'md5sum'}\n";
+ print STDERR "found : $md5\n";
+ return 0;
+ }
+ }
+ return 1;
+}
+
+# Install given package
+sub installpkg {
+ my $upgrade = shift(@_);
+ my %pkg = @_;
+ my $aa = $aargs." ";
+ if ($pkg{'readme'} eq "yes") {$readmetasks{$pkg{'name'}} = 1};
+ $pptasks{$pkg{'name'}} = "";
+ if ($download_only) {return 1};
+ if ($force){$aa = $aa."-f "};
+ if ($root) {$aa = $aa."-r ".$root." "};
+ if ($pkg{'pre_install'} eq "yes" and ($install_scripts or $pre_install)) {dopre(%pkg)};
+ my $fullpath = $pkg{'path'}."/".$pkg{'name'}."#".$pkg{'version'}."-".$pkg{'release'}.".pkg.tar.gz";
+ print "pkg-get: /usr/bin/pkgadd $upgrade$aa$fullpath\n";
+ system ("/usr/bin/pkgadd $upgrade$aa$fullpath") == 0 or return 0;
+ if ($pkg{'post_install'} eq "yes" and ($install_scripts or $post_install)) {dopost(%pkg)};
+ return 1;
+}
+
+# Execute pre-install script
+sub dopre {
+ my %pkg = @_;
+ my $cmd = "/bin/bash $pkg{'path'}/PKGINST $pkg{name}_pre_install";
+ if (system($cmd) == 0){
+ $pptasks{$pkg{'name'}} .= " [pre: ok]";
+ } else {
+ $pptasks{$pkg{'name'}} .= " [pre: failed]";
+ }
+}
+
+# Execute post-install script
+sub dopost {
+ my %pkg = @_;
+ my $cmd = "/bin/bash $pkg{'path'}/PKGINST $pkg{name}_post_install";
+ if (system($cmd) == 0){
+ $pptasks{$pkg{'name'}} .= " [post: ok]";
+ } else {
+ $pptasks{$pkg{'name'}} .= " [post: failed]";
+ }
+}
+
+############################################################################
+# Main functions (commands)
+############################################################################
+
+# No pun intended ##########################################################
+sub version {
+ print "pkg-get $VERSION ";
+ print "by Simone Rota <sip\@varlock.com>\n";
+}
+
+# Show brief help ##########################################################
+sub help {
+ print "Usage: pkg-get command <package1> [package2 ... packageN] [options]
+
+Some command:
+ sync synchronize with the repository
+ depinst install package and its dependencies;
+ info info about package
+ sysup updates all outdated packages
+ diff list all outdated packages
+
+Some option:
+ -do download only
+ --install-scripts use install scripts
+ -r <root> use <root> for pkgadd
+
+Example:
+ pkg-get install sqlite pysqlite
+
+For other commands and samples, see the pkg-get(8) man page\n";
+}
+
+# Sync with the remote server(s) ###########################################
+sub sync {
+ my @r;
+ my $dir;
+ my $url;
+ my $dlerror = 0;
+ foreach my $repo(@repos) {
+ @r = split(/\|/, $repo);
+ $dir = $r[0];
+ $url = $r[1];
+ if (not $url){$url = ""};
+ print "Updating collection $dir\n";
+ if (not -d $dir) {
+ mkdir($dir) or exiterr("cannot create $dir");
+ }
+ if ($url ne "") {
+ for my $f ("PKGREPO", "PKGDEPS", "PKGREAD", "PKGINST") {
+ if (-f "$dir/$f") {rename("$dir/$f", "$dir/$f.old") or exiterr("cannot write to $dir")};
+ if (system("wget -q -P $dir $url/$f") != 0) {
+ print " cannot retrieve $f\n";
+ $dlerror=1;
+ }
+ }
+ if ($dlerror) { # restore backup repo
+ for my $f ("PKGREPO", "PKGDEPS", "PKGREAD", "PKGINST") {
+ if (-f "$dir/$f.old") {rename("$dir/$f.old", "$dir/$f") or exiterr("cannot write to $dir")};};
+ } else { # remove backup repo
+ for my $f ("PKGREPO", "PKGDEPS", "PKGREAD", "PKGINST") {
+ if (-f "$dir/$f.old") {unlink("$dir/$f.old") or exiterr("cannot write to $dir")};};
+ }
+ }
+ }
+}
+
+# Show info about the package ##############################################
+sub info {
+ my $arg = $ARGV[1];
+ foreach my $repo(@repos) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(REPO, "$dir/PKGREPO") or exiterr("could not open $dir/PKGREPO");
+ while (<REPO>) {
+ chomp;
+ my %pkg = parsepackage($_, $dir, $url, 0);
+ if ($pkg{'name'} eq $arg) {
+ printinfo(%pkg);
+ close(REPO);
+ return;
+ }
+ }
+ close(REPO);
+ }
+ print "Package '$arg' not found\n";
+}
+
+# List packages containing given string in their name ######################
+sub search {
+ my $arg = $ARGV[1];
+ my %found;
+ foreach my $repo(@repos) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(REPO, "$dir/PKGREPO") or exiterr("could not open $dir/PKGREPO");
+ while (<REPO>) {
+ chomp;
+ my %pkg = parsepackage($_, $dir, $url, 0);
+ if (index($pkg{'name'}, $arg) > -1 and not $found{$pkg{'name'}}) {
+ $found{$pkg{'name'}} = 1;
+ }
+ }
+ close(REPO);
+ }
+ foreach my $key (sort keys %found) {
+ print "$key\n";
+ }
+ if (not %found) {print "No matching packages found\n"};
+}
+
+# List packages containing given string (name / description) ###############
+sub dsearch {
+ my $arg = $ARGV[1];
+ my %found;
+ foreach my $repo(@repos) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(REPO, "$dir/PKGREPO") or exiterr("could not open $dir/PKGREPO");
+ while (<REPO>) {
+ chomp;
+ my %pkg = parsepackage($_, $dir, $url, 0);
+ if ((index($pkg{'name'}, $arg) > -1 or index($pkg{'description'}, $arg) > -1)
+ and not $found{$pkg{'name'}}) {
+ $found{$pkg{'name'}} = 1;
+ }
+ }
+ close(REPO);
+ }
+ foreach my $key (sort keys %found) {
+ print "$key\n";
+ }
+ if (not %found) {print "No matching packages found\n";};
+}
+
+# List all available packages ##############################################
+sub list {
+ my $arg = $ARGV[1];
+ my %found;
+ foreach my $repo(@repos) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(REPO, "$dir/PKGREPO") or exiterr("could not open $dir/PKGREPO");
+ while (<REPO>) {
+ chomp;
+ my %pkg = parsepackage($_, $dir, $url, 0);
+ $found{$pkg{'name'}} = 1;
+ }
+ close(REPO);
+ }
+ foreach my $key (sort keys %found) {
+ print "$key\n";
+ }
+}
+
+# Show path for a package ##################################################
+sub path {
+ my $arg = $ARGV[1];
+ foreach my $repo(@repos) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(REPO, "$dir/PKGREPO") or exiterr("could not open $dir/PKGREPO");
+ while (<REPO>) {
+ chomp;
+ my %pkg = parsepackage($_, $dir, $url, 0);
+ if ($pkg{'name'} eq $arg) {
+ print $pkg{'path'} . "\n";
+ close(REPO);
+ return;
+ }
+ }
+ close(REPO);
+ }
+ print "Package '$arg' not found\n";
+}
+
+# Show current installed version of a package ##############################
+sub current {
+ my $pkgname = $ARGV[1];
+ getinstalled();
+ if ($installed{$pkgname}) {
+ print "$installed{$pkgname}\n";
+ } else {
+ print "Package $pkgname not installed\n";
+ }
+}
+
+# Print the README file for a package ######################################
+sub readme {
+ my $arg = $ARGV[1];
+ foreach my $repo(@repos) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(REPO, "$dir/PKGREPO") or exiterr("could not open $dir/PKGREPO");
+ while (<REPO>) {
+ chomp;
+ my %pkg = parsepackage($_, $dir, $url, 0);
+ if ($pkg{'name'} eq $arg) {
+ printreadme(%pkg);
+ close(REPO);
+ return;
+ }
+ }
+ close(REPO);
+ }
+ print "Package '$arg' not found\n";
+}
+
+# Remove given packages ####################################################
+sub remove {
+ $curraction = "removed";
+ shift(@ARGV);
+ foreach my $pkg(@ARGV) {
+ $pptasks{$pkg} = "";
+ if (system("/usr/bin/pkgrm $pkg") ==0) {
+ push(@donetasks, $pkg);
+ } else {
+ push(@failtasks, "where removal failed,$pkg");
+ }
+ }
+ printresults();
+}
+
+# List installed packages ##################################################
+sub listinst {
+ getinstalled();
+ foreach my $key (sort keys %installed) {
+ print "$key\n";
+ }
+}
+
+# Print if package is installed ###########################################
+sub isinst {
+ getinstalled();
+ shift(@ARGV);
+ foreach my $pkg(@ARGV) {
+ if ($installed{$pkg}) {
+ print "package $pkg is installed\n";
+ } else {
+ print "package $pkg is not installed\n";
+ }
+ }
+}
+
+
+# Lock given packages ######################################################
+sub dolock {
+ shift(@ARGV);
+ foreach my $arg(@ARGV) {
+ my $found = 0;
+ foreach my $repo(@repos) {
+ if ($found == 0) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(REPO, "$dir/PKGREPO") or exiterr("could not open $dir/PKGREPO");
+ while (<REPO>) {
+ chomp;
+ my %pkg = parsepackagelight($_);
+ if ($pkg{'name'} eq $arg) {
+ $found = 1;
+ lockadd($arg);
+ }
+ }
+ close(REPO);
+ }
+ }
+ if ($found == 0) {print "Package '$arg' not found\n"};
+ }
+}
+
+# Unlock given packages ####################################################
+sub unlock {
+ shift(@ARGV);
+ my @locked;
+ my $found;
+ foreach my $arg(@ARGV) {
+ $found = 0;
+ @locked = ();
+ open(LCK, $LOCKFILE) or exiterr("could not open lock file");
+ while (<LCK>) {
+ chomp;
+ if ($_ eq $arg) {
+ push (@locked, "-");
+ $found = 1;
+ } else {
+ push (@locked, $_);
+ }
+ }
+ close(LCK);
+ if ($found == 1) {
+ @locked = sort(@locked);
+ open(LCK, ">$LOCKFILE") or exiterr("could not write to lock file");
+ foreach my $lock(@locked) {
+ if ($lock ne "-") {print LCK "$lock\n"};
+ }
+ close(LCK);
+ } else {
+ print "Not locked previously: $arg\n";
+ }
+ }
+}
+
+# List locked packages #####################################################
+sub listlocked {
+ open(LCK, $LOCKFILE)
+ or exit;
+ while (<LCK>) {
+ chomp;
+ print "$_\n";
+ }
+ close(LCK);
+}
+
+# Print formatted info #####################################################
+sub doprintf {
+ my %found;
+ foreach my $repo(@repos) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(REPO, "$dir/PKGREPO") or exiterr("could not open $dir/PKGREPO");
+ while (<REPO>) {
+ chomp;
+ my %pkg;
+ if (index($ARGV[1], "%i") >=0 ) {
+ %pkg = parsepackage($_, $dir, $url, 1);
+ } else {
+ %pkg = parsepackage($_, $dir, $url, 0);
+ }
+ if (not $found{$pkg{'name'}}) {
+ if ($filter ne "") {
+ my $match = $pkg{'name'};
+ my $cfilter = $filter;
+ $cfilter =~ s/\*/\.\*/;
+ if ($match =~ /^$cfilter$/) {
+ formattedprint(%pkg);
+ $found{$pkg{'name'}} = 1;
+ }
+ } else {
+ formattedprint(%pkg);
+ $found{$pkg{'name'}} = 1;
+ }
+ }
+ }
+ close(REPO);
+ }
+}
+
+# Show differences between installed and available packages ################
+sub diff {
+ my %found;
+ my $gotdiff = 0;
+ foreach my $repo(@repos) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(REPO, "$dir/PKGREPO") or exiterr("could not open $dir/PKGREPO");
+ while (<REPO>) {
+ chomp;
+ my %pkg;
+ %pkg = parsepackage($_, $dir, $url, 1);
+ if (not $found{$pkg{'name'}}) {
+ if ($pkg{'instversion'}) {
+ if ($pkg{'instversion'} ne $pkg{'version'}."-".$pkg{'release'}) {
+ if (islocked($pkg{'name'}) eq "no") {
+ if ($gotdiff == 0){
+ print "Differences between installed packages and packages repo:\n\n";
+ printf("%-19s %-19s %-19s\n\n","Package","Installed","Available in the repositories");
+ $gotdiff = 1;
+ }
+ printf("%-19s %-19s %-19s\n", $pkg{'name'}, $pkg{'instversion'}, $pkg{'version'}."-".$pkg{'release'});
+ } elsif ($all) { # yeah, it blows, at least avoid to read the locked state twice.
+ if ($gotdiff == 0){
+ print "Differences between installed packages and packages repo:\n\n";
+ printf("%-19s %-19s %-19s\n\n","Package","Installed","Available in the repositories");
+ $gotdiff = 1;
+ }
+ printf("%-19s %-19s %-19s %-19s\n", $pkg{'name'}, $pkg{'instversion'}, $pkg{'version'}."-".$pkg{'release'}, "locked");
+ }
+ }
+ }
+ $found{$pkg{'name'}} = 1;
+ }
+ }
+ close(REPO);
+ }
+ if ($gotdiff ==0) {print "No differences found\n"};
+}
+
+# Show differences between installed and available packages ################
+sub quickdiff {
+ my %found;
+ my $gotdiff = 0;
+ foreach my $repo(@repos) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(REPO, "$dir/PKGREPO") or exiterr("could not open $dir/PKGREPO");
+ while (<REPO>) {
+ chomp;
+ my %pkg;
+ %pkg = parsepackage($_, $dir, $url, 1);
+ if (not $found{$pkg{'name'}}) {
+ if ($pkg{'instversion'}) {
+ if ($pkg{'instversion'} ne $pkg{'version'}."-".$pkg{'release'} and islocked($pkg{'name'}) eq "no") {
+ if ($gotdiff == 0){
+ print $pkg{'name'};
+ $gotdiff = 1;
+ } else {
+ print " " . $pkg{'name'};
+ }
+ }
+ }
+ $found{$pkg{'name'}} = 1;
+ }
+ }
+ close(REPO);
+ }
+ if ($gotdiff != 0) {print "\n"};
+}
+
+# Display duplicate packages (found in more than one repo) #################
+sub dup {
+ my %found;
+ foreach my $repo(@repos) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(REPO, "$dir/PKGREPO") or exiterr("could not open $dir/PKGREPO");
+ while (<REPO>) {
+ chomp;
+ my %pkg;
+ %pkg = parsepackage($_, $dir, $url, 0);
+ $found{$pkg{'name'}} .= "###" . $pkg{'path'}."/". $pkg{'name'}.$pkg{'version'}."-".$pkg{'release'};
+ }
+ close(REPO);
+ }
+ my $curr = "";
+ foreach my $key (sort keys %found) {
+ my $value = $found{$key};
+ $value =~ s/^\#\#\#//;
+ if (rindex($value, "###") >=0){
+ print "* $key\n";
+ my @d = split(/\#\#\#/, $value);
+ foreach my $dup(@d){
+ print " $dup\n";
+ }
+ }
+ }
+}
+
+# Show list of dependencies for package ####################################
+sub depends {
+ getdependencies($ARGV[1], 1, "") or exiterr("package '$ARGV[1]' not found");
+ if (@dependencies) {print "-- dependencies ([i] = installed, [u] = updatable)\n"}
+ foreach my $dep(@dependencies) {
+ print "$dep\n";
+ }
+ if (%missingdeps) {
+ print "\n-- missing packages\n";
+ foreach my $dep(sort keys %missingdeps) {
+ print "$dep from $missingdeps{$dep}\n";
+ }
+ }
+}
+
+# Show compact list of dependencies for package ############################
+sub quickdep {
+ getdependencies($ARGV[1], 0, "") or exiterr("package '$ARGV[1]' not found");
+ foreach my $dep(@dependencies) {
+ print "$dep ";
+ }
+ print "\n";
+}
+
+# Show packages directly depending from given package ######################
+sub dependent {
+ my $arg = $ARGV[1];
+ my %dp;
+ if (not $all) { getinstalled(); }
+ foreach my $repo(@repos) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(DEPS, "$dir/PKGDEPS")
+ or exiterr("could not open $dir/PKGDEPS");
+ while (<DEPS>) {
+ chomp;
+ my $dep = $_;
+ $dep =~ s/\s+\:.*$//;
+ s/^.*\: /\,/;
+ s/$/\,\$/;
+ if ( /\,\Q$arg\E\,/ ) {
+ if (not $all) {
+ if ($installed{$dep}) {
+ $dp{$dep} = 1;
+ }
+ } else {
+ $dp{$dep} = 1;
+ }
+ }
+ }
+ close(DEPS);
+ }
+ foreach my $res(keys %dp) {
+ print "$res\n";
+ }
+}
+
+# Install given package ####################################################
+sub install {
+ $curraction = "installed";
+ my @args = @_; shift(@args);
+ getinstalled();
+ foreach my $pkgname(@args) {
+ my %pkg = getpackage($pkgname, 1);
+ if (not %pkg ) {
+ push(@failtasks, "not found,$pkgname");
+ } elsif (getshortstatus(%pkg) ne "[ ]") {
+ push(@prevtasks, "$pkgname");
+ } elsif (downloadpkg(%pkg) and installpkg("", %pkg)) {
+ push(@donetasks, $pkgname);
+ } else {
+ push(@failtasks, "where install failed,$pkgname");
+ }
+ }
+ printresults();
+}
+
+# Update given package #####################################################
+sub update {
+ $curraction = "updated";
+ my @args = @_; shift(@args);
+ getinstalled();
+ foreach my $pkgname(@args) {
+ my %pkg = getpackage($pkgname, 1);
+ if (not %pkg) {
+ push(@failtasks, "not found,$pkgname");
+ } elsif (getshortstatus(%pkg) eq "[ ]") {
+ push(@prevtasks, "$pkgname");
+ } elsif (downloadpkg(%pkg) and installpkg("-u ", %pkg)) {
+ push(@donetasks, $pkgname);
+ } else {
+ push(@failtasks, "where update failed,$pkgname");
+ }
+ }
+ printresults();
+}
+
+# Update out of date packages ##############################################
+sub sysup {
+ my %found;
+ my @diff;
+ foreach my $repo(@repos) {
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+ open(REPO, "$dir/PKGREPO") or exiterr("could not open $dir/PKGREPO");
+ while (<REPO>) {
+ chomp;
+ my %pkg;
+ %pkg = parsepackage($_, $dir, $url, 1);
+ if (not $found{$pkg{'name'}}) {
+ if ($pkg{'instversion'}) {
+ if ($pkg{'instversion'} ne $pkg{'version'}."-".$pkg{'release'} and islocked($pkg{'name'}) eq "no") {
+ push(@diff, $pkg{'name'});
+ }
+ }
+ $found{$pkg{'name'}} = 1;
+ }
+ }
+ close(REPO);
+ }
+ if (@diff) {
+ unshift(@diff, "dummy"); # is shifted later in update sub;
+ update(@diff);
+ }
+}
+
+# 2009-10
+sub depinst {
+ my @toinst; my %seen;
+ $curraction = "installed";
+ my @args = @ARGV; shift(@args);
+ getinstalled();
+
+ #~ Pour chaque paquet dans les arguments
+ foreach my $pkgname(@args) {
+
+ #~ Si déjà installé retourne la valeur 55
+ if($installed{$pkgname}){
+ print "pkg-get : Le paquet $pkgname est déjà installé.\n";
+ return 55;
+ }
+ #~ Si n'est pas dans les dépots, retourne la valeur 56
+ if(not getpackage($pkgname, 1)){
+ print "pkg-get : Le paquet $pkgname n'est pas disponible en binaire.\n";
+ return 56;
+ }
+
+ #~ Recherche des dépendances (tableau associatif @dependencies)
+ getdependencies($pkgname, 0, "");
+
+ #~ Pour chaque dépendances
+ foreach my $dep(@dependencies) {
+
+ #~ Si on ne l'a pas déjà traitée
+ if (not $seen{$dep}) {
+
+ #~ Prends le paquet des dépots
+ my %pkg = getpackage($dep, 1);
+ if (%pkg) {
+ #~ L'ajoute à la liste des paquets à installer
+ if (getshortstatus(%pkg) eq "[ ]"){
+ push(@toinst, $pkg{'name'});
+ }
+ }
+ #~ Marque la dépendance comme déjà traitée
+ $seen{$dep} = 1;
+ }
+ }
+ }
+ #~ Si des paquets sont marqués comme étant à installer, on lance l'installation
+ if (@toinst) {
+ unshift(@toinst, "dummy"); # is shifted later in install sub;
+ install(@toinst);
+ }
+}
diff --git a/base/pkg-get/pkg-get-0.4.5-NuTyX-01.patch b/base/pkg-get/pkg-get-0.4.5-NuTyX-01.patch
new file mode 100644
index 000000000..7e57babb2
--- /dev/null
+++ b/base/pkg-get/pkg-get-0.4.5-NuTyX-01.patch
@@ -0,0 +1,276 @@
+--- pkg-get-0.4.5/scripts/pkg-get.pl 2009-10-17 20:20:51.000000000 +0000
++++ /usr/ports/base/pkg-get/pkg-get 2009-10-17 16:42:23.000000000 +0000
+@@ -1,7 +1,9 @@
+ #!/usr/bin/env perl
++# -*- coding: utf-8 -*-
+ #
+ # pkg-get - A binary package management utility for CRUX Linux
+ # Copyright (C) 2004-06 Simone Rota <sip@varlock.com>
++# Modified by Arnaud Fernandés <ferarduansednan@laposte.net> 2009-10
+ #
+ # This program is free software; you can redistribute it and/or modify
+ # it under the terms of the GNU General Public License as published by
+@@ -48,6 +50,8 @@
+ }
+ readconfig();
+
++my $exitcode = 0; # 2009-10
++
+ SWITCH: {
+ if ($command eq "version") { version(); last SWITCH; }
+ if ($command eq "sync") { sync(); last SWITCH; }
+@@ -74,10 +78,11 @@
+ if ($command eq "update") { update(@ARGV); last SWITCH; }
+ if ($command eq "sysup") { sysup(); last SWITCH; }
+ if ($command eq "dependent") { dependent(); last SWITCH; }
+- if ($command eq "depinst") { depinst(); last SWITCH; }
++ if ($command eq "depinst") { $exitcode = depinst(); last SWITCH; } # 2009-10
+ if ($command eq "current") { current(); last SWITCH; }
+ }
+
++exit($exitcode); # 2009-10
+
+ ############################################################################
+ # Support functions
+@@ -104,7 +109,7 @@
+ if (not $givencmd){$givencmd = ""};
+ my @allowed = ("depinst:", "install:", "sysup", "diff", "update:", "depends:", "info:", "sync",
+ "version", "help", "quickdep:", "dependent:", "list", "listinst", "isinst:",
+- "search:", "dsearch:", "lock:", "unlock:", "listlocked", "quickdiff", "printf:",
++ "search:", "dsearch:", "lock:", "unlock:", "listlocked", "quickdiff", "printf:",
+ "remove:", "readme:", "dup", "path:", "current:");
+
+ foreach my $valid(@allowed) {
+@@ -126,7 +131,7 @@
+
+ # Parses the configuration file
+ sub readconfig {
+- open(CFG, $CFGFILE)
++ open(CFG, $CFGFILE)
+ or exiterr("could not open $CFGFILE");
+ while (<CFG>) {
+ chomp;
+@@ -160,7 +165,7 @@
+ my $release = $p[0];
+ $release =~ s/^.*-//;
+ $release =~ s/\.pkg\.tar\.gz//;
+- if (not $_[2]) {$_[2] = $_[1]};
++ if (not $_[2]) {$_[2] = $_[1]};
+ $pkg{'name'} = $name;
+ $pkg{'version'} = $version;
+ $pkg{'release'} = $release;
+@@ -214,7 +219,7 @@
+ sub getdirectdeps {
+ my $pkgname = $_[0];
+ my $dir = $_[1];
+- open(DEPS, "$dir/PKGDEPS")
++ open(DEPS, "$dir/PKGDEPS")
+ or exiterr("could not open $dir/PKGDEPS");
+ while (<DEPS>) {
+ chomp;
+@@ -236,7 +241,7 @@
+ my $pkgname = $pkg{'name'};
+ my $found = 0;
+ my $finished = 0;
+- open(READ, "$dir/PKGREAD")
++ open(READ, "$dir/PKGREAD")
+ or exiterr("could not open $dir/PKGREAD");
+ while (<READ>) {
+ if ($finished eq 1) {return;};
+@@ -312,12 +317,12 @@
+ # Get the list of installed packages
+ sub getinstalled {
+ if (%installed) {
+- return;
++ return;
+ }
+ my $name;
+ my $version;
+ my $sec = 0;
+- open(DB, $PKGDB)
++ open(DB, $PKGDB)
+ or exiterr("could not open ".$PKGDB);
+ while (<DB>) {
+ chomp;
+@@ -447,7 +452,7 @@
+ return %res;
+ }
+
+-# Get short status for package, ie [i]
++# Get short status for package, ie [i]
+ sub getshortstatus {
+ my %pkg = @_;
+ if ($pkg{'instversion'}) {
+@@ -503,9 +508,9 @@
+ $md5 =~ s/\s+.*$//;
+ $md5 =~ chop($md5);
+ if ($md5 ne $pkg{'md5sum'} and not $ignore_md5sum) {
+- print STDERR "=======> ERROR: md5sum mismatch for $pkg{'name'}:\n";
+- print STDERR "required : $pkg{'md5sum'}\n";
+- print STDERR "found : $md5\n";
++ print STDERR "=======> ERROR: md5sum mismatch for $pkg{'name'}:\n";
++ print STDERR "required : $pkg{'md5sum'}\n";
++ print STDERR "found : $md5\n";
+ return 0;
+ }
+ return 1;
+@@ -518,9 +523,9 @@
+ $md5 =~ s/\s+.*$//;
+ $md5 =~ chop($md5);
+ if ($md5 ne $pkg{'md5sum'} and not $ignore_md5sum) {
+- print STDERR "=======> ERROR: md5sum mismatch for $pkg{'name'}:\n";
+- print STDERR "required : $pkg{'md5sum'}\n";
+- print STDERR "found : $md5\n";
++ print STDERR "=======> ERROR: md5sum mismatch for $pkg{'name'}:\n";
++ print STDERR "required : $pkg{'md5sum'}\n";
++ print STDERR "found : $md5\n";
+ return 0;
+ }
+ }
+@@ -537,11 +542,11 @@
+ if ($download_only) {return 1};
+ if ($force){$aa = $aa."-f "};
+ if ($root) {$aa = $aa."-r ".$root." "};
+- if ($pkg{'pre_install'} eq "yes" and ($install_scripts or $pre_install)) {dopre(%pkg)};
++ if ($pkg{'pre_install'} eq "yes" and ($install_scripts or $pre_install)) {dopre(%pkg)};
+ my $fullpath = $pkg{'path'}."/".$pkg{'name'}."#".$pkg{'version'}."-".$pkg{'release'}.".pkg.tar.gz";
+ print "pkg-get: /usr/bin/pkgadd $upgrade$aa$fullpath\n";
+ system ("/usr/bin/pkgadd $upgrade$aa$fullpath") == 0 or return 0;
+- if ($pkg{'post_install'} eq "yes" and ($install_scripts or $post_install)) {dopost(%pkg)};
++ if ($pkg{'post_install'} eq "yes" and ($install_scripts or $post_install)) {dopost(%pkg)};
+ return 1;
+ }
+
+@@ -675,7 +680,7 @@
+ }
+ foreach my $key (sort keys %found) {
+ print "$key\n";
+- }
++ }
+ if (not %found) {print "No matching packages found\n"};
+ }
+
+@@ -691,7 +696,7 @@
+ while (<REPO>) {
+ chomp;
+ my %pkg = parsepackage($_, $dir, $url, 0);
+- if ((index($pkg{'name'}, $arg) > -1 or index($pkg{'description'}, $arg) > -1)
++ if ((index($pkg{'name'}, $arg) > -1 or index($pkg{'description'}, $arg) > -1)
+ and not $found{$pkg{'name'}}) {
+ $found{$pkg{'name'}} = 1;
+ }
+@@ -700,7 +705,7 @@
+ }
+ foreach my $key (sort keys %found) {
+ print "$key\n";
+- }
++ }
+ if (not %found) {print "No matching packages found\n";};
+ }
+
+@@ -722,7 +727,7 @@
+ }
+ foreach my $key (sort keys %found) {
+ print "$key\n";
+- }
++ }
+ }
+
+ # Show path for a package ##################################################
+@@ -800,7 +805,7 @@
+ getinstalled();
+ foreach my $key (sort keys %installed) {
+ print "$key\n";
+- }
++ }
+ }
+
+ # Print if package is installed ###########################################
+@@ -877,7 +882,7 @@
+
+ # List locked packages #####################################################
+ sub listlocked {
+- open(LCK, $LOCKFILE)
++ open(LCK, $LOCKFILE)
+ or exit;
+ while (<LCK>) {
+ chomp;
+@@ -1021,7 +1026,7 @@
+ print " $dup\n";
+ }
+ }
+- }
++ }
+ }
+
+ # Show list of dependencies for package ####################################
+@@ -1057,7 +1062,7 @@
+ my @r = split(/\|/, $repo);
+ my $dir = $r[0];
+ my $url = $r[1];
+- open(DEPS, "$dir/PKGDEPS")
++ open(DEPS, "$dir/PKGDEPS")
+ or exiterr("could not open $dir/PKGDEPS");
+ while (<DEPS>) {
+ chomp;
+@@ -1089,7 +1094,7 @@
+ getinstalled();
+ foreach my $pkgname(@args) {
+ my %pkg = getpackage($pkgname, 1);
+- if (not %pkg) {
++ if (not %pkg ) {
+ push(@failtasks, "not found,$pkgname");
+ } elsif (getshortstatus(%pkg) ne "[ ]") {
+ push(@prevtasks, "$pkgname");
+@@ -1152,25 +1157,50 @@
+ }
+ }
+
++# 2009-10
+ sub depinst {
+ my @toinst; my %seen;
+ $curraction = "installed";
+ my @args = @ARGV; shift(@args);
+ getinstalled();
++
++ #~ Pour chaque paquet dans les arguments
+ foreach my $pkgname(@args) {
++
++ #~ Si déjà installé retourne la valeur 55
++ if($installed{$pkgname}){
++ print "pkg-get : Le paquet $pkgname est déjà installé.\n";
++ return 55;
++ }
++ #~ Si n'est pas dans les dépots, retourne la valeur 56
++ if(not getpackage($pkgname, 1)){
++ print "pkg-get : Le paquet $pkgname n'est pas disponible en binaire.\n";
++ return 56;
++ }
++
++ #~ Recherche des dépendances (tableau associatif @dependencies)
+ getdependencies($pkgname, 0, "");
+- foreach my $dep(@dependencies) {
++
++ #~ Pour chaque dépendances
++ foreach my $dep(@dependencies) {
++
++ #~ Si on ne l'a pas déjà traitée
+ if (not $seen{$dep}) {
++
++ #~ Prends le paquet des dépots
+ my %pkg = getpackage($dep, 1);
+ if (%pkg) {
++ #~ L'ajoute à la liste des paquets à installer
+ if (getshortstatus(%pkg) eq "[ ]"){
+ push(@toinst, $pkg{'name'});
+ }
+ }
++ #~ Marque la dépendance comme déjà traitée
+ $seen{$dep} = 1;
+ }
+ }
+ }
++ #~ Si des paquets sont marqués comme étant à installer, on lance l'installation
+ if (@toinst) {
+ unshift(@toinst, "dummy"); # is shifted later in install sub;
+ install(@toinst);
diff --git a/base/pkg-get/pkg-get.patch b/base/pkg-get/pkg-get.patch
deleted file mode 100644
index a323c6427..000000000
--- a/base/pkg-get/pkg-get.patch
+++ /dev/null
@@ -1,12 +0,0 @@
-diff -Nru pkg-get-0.4.5.orig/scripts/pkg-get.pl pkg-get-0.4.5/scripts/pkg-get.pl
---- pkg-get-0.4.5.orig/scripts/pkg-get.pl 2006-07-13 05:04:11.000000000 +0200
-+++ pkg-get-0.4.5/scripts/pkg-get.pl 2006-07-17 13:01:37.524719500 +0200
-@@ -943,7 +943,7 @@
- printf("%-19s %-19s %-19s\n\n","Package","Installed","Available in the repositories");
- $gotdiff = 1;
- }
-- printf("%-19s %-19s %-19s %-19s\n", $pkg{'name'}, $pkg{'instversion'}, $pkg{'version'}."-".$pkg{'release'});
-+ printf("%-19s %-19s %-19s\n", $pkg{'name'}, $pkg{'instversion'}, $pkg{'version'}."-".$pkg{'release'});
- } elsif ($all) { # yeah, it blows, at least avoid to read the locked state twice.
- if ($gotdiff == 0){
- print "Differences between installed packages and packages repo:\n\n";
generated by cgit v1.2.3-70-g09d2 (git 2.47.1) at 2024-12-26 14:51:48 +0000