updated the 3.0 branch from the head branch - ready for alpha18
[ira/wip.git] / packaging / SGI / findsmb
index a48ec592e80f814e0dae6bd4115ecc1d148ae63d..336ff07c16f3295da6371bf8ac50a81a02f6c014 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";