summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
4cc6709)
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
q => [
'^q', 'bye', 'bye',
],
q => [
'^q', 'bye', 'bye',
],
+ '^rcmd/(\S+)', 'rcmd $1', 'rcmd',
],
s => [
'^set/nobe', 'unset/beep', 'unset/beep',
],
s => [
'^set/nobe', 'unset/beep', 'unset/beep',
--- /dev/null
+#
+# 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'));
my @out;
push @out, "DX Spider Cluster version $main::version";
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);
push @out, "Copyright (c) 1998 Dirk Koopman G1TLH";
return (1, @out);
%dbglevel = ();
$fp = DXLog::new('debug', 'dat', 'd');
%dbglevel = ();
$fp = DXLog::new('debug', 'dat', 'd');
my $entry;
foreach $entry (@_) {
my $entry;
foreach $entry (@_) {
- delete $dbglevel{entry};
+ delete $dbglevel{$entry};
} elsif ($ref[1] eq 'talk') {
$s = "$ref[3] -> $ref[2] ($ref[4]) $ref[5]";
} elsif ($ref[1] eq 'ann') {
} 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]";
}
} else {
$s = "$ref[2]";
}