Add:script:Tell the neighbours in border_follower

git-svn-id: http://svn.code.sf.net/p/navit/code/trunk/navit@1179 ffa7fe5e-494d-0410-b361-a75ebd5db220

1 files changed, 9 insertions, 2 deletions

diff --git a/navit/script/osm/border_follower.pl b/navit/script/osm/border_follower.pl
index 2bb517ea5..4512bfd50 100755
--- a/navit/script/osm/border_follower.pl
+++ b/navit/script/osm/border_follower.pl
@@ -71,8 +71,12 @@ do {
 		$admin_level=0;
 		while( my($k,$v) = splice @{$tags}, 0, 2 ) {
 			print "tag: $k=$v\n";
-			if (($k eq "left:$type" || $k eq "right:$type") && $v eq $name && $newid != $lastid) {
-				$match=1;
+			if (($k eq "left:$type" || $k eq "right:$type") && $newid != $lastid) {
+				if ($v eq $name) {
+					$match=1;
+				} else {
+					$neighbors{$v}=$newid;
+				}
 			}
 			if (($k eq "left:$alt_type" || $k eq "right:$alt_type") && $v eq $name && $newid != $lastid) {
 				print "Warning: $k in $newid\n";
@@ -113,4 +117,7 @@ do {
 } while ($wayid != $first_wayid);
 print "End reached\n";
 print "Path $path\n";
+while (($key,$value)=each(%neighbors)) {
+	print "Neighbor $key $value\n";
+}
 #print Dumper($ways);