X-Git-Url: https://vcs.maemo.org/git/?a=blobdiff_plain;f=maemian;h=5d54506e73004861517c41bf40a77adfe83f35f5;hb=a4bdb88d40baeb8bbb9b279d35384ba7ba7c4ea6;hp=94e4eaf10d02d7115bccbf59e11e90dcb0cc05d9;hpb=3d0f137894fe06e9d92e3647d9140b0d05867a33;p=maemian

diff --git a/maemian b/maemian
index 94e4eaf..5d54506 100755
--- a/maemian
+++ b/maemian
@@ -35,6 +35,10 @@ use strict;
 use warnings;
 use Getopt::Long;
 use Carp;
+# Cannot yet pull in all of Lintian
+# unshift @INC, "/home/jeremiah/maemian/lib";
+# require Maemian::Output;
+# my $lintout = new Maemian::Output;
 
 # --- Command line options
 my $inputfile;             # --- A file passed to maemian 
@@ -54,11 +58,20 @@ sub file_tests {
     my @lines = <$file>;
     close $file;
 
+    my ($field, $maintainer) = map { split /: / } grep /Maintainer/, @lines;
+    chomp($maintainer);
+    if ($maintainer =~ /(ubuntu|debian)/i) {
+      print "W: Maintainer email addres ($maintainer) might be the same as upstream.\n";
+    }
+    else {
+      print "N: $maintainer\n";
+    }
     if (grep /BEGIN PGP SIGNED MESSAGE/, @lines) {
-      print "$filename is signed\n";
+      print "N: $filename is signed\n";
     }
     # print "\n$dirs\n$filename\n";
-  } else {
+  }
+  else {
     croak "File not readable: $!\n";
   }
 }