From: minima <minima>
Date: Fri, 14 Sep 2001 22:44:54 +0000 (+0000)
Subject: 6. Make the scripts look for user and node_default files if there isn't a
X-Git-Tag: R_1_48~7
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=1cc51a6696899a05d1b9ca40dab497cfdc39294b;p=spider.git

6. Make the scripts look for user and node_default files if there isn't a
more specific one.
7. add the blank command which prints nn blank lines (default 1)
---

diff --git a/Changes b/Changes
index 98822b09..81d3a169 100644
--- a/Changes
+++ b/Changes
@@ -14,6 +14,9 @@ will not be allowed to login anymore.
 4. Fiddle with the lockout mechanism so that set/login g1tlh also locks out
 g1tlh-1 -> g1tlh-15 UNLESS one of these is specifically unlocked.
 5. Make sh/log only show stuff that sh/ann, sh/talk, sh/rcmd doesn't.
+6. Make the scripts look for user and node_default files if there isn't a 
+more specific one.
+7. add the blank command which prints nn blank lines (default 1)
 13Sep01=======================================================================
 1. did some work on making talk more intelligent and fixed a>b problem.
 2. fixed a nasty problem on input when being hit with full buffers of 
diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index dd7602ac..159f0b7d 100644
--- a/cmd/Commands_en.hlp
+++ b/cmd/Commands_en.hlp
@@ -207,6 +207,8 @@ This will send your announcement cluster wide
 Search the help database for <string> (it isn't case sensitive), and print
 the names of all the commands that may be relevant.
 
+=== 0^BLANK <nn>^Print nn (default 1) blank lines
+
 === 0^BYE^Exit from the cluster
 This will disconnect you from the cluster
 
diff --git a/cmd/blank.pl b/cmd/blank.pl
new file mode 100644
index 00000000..7107f2dd
--- /dev/null
+++ b/cmd/blank.pl
@@ -0,0 +1,14 @@
+#
+# Print n blank lines
+#
+# Copyright (c) 1998 Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+my ($self, $line) = @_;
+my ($lines) = $line =~ /^\s*(\d+)/;
+$lines ||= 1;
+my @out;
+push @out, ' ' for (1..$lines);
+return (1, @out);
diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 96c13537..c2cab9f9 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -147,7 +147,7 @@ sub start
 	}
 
 	# run a script send the output to the punter
-	my $script = new Script(lc $call);
+	my $script = new Script(lc $call) || new Script('user_default');
 	$script->run($self) if $script;
 }
 
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 30fd9790..b8b17ae6 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -275,7 +275,7 @@ sub start
 	$self->tell_login('loginn');
 
 	# run a script send the output to the debug file
-	my $script = new Script(lc $call);
+	my $script = new Script(lc $call) || new Script('node_default');
 	$script->run($self) if $script;
 }