From 0565e35bbb112b94c89f693dcb74ac7efa9e424a Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Mon, 21 Dec 1998 11:01:38 +0000
Subject: [PATCH] added examples added data/issue to login clients

---
 examples/djk          |  7 +++++++
 examples/gb7djk       |  6 ++++++
 examples/gb7tlh       |  7 +++++++
 examples/hop_table.pl | 36 ++++++++++++++++++++++++++++++++++++
 perl/client.pl        | 26 +++++++++++++++++++++++---
 5 files changed, 79 insertions(+), 3 deletions(-)
 create mode 100644 examples/djk
 create mode 100644 examples/gb7djk
 create mode 100644 examples/gb7tlh
 create mode 100644 examples/hop_table.pl

diff --git a/examples/djk b/examples/djk
new file mode 100644
index 00000000..8e6a0cfb
--- /dev/null
+++ b/examples/djk
@@ -0,0 +1,7 @@
+timeout 15
+connect telnet dirk1
+'login' 'djk'
+'word' 'xxxxx'
+'\$ ' 'cd spider/perl'
+'\$ ' 'client.pl gb7djk-1 telnet'
+client gb7djk telnet
diff --git a/examples/gb7djk b/examples/gb7djk
new file mode 100644
index 00000000..e2e20cd0
--- /dev/null
+++ b/examples/gb7djk
@@ -0,0 +1,6 @@
+timeout 15
+# don't forget to chmod 4775 netrom_call!
+connect ax25 /usr/sbin/netrom_call bbs gb7djk-1 gb7djk-0
+'Connect' ''
+'Connect'
+client gb7djk ax25
diff --git a/examples/gb7tlh b/examples/gb7tlh
new file mode 100644
index 00000000..83046c6b
--- /dev/null
+++ b/examples/gb7tlh
@@ -0,0 +1,7 @@
+timeout 15
+# don't forget to chmod 4775 netrom_call!
+connect ax25 /usr/sbin/netrom_call bbs gb7djk g1tlh-0
+'Connect' ''
+'Connect' 'cluster'
+'Connect'
+client gb7tlh ax25
diff --git a/examples/hop_table.pl b/examples/hop_table.pl
new file mode 100644
index 00000000..7bb647ff
--- /dev/null
+++ b/examples/hop_table.pl
@@ -0,0 +1,36 @@
+# 
+# hop table construction
+# 
+
+package DXProt;
+
+# default hopcount to use
+$def_hopcount = 15;
+
+# some variable hop counts based on message type
+%hopcount = 
+(
+ 11 => 10,
+ 16 => 10,
+ 17 => 10,
+ 19 => 10,
+ 21 => 10,
+);
+
+#
+# the per node hop control thingy
+#
+
+%nodehops = 
+(
+ GB7DJK => {
+			16 => 23,
+			17 => 23,
+		   },
+ GB7TLH => {
+			19 => 99,
+			21 => 99,
+			16 => 99,
+			17 => 99,
+		   }
+);
diff --git a/perl/client.pl b/perl/client.pl
index cc185a17..8d2d683b 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -348,28 +348,48 @@ if ($loginreq) {
 	my $user;
 	my $s;
 
+	if (-e "$data/issue") {
+		open(I, "$data/issue") or die;
+		local $/ = undef;
+		$issue = <I>;
+		close(I);
+		$issue = s/\n/\r/og if $mode == 1;
+		local $/ = $nl;
+		$stdout->print($issue) if issue;
+	}
+	
+
 	DXUser->init($userfn);
 	
+	# allow a login from an existing user. I could create a user but
+	# I want to check for valid callsigns and I don't have the 
+	# necessary info / regular expression yet
 	for ($state = 0; $state < 2; ) {
 		alarm($timeout);
 		
 		if ($state == 0) {
 			$stdout->print('login: ');
 			$stdout->flush();
-			local $/ = $mode == 1 ? "\r" : "\n";
+			local $\ = $nl;
 			$s = $stdin->getline();
 			chomp $s;
+			$s =~ s/\s+//og;
+			$s =~ s/-\d+$//o;            # no ssids!
+			cease(0) unless $s gt ' ';
 			$call = uc $s;
 			$user = DXUser->get($call);
 			$state = 1;
 		} elsif ($state == 1) {
 			$stdout->print('password: ');
 			$stdout->flush();
-			local $/ = $mode == 1 ? "\r" : "\n";
+			local $\ = $nl;
 			$s = $stdin->getline();
 			chomp $s;
 			$state = 2;
-			cease(0) if !$user || ($user->passwd && $user->passwd ne $s);
+			if (!$user || ($user->passwd && $user->passwd ne $s)) {
+				$stdout->print("sorry...$nl");
+				cease(0);
+			}
 		}
 	}
 }
-- 
2.43.0