#!/usr/bin/perl -- # -*- Perl -*-

use strict;
use SOAP::Lite;

my $usage = "$0 userid\n";

my $userid = shift @ARGV || die $usage;

my $soap = SOAP::Lite->new();
$soap->uri("http://norman.walsh.name/witw");
$soap->proxy("http://norman.walsh.name/2005/02/witw/soap");

my $result = $soap->user($userid);
if ($result->fault()) {
    print STDERR "SOAP fault: ", $result->faultcode(), "\n";
    print STDERR "\t", $result->faultstring(), "\n";
    exit 1;
}

my ($name, $email, $uri) = $result->paramsout();

$result = $soap->is($userid);
if ($result->fault()) {
    print STDERR "SOAP fault: ", $result->faultcode(), "\n";
    print STDERR "\t", $result->faultstring(), "\n";
    exit 1;
}

my ($date, $lat, $long) = $result->paramsout();

$lat = sprintf("%2.2f%s", abs($lat), $lat > 0 ? "N" : "S");
$long = sprintf("%2.2f%s", abs($long), $long > 0 ? "E" : "W");

print "$name was last seen at $lat, $long.\n";
print "That was on $date.\n";