X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=30b1b27899a773acd6c12930719acf8e6377d73c;hb=e4a83830dc7e9f06779967a5cb8b837a39872c70;hp=a28be5ff0f5f7e9088416f06db65a3171bdf2d57;hpb=2af6cce23d91c175f9fe9a5b4f7af6f8cfd43440;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index a28be5ff..30b1b278 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -437,8 +437,6 @@ sub normal $user->put; } - # queue up any messages - DXMsg::queue_msg(0) if $self->state eq 'normal'; return if $newline eq "PC19^"; # add hop count @@ -451,10 +449,6 @@ sub normal $self->send_local_config(); $self->send(pc22()); $self->state('normal'); - - # queue mail - DXMsg::queue_msg(0); - return; } @@ -483,12 +477,9 @@ sub normal if ($pcno == 22) { $self->state('normal'); - - # queue mail - DXMsg::queue_msg(0); return; } - + if ($pcno == 23 || $pcno == 27) { # WWV info # route 'foreign' pc27s