use FileHandle;
use Getopt::Long;
+use Text::ParseWords;
use Carp;
use POSIX;
die "$0: error in opening `$amadmin $opt_config find' pipe: $!\n";
<$fh>;
while (<$fh>) {
+print "'$_'\n";
chomp;
next if /found Amanda directory/;
next if /skipping cruft directory/;
next if /skip-incr/;
- ($date, $host, $disk, $level, $tape, $file, $part, $status) = split ' ', $_;
+ ($date, $host, $disk, $level, $tape, $file, $part, $status) = quotewords(" ", 0, $_);
next if $date eq 'date';
next if $date eq 'Warning:';
next if $date eq 'Scanning';