trace.pl

#!/usr/bin/perl

use strict;
use FindBin;
use lib "$FindBin::Bin/lib";
use Getopt::Long;
use Trace;

if ($ARGV[0] eq "create")
{
    my $description = "uploaded with osmtools/$0";
    my $tags;
    my $visibility = "private";
    my $correct_options = GetOptions(
        "description=s" => \$description,
        "tags=s" => \$tags,
        "visibility=s" => \$visibility
    );
    if ($correct_options && (scalar(@ARGV) == 2))
    {
        my $id = Trace::create($ARGV[1], $description, $tags, $visibility);
        print "created a trace with id $id" if defined($id);
        exit;
    }
}

if (($ARGV[0] eq "get") && (scalar(@ARGV) == 2))
{
    my $content = Trace::get($ARGV[1]);
    print $content;
    exit;
}

if (($ARGV[0] eq "list") && (scalar(@ARGV) == 1))
{
    my $content = Trace::list();
    print $content;
    exit;
}

if (($ARGV[0] eq "delete") && (scalar(@ARGV) == 2))
{
    Trace::delete($ARGV[1]);
    exit;
}

print <<EOF;
Usage:
  $0 create <filename> <options>    upload new gpx trace
  $0 get <id>                       load and print trace metadata XML
  $0 list                           load and print metadata of current user's traces
  $0 delete <id>                    delete trace

options:
  --description <text>
  --tags <text>
  --visibility <one of: private, public, trackable, identifiable>
EOF
exit;