A very minimal script, but you can feed it a .dsc file, and it should know what to...

[maemian] / maemian

diff --git a/maemian b/maemian
index 94e4eaf..5d54506 100755 (executable)
--- 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";
   }
 }