sub CanextendCheck()

in scripts/CreateMirrorHierarchy.pl [62:82]

• 19 lines of code
• 3 McCabe index (conditional complexity)

sub CanextendCheck {
	my $tag = shift;
	my $appType = shift;
	my $resType = shift;
	my $retCode;
	my $canextendOutputFile="/tmp/CanextendTest.$$";
	my $canextendScript="$LKDIR/lkadm/subsys/$appType/$resType/bin/canextend";

	if ( ! -f $canextendScript ) {
		print STDERR "FAIL: No canextend script exists for $appType / $resType\n";
		return 1;
	}

	system ("$LKDIR/bin/lcdremexec -d $targetSys -- \"$canextendScript $templateSys $tag\"; echo \$? >$canextendOutputFile");
	chomp ($retCode=`head $canextendOutputFile`);
	unlink $canextendOutputFile;
	if ($retCode != 0 ) {
		print "FAIL: canextend for hier $tag failed.  The resource cannot be extended to $targetSys \n";
		return 1;
	}
}