projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
d31e215
)
fix count of callsigns
author
minima
<minima>
Mon, 24 Feb 2003 23:26:42 +0000
(23:26 +0000)
committer
minima
<minima>
Mon, 24 Feb 2003 23:26:42 +0000
(23:26 +0000)
Changes
patch
|
blob
|
history
cmd/show/users.pl
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 9d53e2405904f4c248c37b15c777beb6ee606494..23fd85294059d5dde46d98dbabe123fb616c503e 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,6
+1,7
@@
24Feb03=======================================================================
1. add the 'run' command and the 'privilege' command to allow sysops to
create scripts for people.
24Feb03=======================================================================
1. add the 'run' command and the 'privilege' command to allow sysops to
create scripts for people.
+2. fix show/user so that it doesn't moan about uninitialised variables
23Feb03=======================================================================
1. Added show/wm7d command (a US only callbook server) [by K1XX].
2. Added a prototype show/db0sdx command (w.i.p).
23Feb03=======================================================================
1. Added show/wm7d command (a US only callbook server) [by K1XX].
2. Added a prototype show/db0sdx command (w.i.p).
diff --git
a/cmd/show/users.pl
b/cmd/show/users.pl
index f1aa6ca6926aa75ba2efad105fc421c81c2d047f..7d5496a9d4592591cc679235cea2f94439ecb49a 100644
(file)
--- a/
cmd/show/users.pl
+++ b/
cmd/show/users.pl
@@
-35,7
+35,7
@@
if (@list) {
my @val = sort $node->users;
foreach $call (@val) {
if ($i >= 5) {
my @val = sort $node->users;
foreach $call (@val) {
if ($i >= 5) {
- push @out, sprintf "%-12s %-12s %-12s %-12s %-12s
%-12s
", @l;
+ push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
@l = ();
$i = 0;
}
@l = ();
$i = 0;
}
@@
-50,7
+50,7
@@
if (@list) {
$i++;
}
push @l, "" while $i++ < 5;
$i++;
}
push @l, "" while $i++ < 5;
- push @out, sprintf "%-12s %-12s %-12s %-12s %-12s
%-12s
", @l;
+ push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
}
return (1, @out);
}
return (1, @out);