#
# save the output of ANY command to a file
#
+# From an idea by Rene OZ1LQH
+#
# Copyright (c) 2002 Dirk Koopman G1TLH
#
# $Id$
$app_req = '>>';
}
+#$DB::single = 1;
+
my ($fn, $rest) = split /\s+/, $line, 2;
+$fn = "$main::root/packclus/$fn" unless $fn =~ m|^/|;
+$fn =~ s/\.\.//g;
+$fn =~ s|/+|/|g;
$fn .= '_' . cldate if $date_req;
$fn .= '_' . ztime if $time_req;
$fn =~ s/\s+//g;