From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 18 Jun 2007 14:27:31 +0000 (+0100)
Subject: deploy a default input route if none present.
X-Git-Tag: 1.55~160^2~3
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=922dfc80b63e191277fb5ae73cbe2710ecdb6c60;p=spider.git

deploy a default input route if none present.
---

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");