From 922dfc80b63e191277fb5ae73cbe2710ecdb6c60 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 18 Jun 2007 15:27:31 +0100 Subject: [PATCH] deploy a default input route if none present. --- perl/DXProt.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 90ac30f0..96a51f5d 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -294,6 +294,12 @@ sub start $self->{inwcyfilter} = Filter::read_in('wcy', $call, 1) || Filter::read_in('wcy', 'node_default', 1); $self->{inannfilter} = Filter::read_in('ann', $call, 1) || Filter::read_in('ann', 'node_default', 1); $self->{inroutefilter} = Filter::read_in('route', $call, 1) || Filter::read_in('route', 'node_default', 1) unless $self->{isolate}; + # if there is no route input filter then specify a default one. + # obviously this can be changed later by the sysop. + if (!$self->{inroutefilter}) { + my $dxcc = $self->dxcc; + $Route::filterdef->cmd($self, 'route', 'accept', "input by_dxcc $dxcc" ); + } # set unbuffered and no echo $self->send_now('B',"0"); -- 2.34.1