use strict;
use LWP::UserAgent;
use Crypt::SSLeay;
use LWP::Debug qw(+);
use HTTP::Cookies;

my $cookie_jar = HTTP::Cookies->new(
    file => "$ENV{'HOME'}/lwp_cookies.dat",
    autosave => 1,
);

### Message Parameter
my $parameter  = @ARGV[0];
my @parameters = split( /;:;/, $parameter);
my $msg_node        = $parameters[0];

my $ua = LWP::UserAgent->new;

my $ie_ua = 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.2; Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)';
$ua->agent($ie_ua);
$ua->cookie_jar($cookie_jar);

#$ua->credentials("poms-test.ts.fujitsu.com:80", "POMS2 HTTP Interface Login", "username", "password");
$ua->credentials('poms-test.ts.fujitsu.com:80', 'POMS2 HTTP Interface Login', 'username', 'password');

my $response = $ua->post('https://poms-test.ts.fujitsu.com/CallLog',
[
	msg_node        => $msg_node
]);

if ($response->is_success) {
	print "\n\nis success (content):", $response->content, "\n\n";
}
else {
	print "\n\nis not success (status_line): ", $response->status_line, "\n\n";
#	print "\n\nis not success (content):", $response->content, "\n\n";
}