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 98822b0963ff8ac1aecf205ecfedbec8e96e6a5e..81d3a169467b9e94a1f95977eba39d6a02db6ce3 100644 (file)
--- 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 dd7602ac9e18875551dab1f9432b911242838cb9..159f0b7d5f3c83893b58779b56a90d60b2d210a1 100644 (file)
--- 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 (file)
index 0000000..7107f2d
--- /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 96c135376495fbbb0747f64b7ee996ae4657bfdb..c2cab9f9bb619dc02ed6831ae9a1401b85f006af 100644 (file)
--- 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 30fd979073680473a33fa010e893ba7dee337a60..b8b17ae612065b2080eb8c44f7c34cc20120c81c 100644 (file)
--- 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;
 }