Changeset 345 for branches/guitools-2.0/shared/smbtree.vrs

Timestamp:

Oct 30, 2009, 4:17:35 PM (16 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI Version 2.0 beta3 level code

File:

• branches/guitools-2.0/shared/smbtree.vrs (modified) (9 diffs)

branches/guitools-2.0/shared/smbtree.vrs

@@ -14 +14 @@
     if ShowHidden = 'SHOWHIDDEN' | ShowHidden = '' then ShowHidden = 0
 
-    say 'detach 'samba.!smbtreeexe' 'debuglevel' 'UserCred' >'samba.!msg
-    address cmd 'detach 'samba.!smbtreeexe' 'debuglevel' 'UserCred' >'samba.!msg
+    say 'detach 'samba.!smbtreeexe' -S 'debuglevel' 'UserCred' >'samba.!msg
+    address cmd 'detach 'samba.!smbtreeexe' -S 'debuglevel' 'UserCred' >'samba.!msg
 
     if UserCred = '-N' then UserCred = ''
@@ -21 +21 @@
     ok = VRMethod("CN_smbtree", "RemoveRecord", "ALL")
 
+    RefreshMode = "TREE"
     ok = VRSet("CN_smbtree","Enabled", 0)
     ok = VRset("TM_RefreshTreeDisplay","Enabled",1)
@@ -32 +33 @@
     if stat <> "READY:" then return
 
+    if UserCred = 'USERCRED' | UserCred = '' | UserCred = '--user=%' then do
+        UserCred = '-N'
+    end
+
     if ShowHidden = 'SHOWHIDDEN' | ShowHidden = '' then ShowHidden = 0
 
@@ -58 +63 @@
         Header = c2x(left(smbtreeline.sl,3))
         select
-            when Header = "09095C" then do /* share */
+            when Header = "09095C" then do /* share - obsolete, we do that differently now see below! */
                 smbtreeline.sl = strip(smbtreeline.sl,,'09'x)
                 parse var smbtreeline.sl '\\'machine'\'share '09'x comment
@@ -72 +77 @@
                     if pos("$", share) > 0 then ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!share, "Visible", ShowHidden)
                 end
-            end
+            end /* end of obsolete share code */
             when Header = "095C5C" then do /* Machine */
                 smbtreeline.sl = strip(smbtreeline.sl,,'09'x)
@@ -79 +84 @@
                 comment = strip(comment)
                 if VRGet("CN_smbtree","View") = "IconTree" then parent = smbtree.!workgroup; else parent = ""
-                smbtree.!machine = VRMethod( "CN_smbtree", "AddRecord",parent,, machine||'0D0A'x||comment,"#35:PMWP.DLL")
+                ok = VRSet( "CN_smbtree", "Painting", 1  )
+                smbtree.!machine = VRMethod( "CN_smbtree", "AddRecord",parent,, machine||'0D0A'x||comment)
+                /* We make any machine as sleeping initially */
+                ok = VRMethod('CN_smbtree', 'SetRecordAttr', smbtree.!machine, 'Icon',"#61:PMWP.DLL")
                 ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!machine, "ReadOnly", 1)
                 ok = VRMethod( "CN_smbtree", "SetFieldData", smbtree.!machine, NBFH, machine, CommentFH, Comment, WorkGroupFH, CurWG)
+                ok = VRSet( "CN_smbtree", "Painting", 0  )
                 if VRGet("CN_smbtree","View") = "Detail" then do
                     address cmd samba.!nmblookupexe' 'machine' 'debuglevel' -N >'samba.!msg
@@ -123 +132 @@
                     end
                 end
-                ok = VRSet( "CN_smbtree", "Painting", 1  )
-                ok = VRSet( "CN_smbtree", "Painting", 0  )
+                else do
+                    call _RefreshShares
+                end
             end
             otherwise do
@@ -139 +149 @@
                         ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!workgroup, "Collapsed", 0)
                         ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!workgroup, "ReadOnly", 1)
+                        ok = VRMethod( "CN_smbtree", 'SetRecordAttr', smbtree.!workgroup, "UserData", "WORKGROUP|")
                     end
                     CurWG = smbtreeline.sl
@@ -154 +165 @@
 return
 
-/*:VRX         _GuessIcon
+/*:VRX         _RefreshShares
 */
