#!/usr/bin/perl -w
#
# This file if (C)1999 by Ingo Saitz <Ingo.Saitz@stud.uni-hannover.de>
#
# You are allowed to distribute, use and modify this file under the terms
# of the GNU Public License version 2 or any later version.

print "Lese vorhandene -dev Pakete...\n";
open AVAIL, "/var/lib/dpkg/available" or die;
@avail = sort map { /^Package: (.*?-dev)$/m ? $1 : (); } <AVAIL>;
close AVAIL;


print "Suche installierte Pakete...\n";
$/ = "";
open INST, "/var/lib/dpkg/status" or die;
@inst = sort map { /^Status:.* installed$/m ? /Package: (.*?)$/m : (); } <INST>;
close INST;


print "Suche nicht installierte -dev Pakete...\n";
{
    my @avail = @avail;
    my @inst = @inst;
    $avail = shift @avail;
    $inst = shift @inst;
    while ($avail and $inst) {
        if ($avail eq $inst) {
	    $avail = shift @avail;
	} elsif ($avail lt $inst) {
	    push @ninst, $avail;
	    $avail = shift @avail;
	} else {
	    $inst = shift @inst;
	}
    }
}


print "\nSie können folgende Pakete installieren:\n";
foreach $packet (@ninst) {
    ($pattern = $packet) =~ s/-dev$//;
    @installed = grep { m/^(lib)?\Q$pattern\E[0-9a-z]*$/ } @inst;
    print "$packet: @installed\n" if (@installed);
}