added shu command

diff --git a/Changes b/Changes
index 460ab7c2921a6e16f283b12a4c9acf1378242496..00dc7030fb499b7081d2b08a301a81ed15c1c248 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,9 @@
+17Sep02=======================================================================
+1. Added shu command for Charlie's (K1XX) benefit (together with the rest of
+our butterfingered sysops) who miss the '/' out of sh/u frequently enough 
+to curse. 'shu' simply types out a message saying 'type SHUT' to shutdown the
+node. Added 'shu' to /spider/perl/Messages. No need to restart, just 
+load/mess after doing a CVS.
 21Aug02=======================================================================
 1. added 'warc' and 'contesthf' to the regions in bands.pl (K1XX).
 20Aug02=======================================================================

diff --git a/cmd/Aliases b/cmd/Aliases
index e9cb882b994b32fb8387e6ea890d86ae565bd560..2592ef7c3a7be779e3adafeebb8353f4a8bc533e 100644 (file)
--- a/cmd/Aliases
+++ b/cmd/Aliases
@@ -129,7 +129,7 @@ package CmdAlias;
          '^sho?w?/ww?v?/(\d+)-(\d+)', 'show/wwv $1-$2', 'show/wwv',
          '^sho?w?/ww?v?/(\d+)', 'show/wwv $1', 'show/wwv',
        '^sho?w?$', 'apropos show', 'apropos',
-       '^shut?d?\w*$', 'shutdown', 'shutdown',
+       '^shutd?\w*$', 'shutdown', 'shutdown',
          '^sp$', 'send', 'send',
        '^sta?t?$', 'apropos stat', 'apropos',
        

diff --git a/perl/Console.pm b/perl/Console.pm
index a50bcf5e807e06a8375c4a4f6eecc733bb9370d1..9812a024442b21cc7b5fc934bbdd2c2694988fce 100644 (file)
--- a/perl/Console.pm
+++ b/perl/Console.pm
@@ -34,7 +34,7 @@ package main;
 $maxkhist = 100;
 $maxshist = 500;
 if ($ENV{'TERM'} =~ /(xterm|ansi)/) {
-       $ENV{'TERM'} = 'color_xterm';
+#      $ENV{'TERM'} = 'color_xterm';
        $foreground = COLOR_BLACK();
        $background = COLOR_WHITE();
        $mycallcolor = COLOR_PAIR(1);

diff --git a/perl/Messages b/perl/Messages
index e9a32707a4c10f64aeffbdca97c6bf22a02b52a3..463a048dbc94152212a5def005599ecd7fd2156c 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+# -*- perl -*-
 # 
 # this file contains the system messages. Don't forget to reload them
 # if you change them (load/messages)
@@ -246,6 +246,7 @@ package DXM;
                                sethop1 => 'usage: set/hops <call> ann|spots|wwv|wcy <no of hops>',
                                sethop2 => '$_[0] hops set on $_[1]$_[2] for $_[3]', 
                                sethop3 => 'No hops set for $_[0]', 
+                               shu => '\"SHU\" is not enough! you need to type at least \"SHUT\" to shutdown the node',
                                shutting => '$main::mycall shutting down...',
                                sloc => 'Cluster lat $_[0] long $_[1], DON\'T FORGET TO CHANGE YOUR DXVars.pm',
                                snode1 => 'Node Call   Sort    Version',