1. Started Changes file

2. Added load/cmd_cache.pl to clear cmd cache shortcuts (use this if cluster.pl
get confused about where it is getting its commands from eg if you have
removed a file from local_cmd 'cos you want to go back to standard one)
3. Fixed bull handling at least to the extent that it stores them and
doesn't mess up the normal directory handling.
4. Fixed the unset/debug command so that it actually does the job!
5. Removed the middle line 'written in perl for unix' from show/version.pl

diff --git a/cmd/Aliases b/cmd/Aliases
index bd4f0cabee1fbe8421d10670da18219298901afd..4136e53c1693aea00b28a38edaaddfd611bce0e0 100644 (file)
--- a/cmd/Aliases
+++ b/cmd/Aliases
@@ -71,8 +71,9 @@ package CmdAlias;
        q => [
          '^q', 'bye', 'bye',
        ],
-       r => [
+       r => [  
          '^r$', 'read', 'read',
+         '^rcmd/(\S+)', 'rcmd $1', 'rcmd',
        ],
        s => [
          '^set/nobe', 'unset/beep', 'unset/beep',

diff --git a/cmd/load/cmd_cache.pl b/cmd/load/cmd_cache.pl
new file mode 100644 (file)
index 0000000..67507db
--- /dev/null
+++ b/cmd/load/cmd_cache.pl
@@ -0,0 +1,15 @@
+#
+# reset/reload the short name command cache
+#
+# you may need to do this if you remove files or the system
+# gets confused about where it should be loading its cmd files
+# from.
+#
+# Copyright (c) 1998 - Dirk Koopman G1TLH
+#
+# $Id$
+#
+my $self = shift;
+return (1, $self->msg('e5')) if $self->priv < 9;
+DXCommandmode::clear_cmd_cache();
+return (1, $self->msg('ok'));

diff --git a/cmd/show/version.pl b/cmd/show/version.pl
index 2bf3a7fe560d28c50aede799da0aa9240b0d95c1..f6184a09f5b78d20495844295426e8b65db76918 100644 (file)
--- a/cmd/show/version.pl
+++ b/cmd/show/version.pl
@@ -9,7 +9,6 @@
 my @out;
 
 push @out, "DX Spider Cluster version $main::version";
-push @out, "written in perl for unix";
 push @out, "Copyright (c) 1998 Dirk Koopman G1TLH";
 
 return (1, @out);

diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index 96cc0ec256e6c9429071946518a01eee8c5de552..530f3b21a532b7305767fcbe46f1081c57475d72 100644 (file)
--- a/perl/DXDebug.pm
+++ b/perl/DXDebug.pm
@@ -25,8 +25,6 @@ use Carp;
 %dbglevel = ();
 $fp = DXLog::new('debug', 'dat', 'd');
 
-no strict 'refs';
-
 sub dbg
 {
        my $l = shift;
@@ -55,7 +53,7 @@ sub dbgsub
        my $entry;
        
        foreach $entry (@_) {
-               delete $dbglevel{entry};
+               delete $dbglevel{$entry};
        }
 }
 

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index fff39d1256894e6a1765249f0ac157d85fa65b0a..54cfc516b2173a2ea850ff3b585d4976df25eaaf 100644 (file)
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -98,7 +98,7 @@ sub print_item
        } elsif ($ref[1] eq 'talk') {
                $s = "$ref[3] -> $ref[2] ($ref[4]) $ref[5]";
        } elsif ($ref[1] eq 'ann') {
-               $s = "$ref[2] -> $ref[3] $ref[4]";
+               $s = "$ref[3] -> $ref[2] $ref[4]";
        } else {
                $s = "$ref[2]";
        }