add more routing code together with associated commands

[spider.git] / perl / DXProtout.pm

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 42c995510c2c265d6bf8aa52b0bbc91a4e5945a0..1ebb29bc8ceb7d356c7ac2d7309c2d4ad16d6a7b 100644 (file)
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -80,7 +80,7 @@ sub pc16
 
        for ($i = 0; @_; ) {
                my $str = "PC16^$self->{call}";
-               for ( ; @_ && $i < $DXProt::pc16_max_users; $i++) {
+               for ( ; @_ && length $str < 200; $i++) {
                        my $ref = shift;
                        $str .= sprintf "^%s %s %d", $ref->call, $ref->confmode ? '*' : '-', $ref->here;
                }
@@ -117,7 +117,7 @@ sub pc19
 
        for ($i = 0; @_; ) {
                my $str = "PC19";
-               for (; @_ && $i < $DXProt::pc19_max_nodes; $i++) {
+               for (; @_ && length $str < 200; $i++) {
                        my $ref = shift;
                        my $here = $ref->{here} ? '1' : '0';
                        my $confmode = $ref->{confmode} ? '1' : '0';