projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
try to make set/isolate more bombproof.
[spider.git]
/
cmd
/
show
/
configuration.pl
diff --git
a/cmd/show/configuration.pl
b/cmd/show/configuration.pl
index fe8acf9678c4027224ba65e7456570e97a31588f..09521cb6b7406e3d062994c90158243df744b857 100644
(file)
--- a/
cmd/show/configuration.pl
+++ b/
cmd/show/configuration.pl
@@
-20,7
+20,7
@@
if ($list[0] && $list[0] =~ /^NOD/) {
my $dxchan;
foreach $dxchan (@ch) {
my $dxchan;
foreach $dxchan (@ch) {
- @val = sort {$a->call cmp $b->call} grep { $_->dxchan == $dxchan } @nodes;
+ @val = sort {$a->call cmp $b->call} grep { $_->dxchan
&& $_->dxchan
== $dxchan } @nodes;
@l = ();
my $call = $dxchan->call;
$call ||= '???';
@l = ();
my $call = $dxchan->call;
$call ||= '???';
@@
-28,7
+28,7
@@
if ($list[0] && $list[0] =~ /^NOD/) {
push @l, $call;
foreach my $ref (@val) {
push @l, $call;
foreach my $ref (@val) {
- if (@l >=
5
) {
+ if (@l >=
6
) {
push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
@l = ();
push @l, "";
push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
@l = ();
push @l, "";
@@
-38,7
+38,7
@@
if ($list[0] && $list[0] =~ /^NOD/) {
$s = sprintf "(%s)", $s unless $ref->here;
push @l, $s;
}
$s = sprintf "(%s)", $s unless $ref->here;
push @l, $s;
}
- push @l, "" while @l <
5
;
+ push @l, "" while @l <
6
;
push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
}
} else {
push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
}
} else {
@@
-66,7
+66,7
@@
if ($list[0] && $list[0] =~ /^NOD/) {
push @l, sprintf "(%d users)", $node->usercount;
}
foreach $call (@val) {
push @l, sprintf "(%d users)", $node->usercount;
}
foreach $call (@val) {
- if (@l >=
5
) {
+ if (@l >=
6
) {
push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
@l = ();
push @l, "";
push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
@l = ();
push @l, "";
@@
-80,7
+80,7
@@
if ($list[0] && $list[0] =~ /^NOD/) {
}
push @l, $s;
}
}
push @l, $s;
}
- push @l, "" while @l <
5
;
+ push @l, "" while @l <
6
;
push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
}
}
push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
}
}