#
# save the output of ANY command to a file
#
+# From an idea by Rene OZ1LQH
+#
# Copyright (c) 2002 Dirk Koopman G1TLH
#
# $Id$
#
my ($self, $line) = @_;
-return (1, $self->msg('e5')) if $self->priv < 9 || $self->remotecmd;
+return (1, $self->msg('e5')) if $self->priv < 9 || $self->remotecmd || $self->inscript;
my ($date_req, $time_req);
my $app_req = '>';
$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 =~ s|/+|/|g;
$fn .= '_' . cldate if $date_req;
$fn .= '_' . ztime if $time_req;