projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add ST0 to prefixes
[spider.git]
/
perl
/
DXXml.pm
diff --git
a/perl/DXXml.pm
b/perl/DXXml.pm
index 1b4d2e83cf10cb27e2ee9436c08094d3e24f8e15..f05f3d1c582d0b1fd9bb56eeb80908100c3490ee 100644
(file)
--- a/
perl/DXXml.pm
+++ b/
perl/DXXml.pm
@@
-1,7
+1,7
@@
#
# XML handler
#
#
# XML handler
#
-#
$Id$
+#
#
# Copyright (c) Dirk Koopman, G1TLH
#
#
# Copyright (c) Dirk Koopman, G1TLH
#
@@
-21,7
+21,7
@@
use DXXml::IM;
use DXXml::Text;
use DXXml::Cmd;
use DXXml::Text;
use DXXml::Cmd;
-use vars qw($
VERSION $BRANCH $
xs $id $max_old_age $max_future_age $dupeage);
+use vars qw($xs $id $max_old_age $max_future_age $dupeage);
$xs = undef; # the XML::Simple parser instance
$id = 0; # the next ID to be used
$max_old_age = 3600; # how old a sentence we will accept
$xs = undef; # the XML::Simple parser instance
$id = 0; # the next ID to be used
$max_old_age = 3600; # how old a sentence we will accept
@@
-238,15
+238,6
@@
sub route
dbg("route: $via -> $dxchan->{call} using normal route" ) if isdbg('route');
}
dbg("route: $via -> $dxchan->{call} using normal route" ) if isdbg('route');
}
- # try the backstop method
- unless ($dxchan) {
- my $rcall = RouteDB::get($via);
- if ($rcall) {
- $dxchan = DXChannel::get($rcall);
- dbg("route: $via -> $rcall using RouteDB" ) if isdbg('route') && $dxchan;
- }
- }
-
unless ($dxchan) {
dbg("XML: no route available to $via") if isdbg('chanerr');
return;
unless ($dxchan) {
dbg("XML: no route available to $via") if isdbg('chanerr');
return;