X-Git-Url: https://git.grml.org/?a=blobdiff_plain;f=old%2Frewrite%2Fclean_dpkg_status;fp=old%2Frewrite%2Fclean_dpkg_status;h=50a4ef8c14ec112c7d5e6f80ea36845126321f8f;hb=1a06f3f65adef0fdd432aad11f479020630778a5;hp=0000000000000000000000000000000000000000;hpb=3ce5c1d60539aa8d2a01a810aa92325f8c513696;p=grml-live.git

diff --git a/old/rewrite/clean_dpkg_status b/old/rewrite/clean_dpkg_status
new file mode 100644
index 0000000..50a4ef8
--- /dev/null
+++ b/old/rewrite/clean_dpkg_status
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+my $filename='/var/lib/dpkg/status';
+
+open FILE, $filename or
+die "Failed to open $filename\n";
+
+while (my $line=<FILE>) {
+
+    chomp($line);
+    my @section=();
+
+    while ($line ne "") {
+        push(@section,$line);
+        $line=<FILE>;
+        chomp($line);
+    }
+
+    if ($section[1] ne 'Status: purge ok not-installed') {
+
+        foreach (@section) {
+            $_ = $_ . "\n";
+            print;
+        }
+
+        print"\n";
+    }
+}