2011-07-17 11:04:03 -04:00
|
|
|
#!/bin/bash
|
2011-07-06 09:19:44 -04:00
|
|
|
#
|
|
|
|
# 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/>.
|
|
|
|
|
2011-12-06 16:29:32 -05:00
|
|
|
declare -r myname='paclog-pkglist'
|
2011-12-12 16:36:57 -05:00
|
|
|
declare -r myver='@PACKAGE_VERSION@'
|
2011-12-06 16:29:32 -05:00
|
|
|
|
2011-07-17 11:04:03 -04:00
|
|
|
export TEXTDOMAIN='pacman'
|
|
|
|
export TEXTDOMAINDIR='/usr/share/locale'
|
|
|
|
declare logfile=${1:-@localstatedir@/log/pacman.log}
|
|
|
|
|
2011-12-12 16:36:57 -05:00
|
|
|
usage() {
|
2013-11-08 02:53:33 -05:00
|
|
|
printf "%s (pacman) v%s\n" "${myname}" "${myver}"
|
|
|
|
echo
|
|
|
|
echo "Parse a log file into a list of currently installed packages"
|
|
|
|
echo
|
|
|
|
printf "Usage: %s [path to pacman log]\n" "${myname}"
|
|
|
|
echo
|
|
|
|
printf "Example: %s @localstatedir@/log/pacman.log\n" "${myname}"
|
|
|
|
echo
|
|
|
|
printf 'Defaults to: @localstatedir@/log/pacman.log'
|
2011-12-12 16:36:57 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
version() {
|
|
|
|
printf "%s %s\n" "$myname" "$myver"
|
|
|
|
echo 'Copyright (C) 2011 Dave Reisner <dave@archlinux.org>'
|
|
|
|
}
|
|
|
|
|
2011-07-17 11:04:03 -04:00
|
|
|
if [[ $1 ]]; then
|
2011-07-18 10:33:45 -04:00
|
|
|
if [[ $1 = -@(h|-help) ]]; then
|
2011-12-12 16:36:57 -05:00
|
|
|
usage
|
|
|
|
exit 0
|
|
|
|
elif [[ $1 = -@(V|-version) ]]; then
|
|
|
|
version
|
2011-07-18 10:33:45 -04:00
|
|
|
exit 0
|
|
|
|
elif [[ ! -e $logfile ]]; then
|
|
|
|
printf $"target not found: %s\n" "$1"
|
|
|
|
exit 1
|
|
|
|
fi
|
2011-07-17 11:04:03 -04:00
|
|
|
fi
|
2011-07-06 09:19:44 -04:00
|
|
|
|
2011-07-17 11:04:03 -04:00
|
|
|
<"$logfile" awk '
|
2011-07-06 09:19:44 -04:00
|
|
|
{
|
2013-01-23 19:28:58 -05:00
|
|
|
if ($3 ~ /^\[.*\]$/) {
|
|
|
|
# new style with caller name
|
|
|
|
action = $4
|
|
|
|
pkgname = $5
|
|
|
|
pkgver = $6
|
|
|
|
upgver = $8
|
|
|
|
nfields = NF
|
|
|
|
} else {
|
|
|
|
action = $3
|
|
|
|
pkgname = $4
|
|
|
|
pkgver = $5
|
|
|
|
upgver = $7
|
|
|
|
nfields = (NF + 1) # compensate for missing caller field
|
|
|
|
}
|
2011-07-06 09:19:44 -04:00
|
|
|
}
|
|
|
|
|
2013-01-23 19:28:58 -05:00
|
|
|
nfields == 6 && action == "installed" {
|
2011-07-18 10:33:45 -04:00
|
|
|
gsub(/[()]/, "", pkgver)
|
|
|
|
pkg[pkgname] = pkgver
|
|
|
|
next
|
2011-07-06 09:19:44 -04:00
|
|
|
}
|
|
|
|
|
2013-03-07 01:32:42 -05:00
|
|
|
nfields == 8 && (action == "upgraded" || action == "downgraded") {
|
2011-07-18 10:33:45 -04:00
|
|
|
sub(/\)/, "", upgver)
|
|
|
|
pkg[pkgname] = upgver
|
|
|
|
next
|
2011-07-06 09:19:44 -04:00
|
|
|
}
|
|
|
|
|
2013-01-23 19:28:58 -05:00
|
|
|
nfields == 6 && action == "removed" {
|
2011-07-18 10:33:45 -04:00
|
|
|
pkg[pkgname] = -1
|
2011-07-06 09:19:44 -04:00
|
|
|
}
|
|
|
|
|
|
|
|
END {
|
2011-07-18 10:33:45 -04:00
|
|
|
for (i in pkg) {
|
|
|
|
if (pkg[i] != -1) {
|
|
|
|
printf "%s %s\n",i,pkg[i]
|
|
|
|
}
|
|
|
|
}
|
2011-07-17 11:04:03 -04:00
|
|
|
}' | sort
|
|
|
|
|
2014-01-22 18:06:11 -05:00
|
|
|
# vim: set noet:
|