projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
got some basic local user add and subtract database going
[spider.git]
/
perl
/
DXProtout.pm
diff --git
a/perl/DXProtout.pm
b/perl/DXProtout.pm
index 66252c7aac3f441dfa67813e2ee264cdc10bf5dc..9fb0b7113b3da06728e592f38a490af021caae47 100644
(file)
--- a/
perl/DXProtout.pm
+++ b/
perl/DXProtout.pm
@@
-69,11
+69,11
@@
sub pc16
my $self = shift;
my @out;
my $self = shift;
my @out;
-
while
(@_) {
+
foreach
(@_) {
my $str = "PC16^$self->{call}";
my $i;
my $str = "PC16^$self->{call}";
my $i;
- for ($i = 0; @_ && $i < $DXProt::pc16_max_users; $i++) {
+ for ($i = 0; @_
> 0
&& $i < $DXProt::pc16_max_users; $i++) {
my $ref = shift;
$str .= sprintf "^%s %s %d", $ref->call, $ref->confmode ? '*' : '-', $ref->here;
}
my $ref = shift;
$str .= sprintf "^%s %s %d", $ref->call, $ref->confmode ? '*' : '-', $ref->here;
}
@@
-86,9
+86,9
@@
sub pc16
# remove a local user
sub pc17
{
# remove a local user
sub pc17
{
- my
$self = shift
;
+ my
($self, $ref) = @_
;
my $hops = get_hops(17);
my $hops = get_hops(17);
- return "PC17^$self->{call}^$
main::mycall
^$hops^";
+ return "PC17^$self->{call}^$
ref->{call}
^$hops^";
}
# Request init string
}
# Request init string