From b0f75ae15722922dc8f341a2de79106326ff7575 Mon Sep 17 00:00:00 2001 From: djk Date: Fri, 4 Dec 1998 16:16:27 +0000 Subject: [PATCH] 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 --- cmd/Aliases | 3 ++- cmd/load/cmd_cache.pl | 15 +++++++++++++++ cmd/show/version.pl | 1 - perl/DXDebug.pm | 4 +--- perl/DXLogPrint.pm | 2 +- 5 files changed, 19 insertions(+), 6 deletions(-) create mode 100644 cmd/load/cmd_cache.pl diff --git a/cmd/Aliases b/cmd/Aliases index bd4f0cab..4136e53c 100644 --- 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 index 00000000..67507dbd --- /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 2bf3a7fe..f6184a09 100644 --- 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 96cc0ec2..530f3b21 100644 --- 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 fff39d12..54cfc516 100644 --- 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]"; } -- 2.43.0