X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute.pm;h=7cbda347f2807216eba046b13d75bff12474aa02;hb=7a3918d750c1afaf42ab26eb89a7df9033ca9f37;hp=769aefe8c01525e2d576540deb150432459bbbbd;hpb=139148d8a89f86b5beae963d122b1d031004db5f;p=spider.git

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 ();
 	}