added inscript test to selected commands

[spider.git] / perl / DXChannel.pm

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 0f25a5dd3c90cadada415e94caffa0e93c0a68ff..ca3afd6f1277bcc617e5d4a4321d5d1d16f12f25 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -116,6 +116,7 @@ $count = 0;
                  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);