X-Git-Url: https://vcs.maemo.org/git/?a=blobdiff_plain;f=minimae;h=19dc0604c6a79172b0cae674209840e4f6f710e9;hb=bf47c4c43f1f5f4986e85b74fc82b32048aeb846;hp=26721b69a0493759dce0c1a45a2a6029fc1d8af6;hpb=19fdce4b743853cee27edb892096cf64295c2874;p=maemian

diff --git a/minimae b/minimae
index 26721b6..19dc060 100755
--- a/minimae
+++ b/minimae
@@ -26,6 +26,9 @@ ascertain who uploaded it, and if they used the correct email address.
     # Check a debian description file
     minimae -i file.dsc
 
+    # Check a binary .deb
+    minimae -b package_name.deb
+
 =cut
 
 use strict;
@@ -40,19 +43,31 @@ use Maemian::Schedule;
 my $LINTIAN_LAB = "/home/jeremiah/maemian/lab";
 
 # --- Command line options
-my $inputfile;                     # --- A file passed on the command line
-my ($help, $verbose);
+my $pkg_mode = 'a';		# auto -- automatically search for
+				# binary and source pkgs
+my $inputfile;                  # --- A file passed on the command line
+my ($help, $verbose, );
 
 GetOptions
   (
    'help' => \$help,
    'verbose' => \$verbose,
    'inputfile|i=s' => \$inputfile,
+   'binary|b' => \&record_pkgmode,
   );
 
+# Record what type of data is specified
+# Options: -b|--binary, -s|--source, --udeb
+sub record_pkgmode {
+  print "in record_pkgmode\n";
+  $pkg_mode = 'b' if $_[0] eq 'binary';
+  $pkg_mode = 's' if $_[0] eq 'source';
+  $pkg_mode = 'u' if $_[0] eq 'udeb';
+}
+
+
 # --- Process Command line options
-pod2usage() if $help;
-pod2usage() if not $inputfile;
+pod2usage(1) if $help;
 
 # --- Output settings
 my $out = new Maemian::Output;