Michel_van_der_
Jan 23, 2006Nimbostratus
500 errors
I have a BigIP, running 9.2.0. I get 500 errors trying to run
LocalLB.ProfilePersistence.set_timeout (i.e. the F5 is sending
500 errors back to SOAP...).
I'm using perl, but using the SOAP::Lite trace facility does
not seem to give me much useful information. I turned on the
trace information (iControl.LogLevel = trace), but it does not
give me any useful info either.
Rebooting the box clears this up (i.e. I can run the exact
same script, and it perform the setting of the timeout
without generating an error).
Any suggestions on how to track down what could be causing this?
Here's the code for review:
!/usr/bin/perl
use strict;
require "dumpvar.pl";
use SOAP::Lite +trace => qw(all);
my ($u, $p);
sub usage {
print STDERR "testCaseForF5 \n";
}
sub SOAP::Transport::HTTP::Client::get_basic_credentials { return $u => $p; }
sub main {
my ($ip, $n, $soap, $soapResponse, $r);
return usage() if @ARGV != 4;
$ip = $ARGV[0]; $u = $ARGV[1]; $p = $ARGV[2]; $n = $ARGV[3];
$soap = SOAP::Lite->uri("urn:iControl:LocalLB/ProfilePersistence")
->proxy("https://$ip/iControl/iControlPortal.cgi") ||
die "Can't create SOAP object for $ip\n";
$soapResponse = $soap->set_timeout(
SOAP::Data->name('profile_names' => [ $n ] ),
SOAP::Data->name('timeouts' => [ { 'value' => 600,
'default_flag' => 0 } ]),
);
if ( $soapResponse->fault ) {
print "SOAP Error: ",
$soapResponse->faultcode, "; ",
$soapResponse->faultstring , "\n";
return 0;
}
}
main;
1;