Remove deprecated / old files

[grml-live.git] / old / rewrite / clean_dpkg_status

diff --git a/old/rewrite/clean_dpkg_status b/old/rewrite/clean_dpkg_status
deleted file mode 100644 (file)
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";
-    }
-}