From 4647d4d8a9a97117b29c7b3a0477de2e76c01194 Mon Sep 17 00:00:00 2001 From: djk Date: Sun, 24 Jan 1999 15:36:04 +0000 Subject: [PATCH] preparing for 1.23 release --- cmd/Aliases | 1 + html/connect.html | 33 +++++++++++++++++++++++++++++---- html/cron.html | 24 ++++++++++++++++++++++-- perl/DXMsg.pm | 3 ++- 4 files changed, 54 insertions(+), 7 deletions(-) diff --git a/cmd/Aliases b/cmd/Aliases index 2d8c21a7..a34c6da5 100644 --- a/cmd/Aliases +++ b/cmd/Aliases @@ -98,6 +98,7 @@ package CmdAlias; '^sh.*/wwv/(\d+)', 'show/wwv $1', 'show/wwv', ], 't' => [ + '^t', 'talk', 'talk', ], 'u' => [ ], diff --git a/html/connect.html b/html/connect.html index 902af164..f4f6308a 100644 --- a/html/connect.html +++ b/html/connect.html @@ -19,7 +19,7 @@

-Last modified: Sun Dec 20 17:04:05 GMT 1998 +Last modified: Fri Jan 8 14:27:18 GMT 1999

At the moment, anybody can connect inwards at any time from outside, either by ax25 or by telnet (assuming you have followed the instructions in installation @@ -28,16 +28,40 @@ Last modified: Sun Dec 20 17:04:05 GMT 1998

Connect scripts live in the /spider/connect directory and are simple ascii scripts that are written using a normal editor. There are a couple of examples in the issue directory. -

Here are a couple of basic types, first a telnet connection:- +

Here are a few of basic types, first a telnet connection where the + client is set up in the passwd file thus:- + 

+    gb7djk:x:1372:1291::/home/gb7djk:/usr/bin/perl /spider/perl/client.pl gb7djk telnet
+
+ and the connect script would be:- 
     timeout 15
     # this is a comment
     connect telnet dirkl.tobit.co.uk
     'login' 'gb7djk'
     'word' 'gb7djk'
-    client gb7djk-1 telnet
+    client gb7djk telnet
+
+

For a connect that requires a login and execution of the programs + from a normal shell, do:- + + 

+    timeout 15
+    connect telnet dirkl.tobit.co.uk
+    'login' 'gb7djk'
+    'word' 'gb7djk'
+    '\$' 'cd /spider/perl'
+    # set the line to prevent echoing, leaving this out will
+    # confuse whole networks for hours!
+    '\$' 'stty -echo raw'
+    # tell GB7DJK that you are GB7DJK-1
+    '\$' 'client.pl gb7djk-1 telnet'
+    # tell GB7DJK-1 that it is connected to GB7DJK
+    # you can leave this out if you call this script 'gb7djk'
+    client gb7djk telnet
-

and an ax25 example:- + +

and finally an ax25 example:- 

     timeout 60
     abort (Busy|Sorry|Fail)
@@ -47,6 +71,7 @@ Last modified: Sun Dec 20 17:04:05 GMT 1998
     'Connect' 'c np7'
     'Connect' 'c gb7dxm'
     'Connect' ''
+    # you can leave this out if you call the script 'gb7dxm'
     client gb7dxm ax25
diff --git a/html/cron.html b/html/cron.html index 596e72e5..c61600bb 100644 --- a/html/cron.html +++ b/html/cron.html @@ -21,7 +21,7 @@

-Last modified: Mon Dec 28 23:19:21 GMT 1998 +Last modified: Sun Jan 24 15:30:56 GMT 1999

Introduction

@@ -106,10 +106,17 @@ Last modified: Mon Dec 28 23:19:21 GMT 1998 # the values for mycall and version 15,30 * * * spawn("echo $main::mycall is a DXSpider Version $main::version DX Cluster system") + + # then there is always the highly contentious one like this little jem which + # checks every hour to see if a certain callsign is connected to another cluster + # and silently disconnects him. This is an example only (of course...) + + 23 * * * * rcmd('rcmd/gb7dxm disc/noinform G9TLH') if present_on('G9TLH', 'GB7DXM') + It is important remember that these crontab routines execute in line with the main - cluster code, so if you create a long, slow crontab commands, it will impact on the speed + cluster code, so if you create a long, slow crontab command, it will impact on the speed and usability of the cluster as a whole.

Standard Routines

@@ -129,6 +136,19 @@ Last modified: Mon Dec 28 23:19:21 GMT 1998 execute just about any command you like, but be warned stdin and stdout are still connected to the same terminal (if any) as the cluster daemon. Any unix command and arguments can used, see exec in the perl documentation. +

  • disconnect(<callsign>) - disconnects a locally connected station from your node. +

  • rcmd(<node-call>, <command>) - send a command to another node in exactly the + same way as, for example, RCMD/GB7TLH disc GB7DJK typed on a sysop console. +

  • present(<exact-callsign>) and presentish(<callsign-no-ssid>) - returns + true if the + callsign is connected anywhere on the cluster either with the exact callsign or with the callsign + minus its ssid respectively. +

  • present_on(<exact-callsign>, <node>) and presentish_on(<callsign-no-ssid>, <node>) - returns + true if the + callsign is connected on the node specified either with the exact callsign or with the callsign + minus its ssid respectively. +

  • last_connect(<callsign>) - Returns the last connect time of the callsign or the + current time if it is currently connected locally.

    Caveats

    diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index 45f3afb9..8dcb0992 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -626,7 +626,8 @@ sub init opendir($dir, $msgdir) or confess "can't open $msgdir $!"; @dir = readdir($dir); closedir($dir); - + + @msg = (); for (sort @dir) { next if /^\./o; next if ! /^m\d+/o; -- 2.34.1