]> dxcluster.net Git - spider.git/commitdiff
*** empty log message ***
authorminima <minima>
Wed, 12 Mar 2003 23:51:16 +0000 (23:51 +0000)
committerminima <minima>
Wed, 12 Mar 2003 23:51:16 +0000 (23:51 +0000)
cmd/dbshow.pl
cmd/mrtg.pl

index 1835ed396afe3469306b209c387acc376645483c..8d393b98985f2e783245816fa61b88371bf937da 100644 (file)
@@ -35,7 +35,7 @@ foreach  $n (@db) {
                        my $n = DXDb::newstream($self->call);
                        DXProt::route(undef, $db->remote, DXProt::pc44($main::mycall, $db->remote, $n, uc $db->name,uc $_, $self->call));
                }
                        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
        } else {
 
                # local databases can chain to remote ones
@@ -55,7 +55,7 @@ foreach  $n (@db) {
                }
                if ($count) {
                        push @out, $db->print('post');
                }
                if ($count) {
                        push @out, $db->print('post');
-                       last;
+#                      last;
                }
        }
 }
                }
        }
 }
index 0cb0f501ed90b3bf8fbf3fd5ebb8ce180e53c863..2542edf5a3f0114c8977e09229222d97e4723416 100644 (file)
@@ -71,6 +71,7 @@ if (!$main::is_win && ($want{proc} || $want{all})) {
                        my $l = $_;
 #                      dbg($l);
                        next unless $l =~ m{cluster\.pl$};
                        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];
                        my @f = split /\s+/, $l;
 #                      dbg("$f[9]");
                        my ($m, $s) = split /:/, $f[9];