various DXCluster->get alterations

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b8b9b892d47397d42937608114e6b8a0965c6f71..ed5e417150724e9c1bb91ce75efeee1a4de2cba8 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -295,7 +295,11 @@ sub normal
                }
                
                if ($pcno == 22) {
-                       last SWITCH;
+                       $self->state('normal');
+                       
+                       # queue mail
+                       DXMsg::queue_msg();
+                       return;
                }
                
                if ($pcno == 23 || $pcno == 27) { # WWV info