added inscript test to selected commands

[spider.git] / perl / DXChannel.pm

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 1994846b20894092ffd6f81a56c25057fe5f6169..ca3afd6f1277bcc617e5d4a4321d5d1d16f12f25 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -115,6 +115,8 @@ $count = 0;
                  verified => '9,Verified?,yesno',
                  newroute => '1,New Style Routing,yesno',
                  ve7cc => '0,VE7CC program special,yesno',
+                 lastmsgpoll => '0,Last Msg Poll,atime',
+                 inscript => '9,In a script,yesno',
                 );
 
 use vars qw($VERSION $BRANCH);