sub checkSBDConfiguration()

in Tools&Framework/azsapsca/patterns/AZSAP/sbdazure-00002.pl [59:87]

• 28 lines of code
• 8 McCabe index (conditional complexity)

sub checkSBDConfiguration {
	SDP::Core::printDebug('> checkSBDConfiguration', 'BEGIN');
	my $RCODE = 0;
	my $FILE_OPEN = 'ha.txt';
	my $SECTION = '/etc/sysconfig/sbd';
	my @CONTENT = ();
	my $SBD_PACEMAKER = '';
	my $SBD_STARTMODE = '';

	if ( SDP::Core::getSection($FILE_OPEN, $SECTION, \@CONTENT) ) {
		foreach $_ (@CONTENT) {
			next if ( m/^\s*$/ ); # Skip blank lines
			if ( /SBD_PACEMAKER=(.*)/i ) {
			    $SBD_PACEMAKER = $1;
			    SDP::Core::printDebug('SBD_PACEMAKER should be yes', "Found");
			} elsif  ( /SBD_STARTMODE=(.*)/i ) {
			    $SBD_STARTMODE = $1;
			    SDP::Core::printDebug('SBD_STARTMODE should be always', "Found");
			} 
		}
                SDP::Core::updateStatus(STATUS_WARNING, "SBD_PACEMAKER should be yes") if ( $SBD_PACEMAKER =~ m/yes/i );
                SDP::Core::updateStatus(STATUS_WARNING, "SBD_STARTMODE should be always") if ( $SBD_STARTMODE =~ m/always/i );
		SDP::Core::updateStatus(STATUS_SUCCESS, "No SBD_PACEMAKER or SBD_STARTMODE problems found") if ( $GSTATUS < STATUS_ERROR );
	} else {
		SDP::Core::updateStatus(STATUS_ERROR, "ERROR: checkTotemConfiguration(): Cannot find \"$SECTION\" section in $FILE_OPEN");
	}
	SDP::Core::printDebug("< checkCliBanConfiguration", "Returns: $RCODE");
	return $RCODE;
}