X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute.pm;h=16ee88cb52b76b92af3f45f035cf26616a560751;hb=d4af9b75c46cddd2cc830961eb615975ed260a9e;hp=ee84c1508b3bdd47e07edad8597845760a34ac19;hpb=dea6cbc282b2c101672139c9369af8c9bba7122e;p=spider.git diff --git a/perl/Route.pm b/perl/Route.pm index ee84c150..16ee88cb 100644 --- a/perl/Route.pm +++ b/perl/Route.pm @@ -40,13 +40,13 @@ use vars qw(%list %valid $filterdef); $filterdef = bless ([ # tag, sort, field, priv, special parser ['channel', 'c', 0], - ['channel_dxcc', 'n', 1], - ['channel_itu', 'n', 2], - ['channel_zone', 'n', 3], + ['channel_dxcc', 'nc', 1], + ['channel_itu', 'ni', 2], + ['channel_zone', 'nz', 3], ['call', 'c', 4], - ['call_dxcc', 'n', 5], - ['call_itu', 'n', 6], - ['call_zone', 'n', 7], + ['call_dxcc', 'nc', 5], + ['call_itu', 'ni', 6], + ['call_zone', 'nz', 7], ], 'Filter::Cmd'); @@ -323,6 +323,8 @@ sub dxchan return $dxchan; } + + # # track destruction #