#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use LWP::Simple; 
use HTML::TreeBuilder;
use XML::XPath;

my $data=get("http://idssi.enyo.de/tracker/status/release/stable?" .
        "hide_nodsa=1&hide_medium_urgency=1&hide_non_remote=1");
#$data =~ s/\n//g;
#$data =~ s/\r//g;

my $tree = HTML::TreeBuilder->new;
$tree->parse($data);
$tree->eof();
$data=$tree->as_XML;
$tree->delete;

my $xpath = XML::XPath->new(xml => $data);
my $pkgs = $xpath->find('//td[1]/text()');

foreach my $pkg ($pkgs->get_nodelist) {
        $pkg = XML::XPath::XMLParser::as_string($pkg);
        my $status=`dpkg --status $pkg 2> /dev/null | grep "Status: install" | wc -l`;
        chomp $status;
        if($status eq "1") {
                print $pkg . "\n";
        }
}