projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7432cb1
)
got some basic local user add and subtract database going
author
djk
<djk>
Sun, 20 Sep 1998 21:45:08 +0000
(21:45 +0000)
committer
djk
<djk>
Sun, 20 Sep 1998 21:45:08 +0000
(21:45 +0000)
perl/DXCommandmode.pm
patch
|
blob
|
history
perl/DXProtout.pm
patch
|
blob
|
history
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index d39af559e625f135b6c5e1a032a3f0883b4ccb74..18dbf2acd8130fd491f3a708fdc8028bcf73fbe3 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-67,8
+67,8
@@
sub start
# issue a pc16 to everybody interested
my $nchan = DXChannel->get($main::mycall);
# issue a pc16 to everybody interested
my $nchan = DXChannel->get($main::mycall);
- my
$pc16 = $nchan->pc16(
$cuser);
- DXProt::broadcast_ak1a(
$
pc16);
+ my
@pc16 = DXProt::pc16($nchan,
$cuser);
+ DXProt::broadcast_ak1a(
@
pc16);
}
#
}
#
@@
-153,7
+153,7
@@
sub finish
# issue a pc17 to everybody interested
my $nchan = DXChannel->get($main::mycall);
# issue a pc17 to everybody interested
my $nchan = DXChannel->get($main::mycall);
- my $pc17 = $nchan->pc17($
re
f);
+ my $pc17 = $nchan->pc17($
sel
f);
DXProt::broadcast_ak1a($pc17);
$ref->del() if $ref;
DXProt::broadcast_ak1a($pc17);
$ref->del() if $ref;
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