From 47158622c85b4b2ee92f60027e7ef6e1f83b0301 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 24 Aug 2004 08:12:11 +0000
Subject: [PATCH] add delete_interface on disconnect

---
 perl/DXProt.pm  | 2 ++
 perl/RouteDB.pm | 8 ++++++++
 2 files changed, 10 insertions(+)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 69085f35..c96d787e 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -2307,6 +2307,8 @@ sub disconnect
 			eph_del_regex("^PC1[679].*$c");
 		}
 	}
+
+	RouteDB::delete_interface($call);
 	
 	# remove them from the pc19list as well
 	while (my ($k,$v) = each %pc19list) {
diff --git a/perl/RouteDB.pm b/perl/RouteDB.pm
index c9c01ff4..42cf693f 100644
--- a/perl/RouteDB.pm
+++ b/perl/RouteDB.pm
@@ -106,6 +106,14 @@ sub delete
 	delete $ref->{item}->{$interface} if $ref;
 }
 
+sub delete_interface
+{
+	my $interface = shift;
+	foreach my $ref (values %list) {
+		delete $ref->{item}->{$interface};
+	}
+}
+
 #
 # generic AUTOLOAD for accessors
 #
-- 
2.43.0