# Check a debian description file
minimae -i file.dsc
+ # Check a binary .deb
+ minimae -b package_name.deb
+
=cut
use strict;
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;