adding findsmb perl script to get info on smb machines on a net
[gd/samba-autobuild/.git] / packaging / SGI / idb.pl
index 78d5eb1de832924e55f7aa0aeb954a0e7670aca0..7eea09d8d551665a0b8052ef290b140cdf9d9078 100755 (executable)
@@ -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";
     }