ConfigSync Status

Problem this snippet solves:

This perl application mimics the "bigpipe config sync show" command and displays the status and last times that configuration sync occurred.

Code :

#!/usr/bin/perl
#----------------------------------------------------------------------------
# The contents of this file are subject to the "END USER LICENSE AGREEMENT
# FOR F5 Software Development Kit for iControl"; you may not use this file
# except in compliance with the License. The License is included in the
# iControl Software Development Kit.
#
# Software distributed under the License is distributed on an "AS IS"
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
# the License for the specific language governing rights and limitations
# under the License.
#
# The Original Code is iControl Code and related documentation
# distributed by F5.
#
# The Initial Developer of the Original Code is F5 Networks,
# Inc. Seattle, WA, USA. Portions created by F5 are Copyright (C) 1996-2004
# F5 Networks, Inc. All Rights Reserved.  iControl (TM) is a registered
# trademark of F5 Networks, Inc.
#
# Alternatively, the contents of this file may be used under the terms
# of the GNU General Public License (the "GPL"), in which case the
# provisions of GPL are applicable instead of those above.  If you wish
# to allow use of your version of this file only under the terms of the
# GPL and not to allow others to use your version of this file under the
# License, indicate your decision by deleting the provisions above and
# replace them with the notice and other provisions required by the GPL.
# If you do not delete the provisions above, a recipient may use your
# version of this file under either the License or the GPL.
#----------------------------------------------------------------------------

#use SOAP::Lite + trace => qw(method debug);
use SOAP::Lite;

BEGIN { push (@INC, ".."); }
use iControlTypeCast;

#----------------------------------------------------------------------------
# Validate Arguments
#----------------------------------------------------------------------------
my $sHost = $ARGV[0];
my $sPort = $ARGV[1];
my $sUID = $ARGV[2];
my $sPWD = $ARGV[3];
my $sProtocol = "https";

if ( ("80" eq $sPort) or ("8080" eq $sPort) )
{
$sProtocol = "http";
}

if ( ($sHost eq "") or ($sPort eq "") or ($sUID eq "") or ($sPWD eq "") )
{
die ("Usage: ConfigSyncStatus.pl host port uid pwd\n");
}

#----------------------------------------------------------------------------
# Transport Information
#----------------------------------------------------------------------------
sub SOAP::Transport::HTTP::Client::get_basic_credentials-->
{
return "$sUID" => "$sPWD";
}

$DBVariable = SOAP::Lite
-> uri('urn
-> proxy("$sProtocol://$sHost:$sPort/iControl/iControlPortal.cgi");
eval { $DBVariable->transport->http_request->header
(
'Authorization' => 
'Basic ' . MIME::Base64::encode("$sUID:$sPWD", '')-->
); };

&getConfigSyncStatus();

#----------------------------------------------------------------------------
# getDBVariable
#----------------------------------------------------------------------------
sub getDBVariable()
{
(@dbKeys) = @_;

$soapResponse = $DBVariable->query
(
SOAP::Data->name(variables => [@dbKeys])
);
&checkResponse($soapResponse);

@VariableNameValueList = @{$soapResponse->result};

my @ValueArray;

foreach $VariableNameValue (@VariableNameValueList)
{
$name = $VariableNameValue->{"name"};
$value = $VariableNameValue->{"value"};
push @ValueArray, $value;
}

return @ValueArray;
}


#----------------------------------------------------------------------------
# getConfigSyncStatus
#----------------------------------------------------------------------------
sub getConfigSyncStatus()
{
@dbKeys = (
"configsync.autodetect",
"configsync.localconfigtime",
"configsync.peerconfigtime",
"configsync.localsyncedtime",
"configsync.state");
(@dbValues) = &getDBVariable(@dbKeys);

print "CONFIG SYNC STATUS --\n";
if ( "disable" eq @dbValues[0] )
{
#Standalone
print "    Status:  disabled\n";
print "    Last change (Self):  ", &getLocalTime(@dbValues[1]), "\n";
}
else
{
#HA Pair
print "    Status:  @dbValues[4]\n";
print "    Last change (Self):  ", &getLocalTime(@dbValues[1]), "\n";
print "    Last change (Peer):  ", &getLocalTime(@dbValues[2]), "\n";
print "    Last Configsync:  @dbValues[3]\n";
}
}

#----------------------------------------------------------------------------
# getLocalTime
#----------------------------------------------------------------------------
sub getLocalTime()
{
($timeNumber) = (@_);

    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                localtime($timeNumber);
$timeString = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec);

return $timeString;
}

#----------------------------------------------------------------------------
# checkResponse
#----------------------------------------------------------------------------
sub checkResponse()
{
my ($soapResponse) = (@_);
if ( $soapResponse->fault )
{
print $soapResponse->faultcode, " ", $soapResponse->faultstring, "\n";
exit();
}
}