Just a quick post to announce a new perl module I uploaded to the CPAN the other day. It’s still to be considered alpha quality as it is lacking error checking and other such necessary stuffs but is working for me.
Usage looks like:
my $mme = WebService::MobileMe->new(
username => 'yaakov', password => 'HUGELOVE' );
my $location = $mme->locate;
print < <"EOT";
As of $location->{date}, $location->{time}, Yaakov was at
$location->{latitude}, $location->{longitude} (plus or minus
$location->{accuracy} meters).
EOT
$mme->sendMessage( message => 'Hi Yaakov!', alarm => 1 );
The online documentation is available via search.cpan.org.
Git Web: http://git.thegrebs.com/?p=WebService-MobileMe
Git Clone: http://git.thegrebs.com/git/WebService-MobileMe
