added swop file

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 710a3dbf84129a4b0405fc92597c8ff2cd7e2161..61e72661270c41c552c61ae54027accb7879b890 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -657,7 +657,7 @@ sub normal
                }
                
                if ($pcno == 39) {              # incoming disconnect
-                       $self->disconnect();
+                       $self->disconnect(1);
                        return;
                }
                
@@ -776,7 +776,7 @@ sub process
                
                # send a pc50 out on this channel
                if ($t >= $dxchan->pc50_t + $DXProt::pc50_interval) {
-                       $dxchan->send(pc50());
+                       $dxchan->send(pc50(scalar DXChannel::get_all_users));
                        $dxchan->pc50_t($t);
                }