- Print a friendly warning if -issuelip (or it's config option) is used

and the target drives lacks support for it.



git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@1142 d57e44dd-8a1f-0410-8b47-8ef2f437770f

scstadmin/scstadmin

@@ -1783,6 +1783,8 @@ sub enableTarget {
 }
 
 sub issueLIP {
+	my $lip_issued;
+
 	foreach my $target (keys %{$TARGETS}) {
 		next if ($$TARGETS{$target}->{'duplicate'});
 		next if (!$$TARGETS{$target}->{'enabled'});
@@ -1800,8 +1802,13 @@ sub issueLIP {
 			}
 
 			print "done.\n";
+
+			$lip_issued = $TRUE;
 		}
 	}
+
+	print "\t-> WARNING: This target driver does not support issuing LIPs.\n\n"
+	  if (!$lip_issued);
 }
 
 sub readConfig {