Diff from GetLive CVS to incorporate Outlook.com site changes.

$OpenBSD: patch-GetLive_pl,v 1.8 2013/11/19 15:47:33 merdely Exp $
--- GetLive.pl.orig	Tue Apr  2 17:10:46 2013
+++ GetLive.pl	Sat Nov 16 22:27:39 2013
@@ -92,7 +92,7 @@ sub new {
   $Self->{'Login'}             = "";
   $Self->{'Domain'}            = "hotmail.com";
   $Self->{'Password'}          = "";
-  $Self->{'MailProcessor'}     = '/usr/bin/procmail'; # Any program taking mbox formatted at stdin will do.
+  $Self->{'MailProcessor'}     = '${LOCALBASE}/bin/procmail'; # Any program taking mbox formatted at stdin will do.
   $Self->{'DownloadedIdsFile'} = "";                  # Local file with Ids of already downloaded messages.
   $Self->{'MarkRead'}          = "No";                # No,Yes : But never when downloaded before !
   $Self->{'Delete'}            = "No";                # No,Yes : But never when downloaded before !
@@ -398,6 +398,8 @@ sub GetPage {
  
   $Self->Log("Response headers : \n" . $Response->headers_as_string(), MinVerbosity => 100);
 
+  $Self->Log("Response content : \n" . $Response->content(), MinVerbosity => 100);
+
   return ($Response->content(),uri_unescape($Response->request->uri));
 }
 
@@ -457,16 +459,15 @@ sub Login {
   my $Domain = $Self->{'Domain'};
   my ($LoginUrl) = $LoginPageAsString =~ m{'(https://login.live.com/ppsecure/post.srf.*?)'};
 
-  if ($LoginPageAsString !~ m/F:'(P.*?)'/s) {
-     $Self->Log("Page doesn't contain PPSX in the expected place.\n",stderr => 1);
-     return 0;
+  if ($LoginPageAsString !~ m/[F|AP]:'(P.*?)'/s) {
+    $PostData{"PPSX"} = "Pass";
+  } else {
+    $Self->Log("PPSX detected as '$1'.\n", MinVerbosity => 10 );
+    $PostData{"PPSX"} = $1;
   }
   
   # End of Michael Kelly patch.
 
-  $Self->Log("PPSX detected as '$1'.\n", MinVerbosity => 10 );
-  $PostData{"PPSX"} = $1;
-  
   # PPFT is a normal (ie non JS) hidden input type.
   if( $LoginPageAsString !~ m/<\s*input\s+.*name=\"PPFT\"(\s+id="\S+")?\s+value=\"(\S*)\"/ ) {
     Self->Log("Page doesn't contain input field PPFT as expected.\n",stderr => 1);
