source: subversion/applications/utils/revert/undelete.pl @ 17935

Last change on this file since 17935 was 16642, checked in by frederik, 10 years ago

undelete

File size: 491 bytes
Line 
1#!/usr/bin/perl
2
3# Adapter script for Undelete.pm module
4# exports Undelete.pm functionality for command line use.
5
6use strict;
7use warnings;
8use Undelete;
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 undelete
17  changeset : id of changeset to use for undelete action
18EOF
19    exit;
20}
21
22my ($what, $id, $changeset) = @ARGV;
23
24Undelete::undelete($what, $id, $changeset);
25
Note: See TracBrowser for help on using the repository browser.