From 47158622c85b4b2ee92f60027e7ef6e1f83b0301 Mon Sep 17 00:00:00 2001 From: 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