From d7a259b56406b17ce5179aac85a3b1f07664147d Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 7 Jun 2001 10:42:23 +0000
Subject: [PATCH] move userconfig and nodeconfig to stat fix robs with
 localusers not being taken out of the routing tables

---
 cmd/Aliases                      | 1 +
 cmd/{show => stat}/nodeconfig.pl | 0
 cmd/{show => stat}/userconfig.pl | 0
 perl/DXCommandmode.pm            | 7 ++-----
 perl/Route.pm                    | 5 +++++
 5 files changed, 8 insertions(+), 5 deletions(-)
 rename cmd/{show => stat}/nodeconfig.pl (100%)
 rename cmd/{show => stat}/userconfig.pl (100%)

diff --git a/cmd/Aliases b/cmd/Aliases
index 28995ee3..f6b8408a 100644
--- a/cmd/Aliases
+++ b/cmd/Aliases
@@ -97,6 +97,7 @@ package CmdAlias;
 	  '^set/noww', 'unset/wwv', 'unset/wwv',
 	  '^set/nowx', 'unset/wx', 'unset/wx',
 	  '^sh$', 'show', 'show',
+	  '^sh\w*/u$', 'show/user', 'show/user',
 	  '^sh\w*/bu', 'show/files bulletins', 'show/files',
 	  '^sh\w*/c/n', 'show/configuration nodes', 'show/configuration',
 	  '^sh\w*/c$', 'show/configuration', 'show/configuration',
diff --git a/cmd/show/nodeconfig.pl b/cmd/stat/nodeconfig.pl
similarity index 100%
rename from cmd/show/nodeconfig.pl
rename to cmd/stat/nodeconfig.pl
diff --git a/cmd/show/userconfig.pl b/cmd/stat/userconfig.pl
similarity index 100%
rename from cmd/show/userconfig.pl
rename to cmd/stat/userconfig.pl
diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 0f80232a..fc43a4e1 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -416,11 +416,8 @@ sub disconnect
 		$node->dxchan($DXProt::me);
 	}
 
-	my $pref = Route::Node::get($main::mycall);
-	if ($pref) {
-		my @rout = $pref->del_user($main::mycall);
-		dbg('route', "B/C PC17 on $main::mycall for: $call");
-	}
+	my @rout = $main::routeroot->del_user($call);
+	dbg('route', "B/C PC17 on $main::mycall for: $call");
 
 	# I was the last node visited
     $self->user->node($main::mycall);
diff --git a/perl/Route.pm b/perl/Route.pm
index 0ebb365c..47b87dac 100644
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -166,6 +166,11 @@ sub config
 	return @out;
 }
 
+#
+# routing things
+#
+
+
 #
 # track destruction
 #
-- 
2.34.1