From 2a81e9270edfe5328cf097428ef87f3a61fa092c Mon Sep 17 00:00:00 2001
From: faust64 <faust64@gmail.com>
Date: Sun, 31 May 2015 03:26:13 +0200
Subject: [PATCH] actually list debian packages

---
 bin/pakiti-client | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/bin/pakiti-client b/bin/pakiti-client
index 82767ce2..5b734b54 100755
--- a/bin/pakiti-client
+++ b/bin/pakiti-client
@@ -236,8 +236,14 @@ sub find_packages ($) {
     # Debian packages
     if ($Option{"dpkg-query"}) {
         $data->{packager} = "dpkg";
-        $data->{packages} = "";
-        die("NYI");
+        $format = '\${Status}|\'\${Package}\'\t\'\${Version}\' \'\'\t\'\${Architecture}\'\n';
+        foreach my $line (qx($Option{"dpkg-query"} -W --showformat="$format" 2>&1)) {
+            if ($line =~ /^install ok installed/) {
+                $line =~ s{^[^|]*.}{}g;
+                push(@list, $line);
+            }
+        $data->{packages} = join("", sort(@list));
+        return;
     }
     # unknown!
     die("$Script: unknown package manager\n");