adding findsmb perl script to get info on smb machines on a net

(This used to be commit 4adb00e41abbbaf6eaa014e6a599cb2c8b77d7da)

1 files changed, 4 insertions, 1 deletions

diff --git a/packaging/SGI/idb.pl b/packaging/SGI/idb.pl
index 78d5eb1de8..7eea09d8d5 100755
--- a/packaging/SGI/idb.pl
+++ b/packaging/SGI/idb.pl
@@ -55,7 +55,7 @@ if (@codepage) {
 }
 
 # add my local files to the list of binaries to install
-@bins = sort (@sprogs,@progs,@progs1,@scripts,("sambalp","smbprint"));
+@bins = sort (@sprogs,@progs,@progs1,@scripts,("findsmb","sambalp","smbprint"));
 
 # the files installed in docs include all the original files in docs plus all
 # the "*.doc" files from the source tree
@@ -92,6 +92,9 @@ while(@bins) {
     if ($nextfile eq "smbpasswd") {
       print IDB "f 4555 root sys usr/samba/bin/$nextfile source/$nextfile samba.sw.base\n";
     }
+    elsif ($nextfile eq "findsmb") {
+      print IDB "f 0755 root sys usr/samba/bin/$nextfile packaging/SGI/$nextfile samba.sw.base\n";
+    }
     elsif ($nextfile eq "sambalp") {
       print IDB "f 0755 root sys usr/samba/bin/$nextfile packaging/SGI/$nextfile samba.sw.base\n";
     }