diff options
Diffstat (limited to 'contrib/pacsearch.in')
-rw-r--r-- | contrib/pacsearch.in | 125 |
1 files changed, 0 insertions, 125 deletions
diff --git a/contrib/pacsearch.in b/contrib/pacsearch.in deleted file mode 100644 index a89328d0..00000000 --- a/contrib/pacsearch.in +++ /dev/null @@ -1,125 +0,0 @@ -#!/usr/bin/perl -# pacsearch - Perform a pacman search using both the local and the sync databases -# -# Copyright (C) 2008-2014 Dan McGee <dan@archlinux.org> -# -# Based off original shell script version: -# Copyright (C) 2006-2007 Dan McGee <dan@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/>. - -use strict; -use warnings; -use Term::ANSIColor; - -my $myname = 'pacsearch'; -my $myver = '@PACKAGE_VERSION@'; - -sub usage { - print "$myname (pacman) v$myver\n\n"; - print "Perform a pacman search using both the local and the sync databases.\n\n"; - print "Usage: $myname [-n] <pattern>\n\n"; - print "Options:\n"; - print " -n, --nocolor: turn off coloring\n\n"; - print "Example: $myname ^gnome\n"; -} - -sub version { - printf "%s %s\n", $myname, $myver; - print "Copyright (C) 2008-2014 Dan McGee <dan\@archlinux.org>\n\n"; - print "Based off original shell script version:\n"; - print "Copyright (C) 2006-2007 Dan McGee <dan\@archlinux.org>\n"; -} - -if ($#ARGV lt 0 || $ARGV[0] eq "--help" || $ARGV[0] eq "-h") { - usage; - if ($#ARGV lt 0) { - exit 1; - } - exit 0; -} - -if ($ARGV[0] eq "--version" || $ARGV[0] eq "-V") { - version; - exit 0; -} - -# define formatting variables -my($BLUE, $CYAN, $GREEN, $MAGENTA, $RED, $YELLOW, $BOLD, $RESET); -if ($ARGV[0] eq "--nocolor" || $ARGV[0] eq "-n") { - shift; - $BLUE = ""; - $CYAN = ""; - $GREEN = ""; - $MAGENTA = ""; - $RED = ""; - $YELLOW = ""; - $BOLD = ""; - $RESET = ""; -} else { - $BLUE = color('blue'); - $CYAN = color('cyan'); - $GREEN = color('green'); - $MAGENTA = color('magenta'); - $RED = color('red'); - $YELLOW = color('yellow'); - $BOLD = color('bold'); - $RESET = color('reset'); -} - -# localization -my $LC_INSTALLED = `gettext pacman installed`; - -# Print a "repo/pkgname pkgver (groups) [installed]" line. -# We stick to pacman colors. -sub print_pkg { - my @v = @_; - print "$RESET$BOLD"; - if ( "$v[0]" eq "local" ) { - print "$RED"; - } else { - print "$MAGENTA"; - } - print "$v[0]/$RESET$BOLD$v[1] $GREEN$v[2]$BLUE$v[3]$CYAN$v[4]$RESET\n"; - print "$v[5]"; -} - -sub list_pkg { - my $db = shift; - open (my $out, '-|', 'pacman', $db, '--', @ARGV) or exit 1; - my @pkglist = (); - while ( readline($out) ) { - # We grab the following fields: repo, name, ver, group, installed, and - # desc. We grab leading space for 'group' and 'installed' so that we do - # not need to test if non-empty when printing. - my @pkgfields = /^(.*?)\/(.*?) (.*?)( \(.*?\))?( \[.*\])?$/s; - my $desc = readline($out); - # since 'group' and 'installed' are optional, we should fill it in if - # necessary - $pkgfields[3] = "" if not defined $pkgfields[3]; - $pkgfields[4] = "" if not defined $pkgfields[4]; - $pkgfields[5] = $desc; - push (@pkglist, \@pkgfields); - } - close ($out); - return @pkglist; -} - -my @sync = list_pkg('-Ss', @ARGV); -my %allpkgs = map {$_->[1] . $_->[2] => 1} @sync; -my @query = grep { not $allpkgs{$_->[1] . $_->[2]}} list_pkg('-Qs', @ARGV); -$_->[4] = " [$LC_INSTALLED]" foreach @query; -print_pkg (@{$_}) foreach (@sync, @query); - -#vim: set noet: |