Changeset 654 for trunk/guitools/smbmon/smbmon.vrx

Timestamp:

Nov 7, 2011, 3:06:06 PM (14 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: SMBMON 2.5.x: More work done

File:

• trunk/guitools/smbmon/smbmon.vrx (modified) (5 diffs)

trunk/guitools/smbmon/smbmon.vrx

@@ -1795 +1795 @@
 PB_RELOAD_Click: 
     call VRSet VRWindow(), 'Pointer', 'Wait' 
-    address CMD samba.!smbcmd' reload '
-
-/* 2>'samba.!error' 1>'samba.!msg
-    if \NoMsgBox then call _SambaShowMsg "[32 Done" */
+
+    call lineout "smbstart", "reload"
+    ok = stream("reload","c","close")
 
     ok = VRSet("TM_Refresh","Delay", 1000)
@@ -1808 +1807 @@
 PB_RESTART_Click: 
     call VRSet VRWindow(), 'Pointer', 'Wait' 
-    address CMD samba.!smbcmd' restart '
-
-/* 2>'samba.!error' 1>'samba.!msg
-    if \NoMsgBox then call _SambaShowMsg "[32 Done" */
+
+    call lineout "restart", "restart"
+    ok = stream("restart","c","close")
 
     ok = VRSet("TM_Refresh","Delay", 1000)
@@ -1840 +1838 @@
     call VRSet VRWindow(), 'Pointer', 'Wait' 
 
-    say "  "samba.!smbcmd' start '
-/*  2>'samba.!error' 1>'samba.!msg */
-
-    address CMD samba.!smbcmd' start '
-
-/*  2>'samba.!error' 1>'samba.!msg
-    if \NoMsgBox then call _SambaShowMsg "[32 Done"
-    else do
-        say "Start no msg"
-        ok = stream(Samba.!msg,"c","close")
-        say "  stream close "Samba.!msg" = "ok
-        ok = SysFileDelete(Samba.!msg) 
-        say "  Delete "Samba.!msg" = "ok
-    end */
+    call lineout "smbstart", "smbstart"
+    ok = stream("smbstart","c","close")
+
     ok = VRSet("TM_Refresh","Delay", 1000)
     call VRSet VRWindow(), 'Pointer', '<default>' 
@@ -1861 +1848 @@
 */
 PB_STOP_Click: 
-
     say "IPB_Stop_Click started"
     call VRSet VRWindow(), 'Pointer', 'Wait' 
-    say "  "samba.!smbcmd' stop '
-/* 2>'samba.!error' 1>'samba.!msg */
-
-    address CMD samba.!smbcmd' stop' 
-
-/* 2>'samba.!error' 1>'samba.!msg
-    if \NoMsgBox then call _SambaShowMsg "[32 Done"
-    else do
-        say "  Stop no msg"
-        ok = stream(Samba.!msg,"c","close")
-        say "  stream close "Samba.!msg" = "ok
-        ok = SysFileDelete(Samba.!msg) 
-        say "  Delete "Samba.!msg" = "ok
-    end */
+
+    call lineout "smbstop", "smbstop"
+    ok = stream("smbstop","c","close")
+
     ok = VRSet("TM_Refresh","Delay", 1000)
 
     call VRSet VRWindow(), 'Pointer', '<default>' 
     say "IPB_Stop_Click done"
-
 return
 /*:VRX         PushbackAll
@@ -2248 +2223 @@
 */
 TM_Refresh_Trigger: 
+    call beep 1200, 20
     ok = VRSet("TM_Refresh","Delay", Intervall * 1000)
     call _Refresh