#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# Version: 1.0
# fixes corrupted (0x00-padded) Debian .list files
# I had those presumably because of reiserfsck 
# 

die "Usage: $0 filename\n"       unless($ARGV[0]);

foreach $file_name (@ARGV) {
    $temp_file="/tmp/$file_name";
    open(IN_FILE,"<$file_name") || die "Cannot open $file_name for input\n";
    open(TEMP,">$temp_file");
    while(<IN_FILE>){
	$_ =~ s/\000+//g;
# And in case you've put too many newlines onto the end of the file:
#	$_ =~ s/^\n//g;
        print TEMP ($_);
    }
    close IN;
    close TEMP;
    system ("mv $temp_file $file_name");
}