sub AddRemoteSystem()

in scripts/CreateCommPath.pl [42:77]

• 31 lines of code
• 7 McCabe index (conditional complexity)

sub AddRemoteSystem {
	my $remoteSys = shift;
	my $me = LK::lcduname();
	my @results;
	my $retCode;

	# Check and make sure the system has not already been added
	@results = `sys_list 2>&1`;
	$retCode = $? >> 8;
	if ($retCode != 0) {
		print "Failed to run sys_list.  Reason:\n";
		foreach (@results) {
			print "$_";
		}
	} else {
		foreach (@results) {
			if ($_ =~ m/$remoteSys/) {
				print "Destination system already added. Continuing ...\n";
				return 1;
			}
		}
	}

	# Add the system
	@results = `sys_create -d $me -s $remoteSys 2>&1`;
	$retCode = $? >> 8;
	if ($retCode != 0) {
		print "Failed to add remote system.  Error: $retCode Reason:\n";
		foreach (@results) {
			print "$_";
		}
		return 0;
	}

	return 1;
}