Added pkgsize.
[deps.git] / bin / pkgsize
1 #!/usr/bin/perl -w
2 #
3 # Copyright (C) 2011 Mikko Värri <vmj@linuxbox.fi>
4 #
5 # This file is part of Slackware.
6 #
7 # Slackware is free software: you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation, either version 3 of the License, or
10 # (at your option) any later version.
11 #
12 # Slackware is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15 # General Public License for more details.
16 #
17 # You should have received a copy of the GNU General Public License
18 # along with Slackware.  If not, see <http://www.gnu.org/licenses/>.
19 #
20 use strict;
21 use FindBin qw( $Bin $Script );
22 use lib "$Bin/../lib";
23 use Slackware::CLI;
24 use Slackware::Package;
25
26 # Defaults
27
28 #
29 # Command line handling
30 #
31 my $summary = "Show package size";
32 my $usage   = "PKG [PKG...]";
33 my $help    = [
34 #    qq[    -a          Hide alternatives.\n],
35 ];
36 my $options = {
37 #    'a|no-alt'   => \$HIDE_ALTERNATIVES,
38 };
39 Slackware::CLI::ParseOptions( $summary, $usage, $help, $options );
40
41 my $pkg = undef;
42 my $fh = undef;
43 foreach my $pkg_db_entry (@ARGV) {
44     $pkg = Slackware::Package->new_from_pkg_db_entry($pkg_db_entry);
45     print $pkg->name.":"
46         unless @ARGV == 1;
47     print $pkg->pkg_size."\n";
48 }