projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
get enhanced mode "work" in basic console.pl
[spider.git]
/
perl
/
DXCron.pm
diff --git
a/perl/DXCron.pm
b/perl/DXCron.pm
index c31e46f51d9a4ea47fdc4c885e03ead835ce4d47..b908af3c6751a1791ac6cf6d2785b13aaba035f2 100644
(file)
--- a/
perl/DXCron.pm
+++ b/
perl/DXCron.pm
@@
-159,7
+159,7
@@
sub process
if ($cron->{cmd}) {
dbg("cron: $min $hour $mday $mon $wday -> doing '$cron->{cmd}'") if isdbg('cron');
if ($cron->{cmd}) {
dbg("cron: $min $hour $mday $mon $wday -> doing '$cron->{cmd}'") if isdbg('cron');
- eval
"$cron->{cmd}"
;
+ eval
$cron->{cmd}
;
dbg("cron: cmd error $@") if $@ && isdbg('cron');
}
}
dbg("cron: cmd error $@") if $@ && isdbg('cron');
}
}
@@
-288,14
+288,15
@@
sub spawn_cmd
my $fc = DXSubprocess->new();
$fc->run(
sub {
my $fc = DXSubprocess->new();
$fc->run(
sub {
-
$main::me->{_nospawn} = 1
;
+
++$main::me->{_nospawn}
;
my @res = $main::me->run_cmd($line);
my @res = $main::me->run_cmd($line);
- delete $main::me->{_nospawn};
# diffms("DXCron spawn_cmd 1", $line, $t0, scalar @res) if isdbg('chan');
return @res;
},
sub {
my ($fc, $err, @res) = @_;
# diffms("DXCron spawn_cmd 1", $line, $t0, scalar @res) if isdbg('chan');
return @res;
},
sub {
my ($fc, $err, @res) = @_;
+ --$main::me->{_nospawn};
+ delete $main::me->{_nospawn} if exists $main::me->{_nospawn} && $main::me->{_nospawn} <= 0;
if ($err) {
my $s = "DXCron::spawn_cmd: error $err";
dbg($s);
if ($err) {
my $s = "DXCron::spawn_cmd: error $err";
dbg($s);
@@
-326,10
+327,10
@@
sub rcmd
sub run_cmd
{
my $line = shift;
sub run_cmd
{
my $line = shift;
- my @in = $main::me->run_cmd($line);
dbg("DXCron::run_cmd: $line") if isdbg('cron');
dbg("DXCron::run_cmd: $line") if isdbg('cron');
+ my @in = $main::me->run_cmd($line);
for (@in) {
for (@in) {
- s/\s*$//
og
;
+ s/\s*$//;
dbg("DXCron::cmd out: $_") if isdbg('cron');
}
}
dbg("DXCron::cmd out: $_") if isdbg('cron');
}
}