Compare commits
115 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| 4b5d3487c1 | |||
| 2478662e00 | |||
| 3e2a148a0b | |||
| e569b59699 | |||
| 9f16462453 | |||
| 8f5578b7f3 | |||
| 1853c68b0d | |||
| 46204e0562 | |||
| 460101a985 | |||
| 7c059c3c9a | |||
| e274ddffa3 | |||
| e7aade22a0 | |||
| d72e8c220b | |||
| 280a665707 | |||
| 631072d2a5 | |||
| 4839c818de | |||
| 11977d3afd | |||
| 5972c0137f | |||
| 3be4345ae4 | |||
| 286533e74e | |||
| a3f9796c6d | |||
| 1921cae295 | |||
| 3322c5aa17 | |||
| 95ffe4d49d | |||
| 59855f3bb1 | |||
| d151a77e51 | |||
| 8fda356c53 | |||
| 69ee6dfefa | |||
| 9be88688bc | |||
| 47aa0c3cbf | |||
| 09f618043d | |||
| 66284024a2 | |||
| 64f8ee54a3 | |||
| 6cc8d3d7ae | |||
| 7512a7f184 | |||
| bdd6ffac8c | |||
| b42ef2feb7 | |||
| cf77609a7b | |||
| dc05aace0b | |||
| 928d6da693 | |||
| 5c927a25c6 | |||
| 813148303c | |||
| 5a3be7c0f1 | |||
| 6fbd3f4f22 | |||
| 0be7f76824 | |||
| 7b2adad931 | |||
| 6283b34be8 | |||
| 11812ff1a2 | |||
| e31a06cee3 | |||
| b91870c72d | |||
| b1726fdb4d | |||
| 6d0f26ceb7 | |||
| 49ba945b63 | |||
| f55338b552 | |||
| 0c964e4b64 | |||
| 5f75f6e64b | |||
| 9fd7ce2582 | |||
| a62baaf0ea | |||
| bf78080418 | |||
| 218dfa9dcd | |||
| 575ec04147 | |||
| 903aa0fa0d | |||
| ada5793612 | |||
| af32293577 | |||
| 411c142f00 | |||
| 9446715e1a | |||
| 890206ba80 | |||
| 79567a647b | |||
| 0769169cc6 | |||
| 03b7b4fd18 | |||
| 39f437f0aa | |||
| 4747e43752 | |||
| 2d1c16e76e | |||
| 4dbbc6b34a | |||
| 36999309c2 | |||
| 1ef3938a96 | |||
| 9119c8c973 | |||
| 632053fc2f | |||
| 6fc14f7605 | |||
| 4268b06305 | |||
| a66dc7bb23 | |||
| 1c4389a8aa | |||
| c2a14afdf9 | |||
| 2e7c359b8c | |||
| e86c134e61 | |||
| b34388c259 | |||
| a1957a0587 | |||
| fcfb218a17 | |||
| bac150a267 | |||
| 350e3d1000 | |||
| 10ef5244e3 | |||
| 4b2cf1141c | |||
| 6e3ae4db29 | |||
| d3e174eb10 | |||
| 4c4279e707 | |||
| 0e33e0d75f | |||
| cd19f3b85b | |||
| b899a21852 | |||
| c9ad172bd4 | |||
| cdac817e59 | |||
| b33b4aa619 | |||
| c8cd58df4b | |||
| 44d7510792 | |||
| c7891958ea | |||
| c8a1ece37c | |||
| fb745c8ed8 | |||
| 36fc5a6656 | |||
| a65f1acdca | |||
| 02fd49a321 | |||
| 868dfb767d | |||
| 5855d12d75 | |||
| 44aa54b031 | |||
| 6bcf4abfee | |||
| 31d3bca34b | |||
| 869f6a4363 |
@@ -0,0 +1 @@
|
|||||||
|
*.bak
|
||||||
@@ -0,0 +1,6 @@
|
|||||||
|
|
||||||
|
Copyright authors:
|
||||||
|
------
|
||||||
|
Ettore Di Giacinto <mudler@gentoo.org> ( original author )
|
||||||
|
Ben Roberts <optiz0r@sabayon.org>
|
||||||
|
Daniele Rondina <geaaru@sabayon.org>
|
||||||
@@ -0,0 +1,178 @@
|
|||||||
|
|
||||||
|
# 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. |
|
||||||
|
|
||||||
@@ -25,4 +25,8 @@ install:
|
|||||||
install -m 0755 builder $(DESTDIR)/$(USBINDIR)/
|
install -m 0755 builder $(DESTDIR)/$(USBINDIR)/
|
||||||
|
|
||||||
install -d $(DESTDIR)/$(UBINDIR)
|
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)/
|
install -m 0755 sabayon-* $(DESTDIR)/$(UBINDIR)/
|
||||||
|
|||||||
@@ -92,6 +92,8 @@ you can override the Architecture folder in which files are placed specifying in
|
|||||||
- DOCKER_PULL_IMAGE -- tells the script to update the docker image before compiling, enable it with 1, disable with 0
|
- DOCKER_PULL_IMAGE -- tells the script to update the docker image before compiling, enable it with 1, disable with 0
|
||||||
- OUTPUT_DIR -- optional, default to "portage_artifacts" in your current working directory, it is the path where emerge generated tbz2 are stored (absolute path)
|
- OUTPUT_DIR -- optional, default to "portage_artifacts" in your current working directory, it is the path where emerge generated tbz2 are stored (absolute path)
|
||||||
- LOCAL_OVERLAY -- optional, you can specify the path to your local overlay (absolute path)
|
- LOCAL_OVERLAY -- optional, you can specify the path to your local overlay (absolute path)
|
||||||
|
- REMOTE_OVERLAY -- optional, a space separated list of overlays that can be cloned with git.
|
||||||
|
|
||||||
The arguments are the packages that you want compile, they can be also in the complete form *e.g. =foo-bar/misc-1.2*
|
The arguments are the packages that you want compile, they can be also in the complete form *e.g. =foo-bar/misc-1.2*
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -0,0 +1,303 @@
|
|||||||
|
#!/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
|
||||||
@@ -0,0 +1,50 @@
|
|||||||
|
#!/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 -vR $ROOT `portageq contents $ROOT/ $cpv | xargs -r -L 1 "$0" --linking-deps` | cut -f1 -d' ' | sort -u
|
||||||
|
done
|
||||||
@@ -1,4 +1,18 @@
|
|||||||
#!/bin/bash
|
#!/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=()
|
PACKAGES=()
|
||||||
bin=$1
|
bin=$1
|
||||||
|
|||||||
Executable
+462
@@ -0,0 +1,462 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
# Authors: Sabayon Team 2019
|
||||||
|
|
||||||
|
set -e
|
||||||
|
|
||||||
|
# Accepted values: x86_64, armv7l
|
||||||
|
export SAB_ARCH="${SAB_ARCH:-}"
|
||||||
|
export DRY_RUN=${DRY_RUN:-0}
|
||||||
|
export DEBUG="${DEBUG:-}"
|
||||||
|
export FORCE="${FORCE:-0}"
|
||||||
|
export USE_EQUO="${USE_EQUO:-1}"
|
||||||
|
|
||||||
|
declare -a MANUALLY_REMOVED_LINKS
|
||||||
|
declare -a BROKEN_LINKS2REMOVE
|
||||||
|
|
||||||
|
log() {
|
||||||
|
local with_dashes=$1
|
||||||
|
shift || true
|
||||||
|
|
||||||
|
[ "$with_dashes" != 1 ] || \
|
||||||
|
echo "==============================================================="
|
||||||
|
echo "$@"
|
||||||
|
[ "$with_dashes" != 1 ] || \
|
||||||
|
echo "==============================================================="
|
||||||
|
}
|
||||||
|
|
||||||
|
summary() {
|
||||||
|
|
||||||
|
local msg="SAB_ARCH = ${SAB_ARCH}
|
||||||
|
EXAMINED_LIBDIRS = ${EXAMINED_LIBDIRS}
|
||||||
|
DRY_RUN = ${DRY_RUN}
|
||||||
|
USE_EQUO = ${USE_EQUO}
|
||||||
|
FORCE = ${FORCE}"
|
||||||
|
|
||||||
|
log 1 "$msg"
|
||||||
|
}
|
||||||
|
|
||||||
|
check_arch() {
|
||||||
|
if [ -z "${SAB_ARCH}" ] ; then
|
||||||
|
SAB_ARCH=$(uname -m)
|
||||||
|
fi
|
||||||
|
|
||||||
|
[[ "${SAB_ARCH}" != "x86_64" && "${SAB_ARCH}" != "armv7l" ]] && {
|
||||||
|
log 1 "Unsupported arch ${SAB_ARCH}."
|
||||||
|
exit 1
|
||||||
|
}
|
||||||
|
|
||||||
|
export SAB_ARCH
|
||||||
|
}
|
||||||
|
|
||||||
|
search_pkg() {
|
||||||
|
local basename=$1
|
||||||
|
# passed by reference
|
||||||
|
local -n p="$2"
|
||||||
|
local -n libdir="$3"
|
||||||
|
local lib="$4"
|
||||||
|
local l=""
|
||||||
|
local ll=""
|
||||||
|
|
||||||
|
# Try to search for package
|
||||||
|
if [ "${USE_EQUO}" = "0" ] ; then
|
||||||
|
p=$(equery -N -q -C belongs ${lib}/$basename --early-out || true)
|
||||||
|
else
|
||||||
|
p=$(equo q belongs ${lib}/${basename} -q || true)
|
||||||
|
fi
|
||||||
|
|
||||||
|
if [ -z "$p" ] ; then
|
||||||
|
|
||||||
|
for l in "/usr/lib64" "/usr/lib32" "/usr/lib" ; do
|
||||||
|
if [ "$lib" = "$l" ] ; then
|
||||||
|
ll="${l/\/usr\///}"
|
||||||
|
break
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
|
||||||
|
if [ -n "${ll}" ] ; then
|
||||||
|
if [ "${USE_EQUO}" = "0" ] ; then
|
||||||
|
p=$(equery -N -q -C belongs ${ll}/$basename --early-out || true)
|
||||||
|
else
|
||||||
|
p=$(equo q belongs ${ll}/${basename} -q || true)
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
fi
|
||||||
|
|
||||||
|
if [ -z "$p" ] ; then
|
||||||
|
libdir=""
|
||||||
|
fi
|
||||||
|
}
|
||||||
|
|
||||||
|
detect_libs_dir() {
|
||||||
|
local libs=""
|
||||||
|
|
||||||
|
if [ -n "$SCANDIR" ] ; then
|
||||||
|
libs=$SCANDIR
|
||||||
|
else
|
||||||
|
if [ "${SAB_ARCH}" = "x86_64" ] ; then
|
||||||
|
if [ -d "/usr/lib32" ] ; then
|
||||||
|
libs="/usr/lib32 /lib32"
|
||||||
|
fi
|
||||||
|
if [ -d "/usr/lib64" ] ; then
|
||||||
|
libs="$libs /usr/lib64 /lib64"
|
||||||
|
fi
|
||||||
|
else
|
||||||
|
if [ -d "/usr/lib" ] ; then
|
||||||
|
libs="/usr/lib /lib"
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
if [ -z "$libs" ] ; then
|
||||||
|
log 0 "Error on detect libraries directories."
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
EXAMINED_LIBDIRS=$libs
|
||||||
|
export EXAMINED_LIBDIRS
|
||||||
|
}
|
||||||
|
|
||||||
|
examine_libs() {
|
||||||
|
local lib=""
|
||||||
|
local file=""
|
||||||
|
local broken_files=""
|
||||||
|
|
||||||
|
log 1 "The exam could be long sorry for the wait."
|
||||||
|
|
||||||
|
for lib in ${EXAMINED_LIBDIRS} ; do
|
||||||
|
broken_files=""
|
||||||
|
|
||||||
|
log 1 "Checking directory $lib..."
|
||||||
|
broken_files=$(find $lib -type l -and -xtype l -and -name *.so* -or -name *.a -and -type l -and -xtype l 2>/dev/null || true )
|
||||||
|
|
||||||
|
[ -z "$DEBUG" ] || {
|
||||||
|
find $lib -type l -and -xtype l -and -name *.so* -or -name *.a -and -type l -and -xtype l || true
|
||||||
|
}
|
||||||
|
|
||||||
|
for file in ${broken_files} ; do
|
||||||
|
examine_file "${file}" "${lib}"
|
||||||
|
done
|
||||||
|
done
|
||||||
|
}
|
||||||
|
|
||||||
|
examine_file() {
|
||||||
|
local f=$1
|
||||||
|
local res=""
|
||||||
|
local libdir=$2
|
||||||
|
local is_present_pkg=1
|
||||||
|
local pkg=""
|
||||||
|
|
||||||
|
[ -z "$DEBUG" ] || log 1 "Analyze file $f"
|
||||||
|
|
||||||
|
local base=$(basename $1)
|
||||||
|
|
||||||
|
local targetlink=$(readlink $f)
|
||||||
|
local link2remove=false
|
||||||
|
local link2fix=false
|
||||||
|
local newlibdir=""
|
||||||
|
local tmp=""
|
||||||
|
local current_link=""
|
||||||
|
|
||||||
|
log 1 "Broken link $f => $targetlink"
|
||||||
|
|
||||||
|
# Check if file is without revision (es. libudev.so)
|
||||||
|
res=$(perl -e "if ('$base' =~ /(.so|.a$)/) { print '1' }")
|
||||||
|
if [ -n "$res" ] ; then
|
||||||
|
#
|
||||||
|
#echo "BASE = $base"
|
||||||
|
|
||||||
|
search_pkg "$base" pkg newlibdir "$lib"
|
||||||
|
if [ -z "$pkg" ] ; then
|
||||||
|
MANUALLY_REMOVED_LINKS+=( "$f" )
|
||||||
|
return
|
||||||
|
else
|
||||||
|
|
||||||
|
if [ -n "$newlibdir" ] ; then
|
||||||
|
log 0 "Link $base available under $newlibdir. I remove it."
|
||||||
|
link2remove=true
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
if [ "${USE_EQUO}" = "0" ] ; then
|
||||||
|
res=$(qlist -IC $pkg 2>/dev/null | grep $f | wc -l)
|
||||||
|
else
|
||||||
|
res=$(equo q files $pkg -q | grep $f | wc -l)
|
||||||
|
fi
|
||||||
|
if [ "$res" = 1 ] ; then
|
||||||
|
link2fix=true
|
||||||
|
echo "Link $f related to existing package. Try to reinstall $pkg."
|
||||||
|
else
|
||||||
|
MANUALLY_REMOVED_LINKS+=( "$f" )
|
||||||
|
fi
|
||||||
|
|
||||||
|
log 0 "Link $f of the package $pkg"
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
# Check if file has only one revision number (es. libudev.so.0)
|
||||||
|
res=$(perl -e "if ('$base' =~ /(.so[.][\d]+$)/) { print '1' }")
|
||||||
|
if [ -n "$res" ] ; then
|
||||||
|
|
||||||
|
search_pkg "$base" pkg newlibdir "$lib"
|
||||||
|
if [ -z "$pkg" ] ; then
|
||||||
|
# Try to search package with .so
|
||||||
|
base=$(echo "$base" | awk 'match($0, /.so/) { print substr($0, 0, RSTART+2) }')
|
||||||
|
search_pkg "$base" pkg newlibdir "$lib"
|
||||||
|
if [ -z "$pkg" ] ; then
|
||||||
|
log 0 "No package found for link $f."
|
||||||
|
MANUALLY_REMOVED_LINKS+=( "$f" )
|
||||||
|
return
|
||||||
|
fi
|
||||||
|
|
||||||
|
if [ -n "$newlibdir" ] ; then
|
||||||
|
log 0 "Link $base available under $newlibdir. I remove it."
|
||||||
|
link2remove=true
|
||||||
|
else
|
||||||
|
# POST: we have a broken link or old link
|
||||||
|
|
||||||
|
current_link=$(readlink $lib/$base)
|
||||||
|
log 0 "Link $f related to package $pkg (with an updated version $current_link). I remove it."
|
||||||
|
link2remove=true
|
||||||
|
|
||||||
|
fi
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
log 0 "Link $f of the package $pkg"
|
||||||
|
|
||||||
|
if [ -n "$newlibdir" ] ; then
|
||||||
|
log 0 "Link $base available under $newlibdir. I remove it."
|
||||||
|
link2remove=true
|
||||||
|
else
|
||||||
|
|
||||||
|
# Check new
|
||||||
|
if [ "${USE_EQUO}" = "0" ] ; then
|
||||||
|
res=$(qlist -IC $pkg 2>/dev/null | grep $f | wc -l)
|
||||||
|
else
|
||||||
|
res=$(equo q files $pkg -q | grep $f | wc -l)
|
||||||
|
fi
|
||||||
|
if [ "$res" = 1 ] ; then
|
||||||
|
link2fix=true
|
||||||
|
echo "Link $f related to existing package. Try to reinstall $pkg."
|
||||||
|
else
|
||||||
|
MANUALLY_REMOVED_LINKS+=( "$f" )
|
||||||
|
fi
|
||||||
|
|
||||||
|
fi
|
||||||
|
|
||||||
|
fi
|
||||||
|
|
||||||
|
else
|
||||||
|
# Check if file has only one revision number (es. libudev.so.0.63)
|
||||||
|
res=$(perl -e "if ('$base' =~ /(.so[.][\d]+[.][\d]+$)/) { print '1' }")
|
||||||
|
if [ -n "$res" ] ; then
|
||||||
|
|
||||||
|
search_pkg "$base" pkg newlibdir "$lib"
|
||||||
|
if [ -z "$pkg" ] ; then
|
||||||
|
|
||||||
|
base=$(echo "$base" | awk 'match($0, /.so[.][0-9]+/) { print substr($0, 0, RSTART+RLENGTH-1) }')
|
||||||
|
search_pkg "$base" pkg newlibdir "$lib"
|
||||||
|
if [ -z "$pkg" ] ; then
|
||||||
|
log 0 "No package found for link $f."
|
||||||
|
MANUALLY_REMOVED_LINKS+=( "$f" )
|
||||||
|
return
|
||||||
|
fi
|
||||||
|
|
||||||
|
if [ -n "$newlibdir" ] ; then
|
||||||
|
log 0 "Link $base available under $newlibdir. I remove it."
|
||||||
|
link2remove=true
|
||||||
|
else
|
||||||
|
|
||||||
|
current_link=$(readlink $lib/$base)
|
||||||
|
log 0 "Link $f related to package $pkg (with an updated version $current_link). I remove it."
|
||||||
|
link2remove=true
|
||||||
|
|
||||||
|
fi
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
log 0 "Link $f of the package $pkg"
|
||||||
|
|
||||||
|
if [ -n "$newlibdir" ] ; then
|
||||||
|
log 0 "Link $base available under $newlibdir. I remove it."
|
||||||
|
link2remove=true
|
||||||
|
else
|
||||||
|
|
||||||
|
# Check new
|
||||||
|
if [ "${USE_EQUO}" = "0" ] ; then
|
||||||
|
res=$(qlist -IC $pkg 2>/dev/null | grep $f | wc -l)
|
||||||
|
else
|
||||||
|
res=$(equo q files $pkg -q | grep $f | wc -l)
|
||||||
|
fi
|
||||||
|
if [ "$res" = 1 ] ; then
|
||||||
|
link2fix=true
|
||||||
|
echo "Link $f related to existing package. Try to reinstall $pkg."
|
||||||
|
else
|
||||||
|
MANUALLY_REMOVED_LINKS+=( "$f" )
|
||||||
|
fi
|
||||||
|
|
||||||
|
fi
|
||||||
|
|
||||||
|
fi
|
||||||
|
|
||||||
|
else
|
||||||
|
echo "Link $f not supported".
|
||||||
|
MANUALLY_REMOVED_LINKS+=( "$f" )
|
||||||
|
|
||||||
|
fi
|
||||||
|
|
||||||
|
fi
|
||||||
|
|
||||||
|
fi
|
||||||
|
|
||||||
|
if [ $link2remove = true ] ; then
|
||||||
|
BROKEN_LINKS2REMOVE+=( "$f" )
|
||||||
|
fi
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
rm_broken_links() {
|
||||||
|
for l in ${BROKEN_LINKS2REMOVE[@]} ; do
|
||||||
|
if [ "$DRY_RUN" = 0 ]; then
|
||||||
|
rm -vf ${l}
|
||||||
|
else
|
||||||
|
echo "rm -vf ${l}"
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
}
|
||||||
|
|
||||||
|
print_links2remove() {
|
||||||
|
for l in ${MANUALLY_REMOVED_LINKS[@]} ; do
|
||||||
|
if [ "$FORCE" = 1 ] ; then
|
||||||
|
if [ "$DRY_RUN" = 0 ] ; then
|
||||||
|
rm -vf ${l}
|
||||||
|
else
|
||||||
|
echo "force: rm -vf ${l}"
|
||||||
|
fi
|
||||||
|
else
|
||||||
|
echo "rm -vf ${l}"
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
}
|
||||||
|
|
||||||
|
parse_args() {
|
||||||
|
|
||||||
|
help_message() {
|
||||||
|
|
||||||
|
echo "Sabayon Broken Links analyzer.
|
||||||
|
Sabayon Team (2019)
|
||||||
|
|
||||||
|
$0 [opts]
|
||||||
|
|
||||||
|
Available options:
|
||||||
|
|
||||||
|
-h|--help This message.
|
||||||
|
--dry-run Dry run execution.
|
||||||
|
--force Force remove of the links to remove manually.
|
||||||
|
--scandir Define a specific directory to analyze
|
||||||
|
--gentoo Use gentoo tool instead of equo.
|
||||||
|
-d|--debug Enable debug stuff.
|
||||||
|
|
||||||
|
Environment variables:
|
||||||
|
DRY_RUN To use instead of --dry-run option. Values: 0 or 1.
|
||||||
|
DEBUG Enable debug output.
|
||||||
|
USE_EQUO To use instead of --gentoo option.
|
||||||
|
FORCE To use instead of --force.
|
||||||
|
|
||||||
|
"
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
local short_opts="hd"
|
||||||
|
local long_opts="help dry-run force debug scandir: gentoo"
|
||||||
|
|
||||||
|
$(set -- $(getopt -u -q -a -o "$short_opts" -l "$long_opts" -- "$@"))
|
||||||
|
|
||||||
|
while [ $# -gt 0 ] ; do
|
||||||
|
case "$1" in
|
||||||
|
|
||||||
|
-h|--help)
|
||||||
|
help_message
|
||||||
|
exit 1
|
||||||
|
;;
|
||||||
|
-d|--debug)
|
||||||
|
DEBUG=1
|
||||||
|
;;
|
||||||
|
--force)
|
||||||
|
FORCE=1
|
||||||
|
;;
|
||||||
|
--dry-run)
|
||||||
|
DRY_RUN=1
|
||||||
|
;;
|
||||||
|
--scandir)
|
||||||
|
SCANDIR="$2"
|
||||||
|
shift
|
||||||
|
;;
|
||||||
|
--gentoo)
|
||||||
|
USE_EQUO=0
|
||||||
|
;;
|
||||||
|
--)
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
echo "Invalid parameter $1."
|
||||||
|
exit 1
|
||||||
|
;;
|
||||||
|
|
||||||
|
esac
|
||||||
|
|
||||||
|
shift
|
||||||
|
|
||||||
|
done
|
||||||
|
|
||||||
|
unset -f help_message
|
||||||
|
}
|
||||||
|
|
||||||
|
main() {
|
||||||
|
|
||||||
|
parse_args "$@"
|
||||||
|
|
||||||
|
log 1 "sabayon-brokenlinks: Examine system broken links"
|
||||||
|
check_arch
|
||||||
|
detect_libs_dir
|
||||||
|
summary
|
||||||
|
|
||||||
|
if [[ "$(id -u)" != "0" && "${DRY_RUN}" != "1" ]]; then
|
||||||
|
echo "This script must be run as root" 1>&2
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
|
||||||
|
parse_args
|
||||||
|
unset -f parse_args
|
||||||
|
|
||||||
|
if [ "${USE_EQUO}" = "0" ] ; then
|
||||||
|
which equery 2>&1 >/dev/null || {
|
||||||
|
echo "equery tool is needed. Please install app-portage/gentoolkit."
|
||||||
|
exit 1
|
||||||
|
}
|
||||||
|
|
||||||
|
which qlist 2>&1 >/dev/null || {
|
||||||
|
echo "qlist tool is needed. Please install app-portage/portage-utils."
|
||||||
|
exit 1
|
||||||
|
}
|
||||||
|
fi
|
||||||
|
|
||||||
|
examine_libs
|
||||||
|
|
||||||
|
if [ ${#BROKEN_LINKS2REMOVE[@]} -gt 0 ] ; then
|
||||||
|
log 1 "Remove Broken Links!"
|
||||||
|
rm_broken_links
|
||||||
|
fi
|
||||||
|
|
||||||
|
if [ ${#MANUALLY_REMOVED_LINKS[@]} -gt 0 ] ; then
|
||||||
|
if [ "${FORCE}" = 1 ] ; then
|
||||||
|
log 1 "Hereinafter, links removed with force:"
|
||||||
|
else
|
||||||
|
log 1 "Hereinafter, links to manually remove:"
|
||||||
|
fi
|
||||||
|
print_links2remove
|
||||||
|
fi
|
||||||
|
|
||||||
|
echo "All Done."
|
||||||
|
}
|
||||||
|
|
||||||
|
main $@
|
||||||
+36
-4
@@ -1,4 +1,20 @@
|
|||||||
#!/bin/bash
|
#!/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
|
set -e
|
||||||
SAB_WORKSPACE="${SAB_WORKSPACE:-$PWD}"
|
SAB_WORKSPACE="${SAB_WORKSPACE:-$PWD}"
|
||||||
DOCKER_IMAGE="${DOCKER_IMAGE:-sabayon/builder-amd64}"
|
DOCKER_IMAGE="${DOCKER_IMAGE:-sabayon/builder-amd64}"
|
||||||
@@ -8,7 +24,7 @@ MAKE_CONF="${MAKE_CONF:-$SAB_WORKSPACE/specs/make.conf}"
|
|||||||
OUTPUT_DIR="${OUTPUT_DIR:-$SAB_WORKSPACE/portage_artifacts/}"
|
OUTPUT_DIR="${OUTPUT_DIR:-$SAB_WORKSPACE/portage_artifacts/}"
|
||||||
LOCAL_OVERLAY="${LOCAL_OVERLAY:-$SAB_WORKSPACE/local_overlay}"
|
LOCAL_OVERLAY="${LOCAL_OVERLAY:-$SAB_WORKSPACE/local_overlay}"
|
||||||
ENTROPY_REPOSITORY="${ENTROPY_REPOSITORY:-main}" # Can be weekly, main, testing
|
ENTROPY_REPOSITORY="${ENTROPY_REPOSITORY:-main}" # Can be weekly, main, testing
|
||||||
DOCKER_OPTS="${DOCKER_OPTS:--ti --rm}"
|
DOCKER_OPTS="${DOCKER_OPTS:--ti --rm --cap-add=SYS_PTRACE}"
|
||||||
|
|
||||||
. /sbin/sabayondevkit-functions.sh
|
. /sbin/sabayondevkit-functions.sh
|
||||||
|
|
||||||
@@ -41,6 +57,7 @@ docker_volumes=( -v "$OUTPUT_DIR:/usr/portage/packages" )
|
|||||||
[ -z "$ENMAN_REPOSITORIES" ] || docker_env+=(-e "ENMAN_REPOSITORIES=$ENMAN_REPOSITORIES")
|
[ -z "$ENMAN_REPOSITORIES" ] || docker_env+=(-e "ENMAN_REPOSITORIES=$ENMAN_REPOSITORIES")
|
||||||
[ -z "$REMOVE_ENMAN_REPOSITORIES" ] || docker_env+=(-e "REMOVE_ENMAN_REPOSITORIES=$REMOVE_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 "$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 "$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 "$DISTCC_HOSTS" ] || docker_env+=(-e "DISTCC_HOSTS=$DISTCC_HOSTS")
|
||||||
[ -z "${PRUNE_VIRTUALS}" ] || docker_env+=(-e "PRUNE_VIRTUALS=$PRUNE_VIRTUALS")
|
[ -z "${PRUNE_VIRTUALS}" ] || docker_env+=(-e "PRUNE_VIRTUALS=$PRUNE_VIRTUALS")
|
||||||
@@ -50,7 +67,20 @@ docker_volumes=( -v "$OUTPUT_DIR:/usr/portage/packages" )
|
|||||||
[ -z "$EQUO_UNMASKS" ] || docker_env+=(-e "EQUO_UNMASKS=$EQUO_UNMASKS")
|
[ -z "$EQUO_UNMASKS" ] || docker_env+=(-e "EQUO_UNMASKS=$EQUO_UNMASKS")
|
||||||
[ -z "$EMERGE_REMOVE" ] || docker_env+=(-e "EMERGE_REMOVE=$EMERGE_REMOVE")
|
[ -z "$EMERGE_REMOVE" ] || docker_env+=(-e "EMERGE_REMOVE=$EMERGE_REMOVE")
|
||||||
[ -z "$REMOTE_OVERLAY" ] || docker_env+=(-e "REMOTE_OVERLAY=$REMOTE_OVERLAY")
|
[ -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")
|
[ -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
|
if [ -e $MAKE_CONF ]; then
|
||||||
echo "You specified a make.conf. I hope you know what are you doing"
|
echo "You specified a make.conf. I hope you know what are you doing"
|
||||||
@@ -67,13 +97,15 @@ 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.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.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.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/99-custom.env")
|
[ -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.keywords ] && docker_volumes+=(-v "$SAB_WORKSPACE/specs/custom.keywords:/opt/sabayon-build/conf/$SAB_ARCH/portage/package.keywords/99-custom.keywords")
|
[ -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
|
fi
|
||||||
|
|
||||||
echo "Spawning the package builder container for '$@'."
|
echo "Spawning the package builder container for '$@'."
|
||||||
echo ""
|
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 "$@"
|
||||||
|
|||||||
@@ -1,5 +1,20 @@
|
|||||||
#!/bin/bash
|
#!/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
|
. /sbin/sabayondevkit-functions.sh
|
||||||
|
|
||||||
DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
|
DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
|
||||||
|
|||||||
@@ -0,0 +1,95 @@
|
|||||||
|
#!/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);
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
+20
-4
@@ -1,4 +1,20 @@
|
|||||||
#!/bin/bash
|
#!/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
|
set -e
|
||||||
. /sbin/sabayondevkit-functions.sh
|
. /sbin/sabayondevkit-functions.sh
|
||||||
|
|
||||||
@@ -68,8 +84,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 ==="; }
|
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 ==="
|
echo "=== Injecting packages ==="
|
||||||
echo "Yes" | eit inject \${built_pkgs} || { echo "ouch unable to inject" && exit 3; }
|
eit inject --quick \${built_pkgs} || { echo "ouch unable to inject" && exit 3; }
|
||||||
echo "Yes Yes Yes" | eit commit --quick
|
eit commit --quick
|
||||||
|
|
||||||
echo "=== Pushing built packages locally ==="
|
echo "=== Pushing built packages locally ==="
|
||||||
eit push --quick --force
|
eit push --quick --force
|
||||||
@@ -88,8 +104,8 @@ database-format = bz2
|
|||||||
# disabled-eapis = 1,2
|
# disabled-eapis = 1,2
|
||||||
# expiration-based-scope = disable
|
# expiration-based-scope = disable
|
||||||
# nonfree-packages-directory-support = disable
|
# nonfree-packages-directory-support = disable
|
||||||
rss-feed = disable
|
rss-feed = enable
|
||||||
changelog = disable
|
changelog = enable
|
||||||
rss-name = packages.rss
|
rss-name = packages.rss
|
||||||
rss-base-url = http://packages.sabayon.org/?quicksearch=
|
rss-base-url = http://packages.sabayon.org/?quicksearch=
|
||||||
rss-website-url = http://www.sabayon.org/
|
rss-website-url = http://www.sabayon.org/
|
||||||
|
|||||||
@@ -1,4 +1,20 @@
|
|||||||
#!/bin/bash
|
#!/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
|
set -e
|
||||||
. /sbin/sabayondevkit-functions.sh
|
. /sbin/sabayondevkit-functions.sh
|
||||||
|
|
||||||
|
|||||||
@@ -1,4 +1,20 @@
|
|||||||
#!/bin/bash
|
#!/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
|
set -e
|
||||||
. /sbin/sabayondevkit-functions.sh
|
. /sbin/sabayondevkit-functions.sh
|
||||||
|
|
||||||
|
|||||||
Executable
+65
@@ -0,0 +1,65 @@
|
|||||||
|
#!/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;
|
||||||
Executable
+110
@@ -0,0 +1,110 @@
|
|||||||
|
#!/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 "$@"
|
||||||
+59
-29
@@ -1,58 +1,88 @@
|
|||||||
#!/bin/bash
|
#!/bin/bash
|
||||||
|
|
||||||
|
set -e
|
||||||
|
|
||||||
|
export BUILD_DIR="${BUILD_DIR:-/opt/sabayon-build/}"
|
||||||
|
|
||||||
check_docker_requirements(){
|
check_docker_requirements(){
|
||||||
if [ "$(id -u)" != "0" ]; then
|
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)"
|
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
|
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" && sudo systemctl start docker
|
ps aux | grep -q '[d]ocker' || echo "--> Be sure to have the docker daemon running (sudo systemctl start docker) or configure it to run on boot (sudo systemctl enable docker). Trying to start it anyway" && systemctl start docker || true
|
||||||
}
|
}
|
||||||
|
|
||||||
die() { echo "$@" 1>&2 ; exit 1; }
|
die() { echo "$@" 1>&2 ; exit 1; }
|
||||||
|
|
||||||
build() {
|
build_sync() {
|
||||||
local SEARCH=$1
|
layman -S
|
||||||
local EMERGE_DEFAULT_ARGS=${2:---accept-properties=-interactive --verbose --oneshot --nospinner --quiet-build=y --quiet-fail --fail-clean=y --complete-graph --buildpkg}
|
emerge --sync
|
||||||
for i in $(EIX_LIMIT=0 eix --only-names --pure-packages "$SEARCH/" | xargs echo | uniq);
|
eix-update
|
||||||
do
|
pushd "${BUILD_DIR}"
|
||||||
emerge $EMERGE_DEFAULT_ARGS -o $i && \
|
git stash
|
||||||
emerge $EMERGE_DEFAULT_ARGS $i
|
git fetch --all || true
|
||||||
done
|
git checkout master || true
|
||||||
|
git reset --hard origin/master || true
|
||||||
|
popd
|
||||||
}
|
}
|
||||||
|
|
||||||
build_installed() {
|
build_category() {
|
||||||
local SEARCH=$1
|
local SEARCH=$1
|
||||||
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_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
|
||||||
|
}
|
||||||
|
|
||||||
|
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);
|
for i in $(EIX_LIMIT=0 eix -I --only-names --pure-packages "$SEARCH/" | xargs echo | uniq);
|
||||||
do
|
do
|
||||||
#emerge $EMERGE_DEFAULT_ARGS -o $i && \
|
echo "Building $i"
|
||||||
emerge $EMERGE_DEFAULT_ARGS $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
|
||||||
done
|
done
|
||||||
}
|
}
|
||||||
|
|
||||||
build_all_availables() {
|
build_all_availables() {
|
||||||
for i in $(cat /usr/portage/profiles/categories | xargs echo | uniq);
|
for i in $(cat /usr/portage/profiles/categories | xargs echo | uniq);
|
||||||
do
|
do
|
||||||
build "$i/"
|
build_category "$i/"
|
||||||
done
|
done
|
||||||
}
|
}
|
||||||
|
|
||||||
rebuild_all() {
|
rebuild_all() {
|
||||||
for i in $(cat /usr/portage/profiles/categories | xargs echo | uniq);
|
for i in $(cat /usr/portage/profiles/categories | xargs echo | uniq);
|
||||||
do
|
do
|
||||||
build_installed "$i/"
|
build_category_installed "$i/"
|
||||||
done
|
done
|
||||||
}
|
}
|
||||||
|
|
||||||
build_sync() {
|
get_category() {
|
||||||
emerge-webrsync || exit 1
|
local CATEGORY=$1
|
||||||
emerge --sync
|
local PACKS
|
||||||
layman -S
|
for i in $(EIX_LIMIT=0 eix --only-names --pure-packages "$CATEGORY/" | xargs echo | uniq);
|
||||||
eix-update || exit 1
|
do
|
||||||
pushd /opt/sabayon-build/
|
PACKS+="$i "
|
||||||
git stash
|
done
|
||||||
git fetch --all
|
echo $PACKS
|
||||||
git checkout master
|
}
|
||||||
git reset --heard origin/master
|
|
||||||
popd
|
get_all_availables() {
|
||||||
|
local RES
|
||||||
|
for i in $(cat /usr/portage/profiles/categories | xargs echo | uniq);
|
||||||
|
do
|
||||||
|
RES+="$(get_category $i) "
|
||||||
|
done
|
||||||
|
echo $RES
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -0,0 +1,23 @@
|
|||||||
|
#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;
|
||||||
|
}
|
||||||
Reference in New Issue
Block a user