lintian support in dinstall

[Raul Miller <raul@usatoday.com>]

Here's a patch which should provide lintian support in dinstall.
It's untested, but syntactically valid, and it seems to be doing the
right things.

Of course, lintian needs to be in $PATH for this to work.  This patch
doesn't check for that.  [My preferred sanity check would be to run
lintian against a known-good package and check the return code.  But I
don't know what an appropriate choice would be for that reference package,
and don't know where it should be stored.]

If there's any problems with this, let me know.

I'm cc'ing debian-devel because that's the most on-topic archived list
that I could identify for this..

-- 
Raul

*** dinstall	Wed Oct  6 21:59:07 1999
--- dinstall.orig	Wed Oct  6 21:45:35 1999
***************
*** 99,105 ****
      if (&cread($cfile)) {
  	while ($reprocessfile) {
  	    $reprocessfile = 0;
! 	    &flist() && &md5check() && &dsccheck() && &lintiancheck();
  	}
      }
      &action($cfile);
--- 99,105 ----
      if (&cread($cfile)) {
  	while ($reprocessfile) {
  	    $reprocessfile = 0;
! 	    &flist() && &md5check() && &dsccheck();
  	}
      }
      &action($cfile);
***************
*** 443,457 ****
  	$rm .= "Rejected: md5sum for $found doesn't match $dsc.\n"
  	    if ($actualmd5 ne $$dscf{$df}{md5});
      }
- }
- 
- sub lintiancheck() {
- 	my $f;
- 	for $f (keys %$files) {
- 		$rm .= join '', map "Rejected: (lintian) $_", grep {/^E/i} `lintian $f`
- 			if $f =~/\.(deb|dsc)$/;
- 	}
- 	return $rm !~/Rejected: /;
  }
  
  
--- 443,448 ----