From: minima Date: Tue, 24 Aug 2004 08:12:11 +0000 (+0000) Subject: add delete_interface on disconnect X-Git-Tag: R_1_51B^0 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=47158622c85b4b2ee92f60027e7ef6e1f83b0301;p=spider.git add delete_interface on disconnect --- 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 #