my $n = DXDb::newstream($self->call);
DXProt::route(undef, $db->remote, DXProt::pc44($main::mycall, $db->remote, $n, uc $db->name,uc $_, $self->call));
}
- last;
+# last;
} else {
# local databases can chain to remote ones
}
if ($count) {
push @out, $db->print('post');
- last;
+# last;
}
}
}
my $l = $_;
# dbg($l);
next unless $l =~ m{cluster\.pl$};
+ next if $l =~ m{bash\s+\-c};
my @f = split /\s+/, $l;
# dbg("$f[9]");
my ($m, $s) = split /:/, $f[9];