Added pkgsize. master
authorMikko Värri <vmj@linuxbox.fi>
Fri, 26 Apr 2013 15:27:12 +0000 (18:27 +0300)
committerMikko Värri <vmj@linuxbox.fi>
Fri, 26 Apr 2013 15:27:12 +0000 (18:27 +0300)
bin/pkgsize [new file with mode: 0644]

diff --git a/bin/pkgsize b/bin/pkgsize
new file mode 100644 (file)
index 0000000..ad248b5
--- /dev/null
@@ -0,0 +1,48 @@
+#!/usr/bin/perl -w
+#
+# Copyright (C) 2011 Mikko Värri <vmj@linuxbox.fi>
+#
+# This file is part of Slackware.
+#
+# Slackware 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 3 of the License, or
+# (at your option) any later version.
+#
+# Slackware 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 Slackware.  If not, see <http://www.gnu.org/licenses/>.
+#
+use strict;
+use FindBin qw( $Bin $Script );
+use lib "$Bin/../lib";
+use Slackware::CLI;
+use Slackware::Package;
+
+# Defaults
+
+#
+# Command line handling
+#
+my $summary = "Show package size";
+my $usage   = "PKG [PKG...]";
+my $help    = [
+#    qq[    -a          Hide alternatives.\n],
+];
+my $options = {
+#    'a|no-alt'   => \$HIDE_ALTERNATIVES,
+};
+Slackware::CLI::ParseOptions( $summary, $usage, $help, $options );
+
+my $pkg = undef;
+my $fh = undef;
+foreach my $pkg_db_entry (@ARGV) {
+    $pkg = Slackware::Package->new_from_pkg_db_entry($pkg_db_entry);
+    print $pkg->name.":"
+        unless @ARGV == 1;
+    print $pkg->pkg_size."\n";
+}