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

Timestamp:

Nov 15, 2009, 7:02:45 PM (16 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI Version 2.0 beta5 level code

File:

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

branches/guitools-2.0/shared/smbtree.vrs

@@ -136 +136 @@
                 end
             end
+            when smbtreeline.sl = "" then nop
             otherwise do
-                say "Workgroup: "smbtreeline.sl
+                say 'Workgroup: "'smbtreeline.sl'"'
                 if pos("RECEIVING",translate(smbtreeline.sl)) > 0 then do
                     Msg.Type = "W"
@@ -207 +208 @@
         stat = stream(smbmachine.I,'c','open read')
         if stat = "READY:" then do /* we found a readable output file */
-            Machine = VRParseFilename(smbmachine.I,'E')
+            /* Machine = VRParseFilename(smbmachine.I,'E') */
+            Machine = substr(smbmachine.I,pos('.',smbmachine.I)+1)
+
             smbtree.!machine = _GetMachinehandle(Machine)
             say '  Machine (handle) = "'machine'" ('smbtree.!machine')'
@@ -272 +275 @@
             end
 
+            do until left(line,10) = '09'x||'Workgroup'
+                line = linein(smbmachine.I)
+            end
+            line = linein(smbmachine.I)
+            /* Reading workgroup and master - eventually both empty */
+            line = linein(smbmachine.I)
+            parse var line '09'x workgroup master
+            master = strip(master)
+
+            /* we use this to set the workgroup for manually added servers */
+            if workgroup <> "" then do
+                wgh = _GetMachinehandle(workgroup)
+                if wgh = "" then do /* This machine is in a new workgroup - add it as well */
+                    wgh = VRMethod( "CN_smbtree", "AddRecord",,, workgroup,"#62:PMWP.DLL")
+                    ok = VRMethod( "CN_smbtree", "SetFieldData", wgh, WorkGroupFH, workgroup)
+                    ok = VRMethod( "CN_smbtree", "SetRecordAttr", wgh, "Collapsed", 0)
+                    ok = VRMethod( "CN_smbtree", "SetRecordAttr", wgh, "ReadOnly", 1)
+                    ok = VRMethod( "CN_smbtree", 'SetRecordAttr', wgh, "UserData", "WORKGROUP|")
+                end
+                if wgh <> "" then ok = VRMethod('CN_smbtree', 'SetRecordAttr', smbtree.!machine, 'Parent', wgh)
+            end
+
             say "_AddSharesDisplay() success and cleanup"
             ok = stream(smbmachine.I,'c','close')
@@ -279 +304 @@
         else say '  Got "'stat'" for "'smbmachine.I'"'
     end
-    say "_AddSharesDisplay() loop finished"
+    say "_AddSharesDisplay() loop end"
 return
 
@@ -285 +310 @@
 */
 
-_GetMachinehandle: procedure
+_GetMachinehandle: procedure /* get recordhandle by machine name (also works for workgroups) */
     Machine = translate(arg(1))