added inscript test to selected commands

[spider.git] / perl / DXChannel.pm

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index d0c995d9756c3bd582e3ed2c9db8766f6b38d5a0..ca3afd6f1277bcc617e5d4a4321d5d1d16f12f25 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -114,6 +114,9 @@ $count = 0;
                  build => '1,Node Build',
                  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);