sub checkTotemConfiguration()

in AzureCloudExcellenceforSAP/azsapsca/patterns/AZSAP/token.pl [59:90]

• 30 lines of code
• 6 McCabe index (conditional complexity)

sub checkTotemConfiguration {
	SDP::Core::printDebug('> checkTotemConfiguration', 'BEGIN');
	my $RCODE = 0;
	my $FILE_OPEN = 'ha.txt';
	my $SECTION = 'corosync.conf';
	my @CONTENT = ();
	my $RRP_MODE = 'none';
	my $RRP_RINGS = 0;
	my $TOKEN_VAL = 0;
	my $CONSENSUS_VAL = 0;


	if ( SDP::Core::getSection($FILE_OPEN, $SECTION, \@CONTENT) ) {
		foreach $_ (@CONTENT) {
			next if ( m/^\s*$/ ); # Skip blank lines
			if ( /^\s*token:\s+(.*)/ ) {
				$TOKEN_VAL = $1;
			} elsif  ( /^\s*consensus:\s+(.*)/ ) {
				$CONSENSUS_VAL = $1;
			} 
		}
		if ( $TOKEN_VAL  == 30000 ) {
		        SDP::Core::updateStatus(STATUS_SUCCESS, "Valid: cluster token=$TOKEN_VAL");
		} else {
			SDP::Core::updateStatus(STATUS_WARNING, "Invalid: token=$TOKEN_VAL, it should be 30000");
		}
	} else {
		SDP::Core::updateStatus(STATUS_ERROR, "ERROR: checkTotemConfiguration(): Cannot find \"$SECTION\" section in $FILE_OPEN");
	}
	SDP::Core::printDebug("< checkTotemConfiguration", "Returns: $RCODE");
	return $RCODE;
}