#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use Mozilla::CA;

# To set debug we can run the program like this:  perl -MIO::Socket::SSL=debug30 Testcase

# Print versions
#print "LWP::UserAgent->VERSION is " . LWP::UserAgent->VERSION . "\n";

my ($Request, $Reply, $res);

# A User agent for all WWW requests
my $ua = LWP::UserAgent->new( timeout => 120 );
$ua->ssl_opts(
#   verify_hostname => 0,
   SSL_ca_file => Mozilla::CA::SSL_ca_file(),
   SSL_verifycn_scheme => 'http',
   SSL_verifycn_name => 'login.salesforce.com',
   );

my $LoginXML = <<EOF;
<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/">
  <env:Body>
    <n1:login xmlns:n1="urn:partner.soap.sforce.com">
      <n1:username>USERNAME</n1:username>
      <n1:password>AUTHCODE</n1:password>
    </n1:login>
  </env:Body>
</env:Envelope>
EOF
$Request = HTTP::Request->new(POST => "https://login.salesforce.com/services/Soap/u/22.0");
$Request->header(
   'Content-Type' => 'text/xml; charset=UTF-8',
   'SOAPAction'   => 'login'
   );
$Request->content($LoginXML);

# Make the request and check the results
$res = $ua->request($Request);
$Reply= $res->content;
if (!($res->is_success)) {
   warn $res->status_line, "\n";
   warn $Reply, "\n";
   }
else {
   warn "The request succeeded\n";
   }