source: subversion/applications/utils/revert/delete.pl @ 29411

Last change on this file since 29411 was 16875, checked in by frederik, 10 years ago

delete

File size: 477 bytes
Line 
1#!/usr/bin/perl
2
3# Adapter script for Delete.pm module
4# exports Delete.pm functionality for command line use.
5
6use strict;
7use warnings;
8use Delete;
9
10if (scalar(@ARGV) != 3 || $ARGV[0] !~ /^(node|way|relation)$/)
11{
12    print <<EOF;
13usage: $0 <node|way|relation> <id> <changeset>
14
15where
16  id : OSM id of the object to delete
17  changeset : id of changeset to use for delete action
18EOF
19    exit;
20}
21
22my ($what, $id, $changeset) = @ARGV;
23
24Delete::delete($what, $id, $changeset);
25
Note: See TracBrowser for help on using the repository browser.