X-Git-Url: http://vcs.maemo.org/git/?a=blobdiff_plain;f=minimae;fp=minimae;h=26721b69a0493759dce0c1a45a2a6029fc1d8af6;hb=19fdce4b743853cee27edb892096cf64295c2874;hp=30b9261b304d9041b5ac7dc9b5a8d1ca1df08c46;hpb=84b6a5bd29b0b1e960c4b6012eea3dfff93180f2;p=maemian

diff --git a/minimae b/minimae
index 30b9261..26721b6 100755
--- 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;