Fix:script:Converted to new osm api

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

1 files changed, 18 insertions, 2 deletions

diff --git a/navit/script/osm/osmtool.pl b/navit/script/osm/osmtool.pl
index 30a443fb6..10f50a8ed 100755
--- a/navit/script/osm/osmtool.pl
+++ b/navit/script/osm/osmtool.pl
@@ -1,5 +1,5 @@
 #! /usr/bin/perl
-use Geo::OSM::APIClientV5;
+use Geo::OSM::APIClientV6;
 use Data::Dumper;
 
 sub print_error
@@ -42,10 +42,18 @@ sub cmd_delete
 	my($type,$id)=@_;
 	my($res);
 	$res=$api->get($type,$id);
+	if (!$api->create_changeset()) {
+		print_error();
+		return 1;
+	}
 	if (!$api->delete($res)) {
 		print_error();
 		return 1;
 	}
+	if (!$api->close_changeset()) {
+		print_error();
+		return 1;
+	}
 	return 0;
 }
 
@@ -88,10 +96,18 @@ sub cmd_reload
 {
 	my($type,$id)=@_;
 	$res=$api->get($type,$id);
+	if (!$api->create_changeset()) {
+		print_error();
+		return 1;
+	}
 	if (!$api->modify($res)) {
 		print_error();
 		return 1;
 	}
+	if (!$api->close_changeset()) {
+		print_error();
+		return 1;
+	}
 	return 0;
 }
 
@@ -122,5 +138,5 @@ while (substr($ARGV[0],0,2) eq '--') {
 	$attr{$key}=$value;
 	shift;
 }
-$api=new Geo::OSM::APIClient(api=>'http://www.openstreetmap.org/api/0.5',%attr);
+$api=new Geo::OSM::APIClient(api=>'http://www.openstreetmap.org/api/0.6',%attr);
 command(@ARGV);