#!/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); }