-_GuessIcon: procedure
-    text = translate(arg(1))
-    select /* Printer guessing */
-        when pos('PS3',text)        > 0 then res = '#65:PMWP.DLL'
-        when pos('PCL5',text)       > 0 then res = '#65:PMWP.DLL'
-        when pos('PCL6',text)       > 0 then res = '#65:PMWP.DLL'
-        when pos('PSCRIPT',text)    > 0 then res = '#65:PMWP.DLL'
-        when pos('POSTSCRIPT',text) > 0 then res = '#65:PMWP.DLL'
-        when pos('LJ',text)         > 0 then res = '#65:PMWP.DLL'
-        when pos('LASER',text)      > 0 then res = '#65:PMWP.DLL'
-        when pos('EPSON',text)      > 0 then res = '#65:PMWP.DLL'
-        when pos('PRINT',text)      > 0 then res = '#65:PMWP.DLL'
-        when pos('PRT',text)        > 0 then res = '#65:PMWP.DLL'
-        when pos('CANON',text)      > 0 then res = '#65:PMWP.DLL'
-        when pos('MINOLTA',text)    > 0 then res = '#65:PMWP.DLL'
-        when pos('FAX',text)        > 0 then res = '#65:PMWP.DLL'
-        when pos('LEXMARK',text)    > 0 then res = '#65:PMWP.DLL'
-        when pos('IPC$',text)       > 0 then res = '#59:PMWP.DLL'
-        when pos('GHOSTPDF',text)   > 0 then res = '#65:PMWP.DLL'
-        when pos('PDF',text)        > 0 & ,
-             pos('WRI',text)        > 0 then res = '#65:PMWP.DLL'
-        otherwise res = "#34:PMWP.DLL"
-    end
-return res
+_RefreshShares:
+    say "_RefreshShares() started"
+    RefreshID = RANDOM()
+    smbshares = TempDir||"smbshares."||machine
+
+    say         'detach 'samba.!smbclientexe' -L "'strip(machine)'" 'UserCred' 'debuglevel' 1>'smbshares' 2>NUL'
+    address cmd 'detach 'samba.!smbclientexe' -L "'strip(machine)'" 'UserCred' 'debuglevel' 1>'smbshares' 2>NUL'
+
+    RefreshMode = "SHARE"
+
+    ok = VRSet("CN_smbtree","Enabled", 0)
+    ok = VRset("TM_RefreshTreeDisplay","Enabled",1)
+return
+
+/*:VRX         _AddSharesDisplay
+*/
+_AddSharesDisplay: /* New get shares code - uses smbclient output and is much faster */
+    say "_AddSharesDisplay() started"
+
+    ok = SysFileTree(Tempdir||'smbshares.*',smbshare.,'FO')
+
+    if smbshare.0 = 0 then do /* we are done, no more files around, cleanup, disable Timer and exit */
+        RefreshMode = ""
+        ok = VRSet("CN_smbtree","Enabled", 1)
+        ok = VRset("TM_RefreshTreeDisplay","Enabled",0)
+        say "_AddSharesDisplay() completed" 
+        return /* exit here */
+    end
+
+    if UserCred = 'USERCRED' | UserCred = '' | UserCred = '--user=%' then do
+        UserCred = '-N'
+    end
+
+    if ShowHidden = 'SHOWHIDDEN' | ShowHidden = '' then ShowHidden = 0
+
+    do I = 1 to smbshare.0
+        stat = stream(smbshare.I,'c','open read')
+        if stat = "READY:" then do /* we found a readable output file */
+            Machine = VRParseFilename(smbshare.I,'E')
+            smbtree.!machine = _GetMachinehandle(Machine)
+
+            line = linein(smbshare.I)
+            say line
+            ok = VRMethod('CN_smbtree', 'SetRecordAttr', smbtree.!machine, 'UserData', "SERVER|"||strip(line))
+
+            if left(line, 20) = "session setup failed" then do /* we see an error message */
+                say left(line, 20)
+                signal sharecleanup
+            end
+
+            retries = 0
+            do while(left(line,1) <> '09'x)
+                line = linein(smbshare.I)
+                retries = retries + 1
+                say 'Retry 'retries
+                if retries >=10 then do /* No valid output - error */
+                    signal sharecleanup
+                end
+            end
+
+            /* Skip header */
+            line = linein(smbshare.I)
+            line = linein(smbshare.I)
+
+            if left(line,5) = "Error" then ok = VRMethod('CN_smbtree', 'SetRecordAttr', smbtree.!machine, 'UserData', "SERVER|"||strip(line))
+
+            do while(left(line,1) = '09'x)
+                parse var line '09'x share type comment
+                type = translate(strip(type))
+                comment = strip(comment)
+
+                select
+                    when type = "DISK"    then res = '#34:PMWP.DLL'
+                    when type = "PRINTER" then res = '#65:PMWP.DLL'
+                    when type = "IPC"     then res = '#59:PMWP.DLL'
+                    when type = "DEVICE"  then res = '#84:PMWP.DLL' /* There might be better ones around */
+                    otherwise res = ''
+                end
+
+                /* Now the machine receives the wakeup icon */
+                ok = VRMethod('CN_smbtree', 'SetRecordAttr', smbtree.!machine, 'Icon', "#35:PMWP.DLL")
+                parent = smbtree.!machine
+                smbtree.!share = VRMethod( "CN_smbtree", "AddRecord",parent,, share||'0D0A'x||comment, res)
+                ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!share, "ReadOnly", 1, 'UserData', type"|")
+                if pos("$", share) > 0 then ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!share, "Visible", ShowHidden)
+
+                /* get next share */
+                line = linein(smbshare.I)
+            end
+sharecleanup:
+            say "_AddSharesDisplay() cleanup"
+            ok = stream(smbshare.I,'c','close')
+            ok = SysFileDelete(smbshare.I)
+            if ok <> 0 then say 'Failure 'ok' deleting "'smbshare.I'"!'
+        end
+    end
+    say "_AddSharesDisplay() loop finished"
+return
+
+/*:VRX         _GetMachinehandle
+*/
+
+_GetMachinehandle: procedure
+    Machine = arg(1)
+    ok = VRMethod("CN_smbtree", "GetRecordList", "All", rh.)
+
+    do I = 1 to rh.0
+
+        ResName  = VRMethod("CN_smbtree","GetRecordAttr",rh.I,"Caption")
+
+        parse var ResName  ResName '0D0A'x .
+        ResName = strip(ResName)
+
+        if Machine = ResName then leave /* we got a matching name */
+    end  
+return rh.I