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

diff --git a/old/rewrite/clean_dpkg_status b/old/rewrite/clean_dpkg_status
deleted file mode 100644
index 50a4ef8..0000000
--- a/old/rewrite/clean_dpkg_status
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/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";
-    }
-}