From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 30 May 2008 10:56:46 +0000 (+0100)
Subject: remove 'recursion limit' message fromRoute.pm
X-Git-Tag: 1.56~83
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=7a3918d750c1afaf42ab26eb89a7df9033ca9f37

remove 'recursion limit' message fromRoute.pm
---

diff --git a/Changes b/Changes
index 9834a7ae..88feeaef 100644
--- a/Changes
+++ b/Changes
@@ -1,4 +1,6 @@
 28May08=======================================================================
+1. remove "recursion limit" message from Route.pm
+28May08=======================================================================
 1. Improve the detection of short exact callsigns that are out of prefix area
 (eg K7A) (thank you FCC).
 2. Improve long line handling on console.pl
diff --git a/perl/Route.pm b/perl/Route.pm
index 769aefe8..7cbda347 100644
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -286,6 +286,26 @@ sub get
 	return Route::Node::get($call) || Route::User::get($call);
 }
 
+# this may be a better algorithm
+#start = {start node}
+#end = {end node}
+#dist = 0
+#marked(n) = false for all nodes n
+#queue = [start]
+#while queue is not empty:
+#  dist = dist + 1
+#  newqueue = []
+#  for each node n in queue:
+#    for each edge from node n to node m:
+#      if not marked(m):
+#        marked(m) = true
+#        if m == end:
+#          -- We've found the end node
+#          -- it's a distance "dist" from the start
+#          return dist
+#        add m to newqueue
+#  queue = newqueue
+
 sub findroutes
 {
 	my $call = shift;
@@ -298,7 +318,7 @@ sub findroutes
 	# recursion detector (no point in recursing that deeply)
 	return () if $seen->{$call};
 	if ($level >= 20) {
-		dbg("Route::findroutes: recursion limit reached looking for $call");
+#		dbg("Route::findroutes: recursion limit reached looking for $call");
 		return ();
 	}
 
diff --git a/perl/Version.pm b/perl/Version.pm
index 541cf53a..c83ac473 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.55';
 $subversion = '0';
-$build = '12';
+$build = '13';
 
 1;