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:
use WebService::MobileMe;
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 );
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