From cd13445decdbd1f27b41f9aa483b1b5844c8fb3e Mon Sep 17 00:00:00 2001
From: Yann Kerherve <yann@cyberion.net>
Date: Sun, 26 Jul 2009 15:39:17 -0700
Subject: [PATCH] - Added get_key API call - Now you can login with
 email/password

---
 eg/simple.pl                | 20 +++++++--
 lib/Net/AppNotifications.pm | 81 +++++++++++++++++++++++++++++++------
 2 files changed, 85 insertions(+), 16 deletions(-)

diff --git a/eg/simple.pl b/eg/simple.pl
index 3a853b4..b04290b 100644
--- a/eg/simple.pl
+++ b/eg/simple.pl
@@ -3,9 +3,21 @@
 use Find::Lib '../lib';
 use Net::AppNotifications;
 
-my $key = shift
-    or die "usage: $0 <key> <message>";
-my $message = shift || "hello";
+my ($message, $email, $pass, $key);
 
-my $notifier = Net::AppNotifications->new(key => $key);
+if (@ARGV == 3) {
+   ($email, $pass, $message) = @ARGV;
+}
+elsif (@ARGV == 2) {
+    ($key, $message) = @ARGV;
+}
+else {
+    die "usage: $0 [ <key> | <email> <pass> ] <message>";
+}
+
+my $notifier = Net::AppNotifications->new(
+    key => $key,
+    email => $email,
+    pass => $pass,
+);
 $notifier->send($message);
diff --git a/lib/Net/AppNotifications.pm b/lib/Net/AppNotifications.pm
index f6f3542..b508fd7 100644
--- a/lib/Net/AppNotifications.pm
+++ b/lib/Net/AppNotifications.pm
@@ -10,12 +10,17 @@ use URI::Escape 'uri_escape_utf8';
 use constant POST_URI =>
     q{https://www.appnotifications.com/account/notifications.xml};
 
-# TODO: get key from user/pass
+use constant KEY_URI =>
+    q{https://www.appnotifications.com/account/user_session.xml};
+
 sub new {
     my $class = shift;
     my %param = @_;
     my $notifier = bless { %param }, ref $class || $class;
-    croak "Key is needed" unless $param{key};
+    unless ($param{key}) {
+        $param{key} = $class->get_key( %param );
+    }
+    croak "Key (or valid email, pass to get it) is needed" unless $param{key};
     return $notifier;
 }
 
@@ -83,7 +88,13 @@ sub send {
         };
 
     } 
-    $notifier->post_request($key, $message, %cbs);
+    my $uri  = POST_URI;
+    my $body = build_body(
+        'user_credentials'      => $key,
+        'notification[message]' => $message,
+    );
+
+    $notifier->post_request($uri, $body, %cbs);
 
     ## wait here for synchronous calls
     $finish->();
@@ -92,10 +103,7 @@ sub send {
 
 sub post_request {
     my $notifier = shift;
-    my ($key, $message, %cbs) = @_;
-
-    my $uri  = POST_URI; 
-    my $body = build_body($key, $message);
+    my ($uri, $body, %cbs) = @_;
 
     http_request
         POST      => $uri,
@@ -115,11 +123,48 @@ sub post_request {
     return
 }
 
+sub get_key {
+    my $class = shift;
+
+    my $done = AnyEvent->condvar;
+    my $key;
+    my $got_key = sub { $key = shift; $done->send };
+
+    $class->async_get_key( @_, got_key => $got_key );
+
+    $done->recv;
+    return $key;
+}
+
+sub async_get_key {
+    my $class = shift;
+    my %param = shift;
+
+    my $email    = $param{email} or return;
+    my $password = $param{password};
+    my $uri      = KEY_URI;
+
+    my $body     = build_body(
+       'user_session[email]'    => $email,
+       'user_session[password]' => $password,
+    );
+    my %cbs = (
+        on_posted => sub {
+            my $key = shift;
+            $param{got_key}->($key);
+        },
+    );
+    $class->post_request($uri, $body, %cbs);
+    return;
+}
+
 sub build_body {
-    my ($key, $message) = @_;
-    return join "&", map { uri_escape_utf8($_) }
-            "user_credentials=$key",
-            "notification[message]=$message";
+    my %param = @_;
+    return
+        join "&", map {
+            join "=", $_, uri_escape_utf8($param{$_})
+        }
+        keys %param;
 }
 
 
@@ -136,7 +181,13 @@ Net::AppNotifications - send notifications to your iPhone.
 
 =head1 SYNOPSIS
 
-  use Net::AppNotifications;
+  $notifier = Net::AppNotifications->new(
+      email    => $registered_email,
+      password => $password,
+  );
+
+  # - or, prefered -
+
   $notifier = Net::AppNotifications->new(
       key => $key,
   );
@@ -156,6 +207,12 @@ Net::AppNotifications - send notifications to your iPhone.
   );
   $sent->recv;
 
+  ## returns undef in case of error
+  $key = Net::AppNotifications->get_key(
+    email => $registered_email,
+    password => $password,
+  );
+
 =head1 DESCRIPTION
 
 Net::AppNotifications is a wrapper around appnotifications.com. It allows