#!/usr/bin/perl -w
use strict;
use SOAP::Lite;
use HTTP::Cookies;
use Data::Dumper;

print main();

sub main{

  my $user = $ARGV[0];
  my $pass = $ARGV[1];
  my $proxy_url = $ARGV[2];

  my $soap_client = SOAP::Lite
        -> proxy('http://', cookie_jar => HTTP::Cookies->new(ignore_discard => 0))
        -> uri('urn:civicrm');

  $soap_client->endpoint($proxy_url);
  my $result = $soap_client->authenticate($user, $pass);

  my $msg;
  if ($result->fault) {
    $msg = "0-could not authenticate because:  ".$result->faultstring;
    #print Dumper($result);
  } else {
    $msg = "1-successfully authenticated.";
  }
  return($msg);
}