Problems with Perl samples

Hi Joe,

 

 

yes, I picked up the ConfigSync stuff. Just check out what I have done. I will have a look at the blogs as well. Didn´t realize it is possible to find something useful in. :-)

 

 

cheers

 

 

Andreas

 

 

use SOAP::Lite;

 

 

----------------------------------------------------------------------------

 

Validate Arguments

 

----------------------------------------------------------------------------

 

my $sHost = $ARGV[0];

 

my $sPort = $ARGV[1];

 

my $sUID = $ARGV[2];

 

my $sPWD = $ARGV[3];

 

my $sFILE = $ARGV[4];

 

 

if ( ($sHost eq "") or ($sPort eq "") or ($sUID eq "") or ($sPWD eq "") or ($sFILE eq "") )

 

{

 

die ("Usage: Test.pl host port uid pwd filename\n");

 

}

 

 

----------------------------------------------------------------------------

 

Transport Information

 

----------------------------------------------------------------------------

 

sub SOAP::Transport::HTTP::Client::get_basic_credentials

 

{

 

return "$sUID" => "$sPWD";

 

}

 

 

$soap = SOAP::Lite

 

-> uri('urn:iControl:ITCMSystem/ConfigSync')

 

-> readable(1)

 

-> proxy("https://$sHost:$sPort/iControl/iControlPortal.cgi");

 

 

----------------------------------------------------------------------------

 

 

$soap_response =

 

$soap->save_configuration

 

(

 

SOAP::Data->name

 

(

 

filename => $sFILE

 

),

 

SOAP::Data->name

 

(

 

save_flag => 0

 

)

 

);

 

 

if ( $soap_response->fault )

 

{

 

print $soap_response->faultcode, " ", $soap_response->faultstring, "\n";

 

}

 

else

 

{

 

my $result = $soap_response->result;

 

print "Configuration saved to: $sFILE";

 

}