#!c:\perl\bin\perl -w

use warnings;
use strict;

#use Crypt::SSLeay;
use LWP::UserAgent;
use Net::SSL (); # From Crypt-SSLeay
use Data::Printer;
use Time::HiRes qw(time);
#use HTTP::Request::Common;

#use LWP::Debug qw(+);
#use IO::Socket::SSL qw(debug3);

#BEGIN {
#	$Net::HTTPS::SSL_SOCKET_CLASS = "Net::SSL"; # Force use of Net::SSL
#}


my $loginUrl = 'https://xxxxxxxxxxx.com/api/login';
my $username = "xxxxx";
my $password = "yyyyy";
	
my $appkey = "abcde12345";
my $ssid;


$ENV{HTTPS_DEBUG} = 1;
$ENV{HTTPS_CERT_FILE} = "C:/OpenSSL-Win32/bin/client-2048.crt";
$ENV{HTTPS_KEY_FILE}  = "C:/OpenSSL-Win32/bin/client-2048.key";
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;

my $ua = LWP::UserAgent->new;
$ua->timeout(15);

my $loginReq = HTTP::Request->new(POST => $loginUrl );

$loginReq->header(
					'Accept'=>"application/json",
					'X-Application'=>$appkey,
				 );
	
$loginReq->content_type('application/x-www-form-urlencoded');
$loginReq->content("username=${username}&password=${password}");
	
print "\n\nLogin....\n\n";	
	
my $loginRes = eval { $ua->request( $loginReq ) };
#print p($loginRes);
print "\n\nas_string:\n".$loginRes->as_string;
print "\n\nmessage:\n".$loginRes->message;
print "\n\ncontent:\n".$loginRes->content;
	
if ( ($loginRes) and ($loginRes->message eq "OK") ){
	if ( $loginRes->content =~ /{"sessionToken":"(.*?)","loginStatus":"SUCCESS"}/ ){
		$ssid = $1;
	}
}

print "\n\nssid = $1 \n\n";	
	
exit;