On Fri, Jul 08, 2011 at 08:51:51AM -0500, Dan McGee wrote: > On Fri, Jul 8, 2011 at 8:42 AM, Dave Reisner <[email protected]> wrote: > > converts a pacman log file to a list of installed packages, which should > > match the output of `pacman -Q'. > > > > This isn't bullet proof, as testing has revealed that the log is not always > > precisely accurate, but it should be good enough for a user whom finds > > himself in a situation dire enough to need this. > > > > Signed-off-by: Dave Reisner <[email protected]> > > --- > > We've had a similar script floating around on the wiki and some other > > places, > > so this should be a nice addition to our contrib package. It has the added > > bonus of providing version numbers. > > Looks good to me with some quick testing. I used an older version of > gawk (3.1.5) and things seemed fine. Nothing immediately available to > test on a non-GNU system though, anyone on OSX/BSD want to give this a > quick spin?
It's POSIX compliant, but I know one of the BSDs ships with nawk as /bin/awk, so we're going to run into a small issue I've got fixed up (we ran into the same thing with makepkg -- lack of escaped paren in a regex). > My only problem here would be the name- it looks great in contrib/, > but not so good in /usr/bin. "log2x" is pretty damn generic and > doesn't really signify "pacman log to package list". I can't come up > with some short and sweet name though. "pacman-log-rescue"? > Variations on a theme... paclog2pkglist paclog-rescue pac-log-rescue rmrfvarlibpacman d > > contrib/Makefile.am | 1 + > > contrib/log2pkglist | 57 > > +++++++++++++++++++++++++++++++++++++++++++++++++++ > > 2 files changed, 58 insertions(+), 0 deletions(-) > > create mode 100755 contrib/log2pkglist > > > > diff --git a/contrib/Makefile.am b/contrib/Makefile.am > > index cba2085..b1675f4 100644 > > --- a/contrib/Makefile.am > > +++ b/contrib/Makefile.am > > @@ -13,6 +13,7 @@ EXTRA_DIST = \ > > PKGBUILD.vim \ > > bacman.in \ > > bash_completion.in \ > > + log2pkglist \ > > pacdiff.in \ > > paclist.in \ > > pacscripts.in \ > > diff --git a/contrib/log2pkglist b/contrib/log2pkglist > > new file mode 100755 > > index 0000000..5da47ae > > --- /dev/null > > +++ b/contrib/log2pkglist > > @@ -0,0 +1,57 @@ > > +#!/bin/awk -f > > +# > > +# log2pkglist - Parse a log file into a list of currently installed > > packages > > +# > > +# Copyright (C) 2011 Dave Reisner <[email protected]> > > +# > > +# 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/>. > > + > > +BEGIN { > > + if (ARGC < 2) { > > + printf "usage: log2pkglist <pacman log>\n" > > + printf "example: log2pkglist /var/log/pacman.log\n" > > + exit > > + } > > +} > > + > > +{ > > + 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] > > + } > > + } > > +} > > -- > > 1.7.6 > > > > > > >
