index : pacman | |
Archlinux32 fork of pacman | gitolite user |
summaryrefslogtreecommitdiff |
author | Dan McGee <dan@archlinux.org> | 2012-04-29 20:27:32 -0500 |
---|---|---|
committer | Dan McGee <dan@archlinux.org> | 2012-04-29 20:27:32 -0500 |
commit | 8c7202ca19361c35357140b0e3083cfa5bc12d21 (patch) | |
tree | 26111b943283582e4d4962138aa6e0fb1c70b5b9 /contrib/paclog-pkglist.sh.in | |
parent | 9dd42dc0daab510a4e68118d89b5543936d2074f (diff) | |
parent | 82b7122542e16354b560bae9c7f6f3608873a8e1 (diff) |
-rwxr-xr-x | contrib/paclog-pkglist.sh.in | 83 |
diff --git a/contrib/paclog-pkglist.sh.in b/contrib/paclog-pkglist.sh.in new file mode 100755 index 00000000..222bbc4c --- /dev/null +++ b/contrib/paclog-pkglist.sh.in @@ -0,0 +1,83 @@ +#!/bin/bash +# +# paclog-pkglist - Parse a log file into a list of currently installed packages +# +# Copyright (C) 2011 Dave Reisner <dave@archlinux.org> +# +# This program is free software; you can redistribute it and/or +# modify it under the terms of the GNU General Public License +# as published by the Free Software Foundation; either version 2 +# of the License, or (at your option) any later version. +# +# 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/>. + +declare -r myname='paclog-pkglist' +declare -r myver='@PACKAGE_VERSION@' + +export TEXTDOMAIN='pacman' +export TEXTDOMAINDIR='/usr/share/locale' +declare logfile=${1:-@localstatedir@/log/pacman.log} + +usage() { + printf 'usage: %s [pacman log]\n' "$myname" + printf 'example: %s @localstatedir@/log/pacman.log\n' "$myname" + printf '\ndefaults to: @localstatedir@/log/pacman.log\n' +} + +version() { + printf "%s %s\n" "$myname" "$myver" + echo 'Copyright (C) 2011 Dave Reisner <dave@archlinux.org>' +} + +if [[ $1 ]]; then + if [[ $1 = -@(h|-help) ]]; then + usage + exit 0 + elif [[ $1 = -@(V|-version) ]]; then + version + exit 0 + elif [[ ! -e $logfile ]]; then + printf $"target not found: %s\n" "$1" + exit 1 + fi +fi + +<"$logfile" awk ' +{ + action = $3 + pkgname = $4 + pkgver = $5 + upgver = $7 +} + +NF == 5 && action == "installed" { + gsub(/[()]/, "", pkgver) + pkg[pkgname] = pkgver + next +} + +NF == 7 && action == "upgraded" { + sub(/\)/, "", upgver) + pkg[pkgname] = upgver + next +} + +NF == 5 && action == "removed" { + pkg[pkgname] = -1 +} + +END { + for (i in pkg) { + if (pkg[i] != -1) { + printf "%s %s\n",i,pkg[i] + } + } +}' | sort + +# vim: set ts=2 sw=2 noet: |