[Sblim-commit] sfcb wbemcat,1.7,1.8

[Adrian S. <a3s...@us...>]

Update of /cvsroot/sblim/sfcb
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16048

Modified Files:
	wbemcat 
Log Message:
fixed debugging adat


Index: wbemcat
===================================================================
RCS file: /cvsroot/sblim/sfcb/wbemcat,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- wbemcat	26 Jul 2005 19:19:26 -0000	1.7
+++ wbemcat	26 Jul 2005 19:24:48 -0000	1.8
@@ -74,23 +74,22 @@
 # Pipe STDOUT to nc command
 # DEBUG: Comment out this line to see what data gets sent to the CIMOM
 
-# nc not supported on all distributions
+# since nc not supported on all distributions it is not used anymore
 # open(STDOUT, "| nc $host $port") || die "Cannot fork nc command: $!";
 
-my ($socket, $answer,$n);
+my ($socket, $answer);
 $socket=IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port,
                               Proto    => "tcp", Type => SOCK_STREAM) 
      or die "Could not connect to $host:$port : $@\n"; 
 
-# Send preamble and XML data to CIMOM via STDOUT pipe
+# Send preamble and XML data to CIMOM to $socket
 print $socket @preamble;
 print $socket @xml;
 
 # Get the answer
 $answer = "";
 while (defined ($answer = <$socket>)) {
-   print ">$answer<";
+   print $answer;
 }  
-#print $answer;
  
 close($socket);