Added some code to peer into a data structure in Maemian/Schedule.pm. Also added the

[maemian] / minimae

diff --git a/minimae b/minimae
index 30b9261..26721b6 100755 (executable)
--- a/minimae
+++ b/minimae
@@ -8,6 +8,10 @@
 
 minimae - A small, cuddly version of maemian
 
+=head1 VERSION
+
+This document describes minimae version 0.1
+
 =head1 PURPOSE
 
 Maemian is the maemo version of lintian - a policy checker designed to
@@ -31,6 +35,9 @@ use Pod::Usage;
 use Carp;
 use lib qw(/home/jeremiah/maemian/lib/);
 use Maemian::Output;
+use Maemian::Schedule;
+
+my $LINTIAN_LAB = "/home/jeremiah/maemian/lab";
 
 # --- Command line options
 my $inputfile;                     # --- A file passed on the command line
@@ -47,7 +54,7 @@ GetOptions
 pod2usage() if $help;
 pod2usage() if not $inputfile;
 
-# --- Output settings.
+# --- Output settings
 my $out = new Maemian::Output;
 if ($verbose) {
   $out->verbose(1);
@@ -89,5 +96,17 @@ if ($inputfile) {
   croak "No input file found: $!\n";
 }
 
+my $schedule = new Maemian::Schedule(verbose => $verbose);
+# .deb file?
+if ($inputfile =~ /\.deb$/) {
+  $out->v_msg("Lab is $LINTIAN_LAB");
+
+  # schedule is a hash containing two hashes followed by an array
+  $schedule->add_deb('b', $inputfile)
+    or warning("$inputfile is a zero-byte file, skipping");
+}
+
+
+
 
 1;