How to detect config sync status using iControl

These values are stored in the internal database which can be accessed via the Management::DBVariable interface.

 

 

The values you are looking for are:

 

 

"configsync.autodetect"

 

"configsync.localconfigtime"

 

"configsync.peerconfigtime"

 

"configsync.localsyncedtime"

 

"configsync.state"

 

 

Here's some sample code in perl to mimic the "bigpipe config sync show" command.

 

 

!/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:iControl:Management/DBVariable') 
     -> 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, $mday, $hour, $min, $sec); 
  
     return $timeString; 
 } 
  
 ---------------------------------------------------------------------------- 
  checkResponse 
 ---------------------------------------------------------------------------- 
 sub checkResponse() 
 { 
     my ($soapResponse) = (@_); 
     if ( $soapResponse->fault ) 
     { 
         print $soapResponse->faultcode, " ", $soapResponse->faultstring, "\n"; 
         exit(); 
     } 
 }

 

 

-Joe

Glad to help. And thanks for the corrections...

 

 

-Joe

Hmm...

 

 

I've tried runnning this... Apart from perl suggesting that @dbValues[xx] would be better written as $dbvalues[xx] my F5's always return a 0 for autodetect... What exactly is this supposed to represent in the db? Because mine all have configsync autodetection between the pairs when you view the web GUI configsync settings...

 

 

 

TIA

 

 

Hamish