Changeset 724

Timestamp:

Nov 9, 2012, 10:50:47 AM (13 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: smblogon sample script, fixes and omissions

Location:

trunk/guitools/smblogon

Files:

• sample.cmd (added)
• smblogon.VRP (modified) (1 diff)
• smblogon.VRX (modified) (6 diffs)
• smblogon.VRY (modified) ( previous)

trunk/guitools/smblogon/smblogon.VRP

@@ -7 +7 @@
 VRXWindow: __VREMainWindow,1,1963,2264,891,8000
 VRXWindow: __VRESectionListWindow,1,3047,11804,7432,7480
-VRXWindow: __VREToolsWindow,1,1975,530,6489,1663
+VRXWindow: __VREToolsWindow,1,1975,530,6486,1669
 VRXWindow: __VREWindListWindow,1,397,11804,2650,3150
 UserFile: 1

trunk/guitools/smblogon/smblogon.VRX

@@ -230 +230 @@
 */
 Main_Create: 
-    ok = VRRedirectStdio("ON")
-    options.!debug = 1
+    options.!debug = 0
 
     call _LoadOtherFuncs
@@ -241 +240 @@
 
     Credentials. =""
+    ok = _ucInitObj()
 
     call _ParseCommandLine
@@ -276 +276 @@
             ok = _ucSetUc()
         end
+        else say "Credentials not stored!"
     end
     else do /* Authenticate against specified server */
@@ -281 +282 @@
     end
     ok = VRSet("TM_Quit","Enabled",1)
+return
+
+/*:VRX         Main_Resize
+*/
+Main_Resize: 
+    ok = VRSet("CN_Status","Width", VRGet("Main", "WIdth")-144)
+    ok = VRSet("CN_Status","Height",VRGet("Main", "Height")-144-434)
 return
 
@@ -347 +355 @@
 
     ok = Value('OS','ECS','OS2ENVIRONMENT')
+    ok = Value("SERVER",Server,"OS2ENVIRONMENT")
+    ok = Value("USER",Credentials.!Username,"OS2ENVIRONMENT")
+    ok = Value("PASSWORD",Credentials.!password,"OS2ENVIRONMENT")
+
     address cmd rpc.queryuser.DIR_DRIVE'\'rpc.queryuser.LOGON_SCRIPT' >'samba.!msg
+
     do until lines(samba.!msg) = 0
         mountline = linein(samba.!msg)
@@ -365 +378 @@
         ok = VRMethod( "CN_STATUS", "SetFieldData",  rh, Status.MessageFH, mountline)
     end
+    /* remove server and password from environment */
+    ok = Value("SERVER","","OS2ENVIRONMENT")
+    ok = value("PASSWORD","","OS2ENVIRONMENT")
     ok = stream(samba.!msg,'c','close')
 return