[builder] guessing sync_type from url

.gitignore

@@ -1 +0,0 @@
-*.bak

AUTHORS

@@ -1,6 +0,0 @@
-
-Copyright authors:
-------
-Ettore Di Giacinto <mudler@gentoo.org> ( original author )
-Ben Roberts <optiz0r@sabayon.org>
-Daniele Rondina <geaaru@sabayon.org>

Documentation.md

@@ -1,178 +0,0 @@
-
-# Scripts
-
-Devkit contains a list of scripts used by Sabayon for building process and
-for manage package injection to repositories.
-
-## List of files
-
-
-  * `depcheck`: a tool to report both undeclared and potentially-unused
-     runtime dependencies.
-
-  * `dynlink-scanner`: a tool for retrieve list of linked libraries used
-     by a package. Use try_dlopen execute binary.
-
-  * `sabayon-brokenlibs`: a tool for retrieve list of all dependencies
-     of a binary through equo and equery tools. Print list of dependencies.
-     This script depends on:
-       - equo
-       - equery
-       - sabayondevkit-functions.sh
-
-  * `sabayon-buildpackages`: Script for Spawning the package builder container.
-     This script depends on:
-       - sabayondevkit-functions.sh
-
-  * `sabayon-bz2brokenlibs`: Unpack bz2 tarball and execute sabayon-brokenlibs
-     to every files unpacked.
-     This script depends on:
-       - sabayondevkit-functions.sh
-
-  * `sabayon-createrepo`: Script for spawning container for commit packages to
-     a repository and create it if doesn't exists.
-     This script depends on:
-       - sabayondevkit-functions.sh
-
-  * `sabayon-createrepo-cleanup`: Script for spawning container for cleanup
-     expired packages from a repository.
-     This script depends on:
-       - sabayondevkit-functions.sh
-
-  * `sabayon-createrepo-remove`: Script for spawning container for remove a list
-     of packages from a repository.
-     This script depends on:
-       - sabayondevkit-functions.sh
-
-  * `sabayon-detectobsolete`: Perl script for found obsolete packages in an
-    overlay. Possible options are: --arch, --overlay and --verbose.
-    This script depends on:
-       - querypkg
-
-  * `sabayon-entropypreservedlibs`: Perl script for retrieve list of packages that has
-     dependencies to old libraries.
-     See also [here](https://wiki.sabayon.org/index.php?title=En:Sabayon_Devkit#sabayon-entropypreservedlibs)
-
-  * `sabayon-help-info`: Bash script for grabbing system information and post to
-     sabayon pastebin.
-     This script depends on:
-       - pastebunz
-
-  * `sabayon-maint-helper`: Script for builder boxes maintenance.
-     Possible options are:
-       - `--installed`: For upgrades all the packages installed in the box.
-       - `--obsolete`: Upgrade ONLY the packages that are listed obsolete
-       - `--all`: Tries to upgrade all packages
-       - `--category`: Tries to upgrade/install all packages present in a specified category.
-     This script depends on:
-       - sabayondevkit-functions.sh
-
-  * `sabayon-tbz2extract`: Python script for extract tbz2 package.
-
-  * `sabayon-tbz2truncate`: Python script for truncate tbz2 package
-
-  * `sabayon-xpakextract`: Python script for convert tbz2 in .xpak file
-
-  * `builder`: Perl script for build packages.
-
-## Scripts Variables
-
-### sabayon-createrepo
-
-| Env Variable | Default | Description |
-|--------------|---------|-------------|
-| SAB_WORKSPACE | $PWD | Workspace directory |
-| REPOSITORY_NAME | default | Name of the repository to create. |
-| REPOSITORY_DESCRIPTION | My Sabayon repository | Description of the repository to create. |
-| DOCKER_IMAGE | sabayon/eit-amd64 | Docker image to use on create repository |
-| PORTAGE_ARTIFACTS | $SAB_WORKSPACE/portage_artifacts | Directory of the artifacts to insert on repository |
-| OUTPUT_DIR | $SAB_WORKSPACE/entropy_artifacts | Output directory of the repository |
-| DOCKER_OPTS | --ti --rm | Docker options to pass on run container. |
-| PUBKEY | - | Define file to mount as volume to /etc/entropy/mykeys/key.pub |
-| PRIVATEKEY | - | Define file to mount as volume to /etc/entropy/mykeys/private.key |
-
-### sabayon-createrepo-cleanup
-
-| Env Variable | Default | Description |
-|--------------|---------|-------------|
-| SAB_WORKSPACE | $PWD | Workspace directory |
-| REPOSITORY_NAME | default | Name of the repository to clean. |
-| REPOSITORY_DESCRIPTION | My Sabayon repository | Description of the repository to clean. |
-| DOCKER_IMAGE | sabayon/eit-amd64 | Docker image to use on clean repository |
-| OUTPUT_DIR | $SAB_WORKSPACE/entropy_artifacts | Directory of the repository |
-| DOCKER_OPTS | --ti --rm | Docker options to pass on run container. |
-| PUBKEY | - | Define file to mount as volume to /etc/entropy/mykeys/key.pub |
-| PRIVATEKEY | - | Define file to mount as volume to /etc/entropy/mykeys/private.key |
-
-### sabayon-createrepo-remove
-
-| Env Variable | Default | Description |
-|--------------|---------|-------------|
-| SAB_WORKSPACE | $PWD | Workspace directory |
-| REPOSITORY_NAME | default | Name of the repository where remove packages. |
-| REPOSITORY_DESCRIPTION | My Sabayon repository | Description of the repository. |
-| DOCKER_IMAGE | sabayon/eit-amd64 | Docker image to use on clean repository |
-| OUTPUT_DIR | $SAB_WORKSPACE/entropy_artifacts | Directory of the repository |
-| DOCKER_OPTS | --ti --rm | Docker options to pass on run container. |
-| PUBKEY | - | Define file to mount as volume to /etc/entropy/mykeys/key.pub |
-| PRIVATEKEY | - | Define file to mount as volume to /etc/entropy/mykeys/private.key |
-
-### sabayon-buildpackages
-
-| Env Variable | Default | Description |
-|--------------|---------|-------------|
-| SAB_WORKSPACE | $PWD | Workspace directory |
-| DOCKER_IMAGE | sabayon/builder-amd64 | Docker image to use for compilation |
-| SAB_ARCH | intel | Name of arch to use defined on build Sabayon project |
-| DOCKER_PULL_IMAGE | 0 | If try to pull last image (1) or use local version |
-| MAKE_CONF | $SAB_WORKSPACE/specs/make.conf | Path of make.conf custom to supply on compilation |
-| OUTPUT_DIR | $SAB_WORKSPACE/portage_artifacts/ | Where are written portage artifacts compiled |
-| LOCAL_OVERLAY | $SAB_WORKSPACE/local_overlay/ | Directory to use for supply local overlay as volume of the image on compilation |
-| ENTROPY_REPOSITORY | main | Sabayon repository to use: weekly, main or testing |
-| DOCKER_OPTS | --ti --rm --cap-add=SYS_PTRACE | Options to use on running Docker image |
-| PORTAGE_CACHE | - | If present permit to supply host portage directory to container |
-| BUILDER_PROFILE | - | Permit to choice Gentoo Profile to use |
-| EMERGE_SPLIT_INSTALL | - | Possible values are 0/1. |
-| BUILDER_JOBS | 1 | Define number of jobs for emerge phase. |
-| USE_EQUO | 1 | Use equo for install and align compilation environment. |
-| PRESERVED_REBUILD | 0 | Execute (emerge @preserve-rebuild) |
-| EQUO_INSTALL_ATOMS | 1 | Try to install existing dependencies from equo repositories |
-| DEPENDENCY_SCAN_DEPTH | 2 | Define depth level for dependencies calculation |
-| FEATURES | "parallel-fetch protect-owned compressdebug splitdebug -userpriv" | Override Gentoo FEATURES variable |
-| EMERGE_DEFAULTS_ARGS |  "--accept-properties=-interactive --verbose --oneshot --complete-graph --buildpkg" | Override default emerge options |
-| EQUO_INSTALL_VERSION | 0 | |
-| EQUO_SPLIT_INSTALL | 0 | |
-| ARTIFACTS_DIR | - | Additional directory where copy artifacts |
-| ENTROPY_REPOSITORY | main | Choice repository to use. Values: main, weekly, testing |
-| SKIP_PORTAGE_SYNC | 0 | Skip portage sync before compilation |
-| EQUO_MIRRORSORT | 1 | Execute equo mirrorsort before compilation |
-| WEBRSYNC | 0 | Use webrsync instead of defult rsync |
-| ENMAN_REPOSITORIES | - | Define list of enman repositories to add |
-| REMOVE_ENMAN_REPOSITORIES | - | Define list of enman repositories to remove |
-| DISTFILES | - | Permit to mount volume to /usr/portage/distfiles directory and speedup download phase if packages are already available |
-| INTERNAL_BUILDER | - | Define a host builder to use instead of docker builder binary |
-| ENTROPY_DOWNLOADED_PACKAGES | - | Mount volume to /var/lib/entropy/client/packages to use caching on download equo packages |
-| DISTCC_HOSTS | - | Override Gentoo DISTCC_HOSTS variable to use DISTCC |
-| PRUNE_VIRTUALS | 0 | Prune virtuals packages to avoid conflicts. |
-| REPOSITORY_NAME | - | Add single enman repository (for compilation of scr repository itself) |
-| ENMAN_ADD_SELF | 0 | If add with enman repository define on REPOSITORY_NAME variable |
-| EQUO_MASKS | - | Define a list of packages to mask with equo mask command |
-| EQUO_UNMASKS | - | Define a list of packages to unmask with equo unmask command |
-| EMERGE_REMOVE | - | Define a list of packages to remove with emerge -C command before compilation |
-| REMOTE_OVERLAY | - | Define a list of overlay to add before compilation |
-| REMOVE_LAYMAN_OVERLAY | - | Define a list of overlays to remove before compilation |
-| REMOTE_REMOTE_OVERLAY | - | Define a list of files under /etc/portage to remove |
-| QA_CHECKS | - | Execute quality check on packages. repoman, dynlink-scanner and depcheck |
-| REMOTE_CONF_PORTDIR | - | If defined permit to define a git repository to clone under /etc/portage directory. |
-| REMOTE_PORTDIR | - | If defined permit to define a git repository to clone under /usr/portage directory. |
-| ETP_NOCACHE | - | Define ETP_NOCACHE variable on environment |
-| PRETEND | 0 | If set to 1 append -p option to emerge commands. |
-| BUILDER_VERBOSE | 0 | If set to 1 add verbose to builder program. |
-| DETECT_OBSOLETE | 0 | Execute script sabayon-detectobsolete to target overlay to found obsolete ebuilds. |
-| TARGET_OVERLAY | - | Define overlay where execute sabayon-detectobsolete script. Require DETECT_OBSOLETE variable set to 1. |
-| LOCAL_OVERLAY | - | Define a directory to mount as volume to /usr/local/local_portage |
-| SHARE_WORKSPACE | - | If defined mount volume defined on SAB_WORKSPACE variable to /devkit-workspace |
-| PRE_SCRIPT | - | Mount a custom script to /pre-script execute before compilation |
-| POST_SCRIPT | - | Mount a custom script to /post-script execute after packages compilation |
-| MAKE_CONF | - | If defined mount defined file to /etc/portage/make.conf.custom and define variable MAKE_CONF to bet to mounted path. |
-

Makefile

@@ -25,8 +25,4 @@ install:
 	install -m 0755 builder $(DESTDIR)/$(USBINDIR)/
 
 	install -d $(DESTDIR)/$(UBINDIR)
-	install -m 0755 depcheck $(DESTDIR)/$(UBINDIR)/
-	install -m 0755 dynlink-scanner $(DESTDIR)/$(UBINDIR)/
-	gcc try_dlopen.c -o try_dlopen -ldl
-	install -m 0755 try_dlopen $(DESTDIR)/$(UBINDIR)/
 	install -m 0755 sabayon-* $(DESTDIR)/$(UBINDIR)/

builder

@@ -1,40 +1,24 @@
 #!/usr/bin/env perl
 
-# Copyright 2016-2018 See AUTHORS file
-#
-# 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 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
 use Getopt::Long;
 use v5.10;
 no feature "say";
-use Storable 'dclone';
 
-my $profile              = $ENV{BUILDER_PROFILE} // 16;
-my $jobs                 = $ENV{BUILDER_JOBS} // 1;
-my $use_equo             = $ENV{USE_EQUO} // 1;
-my $preserved_rebuild    = $ENV{PRESERVED_REBUILD} // 0;
+my $profile           = $ENV{BUILDER_PROFILE}   // 3;
+my $jobs              = $ENV{BUILDER_JOBS}      // 1;
+my $use_equo          = $ENV{USE_EQUO}          // 1;
+my $preserved_rebuild = $ENV{PRESERVED_REBUILD} // 0;
 my $emerge_defaults_args = $ENV{EMERGE_DEFAULTS_ARGS}
-    // "--accept-properties=-interactive --quiet --oneshot --complete-graph --buildpkg";
+  // "--accept-properties=-interactive --verbose --oneshot --complete-graph --buildpkg";
 $ENV{FEATURES} = $ENV{FEATURES}
-    // "parallel-fetch protect-owned compressdebug splitdebug -userpriv";
+  // "parallel-fetch protect-owned compressdebug splitdebug -userpriv";
 
-my $equo_install_atoms   = $ENV{EQUO_INSTALL_ATOMS} // 1;
+my $equo_install_atoms   = $ENV{EQUO_INSTALL_ATOMS}   // 1;
 my $equo_install_version = $ENV{EQUO_INSTALL_VERSION} // 0;
-my $equo_split_install   = $ENV{EQUO_SPLIT_INSTALL} // 0;
-my $equo_mirrorsort      = $ENV{EQUO_MIRRORSORT} // 1;
+my $equo_split_install   = $ENV{EQUO_SPLIT_INSTALL}   // 0;
+my $equo_mirrorsort      = $ENV{EQUO_MIRRORSORT}      // 1;
 my $entropy_repository   = $ENV{ENTROPY_REPOSITORY}
-    // "main";    # Can be weekly, main, testing
+  // "main";    # Can be weekly, main, testing
 my $artifacts_folder          = $ENV{ARTIFACTS_DIR};
 my $dep_scan_depth            = $ENV{DEPENDENCY_SCAN_DEPTH} // 2;
 my $skip_portage_sync         = $ENV{SKIP_PORTAGE_SYNC} // 0;
@@ -43,24 +27,13 @@ my $webrsync                  = $ENV{WEBRSYNC} // 0;
 my $enman_repositories        = $ENV{ENMAN_REPOSITORIES};
 my $emerge_remove             = $ENV{EMERGE_REMOVE};
 my $remove_enman_repositories = $ENV{REMOVE_ENMAN_REPOSITORIES};
-my $remove_remote_overlay     = $ENV{REMOVE_REMOTE_OVERLAY};
-my $remove_layman_overlay     = $ENV{REMOVE_LAYMAN_OVERLAY};
 my $prune_virtuals            = $ENV{PRUNE_VIRTUALS} // 0;
 my $repository_name           = $ENV{REPOSITORY_NAME};
 my $enman_add_self            = $ENV{ENMAN_ADD_SELF} // 0;
 my $build_injected_args       = $ENV{BUILD_INJECTED_ARGS};
 my $equo_masks                = $ENV{EQUO_MASKS};
 my $equo_unmasks              = $ENV{EQUO_UNMASKS};
-my $equo_install_args         = $ENV{EQUO_INSTALL_ARGS} // "--multifetch=10";
 my $remote_overlay            = $ENV{REMOTE_OVERLAY};
-my $qualityassurance_checks   = $ENV{QA_CHECKS} // 0;
-my $remote_conf_portdir       = $ENV{REMOTE_CONF_PORTDIR};
-my $remote_portdir            = $ENV{REMOTE_PORTDIR};
-my $pretend                   = $ENV{PRETEND} // 0;
-my $obsoleted                 = $ENV{DETECT_OBSOLETE} // 0;
-my $target_overlay            = $ENV{TARGET_OVERLAY};
-my $verbose                   = $ENV{BUILDER_VERBOSE} // 0;
-my $keep_going                = $ENV{KEEP_GOING} // 1;
 
 my $make_conf = $ENV{MAKE_CONF};
 
@@ -77,33 +50,17 @@ help() if $help;
 
 $ENV{LC_ALL}             = "en_US.UTF-8";    #here be dragons
 $ENV{ETP_NONINTERACTIVE} = 1;
-$ENV{ACCEPT_LICENSE} = "*";    # we can use wildcard since entropy 302
 
 # A barely print replacement
 sub say { print join( "\n", @_ ) . "\n"; }
 
-sub loud {
-    say;
-    say "===" x 4;
-    say "===" x 4;
-    say @_;
-    say "===" x 4;
-    say "===" x 4;
-    say;
-}
-
 sub safe_call {
     my $cmd    = shift;
-    my $rt     = _system($cmd);
+    my $rt     = system($cmd);
     my $return = $rt >> 8;
     exit($return) if ($rt);
 }
 
-sub _system {
-    say "Executing: @_" if $verbose;
-    return system(@_);
-}
-
 sub append_to_file {
     my ( $file_name, $package ) = @_;
 
@@ -111,7 +68,7 @@ sub append_to_file {
 
         # Check that the package was not already there
         open my $fh_ro, '<:encoding(UTF-8)', $file_name
-            or die("Cannot open: $file_name");
+          or die("Cannot open: $file_name");
         while ( my $line = <$fh_ro> ) {
             return if $line eq $package . "\n";
         }
@@ -119,41 +76,23 @@ sub append_to_file {
     }
 
     open( my $fh_a, '>>', $file_name )
-        or die "Could not open file '$filename' $!";
+      or die "Could not open file '$filename' $!";
     print $fh_a $package . "\n";
     close $fh_a;
 }
 
-sub parse_overlays {
-    map { $_ =~ s/.*?\:\://g; $_ } grep {/\:\:/} @{ dclone( \@_ ) };
-}
-
-sub hook_script {
-    my $s = shift;
-    _system("chmod +x ${s};${s}") if -e $s;
-}
-
 sub add_portage_repository {
     my $repo = $_[0];
-    my $reponame;
-    my $sync_type;
-    my @repodef = split( /\|/, $repo );
-    ( $reponame, $repo ) = @repodef if ( @repodef == 2 );
-    ( $reponame, $sync_type, $repo ) = @repodef if ( @repodef == 3 );
-
-    # try to detect sync-type
-    if ( !$sync_type ) {
-        $sync_type = ( split( /\:/, $repo ) )[0];
-        $sync_type = "git"
-            if $repo =~ /github|bitbucket/
-            or $sync_type eq "https"
-            or $sync_type eq "http";
-        $sync_type = "svn" if $repo =~ /\/svn\//;
-    }
-    $reponame = ( split( /\//, $repo ) )[-1] if !$reponame;
-    $reponame =~ s/\.|//g;    #clean
-    _system("mkdir -p /etc/portage/repos.conf/")
-        if ( !-d "/etc/portage/repos.conf/" );
+    my $sync_type = ( split( /\:/, $repo ) )[0];
+    $sync_type = "git"
+      if $repo =~ /github|bitbucket/
+      or $sync_type eq "https"
+      or $sync_type eq "http";
+    $sync_type = "svn" if $repo =~ /\/svn\//;
+    my @reposplit = split( /\//, $repo );
+    my $reponame = $reposplit[-2] . "-" . $reposplit[-1];
+    system("mkdir -p /etc/portage/repos.conf/")
+      if ( !-d "/etc/portage/repos.conf/" );
 
     say "==== Adding $reponame ====";
     qx{
@@ -161,26 +100,26 @@ echo '[$reponame]
 location = /usr/local/overlay/$reponame
 sync-type = $sync_type
 sync-uri = $repo
+masters = gentoo
 auto-sync = yes' > /etc/portage/repos.conf/$reponame.conf
-};                            # Declaring the repo and giving priority
+};    # Declaring the repo and giving priority
 
-    _system("emaint sync -r $reponame");
+    system("emaint sync -r $reponame");
 }
 
 # Input: package, depth, and atom. Package: sys-fs/foobarfs, Depth: 1 (depth of the package tree) , Atom: 1/0 (enable disable atom output)
-my %package_dep_cache;
-
 sub package_deps {
     my $package = shift;
-    my $depth   = shift // 1;   # defaults to 1 level of depthness of the tree
+    my $depth   = shift // 1;    # defaults to 1 level of depthness of the tree
     my $atom    = shift // 0;
 
 # Since we expect this sub to be called multiple times with the same arguments, cache the results
+    state %cache;
     $cache_key = "${package}:${depth}:${atom}";
 
-    if ( !exists $package_dep_cache{$cache_key} ) {
-        my @dependencies =
-            qx/equery -C -q g --depth=$depth '$package'/;    #depth=0 it's all
+    if ( !exists $cache{$cache_key} ) {
+        @dependencies =
+          qx/equery -C -q g --depth=$depth $package/;    #depth=0 it's all
         chomp @dependencies;
 
 # If an unversioned atom is given, equery returns results for all versions in the portage tree
@@ -189,15 +128,15 @@ sub package_deps {
 # accurate results, pass in a versioned atom.
         @dependencies = uniq(
             sort
-                grep {$_}
-                map { $_ =~ s/\[.*\]|\s//g; &abs_atom($_) if $atom; $_ }
-                @dependencies
+              grep { $_ }
+              map { $_ =~ s/\[.*\]|\s//g; &atom($_) if $atom; $_ }
+              @dependencies
         );
 
-        $package_dep_cache{$cache_key} = \@dependencies;
+        $cache{$cache_key} = \@dependencies;
     }
 
-    return @{ $package_dep_cache{$cache_key} };
+    return @{ $cache{$cache_key} };
 }
 
 #Input: nothing
@@ -224,148 +163,60 @@ sub calculate_missing {
     my @dependencies = package_deps( $package, $depth, 1 );
 
     if ($prune_virtuals) {
+        say "[$package] Pruning dependencies of virtual packages";
         my %install_dependencies = map { $_ => 1 } @dependencies;
 
         # Look for any virtuals and remove its immediate dependencies to avoid
         # installing multiple conflicting packages one by one
-        my @virtual_deps = ();
+        my @virtual_deps;
         for my $dep (@dependencies) {
-            if ( $dep =~ /^virtual\// ) {
-                my @child_deps = package_deps( $dep, 1, 1 );
-                push( @virtual_deps, @child_deps );
-            }
+            push( @virtual_deps, package_deps( $dep, 1, 1 ) )
+              if ( $dep =~ /^virtual\// );
         }
-
-        # Deduplicate the list
-        @virtual_deps = uniq(@virtual_deps);
-
-   # Prune the dependencies of the virtual packages from the dependencies list
         for my $dep (@virtual_deps) {
-            if ( $dep !~ /^virtual\// ) {
-                $install_dependencies{$dep} = 0;
-            }
+            $install_dependencies{$dep} = 0 if ( $dep !~ /^virtual\// );
         }
         @dependencies = grep { $install_dependencies{$_} } @dependencies;
     }
 
     #taking only the 4th column of output as key of the hashmap
     my %installed_packs =
-        map { $_ => 1 } @Installed_Packages;
+      map { $_ => 1 } @Installed_Packages;
     my %available_packs = map { $_ => 1 } @Available_Packages;
 
 # removing from packages the one that are already installed and keeping only the available in the entropy repositories
     my @to_install = grep( defined $available_packs{$_},
         uniq( grep( !defined $installed_packs{$_}, @dependencies ) ) );
-    @to_install = grep {length} @to_install;
-
-    # Strip out the target package from the dependency list
-    @to_install = grep { to_atom($_) ne to_atom($package) } @to_install;
-
+    @to_install = grep { length } @to_install;
     say "[$package] packages that will be installed with equo: @to_install"
-        if @to_install > 0;
+      if @to_install > 0;
 
     return @to_install;
 }
 
-sub portage_perms {
-    my $dir = shift;
-    _system("chown -R portage:portage $dir");
-    _system("chmod -R ug+w,a+rX $dir");
-}
-
 # Input : complete gentoo package (sys-fs/foobarfs-1.9.2)
 # Output: atom form (sys-fs/foobarfs)
 sub atom { s/-[0-9]{1,}.*$//; }
 
-sub abs_atom { atom; s/^(\<|\>|=)+// }
-
-# Same again as a function
-sub to_atom { my $p = shift; local $_ = $p; atom; return $_; }
-
-sub to_abs_atom { my $p = shift; local $_ = $p; abs_atom; return $_; }
-
 # Input: Array
 # Output: array with unique elements
 sub uniq {
     keys %{ { map { $_ => 1 } @_ } };
 }
 
-# Detect useflags defined as [-alsa,avahi] in atom,
-# and fill $hash within the $target sub-hash
-sub detect_useflags {
-    my ( $target, $packages ) = @_;
-    my @packs = @{$packages};
-    for my $i ( 0 .. $#packs ) {
-        if ( $packages->[$i] =~ /\[(.*?)\]/ ) {
-            my $flags = $1;
-            $packages->[$i] =~ s/\[.*?\]//g;
-            $per_package_useflags->{$target}->[$i] =
-                [ +split( /,/, $flags ) ];
-        }
-    }
-}
-
-sub compile_packs {
-    my ( $target, @packages ) = @_;
-    my $extra_arg;
-    my $compiled = {};
-    $extra_arg = "-B" if $target eq "injected_targets";
-    my $package_counter = 0;
-    for my $pack (@packages) {
-        my $tmp_rt;
-        say "\n" x 2, "==== Compiling $pack ====", "\n" x 2;
-        if ( defined $per_package_useflags->{$target}->[$package_counter]
-            and @{ $per_package_useflags->{$target}->[$package_counter] }
-            > 0 )
-        {
-            say "USEFLAGS: "
-                . join( " ",
-                @{ $per_package_useflags->{$target}->[$package_counter] } );
-            $tmp_rt = _system(
-                "USE=\""
-                    . join(
-                    " ",
-                    @{  $per_package_useflags->{$target}->[$package_counter]
-                    }
-                    )
-                    . "\" emerge $emerge_defaults_args -j $jobs $extra_arg '$pack'"
-            );
-        }
-        else {
-            $tmp_rt =
-                _system(
-                "emerge $emerge_defaults_args -j $jobs $extra_arg '$pack'");
-        }
-        $package_counter++;
-        $compiled->{$pack} = $tmp_rt;
-    }
-    return $compiled;
-}
-
 sub help {
     say "-> You should feed me with something", "", "Examples:", "",
-        "\t$0 app-text/tree", "\t$0 plasma-meta --layman kde", "",
-        "\t$0 app-foo/foobar --equo foo-misc/foobar --equo net-foo/foobar --layman foo --layman bar foo",
-        "**************************", "",
-        "You can supply multiple overlays as well: $0 plasma-meta --layman kde plab",
-        "The documentation is available at https://github.com/Sabayon/devkit",
-        "";
+      "\t$0 app-text/tree", "\t$0 plasma-meta --layman kde", "",
+"\t$0 app-foo/foobar --equo foo-misc/foobar --equo net-foo/foobar --layman foo --layman bar foo",
+      "**************************", "",
+"You can supply multiple overlays as well: $0 plasma-meta --layman kde plab",
+      "The documentation is available at https://github.com/Sabayon/devkit",
+      "";
     exit 0;
 }
 
 say "****************************************************";
 
-my $per_package_useflags;
-my @packages = @ARGV;
-my @injected_packages =
-    $build_injected_args ? split( / /, $build_injected_args ) : ();
-my @parsed_overlays =
-    grep { $_ !~ /gentoo/i } parse_overlays( @packages, @injected_packages );
-
-say "Detected overlays: @parsed_overlays" if @parsed_overlays;
-
-@overlays = uniq( @overlays, @parsed_overlays );
-
 if ( @overlays > 0 ) {
     say "Overlay(s) to add";
     foreach my $overlay (@overlays) {
@@ -373,57 +224,29 @@ if ( @overlays > 0 ) {
     }
 }
 
-say "[*] Compiling:";
+say "[*] Installing:";
 
 say "\t* " . $_ for @ARGV;
 
-loud "Setup phase start";
-
-if ($pretend) {
-    say "[*] PRETEND enabled, no real action will be performed.";
-    say "    Bear in mind that in such way the list of packages";
-    say "    that emerge will try to compile will be bigger";
-    $equo_install_args    .= " -p";
-    $emerge_defaults_args .= " -p";
-}
+say "[*] Syncing configurations files, Layman and Portage";
 
 # Syncronizing portage configuration and adding overlays
 system("echo 'en_US.UTF-8 UTF-8' > /etc/locale.gen");    #be sure about that.
+system("cd /etc/portage/;git checkout master; git stash; git pull");
 
-# If defined, fetch a remote /etc/portage
-if ( $remote_conf_portdir ne "" ) {
-    _system("rm -rf /etc/portage");
-    _system("git clone $remote_conf_portdir /etc/portage");
-    portage_perms('/etc/portage');
-}
-else {
-    _system("cd /etc/portage/;git checkout master; git stash; git pull");
-}
-
-# If defined, fetch a remote /usr/portage
-if ( $remote_portdir ne "" ) {
-    _system("rm -rf /usr/portage");
-    _system("git clone $remote_portdir /usr/portage");
-}
-
-_system("mkdir /var/lib/layman") if ( !-d "/var/lib/layman" );
-_system("touch /var/lib/layman/make.conf && layman-updater -R")
-    if ( !-e "/var/lib/layman/make.conf" );
-
-_system("echo 'y' | layman -f -a $_") for @overlays;
+system("echo 'y' | layman -f -a $_") for @overlays;
 
 my $reponame = "LocalOverlay";
 
 # Setting up a local overlay if doesn't exists
-_system(
-    "rm -rf /usr/local/portage;cp -rf /usr/local/local_portage /usr/local/portage"
-) if ( -d "/usr/local/local_portage" );
+system(
+"rm -rf /usr/local/portage;cp -rf /usr/local/local_portage /usr/local/portage"
+);
 
 if ( !-f "/usr/local/portage/profiles/repo_name" ) {
-    _system("mkdir -p /usr/local/portage/{metadata,profiles}");
-    _system("echo 'LocalOverlay' > /usr/local/portage/profiles/repo_name");
-    _system(
-        "echo 'masters = gentoo' > /usr/local/portage/metadata/layout.conf");
+    system("mkdir -p /usr/local/portage/{metadata,profiles}");
+    system("echo 'LocalOverlay' > /usr/local/portage/profiles/repo_name");
+    system("echo 'masters = gentoo' > /usr/local/portage/metadata/layout.conf");
 }
 else {
     open FILE, "</usr/local/portage/profiles/repo_name";
@@ -432,7 +255,8 @@ else {
     chomp(@FILE);
     $reponame = $FILE[0];
 }
-portage_perms('/usr/local/portage');
+system("chown -R portage:portage /usr/local/portage");
+system("chmod -R 755 /usr/local/portage");
 
 qx{
 echo '[$reponame]
@@ -446,153 +270,70 @@ if ( $remote_overlay and $remote_overlay ne "" ) {
     add_portage_repository($_) for ( split( / /, $remote_overlay ) );
 }
 
-if ( $remove_layman_overlay and $remove_layman_overlay ne "" ) {
-    say "===== Removing overlays: $remove_layman_overlay =====";
-
-    _system("layman -d $_") for ( split( / /, $remove_layman_overlay ) );
-}
-if ( $remove_remote_overlay and $remove_remote_overlay ne "" ) {
-    say "===== Removing overlays: $remove_remote_overlay =====";
-    _system( "rm -rfv /etc/portage/" . $_ . ".conf" )
-        for ( split( / /, $remote_overlay ) );
-}
-
-_system("mkdir -p /usr/portage/distfiles/git3-src");
-portage_perms('/usr/portage');
+system("mkdir -p /usr/portage/distfiles/git3-src");
 
 unless ( $skip_portage_sync == 1 ) {
 
     # sync portage and overlays
-    _system("layman -S");
+    system("layman -S");
     if ( $webrsync == 1 ) {
-        _system("emerge-webrsync");
+        system("emerge-webrsync");
     }
     else {
-        _system("emerge --sync --quiet");
+        system("emerge --sync");
     }
 }
 
 # preparing for MOAR automation
-say "Setting new profile to $profile"   if defined $profile;
-_system("eselect profile set $profile") if defined $profile;
-_system("eselect profile list")         if defined $profile;
+qx|eselect profile set $profile|;
+qx{ls /usr/portage/licenses -1 | xargs -0 > /etc/entropy/packages/license.accept}
+  ;    #HAHA
 
 if ( $use_equo && $entropy_repository eq "weekly" ) {
-    _system("equo repo disable sabayonlinux.org");
-    _system("equo repo enable sabayon-weekly");
+    qx|equo repo disable sabayonlinux.org|;
+    qx|equo repo enable sabayon-weekly|;
 }
 elsif ( $use_equo && $entropy_repository eq "testing" ) {
-    _system("equo repo disable sabayon-weekly");
-    _system("equo repo enable sabayonlinux.org");
-    _system("equo repo enable sabayon-limbo");
+    qx|equo repo disable sabayon-weekly|;
+    qx|equo repo enable sabayonlinux.org|;
+    qx|equo repo enable sabayon-limbo|;
 }
 
 if ($use_equo) {
-
-    say "Devkit version:";
-    _system("equo s -vq app-misc/sabayon-devkit");
-
-    _system("equo repo mirrorsort sabayonlinux.org") if $equo_mirrorsort;
-
-    # Try to use last enman version
-    _system("equo up && equo i enman --relaxed");
-
-    _system("enman list --installed -q");
-    my $enman_list_output = qx|enman list --installed -q|;
-    chomp($enman_list_output);
-    my @installed_enman_repos;
-
-    if ( $enman_list_output eq "No repositories were installed with enman" ) {
-        @installed_enman_repos = ();
-    }
-    else {
-        @installed_enman_repos = split( / /, $enman_list_output );
-    }
-
     if ( $enman_repositories and $enman_repositories ne "" ) {
-        say "==================================";
-        my @enman_toadd;
-        if ( index( $enman_repositories, "\n" ) != -1 ) {
-            @enman_toadd = split( /\n/, $enman_repositories );
-        }
-        else {
-            @enman_toadd = split( / /, $enman_repositories );
-        }
-
-        for my $enman_add (@enman_toadd) {
-            say "Check enman " . $enman_add;
-            if ( !grep ( $enman_add, @installed_enman_repos ) ) {
-                say "Try to install " . $enman_add;
-                _system("enman add $enman_add");
-            }
-            else {
-                say "Already present: " . $enman_add;
-            }
-        }
-        say "==================================";
+        my @enman_toadd = split( / /, $enman_repositories );
+        safe_call("enman add $_") for @enman_toadd;
     }
 
     if ( $remove_enman_repositories and $remove_enman_repositories ne "" ) {
-        say "==================================";
-        my @enman_toremove;
-        if ( index( $remove_enman_repositories, "\n" ) != -1 ) {
-            @enman_toremove = split( /\n/, $remove_enman_repositories );
-        }
-        else {
-            @enman_toremove = split( / /, $remove_enman_repositories );
-        }
-
-        for my $enman_remove (@enman_toremove) {
-            if ( grep ( $enman_remove, @installed_enman_repos ) ) {
-                say "Try to remove enamn repository " . $enman_remove;
-                _system("enman remove $enman_remove");
-            }
-            else {
-                say "Enman repository $enman_remove is not present.";
-            }
-        }
-        say "==================================";
+        my @enman_toremove = split( / /, $remove_enman_repositories );
+        system("enman remove $_") for @enman_toremove;
     }
 
-    _system("enman add $repository_name")
-        if ($enman_add_self
-        and $repository_name
-        and $repository_name ne "" );
-
-    _system("equo up && equo u");
+    system("enman add $repository_name")
+      if ( $enman_add_self and $repository_name and $repository_name ne "" );
+    system("equo repo mirrorsort sabayonlinux.org") if $equo_mirrorsort;
+    system("equo up && equo u");
 }
 
-_system("cp -rf $make_conf /etc/portage/make.conf") if $make_conf;
+system("cp -rf $make_conf /etc/portage/make.conf") if $make_conf;
 
-if (@injected_packages) {
-    say "[*] Injected installs:";
-    say "\t* " . $_ for @injected_packages;
-}
+qx|echo 'ACCEPT_LICENSE="*"' >> /etc/portage/make.conf|;    #just plain evil
 
-# Allow users to specify atoms as: media-tv/kodi[-alsa,avahi]
-if ($emerge_split_install)
-{    # For targets this will be available only if split_install is enabled
-    detect_useflags( "targets", \@packages );
-}
-else {
-    map { $_ =~ s/\[.*?\]//g; $_; }
-        @packages
-        ; # Clean up [] if user didn't specified split_install, but specified a useflag combination
-}
-detect_useflags( "injected_targets", \@injected_packages );
+my @packages = @ARGV;
 
 if ($use_equo) {
 
     # best effort mask
     if ($equo_masks) {
         append_to_file( "/etc/entropy/packages/package.mask", $_ )
-            for ( split( / /, $equo_masks ) );
+          for ( split( / /, $equo_masks ) );
     }
 
     # best effort unmask
     if ($equo_unmasks) {
         append_to_file( "/etc/entropy/packages/package.unmask", $_ )
-            for ( split( / /, $equo_unmasks ) );
+          for ( split( / /, $equo_unmasks ) );
     }
 
     my @packages_deps;
@@ -601,14 +342,14 @@ if ($use_equo) {
     chomp(@Installed_Packages);
 
     my %installed_packs =
-        map { $_ => 1 } @Installed_Packages;
+      map { $_ => 1 } @Installed_Packages;
 
 # Remove any already installed packages from the list of entropy packages to install in the build spec
     @equo_install = grep { !exists $installed_packs{$_} } @equo_install;
 
     foreach my $p (@packages) {
         say
-            "[$p] Getting the package dependencies which aren't already installed on the system.. ";
+"[$p] Getting the package dependencies which aren't already installed on the system.. ";
         push(
             @packages_deps,
             calculate_missing(
@@ -618,116 +359,72 @@ if ($use_equo) {
             )
         ) if $equo_install_atoms;
         push( @packages_deps, package_deps( $p, $dep_scan_depth, 0 ) )
-            if $equo_install_version;
+          if $equo_install_version;
     }
-    @packages_deps = grep { defined() and length() } @packages_deps; #cleaning
+    @packages_deps = grep { defined() and length() } @packages_deps;   #cleaning
     say "", "[install] Those dependencies will be installed with equo :",
-        @packages_deps, "";
+      @packages_deps, "";
     if ($equo_split_install) {
-        _system("equo i $equo_install_args --bdeps '$_'")
-            for ( @packages_deps, @equo_install )
-            ; ## bail out here, if installs fails. emerge will compile a LOT of stuff
-        if ( @equo_remove > 0 and !$pretend ) {
-            say "Removing with equo: @equo_remove";
-            _system("equo rm --nodeps '$_'") for (@equo_remove);
+        safe_call("equo i --bdeps $_")
+          for ( @packages_deps, @equo_install )
+          ; ## bail out here, if installs fails. emerge will compile a LOT of stuff
+        if ( @equo_remove > 0 ) {
+            system("equo rm --nodeps $_") for (@equo_remove);
         }
     }
     else {
-        my @p = map {"'$_'"} ( @packages_deps, @equo_install );
-        my @r = map {"'$_'"} @equo_remove;
-        _system("equo i $equo_install_args --bdeps @p")
-            if ( @p > 0 )
-            ; ## bail out here, if installs fails. emerge will compile a LOT of stuff
-        _system("equo rm --nodeps @r") if ( @r > 0 );
+        safe_call("equo i --bdeps @packages_deps @equo_install")
+          if ( @packages_deps > 0 or @equo_install > 0 )
+          ; ## bail out here, if installs fails. emerge will compile a LOT of stuff
+        system("equo rm --nodeps @equo_remove") if ( @equo_remove > 0 );
     }
 }
 
-loud "Pre-compilation phase start";
+say "*** Ready to compile, finger crossed ***";
 
-_system("emerge --info")
-    ; #always give detailed information about the building environment, helpful to debug
+system("emerge --info")
+  ; #always give detailed information about the building environment, helpful to debug
+
+say "Devkit version:";
+system("equo s -vq app-misc/sabayon-devkit");
+
+my $rt;
 
 if ( $emerge_remove and $emerge_remove ne "" ) {
-    say "Removing with emerge: $emerge_remove";
-    _system("emerge -C '$_'") for split( / /, $emerge_remove );
+    system("emerge -C $_") for split( / /, $emerge_remove );
 }
 
-hook_script("./pre-script");
-hook_script("/pre-script");
-
-loud "Compilation phase start";
-
-my $return = 0;
 if ($emerge_split_install) {
-    my $res = compile_packs( "targets", @packages );
-    loud "Compilation summary";
-    foreach my $k ( keys %{$res} ) {
-        my $c = $res->{$k} >> 8;
-        if ( $c != 0 ) {
-            say "$k : build failed ( Exit: $c )";
-            $return = 1 unless $keep_going;
-        }
-        else {
-            say "$k : build succeeded";
-        }
+    for my $pack (@packages) {
+        say "==== Compiling $pack ====";
+        my $tmp_rt = system("emerge $emerge_defaults_args -j $jobs $pack");
+
+#  $rt=$tmp_rt if ($? == -1 or $? & 127 or !$rt); # if one fails, the build should be considered failed!
     }
+    $rt = 0;    #consider the build good anyway, like a "keep-going"
 }
 else {
-    my @p = map {"'$_'"} @packages;
-    my $rt = _system("emerge $emerge_defaults_args -j $jobs @p");
-    $return = $rt >> 8;
+    $rt = system("emerge $emerge_defaults_args -j $jobs @packages");
 }
 
-if ( @injected_packages > 0 ) {
-    my $res = compile_packs( "injected_targets", @injected_packages );
-    loud "Compilation summary for injected_targets";
-    foreach my $k ( keys %{$res} ) {
-        my $c = $res->{$k} >> 8;
-        if ( $c != 0 ) {
-            say "$k : build failed ( Exit: $c )";
-            $return = 1 unless $keep_going;
-        }
-        else {
-            say "$k : build succeeded";
-        }
-    }
+my $return = $rt >> 8;
+
+# best effort -B
+if ($build_injected_args) {
+    system("emerge $emerge_defaults_args -j $jobs -B $_")
+      for ( split( / /, $build_injected_args ) );
 }
 
-loud "Compilation phase end (Exit: $return)";
+if ($preserved_rebuild) {
 
-hook_script("./post-script");
-hook_script("/post-script");
+    system("emerge -j $jobs --buildpkg \@preserved-rebuild");
+    system("revdep-rebuild");
 
-if ( $preserved_rebuild and !$pretend ) {
-
-    _system("emerge -j $jobs --buildpkg \@preserved-rebuild");
-    _system("revdep-rebuild");
-
-}
-
-if ( $qualityassurance_checks == 1 ) {
-    loud "Quality assurance checks";
-    foreach my $pn ( map { abs_atom; $_ } ( @packages, @injected_packages ) )
-    {
-        say ">> Running repoman on $pn";
-        _system(
-            "pushd \$(dirname \$(equery which '$pn' 2>/dev/null)); repoman; popd"
-        );
-        $pn =~ s/\:\:.*//g;
-        say ">> Detecting missing dependencies for $pn";
-        _system("dynlink-scanner '$pn'");
-        _system("depcheck '$pn'");
-    }
-}
-
-if ( $obsoleted and $target_overlay ) {
-    loud "Obsoletes detection";
-    _system("sabayon-detectobsolete --overlay ${target_overlay}");
 }
 
 # Copy files to artifacts folder
 system(
     "mkdir -p $artifacts_folder;cp -rfv /usr/portage/packages $artifacts_folder"
-) if ( $artifacts_folder and !$return and !$pretend );
+) if ( $artifacts_folder and !$return );
 
 exit($return);

depcheck

@@ -1,303 +0,0 @@
-#!/bin/bash
-# PODNAME: depcheck
-#
-# Copyright (c) 2014 Michael Palimaka <kensington@gentoo.org>
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-#
-# A tool to report both undeclared and potentially-unused runtime dependencies.
-#
-# Depends on app-misc/pax-utils, app-portage/portage-utils and
-# sys-apps/gentoo-functions.
-
-DEBUG=FALSE
-IGNORE_DEPS=( "sys-libs/glibc" "sys-devel/gcc" )
-IGNORE_LINKS=( "/lib64/libgcc_s.so.1" )
-PKG_DIR="/var/db/pkg/"
-
-. /lib/gentoo/functions.sh
-
-bold() {
-    echo $@
-    return
-    local bold=$(tput bold)
-    local normal=$(tput sgr0)
-    echo "${bold}${@}${normal}"
-}
-
-debug() {
-    if [ $DEBUG = TRUE ]; then
-        # write to stderr so as not to interfere with function returns
-        echo "$@" 1>&2
-    fi
-}
-
-# app-foo/bar-1.2.3-r1 -> app-foo/bar
-remove_atom_version() {
-    local atom=`qatom "${1}" | cut -d " " -f 1-2 | tr " " /`
-    echo $atom
-}
-
-virtualcheck() {
-    debug Checking if ${libowner_pn} is provided by a virtual
-    for virtual in $(qdepends --nocolor --name-only --${1} --query ${libowner_pn} | grep ^virtual/)
-    do
-        debug Checking if ${virtual} is in dependencies
-        local isvirtualdep=$(qdepends --${1} ${atom} | grep ${virtual})
-
-        if [ $? -eq 0 ]; then
-            used_virtuals+=( ${virtual} )
-            continue 2
-        fi
-    done
-
-    if [ "${1}" = "depend" ]; then
-        eerror "${obj} links to ${link}"
-    fi
-    eindent
-    eerror Missing ${1^^} on $(bold ${libowner_pn})
-    eoutdent
-    errors=1
-}
-
-check_atom() {
-
-    local errors=0
-    local atom=$1
-    local checked=()
-    local rdepends=()
-    local used_virtuals=()
-
-    local objects=`qlist -qo ${atom}`
-
-    if [ ! "${objects}" ]; then
-        einfo ${atom} does not have any objects installed, skipping...
-        echo
-        return
-    fi
-
-    if [ -z "${INSIDE_PORTAGE}" ]; then
-        einfo Checking ${atom} for undeclared dependencies
-        eindent
-    fi
-
-    local obj
-    for obj in $objects
-    do
-        debug "Checking ${obj}"
-
-        readelf -h ${obj} > /dev/null 2>&1
-
-        # can it have stuff linked to it?
-        if [ $? -ne 0 ]; then
-            debug "It can't have links, skipping"
-            continue
-        fi
-
-        local elf=`scanelf --format "#f%n" --nobanner --use-ldpath ${obj} 2>&1`
-        local links=`echo ${elf} | tr "," " "`
-
-        # get a list of everything that it's linked to
-        local link
-        for link in $links
-        do
-            local ignore
-            for ignore in "${IGNORE_LINKS[@]}"; do
-                if [ "${ignore}" = "${link}" ]; then
-                    debug "Ignoring ${link} due to blacklist"
-                    continue 2
-                fi
-            done
-
-            # only check a library once per atom for performance reasons
-            local check
-            for check in "${checked[@]}"; do
-                if [ "${check}" = "${link}" ]; then
-                    debug "Already checked ${link} for this atom, skipping"
-                    continue 2
-                fi
-            done
-
-            checked=( "${checked[@]}" "${link}" )
-
-            debug "Found ${link}"
-
-            local libowner=`qfile -vqC ${link} | uniq`
-
-            if [ ! "${libowner}" ]; then
-                ewarn "Warning: installed file ${obj} is linked to ${link} which is not owned by any installed atom."
-                continue
-            fi
-
-            debug "Owning package for ${link} is ${libowner}"
-
-            local libowner_pn=$(remove_atom_version ${libowner})
-            local my_pn=$(remove_atom_version ${atom})
-
-            rdepends+=( "${libowner_pn}" )
-
-            if [ "${libowner_pn}" = "${my_pn}" ]; then
-                debug "Owning package is self, ignoring"
-                continue
-            fi
-
-            local ignorelib
-            for ignorelib in "${IGNORE_DEPS[@]}"
-            do
-                if [ "${libowner_pn}" = "${ignorelib}" ]; then
-                    debug "Ignoring objects belonging to ${ignorelib}"
-                    continue 2
-                fi
-            done
-
-            debug "Checking if ${libowner_pn} is in the [R]DEPEND list of ${atom}"
-
-            local isdep
-            isdep=`qdepends -d ${atom} | grep ${libowner_pn}`
-            if [ $? -ne 0 ]; then
-                virtualcheck depend
-            fi
-
-            local isrdep
-            isrdep=`qdepends -r ${atom} | grep ${libowner_pn}`
-            if [ $? -ne 0 ]; then
-                virtualcheck rdepend
-            fi
-
-
-        done
-
-    done
-
-    local ebuild_rdepends=()
-    for rdepend in $(qdepends --nocolor --quiet --rdepend ${atom} | sed -e "s/\[[^]]*\]//g" | cut -d : -f 2-)
-    do
-        if [[ ${rdepend} = !* ]] ; then
-            debug Skipping blocker: ${rdepend}
-            continue
-        elif [[ ${rdepend} = virtual/* ]] ; then
-            for virtual in "${used_virtuals[@]}"
-            do
-                if [[ ${virtual} == $(remove_atom_version ${rdepend}) ]]; then
-                    debug Skipping virtual: ${rdepend}
-                    continue 2
-                fi
-            done
-        fi
-        ebuild_rdepends+=( $(remove_atom_version $rdepend) )
-    done
-
-    debug "Ebuild RDEPENDS: ${ebuild_rdepends[@]}"
-    debug "Linked RDEPENDS: ${rdepends[@]}"
-
-    local suspect_rdepends=$(comm -13 <(echo ${rdepends[@]} | sed 's/ /\n/g' | sort -u) <(echo ${ebuild_rdepends[@]} | sed 's/ /\n/g' | sort -u))
-    if [ "${suspect_rdepends}" ]; then
-        ewarn "Suspect RDEPEND: $(bold ${suspect_rdepends})"
-    fi
-
-    if [ -z "${INSIDE_PORTAGE}" ]; then
-        eoutdent
-        if [ -n "${CAT}" ]; then
-            echo
-        fi
-    fi
-
-    return $errors
-
-}
-
-check_package() {
-
-    local package=$1
-    local atoms=`qlist -IcCS ${package} | tr ' ' '-' | cut -d : -f1`
-
-    debug Package ${package} own atoms: ${atoms}
-
-    if [ ! "${atoms}" ]; then
-        eerror ERROR: ${package} is not a valid atom
-        exit 1
-    fi
-
-    for atom in ${atoms}; do
-        check_atom ${atom}
-    done
-
-}
-
-check_category() {
-
-    local errors=0
-
-    for package in `ls "${PKG_DIR}/${1}"`; do
-
-        check_package "${1}/${package}"
-
-        if [ $? -ne 0 ]; then
-            errors=1
-        fi
-
-    done;
-
-    return $errors
-
-}
-
-BINNAME=`basename ${0}`
-if [ -z $1 ]; then
-    echo "Checks emerged package(s) for undeclared depedencies"
-    echo
-        echo "Usage: ${BINNAME} [ atom | -c category | -a ]"
-    echo
-        echo "Examples:"
-    echo "Check a single package: ${BINNAME} app-foo/bar-1.2.3"
-    echo "Check a category: ${BINNAME} -c app-foo"
-    echo "Check everything: ${BINNAME} -a"
-    exit 1
-fi
-
-# check a particular category
-if [ "$1" = "-c" ]; then
-
-    CAT=$2
-
-    if [ ! -d "${PKG_DIR}/${CAT}" ]; then
-        eerror ERROR: No packages from the category ${CAT} have been emerged yet
-        exit 1
-    fi
-
-    check_category $CAT
-
-# check everything
-elif [ "$1" = "-a" ]; then
-
-    for category in `ls ${PKG_DIR}`; do
-        check_category $category
-    done;
-
-else
-    check_package $1
-fi
-
-if [ $DEBUG = TRUE ]; then
-    if [ $? -eq 0 ]; then
-        einfo Checking complete, no errors found
-    else
-        eerror Checking complete, errors found
-    fi
-fi

dynlink-scanner

@@ -1,50 +0,0 @@
-#!/bin/bash
-# Maciej Mrozowski <reavertm@gentoo.org>
- 
-# Returns colon separated list of linking dependencies
-get_link_deps()
-{
-	KEY=
-	for dep in `scanelf --use-ldpath -yBF '%f %n' "$1"`; do
-		if [[ -z $KEY ]]; then
-			KEY="$dep"
-			continue
-		fi
-		echo $dep
-	done
-}
-
-# Print linking deps for given executable or shared object in alphabetical order.
-# Also try to dlopen shared objects in order to detect missing/broken dependencies.
-if [[ "$1" = --linking-deps ]]; then
-	# Sanity check, file-5.12 is broken, bail out early
-	if [[ `file --version | grep --color=never file- | cut -d'-' -f2` == '5.12' ]]; then
-		echo "file-5.12 is broken, bailing out"
-		exit 1
-	fi
-	mime=`file -b --mime-type "$2"`
-	if [[ "$mime" == 'application/x-executable' ]] || [[ "${mime}" == 'application/x-sharedlib' ]]; then
-		LINK=`get_link_deps "$2"`
-		[[ "$mime" == 'application/x-sharedlib' ]] && /usr/bin/try_dlopen "$2"
-		[[ -n $LINK ]] && echo -e ${LINK//,/\\n} | sort -u
-		exit 0
-	fi
-	exit 1
-fi
-
-[[ -z $* ]] && echo "usage: `basename $0` <package>" && exit 0
-
-# Check whether package is installed
-if ! portageq has_version $ROOT/ $1; then
-	echo "$1 is not installed"
-	exit 1
-fi
-
-# For each installed slot
-for cpv in `portageq match $ROOT/ $1`; do
-	echo "Processing $cpv"
-	# For each file that belongs to package
-	#     run dynlink-scanner --linking-deps <file> to obtain its linking dependencies
-	# Assign all linking deps to packages and print package names
-	qfile -eR $ROOT `portageq contents $ROOT/ $cpv | xargs -r -L 1 "$0" --linking-deps` | cut -f1 -d' ' | sort -u
-done

sabayon-brokenlibs

@@ -1,18 +1,4 @@
 #!/bin/bash
-# Copyright 2016-2018 See AUTHORS file
-#
-# 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 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
 
 PACKAGES=()
 bin=$1

sabayon-buildpackages

@@ -1,20 +1,4 @@
 #!/bin/bash
-
-# Copyright 2016-2018 See AUTHORS file
-#
-# 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 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
 set -e
 SAB_WORKSPACE="${SAB_WORKSPACE:-$PWD}"
 DOCKER_IMAGE="${DOCKER_IMAGE:-sabayon/builder-amd64}"
@@ -24,7 +8,7 @@ MAKE_CONF="${MAKE_CONF:-$SAB_WORKSPACE/specs/make.conf}"
 OUTPUT_DIR="${OUTPUT_DIR:-$SAB_WORKSPACE/portage_artifacts/}"
 LOCAL_OVERLAY="${LOCAL_OVERLAY:-$SAB_WORKSPACE/local_overlay}"
 ENTROPY_REPOSITORY="${ENTROPY_REPOSITORY:-main}" # Can be weekly, main, testing
-DOCKER_OPTS="${DOCKER_OPTS:--ti --rm --cap-add=SYS_PTRACE}"
+DOCKER_OPTS="${DOCKER_OPTS:--ti --rm}"
 
 . /sbin/sabayondevkit-functions.sh
 
@@ -57,7 +41,6 @@ docker_volumes=( -v "$OUTPUT_DIR:/usr/portage/packages" )
 [ -z "$ENMAN_REPOSITORIES" ] || docker_env+=(-e "ENMAN_REPOSITORIES=$ENMAN_REPOSITORIES")
 [ -z "$REMOVE_ENMAN_REPOSITORIES" ] || docker_env+=(-e "REMOVE_ENMAN_REPOSITORIES=$REMOVE_ENMAN_REPOSITORIES")
 [ -z "$DISTFILES" ] || docker_volumes+=(-v "$DISTFILES:/usr/portage/distfiles")
-[ -z "$INTERNAL_BUILDER" ] || docker_volumes+=(-v "$INTERNAL_BUILDER:/usr/sbin/builder")
 [ -z "$ENTROPY_DOWNLOADED_PACKAGES" ] || docker_volumes+=(-v "$ENTROPY_DOWNLOADED_PACKAGES:/var/lib/entropy/client/packages")
 [ -z "$DISTCC_HOSTS" ] || docker_env+=(-e "DISTCC_HOSTS=$DISTCC_HOSTS")
 [ -z "${PRUNE_VIRTUALS}" ] || docker_env+=(-e "PRUNE_VIRTUALS=$PRUNE_VIRTUALS")
@@ -67,20 +50,7 @@ docker_volumes=( -v "$OUTPUT_DIR:/usr/portage/packages" )
 [ -z "$EQUO_UNMASKS" ] || docker_env+=(-e "EQUO_UNMASKS=$EQUO_UNMASKS")
 [ -z "$EMERGE_REMOVE" ] || docker_env+=(-e "EMERGE_REMOVE=$EMERGE_REMOVE")
 [ -z "$REMOTE_OVERLAY" ] || docker_env+=(-e "REMOTE_OVERLAY=$REMOTE_OVERLAY")
-[ -z "$REMOVE_LAYMAN_OVERLAY" ] || docker_env+=(-e "REMOVE_LAYMAN_OVERLAY=$REMOVE_LAYMAN_OVERLAY")
-[ -z "$REMOVE_REMOTE_OVERLAY" ] || docker_env+=(-e "REMOVE_REMOTE_OVERLAY=$REMOVE_REMOTE_OVERLAY")
-[ -z "$QA_CHECKS" ] || docker_env+=(-e "QA_CHECKS=$QA_CHECKS")
-[ -z "$REMOTE_CONF_PORTDIR" ] || docker_env+=(-e "REMOTE_CONF_PORTDIR=$REMOTE_CONF_PORTDIR")
-[ -z "$REMOTE_PORTDIR" ] || docker_env+=(-e "REMOTE_PORTDIR=$REMOTE_PORTDIR")
-[ -z "$ETP_NOCACHE" ] || docker_env+=(-e "ETP_NOCACHE=$ETP_NOCACHE")
-[ -z "$PRETEND" ] || docker_env+=(-e "PRETEND=$PRETEND")
-[ -z "$BUILDER_VERBOSE" ] || docker_env+=(-e "BUILDER_VERBOSE=$BUILDER_VERBOSE")
-[ -z "$DETECT_OBSOLETE" ] || docker_env+=(-e "DETECT_OBSOLETE=$DETECT_OBSOLETE")
-[ -z "$TARGET_OVERLAY" ] || docker_env+=(-e "TARGET_OVERLAY=$TARGET_OVERLAY")
 [ -d "$LOCAL_OVERLAY" ] && docker_volumes+=(-v "$LOCAL_OVERLAY:/usr/local/local_portage")
-[ -z "$SHARE_WORKSPACE" ] || docker_volumes+=(-v "$SAB_WORKSPACE:/devkit-workspace")
-[ -z "$PRE_SCRIPT" ] || docker_volumes+=(-v "$PRE_SCRIPT:/pre-script")
-[ -z "$POST_SCRIPT" ] || docker_volumes+=(-v "$POST_SCRIPT:/post-script")
 
 if [ -e $MAKE_CONF ]; then
   echo "You specified a make.conf. I hope you know what are you doing"
@@ -97,15 +67,13 @@ if [ -d "$SAB_WORKSPACE"/specs ]; then
   [ -e "$SAB_WORKSPACE"/specs/custom.mask ] && docker_volumes+=(-v "$SAB_WORKSPACE/specs/custom.mask:/opt/sabayon-build/conf/$SAB_ARCH/portage/package.mask/99-custom.mask")
   [ -e "$SAB_WORKSPACE"/specs/custom.unmask ] && docker_volumes+=(-v "$SAB_WORKSPACE/specs/custom.unmask:/opt/sabayon-build/conf/$SAB_ARCH/portage/package.unmask/99-custom.unmask")
   [ -e "$SAB_WORKSPACE"/specs/custom.use ] && docker_volumes+=(-v "$SAB_WORKSPACE/specs/custom.use:/opt/sabayon-build/conf/$SAB_ARCH/portage/package.use/99-custom.use")
-  [ -e "$SAB_WORKSPACE"/specs/custom.env ] && docker_volumes+=(-v "$SAB_WORKSPACE/specs/custom.env:/opt/sabayon-build/conf/$SAB_ARCH/portage/package.env")
+  [ -e "$SAB_WORKSPACE"/specs/custom.env ] && docker_volumes+=(-v "$SAB_WORKSPACE/specs/custom.env:/opt/sabayon-build/conf/$SAB_ARCH/portage/package.env/99-custom.env")
   [ -e "$SAB_WORKSPACE"/specs/custom.keywords ] && docker_volumes+=(-v "$SAB_WORKSPACE/specs/custom.keywords:/opt/sabayon-build/conf/$SAB_ARCH/portage/package.keywords/99-custom.keywords")
-  [ -d "$SAB_WORKSPACE"/specs/env ] && docker_volumes+=(-v "$SAB_WORKSPACE/specs/env/:/opt/sabayon-build/conf/$SAB_ARCH/portage/env/")
-  [ -d "/vagrant" ] && docker_volumes+=(-v "/vagrant:/vagrant")
 
 fi
 
 echo "Spawning the package builder container for '$@'."
 echo ""
-echo "docker run $DOCKER_OPTS \"${docker_env[@]}\" \"${docker_volumes[@]}\" $DOCKER_IMAGE $@"
+#echo "docker run $DOCKER_OPTS ${docker_env[@]} ${docker_volumes[@]} $DOCKER_IMAGE $@"
 
-docker run $DOCKER_OPTS "${docker_env[@]}" "${docker_volumes[@]}" $DOCKER_IMAGE "$@"
+docker run $DOCKER_OPTS "${docker_env[@]}" "${docker_volumes[@]}" $DOCKER_IMAGE $@

sabayon-bz2brokenlibs

@@ -1,20 +1,5 @@
 #!/bin/bash
 
-# Copyright 2016-2018 See AUTHORS file
-#
-# 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 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
 . /sbin/sabayondevkit-functions.sh
 
 DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"

sabayon-commit

@@ -1,95 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright 2016-2018 See AUTHORS file
-#
-# 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 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-use feature 'say';
-use Cwd;
-use File::Temp;
-
-my $current_git_directory = qx|git rev-parse --show-toplevel 2>/dev/null|;
-chomp $current_git_directory;
-my $cwd = getcwd;
-chdir($current_git_directory);
-my $commit_message_tmpfile = File::Temp->new();
-my @changed_files          = qx|git status -s|;
-my $n_changed_files        = scalar @changed_files;
-
-die "No files changed. Exiting." if $n_changed_files <= 0;
-my %atoms = ();
-
-sub _build_git_repo {
-    my ($file_name) = @_;
-    my $commit_message;
-
-    if ( $file_name
-        =~ /conf\/(home|intel|arm(arch|hfp|v6l|vtl))\/(entropy|portage|repo)\/(.*)/
-        )
-    {
-        $commit_message = "$1/$4: ";
-    }
-    elsif ( $filename eq
-        "conf/noarch/entropy/packages/packages.server.dep_blacklist" )
-    {
-        $commit_message = "dep_blacklist: ";
-    }
-    elsif ( $filename eq
-        "conf/noarch/entropy/packages/packages.server.dep_rewrite" )
-    {
-        $commit_message = "dep_rewrite: ";
-    }
-
-    if ($commit_message) {
-        print $commit_message_tmpfile $commit_message;
-        system( "git commit -eF " . $commit_message_tmpfile->filename );
-        unlink($commit_message_tmpfile) if -e $commit_message_tmpfile;
-    }
-
-}
-
-sub _overlay_git_repo {
-    die "If you are in the overlay, call me in the ebuild dir"
-        if $current_git_directory eq getcwd;
-    chdir($cwd);
-    die "I'm not pleased.. but you could force with --force"
-        if ( _system("repoman") && $ARGV[0] ne "--force" );
-    _system("repoman commit $ARGV[0]");
-}
-
-sub _system {
-    my $prog = shift;
-    my $rv = system( {$prog} $prog => @_ );
-    if ( $rv == -1 ) { say("Can't launch $prog: $!"); return 1; }
-    elsif ( my $s = $rv & 127 ) {
-        say("$prog died from signal $s");
-        return 1;
-    }
-    elsif ( my $e = $rv >> 8 ) { say("$prog exited with code $e"); return 1; }
-    return 0;
-}
-
-foreach my $file (@changed_files) {
-    chomp $file;
-    my @words = split( ' ', $file, 2 );
-    next if $words[0] eq "??";    # allow "dangling" files
-    my $file_name = $words[1];
-    if ( $file_name =~ /conf\/(intel|arm|noarch)/ ) {
-        _build_git_repo($file_name);
-    }
-    elsif ( $file_name =~ /\.ebuild/ ) {
-        _overlay_git_repo($file_name);
-    }
-
-}

sabayon-createrepo

@@ -1,20 +1,4 @@
 #!/bin/bash
-
-# Copyright 2016-2018 See AUTHORS file
-#
-# 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 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
 set -e
 . /sbin/sabayondevkit-functions.sh
 
@@ -84,8 +68,8 @@ fi
 eit key import \$repo /etc/entropy/mykeys/private.key /etc/entropy/mykeys/key.pub && { eit key sign \$repo || true; } && { echo "=== Repository key imported successfully ==="; }
 
 echo "=== Injecting packages ==="
-eit inject --quick \${built_pkgs} || { echo "ouch unable to inject" && exit 3; }
-eit commit --quick
+echo "Yes" | eit inject \${built_pkgs} || { echo "ouch unable to inject" && exit 3; }
+echo "Yes Yes Yes" | eit commit --quick
 
 echo "=== Pushing built packages locally ==="
 eit push --quick --force
@@ -104,8 +88,8 @@ database-format = bz2
 # disabled-eapis = 1,2
 # expiration-based-scope = disable
 # nonfree-packages-directory-support = disable
-rss-feed = enable
-changelog = enable
+rss-feed = disable
+changelog = disable
 rss-name = packages.rss
 rss-base-url = http://packages.sabayon.org/?quicksearch=
 rss-website-url = http://www.sabayon.org/

sabayon-createrepo-cleanup

@@ -1,20 +1,4 @@
 #!/bin/bash
-
-# Copyright 2016-2018 See AUTHORS file
-#
-# 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 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
 set -e
 . /sbin/sabayondevkit-functions.sh
 

sabayon-createrepo-remove

@@ -1,20 +1,4 @@
 #!/bin/bash
-
-# Copyright 2016-2018 See AUTHORS file
-#
-# 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 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
 set -e
 . /sbin/sabayondevkit-functions.sh
 

sabayon-detectobsolete

@@ -1,65 +0,0 @@
-#!/usr/bin/perl
-# mudler <mudler@sabayon.org>
-# this tool requires querypkg
-use Getopt::Long;
-use strict;
-use warnings;
-my $arch;
-my $verbose;
-my $overlay;
-GetOptions(
-    "arch=s"    => \$arch,
-    "overlay=s" => \$overlay,
-    "verbose"   => \$verbose
-) or die("Error in command line arguments\n");
-
-die("You should at least supply an overlay with --overlay") if !$overlay;
-
-# Input: Overlay absolute path
-# Output: array with package names (category/name)
-sub get_packages {
-    keys %{
-        {   map {
-                s/$overlay\/|\.ebuild//g;
-                $_ = join( '/', ( split( /\//, $_ ) )[ 0, 1 ] );
-                $_ => 1
-            } glob( $_[0] . "/*/*/*.ebuild" )
-        }
-    };
-}
-
-# Input: package (category/name)
-# Output: returns 1 if obsolete and can be removed
-sub obsolete_package($$) {
-    my $package = $_[0];
-    my $arch    = $_[1];
-    my $l_arch  = ( defined $arch and $arch ne "" ? "--arch $arch" : "" );
-    print "querypkg -q $l_arch $package --show spm_repo\n" if $verbose;
-    my @out = `querypkg -q $l_arch $package --show spm_repo`;
-    chomp(@out);
-    return 1 if "@out" eq "";
-    foreach my $l (@out) {
-        print " >> $l\n" if $verbose;
-        return 1 if ( $l =~ /$package.*\{spm_repo\:gent.*/ );
-    }
-    return 0;
-}
-
-my @packages = get_packages($overlay);
-my @obsoletes;
-
-foreach my $p (@packages) {
-    print "[$p] Checking if there is a version in the repositories.... ";
-    print "\n" if $verbose;
-    if ( obsolete_package( $p, $arch ) ) {
-        print " OBSOLETE! \n";
-        push( @obsoletes, $p );
-    }
-    else {
-        print " ok  \n";
-    }
-}
-
-print "\n";
-print "Obsoletes found:\n\n";
-print "$_\n" for @obsoletes;

sabayon-maint-helper

@@ -1,110 +0,0 @@
-#!/bin/bash
-
-# Copyright 2016-2018 See AUTHORS file
-#
-# 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 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-set -e
-. /sbin/sabayondevkit-functions.sh
-
-help_msg() {
-
-   echo "
- sabayon-maint-helper:
-
-Script for builder boxes maintenance.
-
--h|--help        This message.
---installed      Upgrades all the packages installed in the box.
---obsolete       Upgrades ONLY the packages that are listed obsolete in eix-test-obsolete.
---all            Tries to upgrade all package without any euristics
---category       Tries to upgrade/install all the packages in the specified category
-                 e.g. sabayon-maint-helper 'app-office'
-
-Some options could be set also as environment variables:
-EMERGE_DEFAULT_ARGS     Default emerge options
-
-NOTE: This script MUST be execute as root.
-"
-}
-
-
-parse_args() {
-
-   local short_opts="h"
-   local long_opts="help arch: host-arch: unprivileged stagingdir: image-descr: image:"
-
-   $(set -- $(getopt -u -q -a -o "$short_opts" -l "$long_opts" -- "$@"))
-
-   while [ $# -gt 0 ] ; do
-      case "$1" in
-
-         -h|--help)
-            help_msg
-            exit 1
-            ;;
-         --installed)
-            echo "Trying to upgrade all the installed packages"
-            rebuild_all
-            ;;
-         --obsolete)
-            echo "Upgrading the packages that are marked as obsolete"
-            build_obsolete
-            ;;
-         --all)
-            echo "Upgrading/Installing everything available to install"
-            build_all_availables
-            ;;
-         --category)
-            echo "Upgrading/Installing everything inside the '$2' category"
-            build_category_installed "$2"
-            shift
-            ;;
-         --)
-            help_msg
-            exit 1
-            ;;
-         *)
-            echo "Invalid parameter $1."
-            exit 1
-            ;;
-
-      esac
-
-      shift
-   done
-
-   return 0
-}
-
-main() {
-
-  if [ "$(id -u)" != "0" ]; then
-     echo "This script must be run as root" 1>&2
-     exit 1
-  fi
-
-  [ -z "$@" ] && help_msg && exit 1
-
-  (
-    echo "Acquiring lock"
-    flock -x -w 10 200 || ( echo "Failed acquiring lock in 10 seconds" && exit 1 )
-
-    parse_args "$@"
-
-  ) 200>/var/lock/.repomaint
-
-}
-
-main "$@"

sabayondevkit-functions.sh

@@ -1,88 +1,58 @@
 #!/bin/bash
 
-set -e
-
-export BUILD_DIR="${BUILD_DIR:-/opt/sabayon-build/}"
-
 check_docker_requirements(){
   if [ "$(id -u)" != "0" ]; then
     groups | grep -q docker || echo "--> If you are not running the script as root, your user should be in the docker group to use it. (sudo gpasswd -a $USER docker)"
   fi
-  ps aux | grep -q '[d]ocker' || echo "--> Be sure to have the docker daemon running (sudo systemctl start docker) of configure it to run on boot (sudo systemctl enable docker). Trying to start it anyway" && systemctl start docker || true
+  ps aux | grep -q '[d]ocker' || echo "--> Be sure to have the docker daemon running (sudo systemctl start docker) of configure it to run on boot (sudo systemctl enable docker). Trying to start it anyway" && sudo systemctl start docker
 }
 
 die() { echo "$@" 1>&2 ; exit 1; }
 
-build_sync() {
-  layman -S
-  emerge --sync
-  eix-update
-  pushd "${BUILD_DIR}"
-    git stash
-    git fetch --all || true
-    git checkout master || true
-    git reset --hard origin/master || true
-  popd
+build() {
+local SEARCH=$1
+local EMERGE_DEFAULT_ARGS=${2:---accept-properties=-interactive --verbose --oneshot --nospinner --quiet-build=y --quiet-fail --fail-clean=y --complete-graph --buildpkg}
+for i in $(EIX_LIMIT=0 eix --only-names --pure-packages "$SEARCH/" | xargs echo | uniq);
+  do
+    emerge $EMERGE_DEFAULT_ARGS -o $i && \
+    emerge $EMERGE_DEFAULT_ARGS $i
+  done
 }
 
-build_category() {
+build_installed() {
   local SEARCH=$1
-  build_sync
-  for i in $(EIX_LIMIT=0 eix --only-names --pure-packages "$SEARCH/" | xargs echo | uniq);
-    do
-      echo "Building $i"
-      emerge ${EMERGE_DEFAULT_ARGS:---accept-properties=-interactive --verbose --oneshot --nospinner --noreplace --quiet-build=y --quiet-fail --fail-clean=y --complete-graph --buildpkg} $i || true
-    done
-}
+  local EMERGE_DEFAULT_ARGS=${2:---accept-properties=-interactive --newuse --changed-use --update --verbose --oneshot --nospinner --quiet-build=y --quiet-fail --fail-clean=y --complete-graph --buildpkg}
 
-build_obsolete() {
-  build_sync
-  for i in $(EIX_LIMIT=0 eix-test-obsolete | grep '\[U\]' | awk '{ print $2 }' | xargs echo | uniq);
-    do
-     echo "Build $i"
-     emerge ${EMERGE_DEFAULT_ARGS:---accept-properties=-interactive -u --verbose --oneshot --nospinner --quiet-build=y --quiet-fail --fail-clean=y --complete-graph --buildpkg --noreplace} $i || true
-    done
-}
-
-build_category_installed() {
-  local SEARCH=$1
-  build_sync
   for i in $(EIX_LIMIT=0 eix -I --only-names --pure-packages "$SEARCH/" | xargs echo | uniq);
     do
-      echo "Building $i"
-      emerge ${EMERGE_DEFAULT_ARGS:---accept-properties=-interactive -u --newuse --noreplace --changed-use --update --verbose --oneshot --nospinner --quiet-build=y --quiet-fail --fail-clean=y --complete-graph --buildpkg} $i || true
+      #emerge $EMERGE_DEFAULT_ARGS -o $i && \
+      emerge $EMERGE_DEFAULT_ARGS $i
     done
 }
 
 build_all_availables() {
-  for i in $(cat /usr/portage/profiles/categories | xargs echo | uniq);
-    do
-      build_category "$i/"
-    done
+for i in $(cat /usr/portage/profiles/categories | xargs echo | uniq);
+  do
+    build "$i/"
+  done
 }
 
 rebuild_all() {
 for i in $(cat /usr/portage/profiles/categories | xargs echo | uniq);
   do
-    build_category_installed "$i/"
+    build_installed "$i/"
   done
 }
 
-get_category() {
-  local CATEGORY=$1
-  local PACKS
-  for i in $(EIX_LIMIT=0 eix --only-names --pure-packages "$CATEGORY/" | xargs echo | uniq);
-    do
-      PACKS+="$i "
-    done
-    echo $PACKS
-}
-
-get_all_availables() {
-  local RES
-  for i in $(cat /usr/portage/profiles/categories | xargs echo | uniq);
-    do
-        RES+="$(get_category $i) "
-    done
-  echo $RES
+build_sync() {
+  emerge-webrsync || exit 1
+  emerge --sync
+  layman -S
+  eix-update || exit 1
+  pushd /opt/sabayon-build/
+    git stash
+    git fetch --all
+    git checkout master
+    git reset --heard origin/master
+  popd
 }

try_dlopen.c

@@ -1,23 +0,0 @@
-#include <stdio.h>
-#include <dlfcn.h>
-
-/**
- * Attempts to load shared libraries
- * @param argc
- * @param argv files to check (pass only shared libs)
- * @return 0 - all shared libs loaded, 1 - error occured (invalid or broken files passed)
- */
-int main(int argc, char* argv[])
-{
-	int i;
-	for (i = 1; i < argc; ++i) {
-		void* handle = dlopen(argv[i], RTLD_NOW);
-		if (!handle) {
-			fprintf(stderr, "%s\n", dlerror());
-			return 1;
-		} else {
-			dlclose(handle);
-		}
-	}
-	return 0;
-}