updated the 3.0 branch from the head branch - ready for alpha18
[tprouty/samba.git] / packaging / Caldera / UnixWare / findsmb
index bb91c784b89eb52ed0805368732090f2ed9ad61e..c87fdb5190a7eb8a57dcd65f9bcf1d0b629ad3f8 100755 (executable)
@@ -73,7 +73,7 @@ foreach $ip (@ipaddrs)                # loop through each IP address found
            $name = "unknown nis name";
        }
     } else {
-       /(\S+)/;
+       /(.{1,15})\s+<00>\s+/;
        $name = $1;
     }
 
@@ -103,7 +103,7 @@ foreach $ip (@ipaddrs)              # loop through each IP address found
       @name = grep(/<00> - <GROUP>/,@nmblookup);
       $_ = @name[0];
       if ($_) {
-        /(\S+)/;
+        /(.{1,15})\s+<00>\s+/;
         $_ = "[$1]";
       } else {
        $_ = "Unknown Workgroup";