diff options
Diffstat (limited to 'trunk/src/qpkg')
| -rw-r--r-- | trunk/src/qpkg/AUTHORS | 0 | ||||
| -rw-r--r-- | trunk/src/qpkg/ChangeLog | 5 | ||||
| -rw-r--r-- | trunk/src/qpkg/Makefile | 19 | ||||
| -rw-r--r-- | trunk/src/qpkg/README | 0 | ||||
| -rw-r--r-- | trunk/src/qpkg/TODO | 0 | ||||
| -rw-r--r-- | trunk/src/qpkg/qpkg | 581 | ||||
| -rw-r--r-- | trunk/src/qpkg/qpkg.1 | 112 | ||||
| -rw-r--r-- | trunk/src/qpkg/qpkg.sh | 520 |
8 files changed, 0 insertions, 1237 deletions
diff --git a/trunk/src/qpkg/AUTHORS b/trunk/src/qpkg/AUTHORS deleted file mode 100644 index e69de29..0000000 --- a/trunk/src/qpkg/AUTHORS +++ /dev/null diff --git a/trunk/src/qpkg/ChangeLog b/trunk/src/qpkg/ChangeLog deleted file mode 100644 index b25fd25..0000000 --- a/trunk/src/qpkg/ChangeLog +++ /dev/null @@ -1,5 +0,0 @@ -2004-02-18 Brandon Low <lostlogic@gentoo.org> - * Fix a reported security issue, have a TMP location that is process specific - -2004-01-07 Karl Trygve Kalleberg <karltk@gentoo.org> - * Added Makefile diff --git a/trunk/src/qpkg/Makefile b/trunk/src/qpkg/Makefile deleted file mode 100644 index cccdee0..0000000 --- a/trunk/src/qpkg/Makefile +++ /dev/null @@ -1,19 +0,0 @@ -# Copyright 2004 Karl Trygve Kalleberg <karltk@gentoo.org> -# Copyright 2004 Gentoo Technologies, Inc. -# Distributed under the terms of the GNU General Public License v2 -# -# $Header$ - -include ../../makedefs.mak - -all: - echo "HATHERSAGE (n.) The tiny snippets of beard which coat the inside of a washbasin after shaving in it." - -dist: - mkdir -p ../../${distdir}/src/qpkg - cp Makefile README AUTHORS ChangeLog TODO qpkg qpkg.1 ../../${distdir}/src/qpkg/ - -install: - install -d $(docdir)/deprecated/qpkg - install -m 0755 qpkg $(docdir)/deprecated/qpkg/ - install -m 0644 qpkg.1 README AUTHORS ChangeLog $(docdir)/deprecated/qpkg/ diff --git a/trunk/src/qpkg/README b/trunk/src/qpkg/README deleted file mode 100644 index e69de29..0000000 --- a/trunk/src/qpkg/README +++ /dev/null diff --git a/trunk/src/qpkg/TODO b/trunk/src/qpkg/TODO deleted file mode 100644 index e69de29..0000000 --- a/trunk/src/qpkg/TODO +++ /dev/null diff --git a/trunk/src/qpkg/qpkg b/trunk/src/qpkg/qpkg deleted file mode 100644 index dd8344b..0000000 --- a/trunk/src/qpkg/qpkg +++ /dev/null @@ -1,581 +0,0 @@ -#!/bin/bash -# -# qpkg - query portage package system for various information -# -# Copyright (c) Vitaly Kushneriuk <vitaly_kushneriuk@yahoo.com> -# This program is distributed under the terms of GPL version 2. -# -# Maintainer: Brandon Low <lostlogic@gentoo.org> -# Additional code thanks to: -# Josh Goebel <dreamer@firesedge.org> -# -# $Header$ -ID='$Id$' -VERSION=0.`echo ${ID} | cut -d\ -f3` - -umask 0077 - -TMP="$(mktemp -d -t qpkg-XXXXXX)" -rm -rf ${TMP} -mkdir -p ${TMP} - -PROG=`basename ${0}` - -# Parse args -verb=0 -group="*" -params=${#} -while [ ${#} -gt 0 ] -do - a=${1} - shift - case "${a}" in - - -h|--help) - usage=y - break - ;; - - -i|--info) - info=y - ;; - - -d|--dups) - dups=y - inst=y - ;; - - -q|--query-deps) - query=y - ;; - - -s|--slot) - slot=y - ;; - - -f|--find-file) - ffind=y - inst=y - ;; - - -fp|--find-pattern) - ffind=y - fpat=y - inst=y - ;; - - -I|--installed) - inst=y - ;; - - -m|--masked) - grepmask="-L" - ;; - - -n|--non-masked) - grepmask="-l" - ;; - - -U|--uninstalled) - uninst=y - ;; - - -g|--group) - group=$1 - shift - ;; - - -l|--list) - list=y - inst=y - ;; - - -ct|--check-time|-tc|--time-check) - tcheck=y - inst=y - ;; - - -cm|--check-md5|-mc|--md5-check) - mcheck=y - inst=y - ;; - - -c|--check) - mcheck=y - tcheck=y - inst=y - ;; - - -v|--verbose) - let $((verb++)) - ;; - - -vv) - let $((verb++)) - let $((verb++)) - ;; - - -nc|--no-color|--nocolor|--no-colors|--nocolors) - nocolor=y - ;; - - -*) - echo -e ${CY}${PROG}${NO}:${YL} Invalid option ${RD}$a 1>&2 - usage=y - break - ;; - *) - if [ -n "${arg}" ]; then - echo -e ${CY}${PROG}: ${YL}Only one argument supported - usage=y - break - fi - arg=$a - ;; - - esac -done - -#This is a dumb way to handle things, take it out next time -T="\t" - -#Set up colors -if [ ! "${nocolor}" ]; then - NO="\x1b[0;0m" - BR="\x1b[0;01m" - CY="\x1b[36;01m" - RD="\x1b[31;01m" - GR="\x1b[32;01m" - YL="\x1b[33;01m" - BL="\x1b[34;01m" - STAR=" *" -elif [ ! "${inst}" ] && [ ! "${uninst}" ]; then - STAR=" *" -fi - - -# check for option conflicts -if [ "${inst}" -a "${uninst}" \ - -o \( "${ffind}" -o "${list}" -o "${tcheck}" -o "${mcheck}" \) \ - -a "${uninst}" ]; then - echo -e ${CY}${PROG}${NO}:${YL} conflicting options/modes${NO} - usage=y -fi - -if [ "${usage}" ]; then - echo -e "${CY}${PROG} v. ${VERSION}${NO} - -${CY}${PROG}${NO} is GenToolKit's \"query package\" tool, using it, you can -find packages owning files on your filesystem, check the integrity -of installed packages, and do other queries against installed or -uninstalled packages. - -NOTICE: This tool will be phased out at some point in the - future, please use equery instead. - Bugs are still fixed but new features won't be added. - -${BR}Usage: -${T}${CY}${PROG}${NO} [${BR}options${NO}] [${YL}pkgname${NO}] [${BL}-g${YL} group${NO}] [${BL}-f${YL} <file>${NO}|${BL}-fp${YL} <pattern>${NO}] -${T}${CY}${PROG}${NO} ${BL}--dups${NO} [${BL}--slot${NO}] -${T}${CY}${PROG}${NO} ${BL}--help${NO} - -${BR}Duplicate Locating: - ${BL}-d, --dups${NO}${T}${T}print packages that have multiple versions installed - ${BL}-s, --slot${NO}${T}${T}make ${BL}-d${NO} SLOT only print dups of the same SLOT - -${BR}Package Selection: - ${BL}-f, --find-file${NO}${T}finds package that owns file <file> - ${BL}-fp, --find-pattern${NO}${T}finds to package that owns file matching *<pattern>* - ${BL}-m, --masked${NO}${T}${T}Include${YL} only${NO} masked packages - ${BL}-n, --non-masked${NO}${T}Include${YL} only${NO} non-masked packages - ${BL}-I, --installed${NO}${T}Include${YL} only${NO} installed packages - ${BL}-U, --uninstalled${NO}${T}Include${YL} only${NO} uninstalled packages - ${BL}-g, --group${NO}${T}${T}Find by group (can be combined with other searches) - -${BR}Information Selection: - ${BL}-l, --list${NO}${T}${T}List package content - ${BL}-i, --info${NO}${T}${T}Get package description and home page. - ${BL}-ct, --check-time${NO} - ${BL}-tc, --time-check${NO}${T}Verify package files timestamps - ${BL}-cm, --check-md5${NO} - ${BL}-mc, --md5-check${NO}${T}Verify package files md5 - ${BL}-c, --check${NO}${T}${T}Verify mtimes${YL} and${NO} md5. - ${BL}-q, --query-deps${NO}${T}display all installed packages -${T}${T}${T}depending on selected packages - -${BR}Operation Modifiers: - ${BL}-nc, --no-color${NO}${T}don't use colors - ${BL}-v, --verbose${NO}${T}Be more verbose [ can be repeated twice ] - ${BL}-vv${NO}${T}${T}${T}Same as ${BL}-v -v${NO} - -${YL}Notes${NO}: -${YL}*${NO} ${BL}-f${NO}, ${BL}-fp, ${BL}-d${NO}, ${BL}-l${NO}, ${BL}-ct${NO}, ${BL}-cm${NO}, and ${BL}-c${NO} apply only to installed packages. -${YL}*${NO} Short options may not be combined on the command-line, yet. -${YL}*${NO} The operation of some flags has been changed by the - stripping of version numbers from some output to see - the version numbers play with ${BL}-v${NO} and ${BL}-vv${NO}. -${YL}*${NO} When using${BL} -f${NO} with ${BL}-l${NO} or ${BL}--check.. -v${NO} options, only - matching files will be displayed, unless ${BL}-v${NO} is doubled, - (yet more verbose) or ${BL}-vv${NO} is used. - - -${YL}Examples${NO}: - ${PROG} --dups print duplicates oldest first - ${PROG} --dups -v .. with versions - ${PROG} print list of installed packages - ${PROG} porta -I print versions of installed portage - ${PROG} porta -i .. + versions in portage tree + descriptions - and homepages - ${PROG} gawk -c -v check integrity of all installed versions of gawk - the older ones will have \"damaged\" files. - ${PROG} -f /bin/ls print package(s) that own /bin/ls -" - rm -rf ${TMP} - exit -fi - -#For the --dups switch only -if [ "${dups}" ]; then -if [ "${grepmask}" ]; then - mask=`python -c 'import portage; print portage.settings["ACCEPT_KEYWORDS"];' 2> /dev/null` - echo -e "Currently accepted keywords: ${BL}${mask}${NO}" - echo -e - mask=`echo ${mask} | perl -pe 's/\s+/|/'` -fi - - #First dig out the list of packages with duplicates - find /var/db/pkg/ -iname "*${arg}*.ebuild" 2> /dev/null > ${TMP}qpkg.lst - dups=`cat ${TMP}qpkg.lst | cut -f7 -d/ | - sed -e 's:\.ebuild$::; s:-r[0-9]*$::; s:-[^-]*$::; /^$/d' | - sort | - uniq -d` - - #Next get all the exact versions - duppak=`cat ${TMP}qpkg.lst | fgrep "${dups}"` - - #Now cut that down to the directory name so we can be smart - dirs=`sed -e 's:/[^/]*$::' ${TMP}qpkg.lst` - - #Go through each package's DB and create a sortable file - #to play with - declare -i defcount=`cat /var/cache/edb/counter` - for DIR in ${dirs} - do #Package COUNTER - NUM=`cat "${DIR}/COUNTER" 2> /dev/null` - [ -z "${NUM}" ] && NUM=defcount - #Package slot if requested - [ ${slot} ] && SLOT=`cat "${DIR}/SLOT"` - #Package fullname - PKG=`ls --color=no -1 ${DIR}/*.ebuild|cut -f5,7 -d"/"` - #Package basename - NAME=`echo "${PKG}"|sed -e 's:\.ebuild$::; s:-r[0-9]\+$::; s:-[0-9].*$::'` - echo "${NUM} ${PKG} ${NAME}${SLOT}" - #Finish loop, and sort that nice sortable file based on - #installation order, and then based on package basename - #bash hates me so I decided to use a temp file - done |sort -t" " -k3 -k1g,2|uniq -D -f2 > ${TMP}qpkg.lst - duppak=`cat ${TMP}qpkg.lst` - rm ${TMP}qpkg.lst - - #If max verbosity is set output with full path to each ebuild - if [ "${verb}" -gt 1 ]; then - echo -n "${duppak}"|cut -f2 -d" "| \ - sed -e "s:^:${BL}/var/db/pkg/${BR}:" \ - -e "s:\(/\)\([^/]*\)\(.ebuild\):\1${CY}\2${NO}\1\2\3:" - - #If normal verbosity output package group, package name and package version - elif [ "${verb}" -gt 0 ]; then - echo -n "${duppak}"|cut -f2 -d" "| \ - sed -e "s:\(^[^/]*/\)\(.*\)\(\.ebuild\):${BR}\1${CY}\2${NO}:" - - #Otherwise just output package group and package name - else - echo -n "${duppak}"|cut -f2 -d" "| \ - sed -e "s:-r[0-9]\+$::" \ - -e "s:-[0-9].*$::" \ - -e "s:\(^[^/]*/\)\(.*\):${BR}\1${CY}\2${NO}:"|uniq - fi - rm -rf ${TMP} - exit -fi - -# get list of ebuilds to work on -if [ "${ffind}" ]; then - # file find mode - list all ebuilds for - # package/CONTENTS containing <arg> - if [ "${fpat}" ]; then - dirs=`ls /var/db/pkg/${group}/*/CONTENTS \ - | xargs grep -l "${arg} " \ - | xargs --no-run-if-empty -n 1 dirname` - else - # if the user didnt specify a full path assume they - # want to check in the working dir #17331 - [ "${arg:0:1}" != "/" ] && arg="${PWD}/${arg}" - - dirs=`ls /var/db/pkg/${group}/*/CONTENTS \ - | xargs grep -Fl " ${arg} " \ - | xargs --no-run-if-empty -n 1 dirname` - fi - ipak=`( - for d in ${dirs} -;do - [ "-" = "$d" ] && break - ls ${d}/*.ebuild - done)` -else - # normal mode - list ebuilds for ebuild name containing <arg> - - # installed packages - if [ ! "${uninst}" ]; then - ipak=`find /var/db/pkg/ -iname "*.ebuild" 2>/dev/null` - if [[ ${group} != "*" ]]; then - ipak=`echo ${ipak}|sed -e "s: :\n:g"|grep ${group}` - fi - if [ ${arg} ]; then - # avoid ${arg}="db" from pulling in every installed package - temp="/var/db/pkg/.*${arg}" - ipak=`echo ${ipak}|sed -e "s: :\n:g"|grep -i ${temp}` - fi - if [ -n "${mask}" ]; then - ipak=`echo ${ipak}|xargs -r egrep ${grepmask} "^KEYWORDS=.*[[:space:]\"\'](${mask})[[:space:]\"\']"` - fi - fi - # not installed packages (yet:-) - if [ ! "${inst}" ]; then - upak=`find /usr/portage/ -iname "*.ebuild" 2>/dev/null|grep -v --regex="/usr/portage/[^/]*\.ebuild"` - if [[ ${group} != "*" ]]; then - upak=`echo ${upak}|sed -e "s: :\n:g"|grep ${group}` - fi - if [ ${arg} ]; then - upak=`echo ${upak}|sed -e "s: :\n:g"|grep -i ${arg}` - fi - if [ -n "${mask}" ]; then - upak=`echo ${upak}|xargs -r egrep ${grepmask} "^KEYWORDS=.*[[:space:]\"\'](${mask})[[:space:]\"\']"` - fi - fi -fi - -X="\([^/]*\)" - -for p in ${ipak} ${upak} -;do - [ "${p}" = "-" ] && break - - # cut common prefix from ebuild name and mark installed/uninstalled packages - # Note: iii/uuu will be replaced by the pipe at the end - n=${p%.ebuild} - var_db_pkg="/var/db/pkg/" - n=${n/${var_db_pkg}/iii } - usr_portage="/usr/portage/" - n=${n/${usr_portage}/uuu } - n=${n/\/*\//\/} - - d=${p%\/*.ebuild} # faster d=`dirname ${p}` - echo ${n} - - # if we have no passed parameters then - # we can skip the extra conditional checks - [[ ${params} == 0 ]] && continue; - - if [ "${mask}" ]; then - keywords=`grep KEYWORDS ${p}| cut -d\" -f2` - echo -e "${T}Keywords: ${BL}${keywords}${NO}" - fi - - if [ ${verb} -gt 1 ];then - echo "vvv ${p}" - fi - - if [ "${info}" ]; then - source ${p} 2> /dev/null - home="${HOMEPAGE}" - desc="${DESCRIPTION}" - #home=`grep HOMEPAGE ${p}| cut -d\" -f2` - #desc=`grep DESCRIPTION ${p}|cut -d= -f2-|cat` - echo -e "${T}${BL}${desc}${NO} [ ${YL}${home}${NO} ]" - if [ ${verb} -gt 0 ]; then - pdir=${p/$(basename ${p})/} - if [[ -r ${pdir}/USE && -r ${pdir}/IUSE ]]; then - echo -n "Compiled with USE Flags: " - for flag in $(<${pdir}/IUSE) - do - use=$(grep -o ${flag} ${pdir}/USE | tr -d '\n') - if [[ "${use}" == "" ]]; then - echo -n "-" - fi - echo -n "${flag} " - done - echo - fi - fi - fi - - if [ "${query}" ]; then - echo -e "${BL}DEPENDED ON BY:${NO}" - package="`echo ${n}|sed -e 's:-r[0-9]\+$::' \ - -e 's:-[0-9].*$::' \ - -e 's:^iii ::' \ - -e 's:^uuu ::'`" - place="`echo ${n}|cut -f1 -d' '`" - [[ "${place}" == "iii" ]] && color="${GR}" || color="${RD}" - - if [[ ${place} == "iii" ]]; then - for deppkg in $(grep -R "${package}" /var/db/pkg/*/*/RDEPEND | sed 's/RDEPEND.*$//') - do - rdepend=$(< ${deppkg}/RDEPEND) - - for flag in $(< ${deppkg}/USE) - do - if [[ "${flag:0:1}" == "-" ]]; then - rdepend="$(echo ${rdepend} | sed 's/${flag:1}? ( [[:alnum:][:punct:]]* )//')" - fi - done - - if [[ $(echo ${rdepend} | grep -o ${package}) == ${package} ]]; then - echo $'\t'$(< ${deppkg}/PF) - fi - done - else - grep -R "${package}" /var/db/pkg/*/*/RDEPEND | \ - cut -f5,6 -d"/" | sed -e "s:^:\t${color}:;s:$:${NO}:" | sort -u - fi - if [[ $(grep -R "*${package}" /etc/make.profile/packages) != "" ]]; then - echo -e "\t${color}SYSTEM PROFILE${NO}" - fi - fi - - # cat package content, remove obj/sym/dir, md5 and mtime when not verbose - # display only match in file-find mode unless extra verbose - if [ "${list}" ]; then - echo -e ${BL}CONTENTS:${NO} - - if [ ${verb} -gt 1 ]; then - cat ${d}/CONTENTS - else - if [ "${ffind}" ]; then - if [ "${fpat}" ]; then - grep "${arg}[:blank:]" $d/CONTENTS - else - grep " ${arg}\( .*\)*$" $d/CONTENTS - fi - else - cat $d/CONTENTS - fi | - if [ ${verb} -gt 0 ]; then - cat - else - sed -e "s:\(^obj \)\(.*\)\( .*\)\{2\}$:\1${BR}\2${NO}:; - s:\(^sym \)\(.*\)\( -> \)\(.*\)\( .*\)\{2\}$:\1${CY}\2${NO}\3\4:; - s:\(^dir \)\(.*\)$:\1${YL}\2${NO}:" - fi - fi - - echo - - # check files mtime and md5, display summary at the end - elif [ "${tcheck}" -o "${mcheck}" ]; then - # counters - fe=0 - fs=0 - # read the CONTENTS file and check md5 and mtime if needed - # process only matching files in find-file mode unless extra verbose - cat ${d}/CONTENTS | - if [ "${ffind}" -a ${verb} -lt 2 ];then - if [ "${fpat}" ]; then - grep "${arg}" - else - grep " ${arg} " - fi - else - cat - fi | - ( - while read -a line - do - fs=$((fs + 1)) - - unset md5 - unset _md5 - unset mtime - unset _mtime - unset err - unset len - - len="${#line[*]}" - if [ "${line[0]}" = "obj" ]; then - name= - for i in `seq 1 $((${len}-3))`; do - [ "${name}" ] && name="${name} ${line[${i}]}" || name="${line[${i}]}" - done - else - name="${line[1]}" - fi - - missing= - [ ! -e "${name}" ] && missing=1 - - # colorize name and compute mtime/md5 - if [ "obj" = "${line[0]}" ]; then - [ -e "${name}" ] && { - [ "${tcheck}" ] && mtime="${line[$((${len}-1))]}" - [ "${tcheck}" ] && _mtime=`date -r "${name}" +%s` - - [ "${mcheck}" ] && md5=${line[$((${len}-2))]} - [ "${mcheck}" ] && _md5=`md5sum "${name}"|cut -f1 -d" "` - } - - name="${BR}${name}${NO}" - - elif [ "sym" = "${line[0]}" ]; then - name="${CY}${name}${NO}" - - elif [ "dir" = "${line[0]}" ]; then - name="${YL}${name}${NO}" - fi - - # compare - if [ "${missing}" ]; then - err=1 - name="${name} ${RD}!not exist!${NO}" - fi - if [ "${md5}" != "${_md5}" ]; then - #If the md5 fails the first time check it with - #everything changed to lowercase :-D - md5="$(echo ${md5}|tr A-Z a-z)" - if [ "${md5}" != "${_md5}" ]; then - err=1 - name="${name} ${RD}!md5!${NO}" - fi - fi - if [ "${mtime}" != "${_mtime}" ]; then - err=1 - name="${name} ${RD}!mtime!${NO}" - fi - - [ "${verb}" -gt 1 ] && echo -e "${name}" - [[ "${verb}" -eq 1 ]] && [[ "${err}" -eq 1 ]] && echo -e "${name}" - - fe=$((fe + err)) - done - if [ "${fe}" = "0" ]; then - echo -e "${YL}${fe}${CY}/${fs}${NO}" - else - echo -e "${RD}${fe}${CY}/${fs}${NO}" - fi - echo - ) - fi - -done | ( - if [ ! \( "${tcheck}" -o "${mcheck}" -o "${info}" -o "${list}" -o "${query}" -o "${mask}" -o ${verb} -gt 0 \) ]; then - sed -e "s:-r[0-9]\+$::" -e "s:-[0-9][^-]*$::"|sort -k2|uniq -f1 - elif [ ! \( "${tcheck}" -o "${mcheck}" -o "${info}" -o "${list}" -o "${query}" -o "${mask}" -o ${verb} -lt 2 \) ]; then - sort -k2|uniq -f1 - else - cat - fi | sed \ - -e "s:^iii ${X}/${X}:${BR}\1/${CY}\2${STAR}${NO}:" \ - -e "s:^uuu ${X}/${X}:${BR}\1/${YL}\2${NO}:" \ - -e "s:^vvv \(.*\)$:${BL}\1${NO}:" \ - -e "s:^obj ::;s:^sym ::;s:^dir ::" - -) -rm -rf ${TMP} diff --git a/trunk/src/qpkg/qpkg.1 b/trunk/src/qpkg/qpkg.1 deleted file mode 100644 index 6d45a93..0000000 --- a/trunk/src/qpkg/qpkg.1 +++ /dev/null @@ -1,112 +0,0 @@ -.TH "qpkg" "1" "1.6" "gentoolkit 0.1.11-r1" "" -.SH "NAME" -qpkg \- Gentoo: query package tool -.SH "SYNOPSIS" -.LP -.B qpkg\fR [\fIoptions\fR] [\fIpkgname\fR] [\fI\-g group\fR] -.br - [\fI\-f <file>\fR|\fI\-fp <pattern>\fR] -.TP -.B qpkg \fI\-\-dups\fR [\fI\-\-slot\fR] -.TP -.B qpkg \fI\-\-help\fR -.SH "DESCRIPTION" -qpkg is GenToolKit's "query package" tool, using it, you can find packages owning files on your filesystem, check the integrity of installed packages, and do other queries against installed or uninstalled packages. -.SH "OPTIONS " -.LP -.I Duplicate Locating: -.LP -.B \-d, \-\-dups\fR print packages that have multiple -.br - versions installed -.br -.B \-s, \-\-slot\fR make \-d SLOT only print dups of the -.br - same SLOT -.LP -.I Package Selection: -.LP -.B \-f, \-\-find\-file\fR Finds package that owns file <file> -.br -.B \-fp, \-\-find\-pattern\fR Finds to package that owns file -.br - matching *<pattern>* -.br -.B \-I, \-\-installed\fR Include only installed packages -.br -.B \-U, \-\-uninstalled\fR Include only uninstalled packages -.br -.B \-g, \-\-group\fR Find by group (can be combined with -.br - other searches) -.LP -.I Information Selection: -.LP -.B \-l, \-\-list\fR List package content -.br -.B \-i, \-\-info\fR Get package description and home page. -.br -.B \-ct, \-\-check\-time -.br -.B \-tc, \-\-time\-check\fR Verify package files timestamps -.br -.B \-cm, \-\-check\-md5 -.br -.B \-mc, \-\-md5\-check\fR Verify package files md5 -.br -.B \-c, \-\-check\fR Verify mtimes and md5. -.br -.B \-q, \-\-query\-deps\fR display all installed packages -.br -\fR depending on selected packages -.LP -.I Operation Modifiers: -.LP -.B \-nc, \-\-no\-color\fR Don't use colors -.br -.B \-v, \-\-verbose\fR Be more verbose [2 levels] -.br -.B \-vv\fR Same as \-v \-v -.SH "NOTES" -\fI\-f, \-fp, \-d, \-l, \-ct, \-cm, \fRand \fI\-c\fR apply only to installed packages. -.br -.TP -Short options may not be combined on the command\-line, yet. -.TP -The operation of some flags has been changed in version 1.6 by the stripping of version numbers from some output to see the version numbers play with \fI\-v\fR and \fI\-vv\fR. -.TP -When using \fI\-f\fR with \fI\-l\fR or \fI\-\-check.. \-v\fR options, only matching files will be displayed, unless \fI\-v\fR is doubled, (yet more verbose), equivalent to \fI\-vv\fR. -.TP -When using \fI\-q\fR, it is important to note that the querying of deps checks package names only, because qpkg is not advanced enough (nor can it reasonably made so) to check complete deps with versions. Please use \fBdepclean\fR or \fBemerge --dep-clean\fR to more completely check the dependency sanity of your system. -.SH "EXAMPLES" -.LP -.B qpkg \fI\-\-dups\fR print duplicates oldest first -.br -.B qpkg \fI\-\-dups \-v\fR.. with versions -.br -.B qpkg\fR print list of packages -.br -.B qpkg\fR porta \fI\-I\fR print versions of installed portage -.br -.B qpkg porta \fI\-i\fR .. + versions in portage tree + -.br - descriptions and homepages -.br -.B qpkg gawk \fI\-c \-v\fR check integrity all installed versions -.br - of gawk the older versions will have -.br - "damaged" files. -.br -.B qpkg \fI\-f\fR /bin/ls print package(s) that own /bin/ls -.SH "AUTHORS" -Vitaly Kushneriuk <vitaly@gentoo.org>, 2002: qpkg -.br -Karl Trygve Kalleberg <karltk@gentoo.org>, 2002: man page -.br -Brandon Low <lostlogic@gentoo.org>, 2002: maintainance -.SH "SEE ALSO" -ebuild(5) -.TP -The \fI/usr/sbin/qpkg\fR script. -.TP diff --git a/trunk/src/qpkg/qpkg.sh b/trunk/src/qpkg/qpkg.sh deleted file mode 100644 index cdbe3c7..0000000 --- a/trunk/src/qpkg/qpkg.sh +++ /dev/null @@ -1,520 +0,0 @@ -#!/bin/bash -# -# qpkg - query portage package system for various information -# -# Copyright (c) Vitaly Kushneriuk <vitaly_kushneriuk@yahoo.com> -# This program is distributed under the terms of GPL version 2. -# -# Maintainer: Brandon Low <lostlogic@gentoo.org> -# Additional code thanks to: -# Josh Goebel <dreamer@firesedge.org> -# -# $Header$ -ID='$Id$' -VERSION=0.`echo ${ID} | cut -d\ -f3` - -PROG=`basename ${0}` - -# Parse args -verb=0 -group="*" -params=${#} -while [ ${#} -gt 0 ] -do - a=${1} - shift - case "${a}" in - - -h|--help) - usage=y - break - ;; - - -i|--info) - info=y - ;; - - -d|--dups) - dups=y - inst=y - ;; - - -q|--query-deps) - query=y - ;; - - -s|--slot) - slot=y - ;; - - -f|--find-file) - ffind=y - inst=y - ;; - - -fp|--find-pattern) - ffind=y - fpat=y - inst=y - ;; - - -I|--installed) - inst=y - ;; - - -m|--masked) - grepmask="-L" - ;; - - -n|--non-masked) - grepmask="-l" - ;; - - -U|--uninstalled) - uninst=y - ;; - - -g|--group) - group=$1 - shift - ;; - - -l|--list) - list=y - inst=y - ;; - - -ct|--check-time|-tc|--time-check) - tcheck=y - inst=y - ;; - - -cm|--check-md5|-mc|--md5-check) - mcheck=y - inst=y - ;; - - -c|--check) - mcheck=y - tcheck=y - inst=y - ;; - - -v|--verbose) - let $((verb++)) - ;; - - -vv) - let $((verb++)) - let $((verb++)) - ;; - - -nc|--no-color|--nocolor|--no-colors|--nocolors) - nocolor=y - ;; - - -*) - echo -e ${CY}${PROG}${NO}:${YL} Invalid option ${RD}$a 1>&2 - usage=y - break - ;; - *) - if [ -n "${arg}" ]; then - echo -e ${CY}${PROG}: ${YL}Only one argument supported - usage=y - break - fi - arg=$a - ;; - - esac -done - -#This is a dumb way to handle things, take it out next time -T="\t" - -#Set up colors -if [ ! "${nocolor}" ]; then - NO="\x1b[0;0m" - BR="\x1b[0;01m" - CY="\x1b[36;01m" - RD="\x1b[31;01m" - GR="\x1b[32;01m" - YL="\x1b[33;01m" - BL="\x1b[34;01m" - STAR=" *" -elif [ ! "${inst}" ] && [ ! "${uninst}" ]; then - STAR=" *" -fi - - -# check for option conflicts -if [ "${inst}" -a "${uninst}" \ - -o \( "${ffind}" -o "${list}" -o "${tcheck}" -o "${mcheck}" \) \ - -a "${uninst}" ]; then - echo -e ${CY}${PROG}${NO}:${YL} conflicting options/modes${NO} - usage=y -fi - -if [ "${usage}" ]; then - echo -e "${CY}${PROG} v. ${VERSION}${NO} - -${CY}${PROG}${NO} is GenToolKit's \"query package\" tool, using it, you can -find packages owning files on your filesystem, check the integrity -of installed packages, and do other queries against installed or -uninstalled packages. - -${BR}Usage: -${T}${CY}${PROG}${NO} [${BR}options${NO}] [${YL}pkgname${NO}] [${BL}-g${YL} group${NO}] [${BL}-f${YL} <file>${NO}|${BL}-fp${YL} <patern>${NO}] -${T}${CY}${PROG}${NO} ${BL}--dups${NO} [${BL}--slot${NO}] -${T}${CY}${PROG}${NO} ${BL}--help${NO} - -${BR}Duplicate Locating: - ${BL}-d, --dups${NO}${T}${T}print packages that have multiple versions installed - ${BL}-s, --slot${NO}${T}${T}make ${BL}-d${NO} SLOT only print dups of the same SLOT - -${BR}Package Selection: - ${BL}-f, --find-file${NO}${T}finds package that owns file <file> - ${BL}-fp, --find-pattern${NO}${T}finds to package that owns file matching *<pattern>* - ${BL}-m, --masked${NO}${T}Include${YL} only${NO} masked packages - ${BL}-n, --non-masked${NO}${T}Include${YL} only${NO} non-masked packages - ${BL}-I, --installed${NO}${T}Include${YL} only${NO} installed packages - ${BL}-U, --uninstalled${NO}${T}Include${YL} only${NO} uninstalled packages - ${BL}-g, --group${NO}${T}${T}Find by goup (can be combined with other searches) - -${BR}Information Selection: - ${BL}-l, --list${NO}${T}${T}List package content - ${BL}-i, --info${NO}${T}${T}Get package description and home page. - ${BL}-ct, --check-time${NO} - ${BL}-tc, --time-check${NO}${T}Verify package files timestamps - ${BL}-cm, --check-md5${NO} - ${BL}-mc, --md5-check${NO}${T}Verify package files md5 - ${BL}-c, --check${NO}${T}${T}Verify mtimes${YL} and${NO} md5. - ${BL}-q, --query-deps${NO}${T}display all installed packages -${T}${T}${T}depending on selected packages - -${BR}Operation Modifiers: - ${BL}-nc, --no-color${NO}${T}don't use colors - ${BL}-v, --verbose${NO}${T}Be more verbose [ can be repeated twise ] - ${BL}-vv${NO}${T}${T}${T}Same as ${BL}-v -v${NO} - -${YL}Notes${NO}: -${YL}*${NO} ${BL}-f${NO}, ${BL}-fp, ${BL}-d${NO}, ${BL}-l${NO}, ${BL}-ct${NO}, ${BL}-cm${NO}, and ${BL}-c${NO} apply only to installed packages. -${YL}*${NO} Short options may not be combined on the command-line, yet. -${YL}*${NO} The operation of some flags has been changed by the - stripping of version numbers from some output to see - the version numbers play with ${BL}-v${NO} and ${BL}-vv${NO}. -${YL}*${NO} When using${BL} -f${NO} with ${BL}-l${NO} or ${BL}--check.. -v${NO} options, only - matching files will be displayed, unless ${BL}-v${NO} is doubled, - (yet more verbose) or ${BL}-vv${NO} is used. - - -${YL}Examples${NO}: - ${PROG} --dups print duplicates oldest first - ${PROG} --dups -v .. with versions - ${PROG} print list of installed packages - ${PROG} porta -I print versions of installed portage - ${PROG} porta -i .. + versions in portage tree + descriptions - and homepages - ${PROG} gawk -c -v check integrity all installed versions of gawk - the older will have \"damaged\" files. - ${PROG} -f /bin/ls print package(s) that own /bin/ls -" - exit -fi - -#For the --dups switch only -if [ "${dups}" ]; then -if [ "${grepmask}" ]; then - mask=`python -c 'import portage; print portage.settings["ACCEPT_KEYWORDS"];' 2> /dev/null` - echo -e "Currently accepted keywords: ${BL}${mask}${NO}" - echo -e - mask=`echo ${mask} | perl -pe 's/\s+/|/'` -fi - - #First dig out the list of packages with duplicates - find /var/db/pkg -iname "*${arg}*.ebuild" 2> /dev/null > /tmp/qpkg.lst - dups=`cat /tmp/qpkg.lst | cut -f7 -d/ | - sed -e 's:\.ebuild$::; s:-r[0-9]*$::; s:-[^-]*$::; /^$/d' | - sort | - uniq -d` - - #Next get all the exact versions - duppak=`cat /tmp/qpkg.lst | fgrep "${dups}"` - - #Now cut that down to the directory name so we can be smart - dirs=`sed -e 's:/[^/]*$::' /tmp/qpkg.lst` - - #Go through each package's DB and create a sortable file - #to play with - declare -i defcount=`cat /var/cache/edb/counter` - for DIR in ${dirs} - do #Package COUNTER - NUM=`cat "${DIR}/COUNTER" 2> /dev/null` - [ -z "${NUM}" ] && NUM=defcount - #Package slot if requested - [ ${slot} ] && SLOT=`cat "${DIR}/SLOT"` - #Package fullname - PKG=`ls --color=no -1 ${DIR}/*.ebuild|cut -f5,7 -d"/"` - #Package basename - NAME=`echo "${PKG}"|sed -e 's:\.ebuild$::; s:-r[0-9]\+$::; s:-[0-9].*$::'` - echo "${NUM} ${PKG} ${NAME}${SLOT}" - #Finish loop, and sort that nice sortable file based on - #installation order, and then based on package basename - #bash hates me so I decided to use a temp file - done |sort -t" " -k3 -k1g,2|uniq -D -f2 > /tmp/qpkg.lst - duppak=`cat /tmp/qpkg.lst` - rm /tmp/qpkg.lst - - #If max verbosity is set output with full path to each ebuild - if [ "${verb}" -gt 1 ]; then - echo -n "${duppak}"|cut -f2 -d" "| \ - sed -e "s:^:${BL}/var/db/pkg/${BR}:" \ - -e "s:\(/\)\([^/]*\)\(.ebuild\):\1${CY}\2${NO}\1\2\3:" - - #If normal verbosity output package group, package name and package version - elif [ "${verb}" -gt 0 ]; then - echo -n "${duppak}"|cut -f2 -d" "| \ - sed -e "s:\(^[^/]*/\)\(.*\)\(\.ebuild\):${BR}\1${CY}\2${NO}:" - - #Otherwise just output package group and package name - else - echo -n "${duppak}"|cut -f2 -d" "| \ - sed -e "s:-r[0-9]\+$::" \ - -e "s:-[0-9].*$::" \ - -e "s:\(^[^/]*/\)\(.*\):${BR}\1${CY}\2${NO}:"|uniq - fi - exit -fi - -# get list of ebuilds to work on -if [ "${ffind}" ]; then - # file find mode - list all ebuilds for - # package/CONTENTS containing <arg> - if [ "${fpat}" ]; then - dirs=`ls /var/db/pkg/${group}/*/CONTENTS \ - | xargs grep -l "${arg}" \ - | xargs --no-run-if-empty -n 1 dirname` - else - # if the user didnt specify a full path assume they - # want to check in the working dir #17331 - [ "${arg:0:1}" != "/" ] && arg="${PWD}/${arg}" - - dirs=`ls /var/db/pkg/${group}/*/CONTENTS \ - | xargs grep -l " ${arg}\( .*\)*$" \ - | xargs --no-run-if-empty -n 1 dirname` - fi - ipak=`( - for d in ${dirs} -;do - [ "-" = "$d" ] && break - ls ${d}/*.ebuild - done)` -else - # normal mode - list ebuilds for ebuild name containing <arg> - - # installed packages - if [ ! "${uninst}" ]; then - ipak=`find /var/db/pkg/ -iname "*.ebuild" 2>/dev/null` - if [[ ${group} != "*" ]]; then - ipak=`echo ${ipak}|sed -e "s: :\n:g"|grep ${group}` - fi - if [ ${arg} ]; then - # avoid ${arg}="db" from pulling in every installed package - temp="/var/db/pkg/.*${arg}" - ipak=`echo ${ipak}|sed -e "s: :\n:g"|grep ${temp}` - fi - if [ -n "${mask}" ]; then - ipak=`echo ${ipak}|xargs -r egrep ${grepmask} "^KEYWORDS=.*[[:space:]\"\'](${mask})[[:space:]\"\']"` - fi - fi - # not installed packages (yet:-) - if [ ! "${inst}" ]; then - upak=`find /usr/portage/ -iname "*.ebuild" 2>/dev/null|grep -v --regex="/usr/portage/[^/]*\.ebuild"` - if [[ ${group} != "*" ]]; then - upak=`echo ${upak}|sed -e "s: :\n:g"|grep ${group}` - fi - if [ ${arg} ]; then - upak=`echo ${upak}|sed -e "s: :\n:g"|grep ${arg}` - fi - if [ -n "${mask}" ]; then - upak=`echo ${upak}|xargs -r egrep ${grepmask} "^KEYWORDS=.*[[:space:]\"\'](${mask})[[:space:]\"\']"` - fi - fi -fi - -X="\([^/]*\)" - -for p in ${ipak} ${upak} -;do - [ "${p}" = "-" ] && break - - # cut common prefix from ebuild name and mark installed/uninstalled packages - # Note: iii/uuu will be replaced by the pipe at the end - n=${p%.ebuild} - var_db_pkg="/var/db/pkg/" - n=${n/${var_db_pkg}/iii } - usr_portage="/usr/portage/" - n=${n/${usr_portage}/uuu } - n=${n/\/*\//\/} - - d=${p%\/*.ebuild} # faster d=`dirname ${p}` - echo ${n} - - # if we have no passed parameters then - # we can skip the extra conditional checks - [[ ${params} == 0 ]] && continue; - - if [ "${mask}" ]; then - keywords=`grep KEYWORDS ${p}| cut -d\" -f2` - echo -e "${T}Keywords: ${BL}${keywords}${NO}" - fi - - if [ ${verb} -gt 1 ];then - echo "vvv ${p}" - fi - - if [ "${info}" ]; then - home=`grep HOMEPAGE ${p}| cut -d\" -f2` - desc=`grep DESCRIPTION ${p}| cut -d\" -f2` - echo -e "${T}${BL}${desc}${NO} [ ${YL}${home}${NO} ]" - fi - - if [ "${query}" ]; then - echo -e "${BL}DEPENDED ON BY:${NO}" - package="`echo ${n}|sed -e 's:-r[0-9]\+$::' \ - -e 's:-[0-9].*$::' \ - -e 's:^iii ::' \ - -e 's:^uuu ::'`" - place="`echo ${n}|cut -f1 -d' '`" - [[ "${place}" == "iii" ]] && color="${GR}" || color="${RD}" - grep -R "${package}" /var/db/pkg/*/*/RDEPEND | \ - cut -f5,6 -d"/" | sed -e "s:^:\t${color}:;s:$:${NO}:" | sort | uniq -# gawk -F "/" '{printf("${place}\n\t%s/%s${NO}",$5,$6)}' | sort | uniq - fi - - # cat package content, remove obj/sym/dir, md5 and mtime when not verbose - # display only match in file-find mode unless extra verbose - if [ "${list}" ]; then - echo -e ${BL}CONTENTS:${NO} - - if [ ${verb} -gt 1 ]; then - cat ${d}/CONTENTS - else - if [ "${ffind}" ]; then - if [ "${fpat}" ]; then - grep "${arg}" $d/CONTENTS - else - grep " ${arg}\( .*\)*$" $d/CONTENTS - fi - else - cat $d/CONTENTS - fi | - if [ ${verb} -gt 0 ]; then - cat - else - sed -e "s:\(^obj \)\([^ ]*\)\(.*$\):\1${BR}\2${NO}:; - s:\(^sym \)\([^ ]*\)\( -> \)\([^ ]*\)\(.*$\):\1${CY}\2${NO}\3\4:; - s:\(^dir \)\([^ ]*\)\(.*$\):\1${YL}\2${NO}:" - fi - fi - - echo - - # check files mtime and md5, display summary at the end - elif [ "${tcheck}" -o "${mcheck}" ]; then - # counters - fe=0 - fs=0 - # read the CONTENTS file and check md5 and mtime if needed - # process only matching files in find-file mode unless extra verbose - cat ${d}/CONTENTS | - if [ "${ffind}" -a ${verb} -lt 2 ];then - if [ "${fpat}" ]; then - grep "${arg}" - else - grep " ${arg} " - fi - else - cat - fi | - ( - while read -a line - do - fs=$((fs + 1)) - - unset md5 - unset _md5 - unset mtime - unset _mtime - unset err - - name=${line[1]} - - missing= - [ ! -e ${name} ] && missing=1 - - # colorize name and compute mtime/md5 - if [ "obj" = ${line[0]} ]; then - [ -e ${name} ] && { - [ "${tcheck}" ] && mtime=${line[3]} - [ "${tcheck}" ] && _mtime=`date -r ${name} +%s` - - [ "${mcheck}" ] && md5=${line[2]} - [ "${mcheck}" ] && _md5=`md5sum ${name}|cut -f1 -d" "` - } - - name=${BR}${name}${NO} - - elif [ "sym" = ${line[0]} ]; then - name=${CY}${name}${NO} - - elif [ "dir" = ${line[0]} ]; then - name=${YL}${name}${NO} - fi - - # compare - if [ "$missing" ]; then - err=1 - name="${name} ${RD}!not exist!${NO}" - fi - if [ "${md5}" != "${_md5}" ]; then - #If the md5 fails the first time check it with - #everything changed to lowercase :-D - md5=`echo "${md5}"|tr A-Z a-z` - if [ "${md5}" != "${_md5}" ]; then - err=1 - name="${name} ${RD}!md5!${NO}" - fi - fi - if [ "${mtime}" != "${_mtime}" ]; then - err=1 - name="${name} ${RD}!mtime!${NO}" - fi - - [ ${verb} -gt 1 ] && echo -e ${name} - [[ ${verb} -eq 1 ]] && [[ $err -eq 1 ]] && echo -e ${name} - - fe=$((fe + err)) - done - if [ "$fe" = "0" ]; then - echo -e ${YL}$fe${CY}/$fs${NO} - else - echo -e ${RD}$fe${CY}/$fs${NO} - fi - echo - ) - fi - -done | ( - if [ ! \( "${tcheck}" -o "${mcheck}" -o "${info}" -o "${list}" -o "${query}" -o "${mask}" -o ${verb} -gt 0 \) ]; then - sed -e "s:-r[0-9]\+$::" -e "s:-[0-9][^-]*$::"|sort -k2|uniq -f1 - elif [ ! \( "${tcheck}" -o "${mcheck}" -o "${info}" -o "${list}" -o "${query}" -o "${mask}" -o ${verb} -lt 2 \) ]; then - sort -k2|uniq -f1 - else - cat - fi | sed \ - -e "s:^iii ${X}/${X}:${BR}\1/${CY}\2${STAR}${NO}:" \ - -e "s:^uuu ${X}/${X}:${BR}\1/${YL}\2${NO}:" \ - -e "s:^vvv \(.*\)$:${BL}\1${NO}:" \ - -e "s:^obj ::;s:^sym ::;s:^dir ::" - -) |