sub AddNetPath()

in scripts/CreateCommPath.pl [86:106]

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

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

	# Add the network path
	@results = `net_create -d $me -n TCP -r $remoteIP -l $localIP -s $remoteSys 2>&1`;
	$retCode = $? >> 8;
	if ($retCode != 0) {
		print "Failed to add network path.  Error: $retCode Reason:\n";
		foreach (@results) {
			print "$_";
		}
		return 0;
	}

	return 1;
}