mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
55 lines
1.1 KiB
Perl
55 lines
1.1 KiB
Perl
#
|
|
# save the output of ANY command to a file
|
|
#
|
|
# From an idea by Rene OZ1LQH
|
|
#
|
|
# Copyright (c) 2002 Dirk Koopman G1TLH
|
|
#
|
|
#
|
|
#
|
|
|
|
my ($self, $line) = @_;
|
|
return (1, $self->msg('e5')) if $self->priv < 9 || $self->remotecmd || $self->inscript;
|
|
|
|
my ($date_req, $time_req);
|
|
my $app_req = '>';
|
|
if ($line =~ /-d/) { # add a date to the end of the filename
|
|
$line =~ s/\s*-d\s*//;
|
|
$date_req = 1;
|
|
}
|
|
if ($line =~ /-t/) { # add a time to the end of the filename
|
|
$line =~ s/\s*-t\s*//;
|
|
$time_req = 1;
|
|
}
|
|
if ($line =~ /-a/) { # append to the file
|
|
$line =~ s/\s*-a\s*//;
|
|
$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;
|
|
|
|
my @cmd;
|
|
if ($rest =~ /^\s*\"/) {
|
|
@cmd = split /\s*\"[\s,]?\"?/, $rest;
|
|
} else {
|
|
push @cmd, $rest;
|
|
}
|
|
open OF, "$app_req$fn" or return (1, $self->msg('e30', $fn));
|
|
for (@cmd) {
|
|
$self->{_nospawn} = 1;
|
|
print OF map {"$_\n"} $self->run_cmd($_);
|
|
delete $self->{_nospawn};
|
|
}
|
|
close OF;
|
|
return (1, $self->msg('ok'));
|
|
|
|
|