From: minima <minima>
Date: Tue, 17 Sep 2002 21:40:37 +0000 (+0000)
Subject: added shu command
X-Git-Tag: R_1_50~4
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=0898cebe8363ff10687c5f1a858396967f5cb231

added shu command
---

diff --git a/Changes b/Changes
index 460ab7c2..00dc7030 100644
--- 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 e9cb882b..2592ef7c 100644
--- 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 a50bcf5e..9812a024 100644
--- 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 e9a32707..463a048d 100644
--- 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',