source: trunk/guitools/smbmon/smbmon.vrx @ 908

Last change on this file since 908 was 908, checked in by Herwig Bauernfeind, 5 years ago

GUITools: SMBMon (TDB Check page), shared library updates
File size: 89.5 KB
Line 
1/*:VRX         Main
2*/
3/*  Main
4*/
5Main:
6/*  Process the arguments.
7    Get the parent window.
8*/
9    parse source . calledAs .
10    parent = ""
11    argCount = arg()
12    argOff = 0
13    if( calledAs \= "COMMAND" )then do
14        if argCount >= 1 then do
15            parent = arg(1)
16            argCount = argCount - 1
17            argOff = 1
18        end
19    end; else do
20        call VROptions 'ImplicitNames'
21        call VROptions 'NoEchoQuit'
22    end
23    InitArgs.0 = argCount
24    if( argCount > 0 )then do i = 1 to argCount
25        InitArgs.i = arg( i + argOff )
26    end
27    drop calledAs argCount argOff
28
29/*  Load the windows
30*/
31    call VRInit
32    parse source . . spec
33    _VREPrimaryWindowPath = ,
34        VRParseFileName( spec, "dpn" ) || ".VRW"
35    _VREPrimaryWindow = ,
36        VRLoad( parent, _VREPrimaryWindowPath )
37    drop parent spec
38    if( _VREPrimaryWindow == "" )then do
39        call VRMessage "", "Cannot load window:" VRError(), ,
40            "Error!"
41        _VREReturnValue = 32000
42        signal _VRELeaveMain
43    end
44
45/*  Process events
46*/
47    call Init
48    signal on halt
49    do while( \ VRGet( _VREPrimaryWindow, "Shutdown" ) )
50        _VREEvent = VREvent()
51        interpret _VREEvent
52    end
53_VREHalt:
54    _VREReturnValue = Fini()
55    call VRDestroy _VREPrimaryWindow
56_VRELeaveMain:
57    call VRFini
58exit _VREReturnValue
59
60VRLoadSecondary:
61    __vrlsWait = abbrev( 'WAIT', translate(arg(2)), 1 )
62    if __vrlsWait then do
63        call VRFlush
64    end
65    __vrlsHWnd = VRLoad( VRWindow(), VRWindowPath(), arg(1) )
66    if __vrlsHWnd = '' then signal __vrlsDone
67    if __vrlsWait \= 1 then signal __vrlsDone
68    call VRSet __vrlsHWnd, 'WindowMode', 'Modal'
69    __vrlsTmp = __vrlsWindows.0
70    if( DataType(__vrlsTmp) \= 'NUM' ) then do
71        __vrlsTmp = 1
72    end
73    else do
74        __vrlsTmp = __vrlsTmp + 1
75    end
76    __vrlsWindows.__vrlsTmp = VRWindow( __vrlsHWnd )
77    __vrlsWindows.0 = __vrlsTmp
78    do while( VRIsValidObject( VRWindow() ) = 1 )
79        __vrlsEvent = VREvent()
80        interpret __vrlsEvent
81    end
82    __vrlsTmp = __vrlsWindows.0
83    __vrlsWindows.0 = __vrlsTmp - 1
84    call VRWindow __vrlsWindows.__vrlsTmp
85    __vrlsHWnd = ''
86__vrlsDone:
87return __vrlsHWnd
88
89/*:VRX         __VXREXX____APPENDS__
90*/
91__VXREXX____APPENDS__:
92/*
93#append U:\Develop\Samba\trunk\guitools\shared\inittempdir.vrs
94#append U:\Develop\Samba\trunk\guitools\shared\sambainit.vrs
95#append U:\Develop\Samba\trunk\guitools\shared\nlv.vrs
96#append U:\Develop\Samba\trunk\guitools\shared\smbtree.vrs
97*/
98return
99/*:VRX         _ChkTDB
100*/
101_ChkTDB:
102
103ok = SysFileTree(etc'\samba\lock\*.TDB',tdb.,'FO')
104say etc'\samba\lock\*.TDB  'tdb.0
105
106error = 0
107ok = VRMethod("CN_CHKTDB", "RemoveRecord", "ALL")
108
109RecHandleArray.0 = 0
110ok = VRSet("CN_CHKTDB", "Painting", 0)
111
112do I = 1 to tdb.0
113    RecHandleArray.I = VRMethod("CN_CHKTDB", "Addrecord")
114end
115ok = VRSet("CN_CHKTDB", "Painting", 1)
116
117/* ok = VRSet("CN_CHKTDB", "Painting", 0) */
118
119do I = 1 to tdb.0
120    RecHandle = RecHandleArray.I
121    TDBFile =left(filespec('N',tdb.I), 22)
122    TDBSize = stream(tdb.I,'c','query size')
123    ok = VRMethod("CN_CHKTDB", "SetFieldData", RecHandle, ChkTDBFilesFH, TDBFile, ChkTDBIconFH, "$50", ChkTDBSizeFH, TDBSize||" Bytes" )
124    address cmd '@tdbtool 'tdb.I' check 2>'tdb.I'.err 1>'tdb.I'.out'
125    out = linein(tdb.I'.out')
126    ok = stream(tdb.I'.out','c','close')
127    say out
128    if pos('integrity is OK',out) > 0 then do /* integrity is ok */
129        ok = SysFileDelete(tdb.I'.err')
130        ok = SysFileDelete(tdb.I'.out')
131        out = left(out,length(out)-1)
132        TDBRecords = substr(out, pos("and has", out) + 7,)
133        ok = VRMethod("CN_CHKTDB", "SetFieldData", RecHandle, ChkTDBStatusFH, TDBRecords )
134
135        address cmd '@tdbbackup -s.bak 'tdb.I' 2>NUL 1>NUL'
136    end
137    else do /* tdb error */
138        ok = VRMethod("CN_CHKTDB", "SetFieldData", RecHandle, ChkTDBIconFH, "$51" )
139        error = 1
140        count = 0
141        out = ""
142        do while lines(tdb.I'.err') > 0 & count < 5
143            errline = linein(tdb.I'.err')
144            select
145                /* skip unnecessary lines of log */
146                when pos("bww ",errline) > 0 then iterate
147                when pos("fcntl",errline) > 0 then iterate
148                otherwise do
149                    out = out||errline'. '
150                    count = count + 1
151                end
152            end
153        end
154        ok = VRMethod("CN_CHKTDB", "SetFieldData", RecHandle, ChkTDBStatusFH, out )
155        ok = VRSet("CN_CHKTDB", "Painting", 1)
156        ok = VRSet("CN_CHKTDB", "Painting", 0)
157
158        ok = stream(tdb.I'.err','c','close')
159    end
160
161/*
162    call charout , left(filespec('N',tdb.I), 22)
163    address cmd '@tdbtool 'tdb.I' check 2>'tdb.I'.err 1>'tdb.I'.out'
164    out = linein(tdb.I'.out')
165    ok = stream(tdb.I'.out','c','close')
166    say out
167    if pos('integrity is OK',out) = 0 then do
168        call beep 880, 20
169        address cmd '@tdbbackup -s.bak -v 'tdb.I' 2>NUL 1>NUL'
170        error = 1
171        count = 0
172        do while lines(tdb.I'.err') > 0 & count < 5
173            errline = linein(tdb.I'.err')
174            select
175                /* skip unnecessary lines of log */
176                when pos("bww ",errline) > 0 then iterate
177                when pos("fcntl",errline) > 0 then iterate
178                otherwise do
179                    say right(copies(' ',22)'Cause: 'errline'!',min(length(errline)+22,79))
180                    count = count + 1
181                end
182            end
183        end
184        ok = stream(tdb.I'.err','c','close')
185    end
186    else do
187        ok = SysFileDelete(tdb.I'.err')
188        ok = SysFileDelete(tdb.I'.out')
189        address cmd '@tdbbackup -s.bak 'tdb.I' 2>NUL 1>NUL'
190    end */
191end
192
193ok = VRSet("CN_CHKTDB", "Painting", 1)
194
195return
196
197/*:VRX         _ColumnShow
198*/
199_ColumnShow:
200    userdata = VRGet(VRInfo("Object"),"Userdata")
201    parse var userdata Container '|' fieldh '|' VisStatus
202say userdata
203    ok = VRMethod(Container,"SetFieldAttr", fieldh, "Visible", \VisStatus )
204return
205
206/*:VRX         _ColumnsMenu
207*/
208_ColumnsMenu:
209    Container = arg(1)
210    ok = VRMethod(Container, "GetFieldList", "Fields." )
211
212    do I = 1 to 14
213        R2I = right("0"||I,2)
214        if I <= fields.0 then do
215/*          say "Columns_"||R2I' 'VRMethod(Container, "GetFieldAttr", fields.I, "Title" ) */
216            ok = VRset("Columns_"||R2I, "Visible", 1)
217            ok = VRset("Columns_"||R2I, "Caption", VRMethod(Container, "GetFieldAttr", fields.I, "Title" ))
218            ok = VRset("Columns_"||R2I, "Checked", VRMethod(Container, "GetFieldAttr", fields.I, "Visible" ))
219            ok = VRset("Columns_"||R2I, "Userdata", Container'|'fields.I'|'VRMethod(Container, "GetFieldAttr", fields.I, "Visible" ))
220        end
221        else ok = VRset("Columns_"||R2I, "Visible", 0)
222    end
223    ok = VRMethod( "Columns", "Popup", , , "", "" )   
224return
225
226/*:VRX         _ContainerInit
227*/
228_ContainerInit:
229    say '_ContainerInit() started.'
230
231    /* User */
232    UIconH     = VRMethod( "CN_Users", "AddField", "Icon",   NLVGetMessage(148) )
233    UsernameFH = VRMethod( "CN_Users", "AddField", "String", NLVGetMessage(131) )
234    GroupFH    = VRMethod( "CN_Users", "AddField", "String", NLVGetMessage(132) )
235    UMachineFH = VRMethod( "CN_Users", "AddField", "String", NLVGetMessage(133) )
236    UIPAdrFH   = VRMethod( "CN_Users", "AddField", "String", NLVGetMessage(147) )
237    UPIDFH     = VRMethod( "CN_Users", "AddField", "String", NLVGetMessage(130) ) 
238
239    /* Files */
240    FIconH     = VRMethod( "CN_Files", "AddField", "Icon",   NLVGetMessage(148) )
241    FileFH     = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(134) )
242    FUserFH    = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(131) )
243    FPIDFH     = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(130) )
244    DenyModeFH = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(135) )
245    TimeFH     = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(136) )
246    DateFH     = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(149) )
247    AccessFH   = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(137) )
248    RWFH       = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(138) )
249    OplockFH   = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(139) )
250    UIDFH      = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(140) )
251    SharePathFH= VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(141) )
252    NameFH     = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(142) )
253
254    /* service */
255    SIconH     = VRMethod( "CN_Service", "AddField", "Icon",   NLVGetMessage(148) )
256    SPIDFH     = VRMethod( "CN_Service", "AddField", "String", NLVGetMessage(130) )
257    ServiceFH  = VRMethod( "CN_Service", "AddField", "String", NLVGetMessage(143) )
258    SMachineFH = VRMethod( "CN_Service", "AddField", "String", NLVGetMessage(133) )
259    ConnectedFH= VRMethod( "CN_Service", "AddField", "String", NLVGetMessage(144) )
260
261    /* daemons */
262    DaemonFH   = VRMethod( "CN_Daemons", "AddField", "String", NLVGetMessage(145) )
263    DStatusFH  = VRMethod( "CN_Daemons", "AddField", "String", NLVGetMessage(146) )
264    DPidsFH    = VRMethod( "CN_Daemons", "AddField", "String", NLVGetMessage(130) )
265
266    /* chktdb */
267    ChkTDBFilesFH = VRMethod( "CN_CHKTDB", "AddField", "String", NLVGetMessage(134) )
268    ChkTDBIconFH  = VRMethod( "CN_CHKTDB", "AddField", "Icon",   NLVGetMessage(146) )
269    ChkTDBSizeFH  = VRMethod( "CN_CHKTDB", "AddField", "String", NLVGetMessage(152) )
270    ChkTDBStatusFH= VRMethod( "CN_CHKTDB", "AddField", "String", NLVGetMessage(151) )
271
272    /* Browse tree */
273    WorkgroupFH= VRMethod( "CN_smbtree", "AddField", "String", NLVGetMessage(150)  )
274    NBFH      = VRMethod( "CN_smbtree", "AddField", "String", "NetBIOS name" )
275    IpFH      = VRMethod( "CN_smbtree", "AddField", "String",  NLVGetMessage(147)  )
276    MBFH      = VRMethod( "CN_smbtree", "AddField", "String", "DMB/LMB" )   
277   
278    OSFH   = VRMethod( "CN_smbtree", "AddField", "String", "OS" )   
279    /* VersionFH = VRMethod( "CN_SmbTree", "AddField", "String", "Version" ) */
280    CommentFH = VRMethod( "CN_smbtree", "AddField", "String", NLVGetMessage(151) )
281    MacFH = VRMethod( "CN_smbtree", "AddField", "String", "MAC" )
282
283    ok = VRMethod("CN_smbtree","SetfieldAttr",IPFH,       "ReadOnly", 1)
284    ok = VRMethod("CN_smbtree","SetfieldAttr",NBFH,       "ReadOnly", 1)
285    ok = VRMethod("CN_smbtree","SetfieldAttr",MBFH,       "ReadOnly", 1)
286    ok = VRMethod("CN_smbtree","SetfieldAttr",WorkGroupFH,"ReadOnly", 1)
287    ok = VRMethod("CN_smbtree","SetfieldAttr",OSFH,       "ReadOnly", 1)
288    ok = VRMethod("CN_smbtree","SetfieldAttr",MacFH,      "ReadOnly", 1)
289
290
291    /* add records for the 3 daemons */
292    smbdHandle = VRMethod("CN_Daemons", "Addrecord",, ,"smbd.exe","$41")
293    ok = VRMethod("CN_Daemons", "SetFieldData", smbdHandle, DaemonFH, "smbd.exe")
294    nmbdHandle = VRMethod("CN_Daemons", "Addrecord", ,,"nmbd.exe","$41")
295    ok = VRMethod("CN_Daemons", "SetFieldData", nmbdHandle, DaemonFH, "nmbd.exe")
296    winbHandle = VRMethod("CN_Daemons", "Addrecord",, ,"winbindd.exe","$41")
297    ok = VRMethod("CN_Daemons", "SetFieldData", winbHandle, DaemonFH, "winbindd.exe")
298    ok = (stream(samba.!bin'\winbindd.exe','c','query exists') <> "")
299    ok = VRMethod("CN_Daemons", "SetRecordAttr", winbHandle, "Visible", ok)
300
301    ok = VRMethod("CN_Daemons","SetRecordAttr","All", "Collapsed", 0 )
302
303    say '_ContainerInit() done.'
304return
305/*:VRX         _ContainerSort
306*/
307_ContainerSort:
308    ok = VRMethod( "LB_SortFields", "GetSelectedList", "SortFields." )
309    if Fields.0 = 0 then return
310    idx = SortFields.1
311    ok = VRset( Container, "DetailSort", Fields.idx )
312    ok = VRSet( Container, "Sort", SortOrder )
313    ok = VRMethod( Container, "SortRecords" )
314return
315
316/*:VRX         _CreateSmbStarter
317*/
318_CreateSmbStarter:
319ok = SysFileDelete(samba.!bin'\smbstarter.cmd')
320call lineout samba.!bin'\smbstarter.cmd', '/* REXX */'
321call lineout samba.!bin'\smbstarter.cmd', 'signal on failure name CLEANUP'
322call lineout samba.!bin'\smbstarter.cmd', 'signal on halt name CLEANUP'
323call lineout samba.!bin'\smbstarter.cmd', 'signal on syntax name CLEANUP'
324call lineout samba.!bin'\smbstarter.cmd', 'say "Samba Server Starter"'
325call lineout samba.!bin'\smbstarter.cmd', 'address cmd "@echo off"'
326call lineout samba.!bin'\smbstarter.cmd', 'home:'
327call lineout samba.!bin'\smbstarter.cmd', 'select'
328call lineout samba.!bin'\smbstarter.cmd', 'when VRFileExists("smbstart") then do'
329call lineout samba.!bin'\smbstarter.cmd', 'say "Start"'
330call lineout samba.!bin'\smbstarter.cmd', 'address cmd "call 'samba.!bin'\smb.cmd start"'
331call lineout samba.!bin'\smbstarter.cmd', 'ok = SysFileDelete("smbstart")'
332call lineout samba.!bin'\smbstarter.cmd', 'end'
333call lineout samba.!bin'\smbstarter.cmd', 'when VRFileExists("smbstop") then do'
334call lineout samba.!bin'\smbstarter.cmd', 'say "Stop"'
335call lineout samba.!bin'\smbstarter.cmd', 'address cmd "call 'samba.!bin'\smb.cmd stop"'
336call lineout samba.!bin'\smbstarter.cmd', 'ok = SysFileDelete("smbstop")'
337call lineout samba.!bin'\smbstarter.cmd', 'end'
338call lineout samba.!bin'\smbstarter.cmd', 'when VRFileExists("restart") then do'
339call lineout samba.!bin'\smbstarter.cmd', 'say "Restart"'
340call lineout samba.!bin'\smbstarter.cmd', 'address cmd "call 'samba.!bin'\smb.cmd restart"'
341call lineout samba.!bin'\smbstarter.cmd', 'ok = SysFileDelete("restart")'
342call lineout samba.!bin'\smbstarter.cmd', 'end'
343call lineout samba.!bin'\smbstarter.cmd', 'when VRFileExists("reload") then do'
344call lineout samba.!bin'\smbstarter.cmd', 'say "Reload"'
345call lineout samba.!bin'\smbstarter.cmd', 'address cmd "call 'samba.!bin'\smb.cmd reload"'
346call lineout samba.!bin'\smbstarter.cmd', 'ok = SysFileDelete("reload")'
347call lineout samba.!bin'\smbstarter.cmd', 'end'
348call lineout samba.!bin'\smbstarter.cmd', 'when VRFileExists("quit") then do'
349call lineout samba.!bin'\smbstarter.cmd', 'say "Quit"'
350call lineout samba.!bin'\smbstarter.cmd', 'ok = SysFileDelete("quit")'
351call lineout samba.!bin'\smbstarter.cmd', 'signal cleanup'
352call lineout samba.!bin'\smbstarter.cmd', 'end'
353call lineout samba.!bin'\smbstarter.cmd', 'otherwise nop'
354call lineout samba.!bin'\smbstarter.cmd', 'end'
355call lineout samba.!bin'\smbstarter.cmd', 'ok = SysSleep(1)'
356call lineout samba.!bin'\smbstarter.cmd', 'signal home'
357call lineout samba.!bin'\smbstarter.cmd', 'cleanup:'
358call lineout samba.!bin'\smbstarter.cmd', 'say "Aborting..."'
359call lineout samba.!bin'\smbstarter.cmd', 'exit'
360ok = stream(samba.!bin'\smbstarter.cmd','c','close')
361
362Setup = 'NOPRINT=YES;DEFAULTVIEW=RUNNING;'||,
363        'EXENAME='samba.!bin'\smbstarter.cmd;'||,
364        'STARTUPDIR='samba.!bin';'||,
365        'TITLE=;'||,
366        'PROGTYPE=WINDOWABLEVIO;'||,
367        'MINIMIZED=YES;'||,
368        'VISIBLE=NO;'||,
369        'NOAUTOCLOSE=NO;'||,
370        'OBJECTID=<smbstarter>'
371
372rc = SysCreateObject('WPProgram', 'SMBSTARTER', '<WP_NOWHERE>', Setup, 'UPDATE' )
373If rc <> 1 Then Say ' > failed to create SMBSTARTER Object'
374else ok = SysOpenObject('<smbstarter>', 'DEFAULT', 1)
375
376
377return
378
379/*:VRX         _GuessIcon
380*/
381_GuessIcon: procedure
382    text = arg(1)
383    select /* Printer guessing */
384        when pos('LJ',text)      > 0 then res = '#65:PMWP.DLL'
385        when pos('LASER',text)   > 0 then res = '#65:PMWP.DLL'
386        when pos('EPSON',text)   > 0 then res = '#65:PMWP.DLL'
387        when pos('PRINT',text)   > 0 then res = '#65:PMWP.DLL'
388        when pos('PRT',text)     > 0 then res = '#65:PMWP.DLL'
389        when pos('CANON',text)   > 0 then res = '#65:PMWP.DLL'
390        when pos('MINOLTA',text) > 0 then res = '#65:PMWP.DLL'
391        when pos('FAX',text)     > 0 then res = '#65:PMWP.DLL'
392        when pos('LEXMARK',text) > 0 then res = '#65:PMWP.DLL'
393        when pos('IPC$',text)    > 0 then res = '#59:PMWP.DLL'
394        otherwise res = "#34:PMWP.DLL"
395    end
396return res
397
398/*:VRX         _GUIInit
399*/
400_GUIInit:
401    IF options.!debug == 1 then say time()' _GUIInit() started'
402
403    if datatype(Top) = 'NUM' then do
404        ok = VRset("Main","Top",Top)
405        ok = VRset("Main","Left",Left)
406        ok = VRset("Main","Width",Width)
407        ok = VRset("Main","Height",Height)
408    end
409
410    ok = VRSet("Main",        "Font", Font.!Main)
411    ok = VRSet("DT_StatusBar","Font", Font.!Status)
412    ok = VRSet("SW_Users",    "Font", Font.!Users)
413    ok = VRSet("SW_Files",    "Font", Font.!Files)
414    ok = VRSet("SW_Service",  "Font", Font.!Service)
415    ok = VRSet("SW_Daemons",  "Font", Font.!Daemons)
416    ok = VRSet("SW_SMBTree",  "Font", Font.!SMBTree)
417    ok = VRSet("SW_Settings", "Font", Font.!Settings)
418
419    ok = VRSet("CN_Users",    "Font", Font.!Users)
420    ok = VRSet("CN_Files",    "Font", Font.!Files)
421    ok = VRSet("CN_Service",  "Font", Font.!Service)
422    ok = VRSet("CN_Daemons",  "Font", Font.!Daemons)
423    ok = VRSet("CN_SMBTree",  "Font", Font.!SMBTree)
424
425
426    Buttonwidth = VRMethod( "Screen", "PixelsToTwips", 32 )
427
428    ok = VRSet("SPIN_Intervall",   "Value", Intervall)
429    ok = VRSet("SPIN_IntervallMin","Value", IntervallMin)
430    ok = VRSet("TM_Refresh","Delay", Intervall * 1000)
431   
432    ok = VRSet("PB_START",  "Enabled", VRFileExists(samba.!smbcmd))
433    ok = VRSet("PB_Restart","Enabled", VRFileExists(samba.!smbcmd))
434    ok = VRSet("PB_Reload", "Enabled", VRFileExists(samba.!smbcmd))
435
436    ok = VRSet("CN_Daemons",      "View", DaemonView)
437    ok = VRSet("CN_smbtree",      "View", TreeView)
438    ok = VRSet("CB_NoMsgBox",     "Set",  NoMsgBox)
439    ok = VRSet("CB_WPSStartStop", "Set",  WPSStartStop)
440    ok = VRSet("CB_DetectZombies","Set",  DetectZombies)
441
442    call _INILayoutRead "CN_Users"
443    call _INILayoutRead "CN_Files"
444    call _INILayoutRead "CN_Service"
445    call _INILayoutRead "CN_Daemons"
446    call _INILayoutRead "CN_smbtree"
447
448    ok = VRset("CN_DAEMONS", "MiniIcons", \advanced.!bigicons)
449    ok = VRset("CN_SMBTREE", "MiniIcons", \advanced.!bigicons)
450    ok = VRset("ContextMenu_Tree_MiniIcons",  "Checked", \advanced.!bigicons)
451    ok = VRset("ContextMenu_Daemons_MiniIcons",  "Checked", \advanced.!bigicons)
452    ok = VRSet("CB_Debug","set",options.!Debug)
453
454    if _ChkTempFreeSpace() < 262144 then do
455        Msg.Type = "W"
456        Msg.Text = NLVGetMessage(116, TempDir)
457        call _ShowMsg
458    end
459
460    /* Common margin around controls */
461    margin = ((VRGet("Main", "InteriorLeft") / 3) * 2) + 2
462
463    /* Statusbar */
464    ok = VRSet("DT_STATUSBAR","Caption", VRGet("Main", "HintText"))
465
466    call Main_Resize
467
468   
469    ok = VRSet("Main", "Visible", 1)
470    IF options.!debug == 1 then say time()' _GUIInit() done'
471return
472
473/*:VRX         _INILayoutRead
474*/
475_INILayoutRead:
476    Container = arg(1)
477    ok = VRMethod(Container, "GetFieldList", "Fields." )
478    Layout = VRGetIni( "Layout", Container,  OurINI )
479    if Layout = "" then return
480    do I = 1 to Fields.0
481        ok = VRMethod(Container, "SetFieldAttr", fields.I,"Visible", substr(Layout,I,1))
482    end
483return
484
485/*:VRX         _INILayoutWrite
486*/
487_INILayoutWrite:
488    Container = arg(1)
489    ok = VRMethod(Container, "GetFieldList", "Fields." )
490    Layout = ""
491    do I = 1 to fields.0
492        Layout = Layout||VRMethod(Container, "GetFieldAttr", fields.I, "Visible" )       
493    end
494    ok = VRSetIni( "Layout", Container , Layout, OurINI, 'NoClose' )
495return
496
497/*:VRX         _INIRead
498*/
499_INIRead:
500    IF options.!debug == 1 then say time()' _INIRead() started'
501
502    OurINI = strip(VRParseFileName(VRget("Application","Program"),'DP')'\SMBSTATUS.INI',,'\')
503    ok = SysFileTree(OurINI, INIFound.,'FO')
504    if INIFound.0 = 1 then OurINI = VRParseFileName(INIFound.1,'DPNE')
505    IF options.!debug == 1 then say '  OurINI='OurINI
506
507    Top   = VRGetIni( "Pos", "Top",    OurINI , 'NoClose')
508    Left  = VRGetIni( "Pos", "Left",   OurINI , 'NoClose')
509    Width = VRGetIni( "Pos", "Width",  OurINI , 'NoClose')
510    Height= VRGetIni( "Pos", "Height", OurINI , 'NoClose')
511
512    Font.!Users   = VRGetIni( "Fonts", "SW_USERS",    OurINI , 'NoClose' )
513    Font.!Files   = VRGetIni( "Fonts", "SW_FILES",    OurINI , 'NoClose' )
514    Font.!Service = VRGetIni( "Fonts", "SW_SERVICE",  OurINI , 'NoClose' )
515    Font.!Daemons = VRGetIni( "Fonts", "SW_DAEMONS",  OurINI , 'NoClose' )
516    Font.!SMBTree = VRGetIni( "Fonts", "SW_SMBTREE",  OurINI , 'NoClose' )
517    Font.!Settings= VRGetIni( "Fonts", "SW_SETTINGS", OurINI , 'NoClose' )
518    Font.!Main    = VRGetIni( "Fonts", "Main",        OurINI , 'NoClose' )
519    Font.!Status  = VRGetIni( "Fonts", "Statusfont",  OurINI , 'NoClose' )
520
521    if Font.!Users    = "" then Font.!Users    = "9.WarpSans"
522    if Font.!Files    = "" then Font.!Files    = "9.WarpSans"
523    if Font.!Service  = "" then Font.!Service  = "9.WarpSans"
524    if Font.!Daemons  = "" then Font.!Daemons  = "9.WarpSans"
525    if Font.!SMBTree  = "" then Font.!SMBTree  = "9.WarpSans"
526    if Font.!Settings = "" then Font.!Settings = "9.WarpSans"
527    if Font.!Main     = "" then Font.!Main     = "9.WarpSans"
528    if Font.!Status   = "" then Font.!Status   = "9.WarpSans"
529
530    Intervall = VRGetIni( "Settings", "Intervall", OurINI,'NoClose')
531    if Intervall = "" then Intervall = 60
532
533    IntervallMin = VRGetIni( "Settings", "IntervallMin", OurINI,'NoClose')
534    if IntervallMin = "" then IntervallMin = 180
535
536    CurrentPageNr = VRGetIni( "Settings", "CurrentPageNr", OurINI,'NoClose')
537    if CurrentPageNr = "" then CurrentPageNr = 4
538
539    DaemonView = VRGetIni( "Settings", "DaemonView", OurINI,'NoClose')
540    if DaemonView = "" then DaemonView = "Detail"
541
542    TreeView = VRGetIni( "Settings", "TreeView", OurINI,'NoClose')
543    if TreeView = "" then TreeView = "IconTree"
544
545    NoMsgBox = VRGetIni( "Settings", "NoMsgBox", OurINI,'NoClose')
546    if NoMsgBox = "" then NoMsgBox = 1
547
548    WPSStartStop = VRGetIni( "Settings", "WPSStartStop", OurINI,'NoClose')
549    if WPSStartStop = "" then WPSStartStop = 1
550
551    DetectZombies = VRGetIni( "Settings", "DetectZombies", OurINI,'NoClose')
552    if DetectZombies = "" then DetectZombies = 0
553
554    options.!debug = VRGetIni( "Options", "Debug", OurINI)
555    if options.!debug = "" then options.!debug = 0
556
557    if options.!Debug then ok = VRRedirectStdIO("ON")
558                      else ok = VRRedirectStdIO("OFF")
559
560    advanced.!bigicons = VRGetIni( "Settings", "BigIcons", OurINI)
561    if advanced.!bigicons = "" then advanced.!bigicons = 0
562
563    /* For Browse page */
564    FirstRun = 1
565    /* For Users page in case connections.tdb is not initialised */
566    IgnoreSmbNoInit = 1
567
568    /* For Refresh tree display code */
569    RefreshMode =""
570
571    smbdpidhandle.0 = 0
572    nmbdpidhandle.0 = 0
573    winbpidhandle.0 = 0
574
575    prevsmbdct = 0
576    prevnmbdct = 0
577    prevwinbct = 0
578
579    smbdoutput = TempDir'smbd.out'
580    IF options.!debug == 1 then say time()' _INIRead() done'
581return
582
583/*:VRX         _INIWrite
584*/
585_INIWrite:
586    IF options.!debug == 1 then say time()' _INIWrite() started'
587    ok = VRSetIni( "Pos", "Top",          VRGet("Main","Top"),         OurINI, 'NoClose' )
588    ok = VRSetIni( "Pos", "Left",         VRGet("Main","Left"),        OurINI, 'NoClose' )
589    ok = VRSetIni( "Pos", "Width",        VRGet("Main","Width"),       OurINI, 'NoClose' )   
590    ok = VRSetIni( "Pos", "Height",       VRGet("Main","Height"),      OurINI, 'NoClose' )
591
592    ok = VRSetIni( "Settings", "Intervall",    VRGet("SPIN_Intervall","Value"),OurINI,'NoClose')
593    ok = VRSetIni( "Settings", "IntervallMin", VRGet("SPIN_IntervallMin","Value"),OurINI,'NoClose')
594    ok = VRSetIni( "Settings", "CurrentPageNr",CurrentPageNr,                  OurINI,'NoClose')
595    ok = VRSetIni( "Settings", "DaemonView",   VRGet("CN_Daemons","View"),     OurINI,'NoClose')
596    ok = VRSetIni( "Settings", "TreeView",     VRGet("CN_smbtree","View"),     OurINI,'NoClose')
597    ok = VRSetIni( "Settings", "NoMsgBox",     NoMsgBox,                       OurINI,'NoClose')
598    ok = VRSetIni( "Settings", "WPSStartStop", WPSStartStop,                   OurINI,'NoClose')
599    ok = VRSetIni( "Settings", "BigIcons",     \VRGet("CN_SMBTREE", "MiniIcons"),OurINI,'NoClose')
600    ok = VRSetIni( "Settings", "DetectZombies",DetectZombies,                  OurINI,'NoClose')
601
602    ok = VRSetIni( "Options",  "Debug",    options.!debug,             OurINI, 'NoClose' )     
603
604    call _INILayoutWrite "CN_Users"
605    call _INILayoutWrite "CN_Files"
606    call _INILayoutWrite "CN_Service"
607    call _INILayoutWrite "CN_Daemons"
608    call _INILayoutWrite "CN_smbtree"
609
610    if VRGet("CN_USERS",   "Font") <> "<default>" then ok = VRSet("SW_USERS",  "Font", VRGet("CN_USERS",  "Font"))
611    if VRGet("CN_FILES",   "Font") <> "<default>" then ok = VRSet("SW_FILES",  "Font", VRGet("CN_FILES",  "Font"))
612    if VRGet("CN_SERVICE", "Font") <> "<default>" then ok = VRSet("SW_SERVICE","Font", VRGet("CN_SERVICE","Font"))
613    if VRGet("CN_DAEMONS", "Font") <> "<default>" then ok = VRSet("SW_DAEMONS","Font", VRGet("CN_DAEMONS","Font"))
614    if VRGet("CN_SMBTREE", "Font") <> "<default>" then ok = VRSet("SW_SMBTREE","Font", VRGet("CN_SMBTREE","Font"))
615     
616    ok = VRSetIni( "Fonts", "SW_USERS",   VRGet("SW_USERS",   "Font"), OurINI, 'NoClose' )
617    ok = VRSetIni( "Fonts", "SW_FILES",   VRGet("SW_FILES",   "Font"), OurINI, 'NoClose' )
618    ok = VRSetIni( "Fonts", "SW_SERVICE", VRGet("SW_SERVICE", "Font"), OurINI, 'NoClose' )
619    ok = VRSetIni( "Fonts", "SW_DAEMONS", VRGet("SW_DAEMONS", "Font"), OurINI, 'NoClose' )
620    ok = VRSetIni( "Fonts", "SW_SMBTREE", VRGet("SW_SMBTREE", "Font"), OurINI, 'NoClose' )
621    ok = VRSetIni( "Fonts", "SW_SETTINGS",VRGet("SW_SETTINGS","Font"), OurINI, 'NoClose' )
622    ok = VRSetIni( "Fonts", "Statusfont", VRGet("DT_StatusBar","Font"),OurINI, 'NoClose' )
623    ok = VRSetIni( "Fonts", "Main",       VRGet("Main","Font"),        OurINI )
624    IF options.!debug == 1 then say time()' _INIWrite() done'
625return
626
627/*:VRX         _LoadotherFuncs
628*/
629_LoadotherFuncs:
630    IF options.!debug == 1 then say time()' _LoadotherFuncs() started'
631    SIGNAL ON SYNTAX NAME DLLMissing
632
633    call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
634    call SysLoadFuncs
635
636    call RxFuncAdd 'PRLoadFuncs',  'PR1UTIL', 'PRLoadFuncs'
637    call PRLoadFuncs
638
639    SIGNAL OFF SYNTAX
640    IF options.!debug == 1 then say time()' _LoadotherFuncs() done'
641return
642
643DLLMissing:
644    Fatal = 1
645    call VRMessage 'Main', 'REXX function library 'strip(translate(word(sourceline(SIGL-1),4),'  ',"',"))'.DLL is missing!', "EVFSGUI fatal error", "E"
646signal Quit
647/*:VRX         _MsgYesNo
648*/
649_MsgYesNo:
650    say "_MsgYesNo() started"
651    buttons.0 = 2
652    buttons.1 = NLVGetMessage(6)
653    buttons.2 = NLVGetMessage(7)
654    default = 2
655    buttons.default = NLVGetMessage(7)
656    esc = 2
657    buttons.esc = NLVGetMessage(7)
658    RC = VRMessage( VRWindow(), Msg.Text, Msg.Title,"Q","buttons.",default, esc )
659    say "_MsgYesNo() done, answer "RC
660return RC
661
662/*:VRX         _NLVSetup
663*/
664_NLVSetup:
665
666    Msg.Title = NLVGetMessage(1)
667    ok = VRSet("Main","helpFile", settings.!helpfile)
668
669    CALL NLVSetText 'PB_Refresh',  'Caption', 11
670    CALL NLVSetText 'PB_Cancel',   'Caption', 12
671    CALL NLVSetText 'PB_Help',     'Caption', 13
672    CALL NLVSetText 'PB_About',    'Caption', 14
673
674    CALL NLVSetText 'PB_Refresh',  'Hinttext', 51
675    CALL NLVSetText 'PB_Cancel',   'Hinttext', 54
676    CALL NLVSetText 'PB_Help',     'Hinttext', 52
677    CALL NLVSetText 'PB_About',    'Hinttext', 53
678
679/*  CALL NLVSetText 'TAB_1',       'Userdata', 15
680    CALL NLVSetText 'TAB_2',       'Userdata', 16
681    CALL NLVSetText 'TAB_3',       'Userdata', 17
682    CALL NLVSetText 'TAB_4',       'Userdata', 18
683    CALL NLVSetText 'TAB_5',       'Userdata', 19
684    CALL NLVSetText 'TAB_6',       'Userdata', 24
685
686    CALL NLVSetText 'TAB_1',       'Hinttext', 55
687    CALL NLVSetText 'TAB_2',       'Hinttext', 56
688    CALL NLVSetText 'TAB_3',       'Hinttext', 57
689    CALL NLVSetText 'TAB_4',       'Hinttext', 58
690    CALL NLVSetText 'TAB_5',       'Hinttext', 59
691    CALL NLVSetText 'TAB_6',       'Hinttext', 60 */
692
693/*  CALL NLVSetText 'Page_1',      'Hinttext', 55
694    CALL NLVSetText 'Page_2',      'Hinttext', 56
695    CALL NLVSetText 'Page_3',      'Hinttext', 57
696    CALL NLVSetText 'Page_4',      'Hinttext', 58
697    CALL NLVSetText 'Page_5',      'Hinttext', 59
698    CALL NLVSetText 'Page_6',      'Hinttext', 60  */
699
700    CALL NLVSetText 'DT_Refresh',      'Caption',  25
701    CALL NLVSetText 'DT_RefreshMin',   'Caption',  25
702    CALL NLVSetText 'DT_Intervall',    'Caption',  26
703    ok = VRSet("DT_IntervallMin",      "Caption", NLVGetMessage(26)' 'NLVGetMessage(28))
704    CALL NLVSetText 'CB_NoMsgBox',     'Caption',  27
705    CALL NLVSetText 'CB_WPSSTARTSTOP', 'Caption',  29
706    CALL NLVSetText 'CB_DetectZombies','Caption',  30
707
708    CALL NLVSetText 'ContextMenu_Daemons_Sort',   'Caption', 35
709    CALL NLVSetText 'ContextMenu_Daemons_Ping',   'Caption', 32
710    CALL NLVSetText 'ContextMenu_Daemons_Details','Caption', 118
711    CALL NLVSetText 'ContextMenu_Daemons_Tree',   'Caption', 120
712
713    CALL NLVSetText 'ContextMenu_Files_Sort',     'Caption', 35
714
715    CALL NLVSetText 'ContextMenu_Service_Sort',   'Caption', 35
716    CALL NLVSetText 'ContextMenu_Service_CloseSHare', 'Caption', 70
717
718    CALL NLVSetText 'ContextMenu_Users_SendMsg', 'Caption', 80
719    CALL NLVSetText 'ContextMenu_Users_Sort',    'Caption', 35   
720
721    CALL NLVSetText 'ContextMenu_Tree_SendMsg',  'Caption', 80
722    CALL NLVSetText 'ContextMenu_Tree_Sort',     'Caption', 35   
723    CALL NLVSetText 'ContextMenu_Tree_Tree',     'Caption', 120
724    CALL NLVSetText 'ContextMenu_Tree_Details',  'Caption', 118
725return
726
727/*:VRX         _Refresh
728*/
729_Refresh:
730    IF options.!debug == 1 then say time()' _Refresh() started'
731    ok = VRSet("TM_refresh","Enabled", 0)
732    SmbNoInit = 0
733
734    refreshoutput = TempDir'refresh.out'
735    refresherr    = TempDir'refresh.err'
736
737    say '  'samba.!smbd' -V --debuglevel=0 2>'refresherr' 1>'refreshoutput
738    address cmd samba.!smbd' -V --debuglevel=0 2>'refresherr' 1>'refreshoutput
739
740    SambaVer = "Samba "||strip(linein(refreshoutput))
741    say '  smbd.exe:  "'SambaVer'"'
742    ok = stream(refreshoutput,'c','close')
743
744    say     '  'samba.!smbstatusexe' smbd 'DebugLevel' 2>'refresherr' 1>'refreshoutput
745    address cmd samba.!smbstatusexe' smbd 'DebugLevel' 2>'refresherr' 1>'refreshoutput
746
747    /* First line is usually empty */
748    Hdr      = linein(refreshoutput)
749    SambaStVer = strip(linein(refreshoutput)) /* we can detect version mismatches here */
750    say '  smbstatus: "'SambaStVer'"'
751
752    select
753        when pos('not initialised',SambaStVer) > 0 then do
754            SambaVer = SambaVer||" (Init)"
755            SmbNoInit = 1
756        end
757        when translate(SambaStVer) <> translate(SambaVer) then SambaVer = SambaVer||" (Hybrid)"
758        otherwise nop
759    end
760
761    Ok = VRSet("Main", "Caption", SambaVer' - 'NLVGetMessage(146))
762
763    /* Active User */
764    Hdr1 = linein(refreshoutput)
765/* say '  1:'hdr1 */
766    Hdr2 = linein(refreshoutput)
767/* say '  2:'hdr2 */
768    Zeile = linein(refreshoutput)
769    say '    'Zeile
770    if SmbNoInit then do
771        call lineout samba.!msg, SambaStVer
772        call lineout samba.!msg, Hdr1
773        call lineout samba.!msg, Hdr2
774        call lineout samba.!msg, Zeile
775        ok = stream(samba.!msg,'c','close')
776        if IgnoreSmbNoInit then do
777            call _SambaShowMsg
778            IgnoreSmbNoInit = 0
779        end
780    end
781
782    say '  SmbNoInit = 'SmbNoInit
783
784    /* Active users */
785    ok = VRSet("CN_Users","Painting", 0)
786    ok = VRMethod("CN_Users", "RemoveRecord", "ALL")
787    Username.0 = 0
788    IP.0 = 0
789    Group.0 = 0
790    I = 0
791    if \SmbNoInit then do
792        do while Zeile <> ''
793            parse var Zeile UPID Username Group Machine IP
794            I = I + 1
795            UPID.I = UPID
796            Username.I = Username
797            Group.I = Group
798            IP = strip(IP)
799            parse var IP '('IP.I')'
800            RecHandle = VRMethod("CN_Users", "Addrecord")
801            ok = VRMethod("CN_Users", "SetFieldData", RecHandle, UIconH, "$44", UPIDFH, UPID, UsernameFH, Username, GroupFH, Group, UMachineFH, Machine, UIPAdrFH, IP.I)
802            Zeile = linein(refreshoutput)
803        end   
804    end
805    Username.0 = I
806    Group.0 = I
807    UPID.0 = I
808    ok = VRSet("CN_Users","Painting", 1)
809
810    /* Active Services */
811    Hdr = linein(refreshoutput)
812    Hdr = linein(refreshoutput)
813    I = 0
814    Zeile = linein(refreshoutput)
815    ok = VRSet("CN_Service","Painting", 0)
816    ok = VRMethod("CN_Service", "RemoveRecord", "ALL")
817    do while Zeile <> ''
818        parse var Zeile Service SPId Machine Connected
819        I = I + 1
820        SPid.I = SPid
821        Machine.I = Machine
822        Service.I = Service
823        Icon = _GuessIcon(Service.I)
824
825        Connected = strip(Connected)
826        T. = ""
827        parse var Connected T.WDay T.Month T.DoM T.TimeoD T.Year
828        Connected = T.TimeoD', 'T.WDay' 'T.DoM' 'T.Month' 'T.Year
829
830        RecHandle = VRMethod("CN_Service", "Addrecord")
831        ok = VRMethod("CN_Service", "SetFieldData", RecHandle, SIconH, Icon, ServiceFH, Service, SPIDFH, SPID, SMachineFH, Machine, ConnectedFH, Connected)
832        Zeile = linein(refreshoutput)
833    end   
834    SPid.0    = I
835    Machine.0 = I
836    Service.0 = I
837
838    ok = VRSet("CN_Service","Painting", 1)
839
840    /* Open files */
841    Hdr = linein(refreshoutput)
842    Hdr = linein(refreshoutput)
843    Hdr = linein(refreshoutput)
844
845    Zeile = linein(refreshoutput)
846    ok = VRSet("CN_Files","Painting", 0)
847    ok = VRMethod("CN_Files", "RemoveRecord", "ALL")
848    File.0 = 0
849    FPID.0 = 0
850    do while Zeile <> ''
851        parse var Zeile FPid Uid DenyMode Access RW Oplock Sharepath Rest
852        TimeDate = right(rest,25)
853
854say 'Refreshcrash "'Rest'"'
855say 'Refreshcrash "'max(length(Rest)-25)'"'
856
857        Name = strip(left(Rest,max(length(Rest)-25,1)))
858        I = I + 1
859        sharepath = strip(translate(left(sharepath,1))||translate(substr(SharePath,2),'\','/'),'T','\')
860        Username = UID
861        do J = 1 to UPID.0
862            if FPID = UPID.J then do
863                Username = Username.J
864                leave
865            end
866        end
867        File = SharePath||'\'||translate(Name,'\','/')
868        File.I = File
869        FPID.I = FPID
870        TimeDate = strip(TimeDate)
871        say Timedate
872        T. = ""
873        parse var TimeDate T.WDay T.Month T.DoM T.TimeoD T.Year
874        FileTime = T.TimeoD
875        FileDate = T.WDay' 'T.DoM' 'T.Month' 'T.Year
876        RecHandle = VRMethod("CN_Files", "Addrecord")
877        ok = VRMethod("CN_Files", "SetFieldData", RecHandle, FPidFH, FPid, FileFH, File, FUserFH, Username, UidFH, Uid, DenyModeFH, DenyMode,  AccessFH, Access, RWFH, RW)
878        ok = VRMethod("CN_Files", "SetFieldData", RecHandle, FIconH, "$45", TimeFH, FileTime, DateFH, FileDate, OplockFH, Oplock, SharePathFH, Sharepath, NameFH, Name)
879        Zeile = linein(refreshoutput)
880    end   
881    File.0 = I
882    FPID.0 = I
883
884    ok = stream(refreshoutput, 'c','close')
885    ok = SysFileDelete(refreshoutput)
886    ok = stream(refresherr, 'c','close')
887    ok = SysFileDelete(refreshouterr)
888    if VRFileExists( samba.!bin"\smbsched.cmd" ) then do
889        address cmd samba.!bin"\smbsched.cmd"
890    end
891
892    call _RefreshDaemons
893    ok = VRSet("CN_Files","Painting", 1)
894    if VRGet("Main", "WindowState") = "Minimized" then do
895        ok = VRSet("TM_Refresh","Delay", IntervallMin * 1000)   
896    end
897    else do
898        ok = VRSet("TM_Refresh","Delay", Intervall * 1000)
899    end
900    ok = VRSet("TM_refresh","Enabled", 1)
901
902    IF options.!debug == 1 then say time()' _Refresh() done'
903return
904/*:VRX         _RefreshDaemons
905*/
906_RefreshDaemons:
907    IF options.!debug == 1 then say time()' _RefreshDaemons() started'
908    ok = VRSet("TM_RefreshDaemons","Delay",3000)
909
910    ok = VRSet("CN_Daemons","Painting", 0 )
911    call VRSet VRWindow(), 'Pointer', 'Wait'
912
913    do I = 1 to smbdpidhandle.0
914        ok = VRMethod("CN_Daemons", "RemoveRecord", smbdpidhandle.I )
915    end
916
917    do I = 1 to nmbdpidhandle.0
918        ok = VRMethod("CN_Daemons", "RemoveRecord", nmbdpidhandle.I )
919    end
920
921    do I = 1 to winbpidhandle.0
922        ok = VRMethod("CN_Daemons", "RemoveRecord", winbpidhandle.I )
923    end
924
925    Running = _SambaRunning()
926
927    call VRSet VRWindow(), 'Pointer', '<default>'   
928
929    smbdpids = pids.!smbd
930    nmbdpids = pids.!nmbd
931    winbpids = pids.!nmbd
932
933    smbdRunning = running.!smbd
934    nmbdRunning = running.!nmbd
935    winbRunning = running.!winb
936
937    if smbdRunning then do
938        ok = VRMethod("CN_Daemons", "SetFieldData", smbdHandle, DStatusFH, NLVGetMessage(40), DPidsFH, smbdpids)
939        ok = VRMethod("CN_Daemons", "SetRecordAttr", smbdHandle, "Icon", "$46")
940        smbdpidhandle.0 = words(smbdpids)
941        if options.!debug = 1 then do
942            if smbdpidhandle.0 > prevsmbdct then do
943                prevsmbdct = smbdpidhandle.0
944                call beep 880*1, 10
945                call beep 880*2, 10
946                call beep 880*4, 10
947            end
948            if smbdpidhandle.0 < prevsmbdct then do
949                prevsmbdct = smbdpidhandle.0
950                call beep 880*4, 10
951                call beep 880*2, 10
952                call beep 880*1, 10
953            end
954        end
955
956        do I = 1 to words(smbdpids)
957            Username = ""
958            do J = 1 to UPID.0
959                if UPID.J = word(smbdpids,I) then do
960                    Username = ' 'Username.J
961                    leave
962                end
963            end
964            smbdpidhandle.I = VRMethod( "CN_Daemons", "AddRecord", smbdhandle, , 'PID 'word(smbdpids,I)' ('d2x(word(smbdpids,I))'x)', "$48")
965            /* we ping all smbd.exe except the first one */
966            if DetectZombies = 1 & I > 1 then do
967                ok = VRSet("Main", 'Pointer', 'Wait' )
968                address cmd samba.!smbcontrolexe' 'word(smbdpids,I)' ping --timeout=2 --debuglevel=0 2>'samba.!error' 1>'samba.!msg
969                ok = VRSet("Main", 'Pointer', '<default>' )
970                response = linein(samba.!msg)
971                ok = stream(samba.!msg,'c','close')
972                if pos('PONG', response) = 0 then do /* we have a zombie */
973                    ok = VRMethod( "CN_Daemons", "SetRecordAttr", smbdpidhandle.I,"Icon", "$49")
974                    say "  Found Zombie "word(smbdpids,I)
975                end
976            end
977            if Username <> "" then do
978                smbdpidhandle.I.user = VRMethod( "CN_Daemons", "AddRecord", smbdpidhandle.I, , Username, "$44")
979                do J = 1 to FPID.0
980                    if FPID.J = word(smbdpids,I) then do
981                        dummyHandle = VRMethod( "CN_Daemons", "AddRecord", smbdpidhandle.I.user, , File.J, "$45")
982                    end
983                end
984            end
985        end
986    end
987    else do
988        ok = VRMethod("CN_Daemons", "SetFieldData", smbdHandle, DStatusFH, NLVGetMessage(41), DPidsFH, "")
989        ok = VRMethod("CN_Daemons", "SetRecordAttr", smbdHandle, "Icon", "$47")
990        if options.!debug = 1 then do
991            if prevsmbdct > 0 then do
992                prevsmbdct = 0
993                call beep 880*4, 10
994                call beep 880*2, 10
995                call beep 880*1, 10
996            end
997        end
998    end
999
1000    if nmbdRunning then do
1001        ok = VRMethod("CN_Daemons", "SetFieldData", nmbdHandle, DStatusFH, NLVGetMessage(40), DPidsFH, nmbdpids)
1002        ok = VRMethod("CN_Daemons", "SetRecordAttr", nmbdHandle, "Icon", "$46")
1003        nmbdpidhandle.0 = words(nmbdpids)
1004        do I = 1 to words(nmbdpids)
1005            nmbdpidhandle.I = VRMethod( "CN_Daemons", "AddRecord", nmbdhandle, , 'PID 'word(nmbdpids,I)' ('d2x(word(nmbdpids,I))'x)', "$48")
1006        end
1007    end
1008    else do
1009        ok = VRMethod("CN_Daemons", "SetFieldData", nmbdHandle, DStatusFH, NLVGetMessage(41), DPidsFH, "")
1010        ok = VRMethod("CN_Daemons", "SetRecordAttr", nmbdHandle, "Icon", "$47")
1011    end
1012
1013    if winbRunning then do
1014        ok = VRMethod("CN_Daemons", "SetFieldData", winbHandle, DStatusFH, NLVGetMessage(40), DPidsFH, winbpids)
1015        ok = VRMethod("CN_Daemons", "SetRecordAttr", winbHandle, "Icon", "$46")
1016        winbpidhandle.0 = words(winbpids)
1017        do I = 1 to words(winbpids)
1018            winbpidhandle.I = VRMethod( "CN_Daemons", "AddRecord", winbhandle, , 'PID 'word(winbpids,I)' ('d2x(word(winbpids,I))'x)', "$48")
1019        end
1020    end
1021    else do
1022        ok = VRMethod("CN_Daemons", "SetFieldData", winbHandle, DStatusFH, NLVGetMessage(41), DPidsFH, "")
1023        ok = VRMethod("CN_Daemons", "SetRecordAttr", winbHandle, "Icon", "$47")
1024    end
1025
1026    if \(smbdrunning|nmbdrunning|winbrunning) then do
1027        ok = VRSet("PB_START",  "Enabled", 1)
1028        ok = VRSet("PB_STOP",   "Enabled", 0)
1029        ok = VRSet("PB_ReStart","Enabled", 0)
1030        ok = VRSet("PB_ReLoad", "Enabled", 0)
1031    end
1032    else do
1033        ok = VRSet("PB_START",  "Enabled", 0)
1034        ok = VRSet("PB_STOP",   "Enabled", 1)
1035        ok = VRSet("PB_ReStart","Enabled", 1)
1036        ok = VRSet("PB_ReLoad", "Enabled", 1)
1037    end
1038
1039    ok = (stream(samba.!bin'\winbindd.exe','c','query exists') <> "")
1040    ok = VRMethod("CN_Daemons", "SetRecordAttr", winbHandle, "Visible", ok)
1041    ok = VRSet("CN_Daemons","Painting", 1 )
1042    if Running then call _SambaUptime
1043
1044    IF options.!debug == 1 then say time()' _RefreshDaemons() done'
1045return
1046
1047/*
1048_pids: procedure
1049    pongfile = arg(1)
1050    pids = ''
1051    do until lines(pongfile) = 0
1052        pongline = linein(pongfile)
1053        if word(Pongline,1) = 'PONG' then do
1054            parse var pongline pong from tpid pid
1055            pids = pids||pid', '
1056        end
1057        else pids = pids||pongline
1058    end
1059    pids = strip(strip(pids),,',')
1060    ok = stream(pongfile,'c','close')
1061    ok = SysFileDelete(pongfile)
1062return pids
1063 */
1064
1065/*  pingout = 'ping.out'
1066    '@smbcontrol -t 2 smbd ping -d 0 1>'pingout
1067    if rc = 0 then smbdRunning = 1
1068    ok = VRMethod("CN_Daemons", "SetFieldData", smbdHandle, DPidsFH, _pids(pingout))
1069
1070    '@smbcontrol -t 2 nmbd ping -d 0 1>'pingout
1071    if rc = 0 then nmbdRunning = 1
1072    ok = VRMethod("CN_Daemons", "SetFieldData", nmbdHandle, DPidsFH, _pids(pingout))
1073
1074    '@smbcontrol -t 1 winbindd ping -d 0 1>'pingout
1075    if rc = 0 then winbRunning = 1
1076    ok = VRMethod("CN_Daemons", "SetFieldData", winbHandle, DPidsFH, _pids(pingout))
1077
1078    ok = SysFileDelete(PingOut)
1079*/
1080/*:VRX         _RefreshDaemonsDelay
1081*/
1082_RefreshDaemonsDelay:
1083    IF options.!debug == 1 then say time()' _RefreshDaemonsDelay() started'
1084    IF options.!debug == 1 then say "  Old intervall = "VRGet("TM_RefreshDaemons","Delay")
1085    ok = VRSet("TM_RefreshDaemons","Delay",   60000)
1086    IF options.!debug == 1 then say "  New Intervall = "VRGet("TM_RefreshDaemons","Delay")
1087    IF options.!debug == 1 then say time()' _RefreshDaemonsDelay() done'
1088return
1089
1090/*:VRX         _SambaFindPIDfile
1091*/
1092_SambaFindPIDfile:
1093    IF options.!debug == 1 then say time()' _SambaFindPIDfile() started'
1094
1095    ok = SysFileTree(ETC'\samba\pid\nmbd*pid',nmbdpid.,'FO')
1096    if nmbdpid.0 = 1
1097        then nmbdpidfile = nmbdpid.1;
1098        else nmbdpidfile = ""
1099
1100    IF options.!debug == 1 then say "  nmbdpidfile = "nmbdpidfile
1101
1102    IF options.!debug == 1 then say time()' _SambaFindPIDfile() done'
1103return
1104
1105/*:VRX         _SambaShowError
1106*/
1107_SambaShowError: procedure expose samba. settings. options.
1108    I = 0
1109    do while lines(samba.!error) <> 0
1110        I = I + 1
1111        smberr.I = linein(samba.!error)
1112    end
1113    ok = stream(Samba.!error,"c","close")
1114    smberr.0 = I
1115    Buttons.1 = "OK" /* NLVGetMessage(2) */
1116    Buttons.0 = 1
1117    id = VRMessageStem( VRWindow(), "smberr.", VRGet("Main", "Caption") , "Error", "Buttons.", buttons.1, buttons.1 )
1118    ok = SysFileDelete(Samba.!error)   
1119return
1120
1121/*:VRX         _SambaShowMsg
1122*/
1123_SambaShowMsg: procedure expose samba. settings. options.
1124    say "SambaShowMsg started"
1125    skipWords = arg(1)
1126    skip.0 = words(skipWords)
1127    do J = 1 to skip.0
1128        skip.J = translate(word(skipWords,J))
1129    end
1130    I = 0
1131    do while lines(samba.!msg) <> 0
1132        msgline = linein(samba.!msg)
1133        SkipIt = 0
1134        do J = 1 to skip.0
1135            if pos(skip.J,translate(msgline)) > 0 then do
1136                skipit = 1
1137                leave
1138            end
1139        end
1140        if \SkipIt then do
1141            I = I + 1
1142            smbmsg.I = strip(MsgLine)
1143        end
1144    end
1145    ok = stream(Samba.!msg,"c","close")
1146    say "  stream close "Samba.!msg" = "ok
1147    smbmsg.0 = I
1148    if smbmsg.0 > 0 then do
1149        Buttons.1 = "OK" /* NLVGetMessage(2) */
1150        Buttons.0 = 1
1151        id = VRMessageStem( VRWindow(), "smbmsg.", VRGet("Main", "Caption") , "I", "Buttons.", buttons.1, buttons.1 )
1152    end
1153    ok = SysFileDelete(Samba.!msg)
1154    say "  Delete "Samba.!msg" = "ok
1155    say "SambaShowMsg done"
1156return
1157/*:VRX         _SambaUptime
1158*/
1159_SambaUptime:
1160    IF options.!debug == 1 then say time()' _SambaUptime() started'
1161    call _SambaFindPIDfile
1162    if nmbdpidfile = "" then do
1163        ok = VRset("CN_Daemons", "Caption", NLVGetMessage(42)||" "||NLVGetMessage(41))
1164        return
1165    end
1166
1167    StartTime = SysGetFileDateTime(nmbdpidfile)
1168    if StartTime = -1 then return
1169
1170    NowTime   = substr(date('S'),1,4)'-'substr(date('S'),5,2)'-'substr(date('S'),7,2)' 'time()
1171
1172 /* StartTime = "2007-12-31 00:00:00"
1173    NowTime   = "2008-03-05 08:59:50" */
1174
1175    IF options.!debug == 1 then do
1176        say "  Start Time ='"StartTime"'"
1177        say "  Now   Time ='"NowTime"'"
1178    end
1179
1180    doM.0 = 12
1181    doM.1 = 31; doM.2 = 28; doM.3 = 31; doM.4 = 30; doM.5 = 31; doM.6 = 30;
1182    doM.7 = 31; doM.8 = 31; doM.9 = 30; doM.10= 31; doM.11= 30; doM.12= 31
1183
1184    parse var StartTime sY'-'sM'-'sD' 'sH':'sMi':'sS
1185    parse var NowTime nY'-'nM'-'nD' 'nH':'nMi':'nS
1186
1187    if nY//4 = 0 & nY//400 <> 0 then doM.2 = 29
1188
1189    /* say doM.2 */
1190
1191    uY =nY-sY
1192    uM =nM-sM
1193    uD =nD-sD
1194    uH =nH-sH
1195    uMi=nMi-sMi
1196    uS =nS-sS
1197
1198
1199
1200    if uS < 0 then do; uMi= uMi- 1; uS = uS + 60; end
1201    if uMi< 0 then do; uH = uH - 1; uMi= uMi+ 60; end
1202    if uH < 0 then do; uD = uD - 1; uH = uH + 24; end
1203    if uD < 0 then do;
1204        /* uM = uM - 1; */
1205        if uM < 0 then uMx = uM + 12; else uMx = uM
1206        uD = uD + doM.uMx - 1;
1207    end
1208    if uM < 0 then do; uY = uY - 1; uM = uM + 12; end
1209
1210    /* say uY uM uD uH uMi uS */
1211
1212    UpTimeStr = ' 'NlvGetMessage(43)':'
1213    if uY <> 0 then UpTimeStr = UpTimeStr' 'uY' 'NlvGetMessage(44)
1214    if uM <> 0 then UpTimeStr = UpTimeStr' 'uM' 'NlvGetMessage(45)
1215    if uD <> 0 then UpTimeStr = UpTimeStr' 'uD' 'NlvGetMessage(46)
1216    if uH <> 0 then UpTimeStr = UpTimeStr' 'uH' 'NlvGetMessage(47)
1217    if uMi<> 0 then UpTimeStr = UpTimeStr' 'uMi' 'NlvGetMessage(48)
1218    if uS <> 0 | UpTimeStr = ' 'NlvGetMessage(43)':' then UpTimeStr = UpTimeStr' 'uS' 'NlvGetMessage(49)
1219
1220    loggingfreespace = word(sysdriveinfo(left(samba.!log,2)),2)%1024%1024
1221
1222    ok = VRset("CN_Daemons", "Caption", UpTimeStr' 'loggingfreespace' MB')
1223
1224    select
1225        when loggingfreespace <  50 then ok = VRDeleteFile(samba.!log'\log.*')
1226        when loggingfreespace < 100 then ok = VRset("CN_Daemons","BackColor","Red")
1227        when loggingfreespace < 200 then ok = VRset("CN_Daemons","BackColor","Yellow")
1228        otherwise ok = VRset("CN_Daemons","BackColor","SystemWindow")       
1229    end
1230
1231    IF options.!debug == 1 then say time()' _SambaUptime() done'
1232return
1233
1234/*:VRX         _SendMsg
1235*/
1236_SendMsg:
1237    Buttons.1 = NLVGetMessage( 2 )
1238    Buttons.2 = NLVGetMessage( 3 )
1239    Buttons.0 = 2
1240    Message  = "Blurp!"
1241    id = VRPrompt( VRWindow(), NLVGetMessage( 85 , CurMachine), "Message", NLVGetMessage( 80 ), "Buttons.", buttons.1, buttons.2 )
1242
1243    MsgFile = SysTempFileName(TempDir'\smbmsg.'??? )
1244    call lineout MsgFile, Message
1245    ok = stream(MsgFile,'c','close')
1246say Message
1247    address cmd samba.!smbclientexe' --message='CurMachine' 'DebugLevel' <'MsgFile' 2>&1>'samba.!msg
1248    /* if rc <> 0 then call _SambaShowError; else */
1249    call _SambaShowMsg
1250    ok = SysFileDelete(MsgFile)
1251return
1252
1253/*:VRX         _ShowMsg
1254*/
1255_ShowMsg:
1256    Buttons.1 = NLVGetMessage(2)
1257    Buttons.0 = 1
1258    id = VRMessage( VRWindow(), Msg.Text, Msg.Title, Msg.Type, "Buttons.", buttons.1, buttons.1 )
1259return
1260
1261/*:VRX         _TabbedDialogSetup
1262*/
1263_TabbedDialogSetup:
1264    IF options.!debug == 1 THEN SAY time()' _TabbedDialogSetup started'
1265    w = VRLoad( "TDL_1", VRWindowPath(), "SW_DAEMONS" )
1266    ok = VRMethod( "TDL_1", "InsertPage", w,"+ "NLVGetMessage(18)" ")
1267
1268    w = VRLoad( "TDL_1", VRWindowPath(), "SW_SMBTREE" )
1269    ok = VRMethod( "TDL_1", "InsertPage", w,"+ "NLVGetMessage(19)" ")
1270
1271    w = VRLoad( "TDL_1", VRWindowPath(), "SW_USERS" )
1272    ok = VRMethod( "TDL_1", "InsertPage", w,"+ "NLVGetMessage(15)" ")
1273
1274    w = VRLoad( "TDL_1", VRWindowPath(), "SW_FILES" )
1275    ok = VRMethod( "TDL_1", "InsertPage", w,"+ "NLVGetMessage(16)" ")
1276
1277    w = VRLoad( "TDL_1", VRWindowPath(), "SW_SERVICE" )
1278    ok = VRMethod( "TDL_1", "InsertPage", w,"+ "NLVGetMessage(17)" ")
1279
1280    w = VRLoad( "TDL_1", VRWindowPath(), "SW_CHKTDB" )
1281    ok = VRMethod( "TDL_1", "InsertPage", w,"+ "NLVGetMessage(22)" ")
1282
1283    w = VRLoad( "TDL_1", VRWindowPath(), "SW_SETTINGS" )
1284    ok = VRMethod( "TDL_1", "InsertPage", w,"+ "NLVGetMessage(24)" ")
1285
1286
1287    IF options.!debug == 1 THEN SAY time()' _TabbedDialogSetup done'
1288return
1289
1290/*:VRX         About_Close
1291*/
1292About_Close:
1293    call About_Fini
1294return
1295
1296/*:VRX         About_Create
1297*/
1298About_Create:
1299    call About_Init
1300    ok = VRSet("About","Caption", NLVGetMessage(20))
1301    ok = VRSet("PB_AboutOK","Caption", NLVGetMessage(2))
1302    SambaTeam.0 = 9
1303    SambaTeam.1 = 'Silvan Scherrer'
1304    SambaTeam.2 = 'Herwig Bauernfeind'
1305    SambaTeam.3 = 'Vitali Pelenyov'
1306    SambaTeam.4 = 'Paul Smedley'
1307    SambaTeam.5 = 'Yuri Dario'
1308    SambaTeam.6 = 'Alex Taylor'
1309    SambaTeam.7 = 'Nikolay Kolosov'
1310    SambaTeam.8 = 'All the Samba people'
1311    SambaTeam.9 = 'All the netlabs people'
1312    ok = VRSet("About","Font", VRGet("SW_SETTINGS","Font"))
1313    ok = VRMethod("LB_SambaTeam","AddStringList", "SambaTeam." )
1314    ok = VRSet("DT_SambaTeam","Caption", NLVGetMessage(21))
1315    ok = VRSet("MLE_Version","Value", NLVGetMessage(1)||'0D0A'x||VRGet("Main", "Hinttext")||'0D0A'x||'0D0A'x||SambaVer)
1316return
1317
1318/*:VRX         About_Fini
1319*/
1320About_Fini:
1321    window = VRInfo( "Window" )
1322    call VRDestroy window
1323    drop window
1324return
1325/*:VRX         About_Init
1326*/
1327About_Init:
1328    window = VRInfo( "Object" )
1329    if( \VRIsChildOf( window, "Notebook" ) ) then do
1330        call VRMethod window, "CenterWindow"
1331        call VRSet window, "Visible", 1
1332        call VRMethod window, "Activate"
1333    end
1334    drop window
1335return
1336
1337/*:VRX         Activate
1338*/
1339Activate:
1340    parse arg Nr
1341    /* call PushbackAll */
1342    CurrentPageNr = Nr
1343    /* ok = VRSet("PB_"Nr,"Font","9.WarpSans Bold") */
1344/*  ok = VRSet("TAB_"Nr,"Top", TabTop-8)
1345    ok = VRSet("TAB_"Nr,"Left",TabWidth*(Nr-1)+PageLeft)
1346    ok = VRSet("TAB_"Nr,"PicturePath", "#1"||Nr||";#1"||Nr)
1347    ok = VRset("DT_PageName", "Caption", VRGet("TAB_"Nr, "UserData"))
1348    ok = VRSet("Page_"Nr,"Visible", 1)
1349    select
1350        when Nr = 1 then ok = VRSet("IPB_paper","PicturePath","#4;#4")
1351        when Nr = Pages then ok = VRSet("IPB_paper","PicturePath","#6;#6")
1352        otherwise ok = VRSet("IPB_paper","PicturePath","#5;#5")
1353    end */
1354return
1355
1356/*:VRX         CB_Debug_Click
1357*/
1358CB_Debug_Click:
1359    options.!Debug = VRGet("CB_Debug","set")
1360    if options.!Debug then ok = VRREdirectStdIO("ON")
1361                      else ok = VRREdirectStdIO("OFF")
1362return
1363
1364/*:VRX         CB_DetectZombies_Click
1365*/
1366CB_DetectZombies_Click:
1367    DetectZombies = VRGet("CB_DetectZombies","set")
1368    say 'DetectZombies = "'DetectZombies'"'
1369return
1370
1371/*:VRX         CB_NoMsgBox_Click
1372*/
1373CB_NoMsgBox_Click:
1374    NoMsgBox = VRGet("CB_NoMsgBox","set")
1375    say 'NoMsgBox = "'NoMsgBox'"'
1376return
1377
1378/*:VRX         CB_WPSSTARTSTOP_Click
1379*/
1380CB_WPSSTARTSTOP_Click:
1381    WPSStartStop = VRGet("CB_WPSStartStop","set")
1382    say 'WPSStartStop = "'WPSStartStop'"'
1383return
1384
1385/*:VRX         CN_CHKTDB_ContextMenu
1386*/
1387CN_CHKTDB_ContextMenu:
1388    if VRInfo("Top") < 400 & VRGet("CN_Files", "View") = "Detail" then call _ColumnsMenu "CN_Files"
1389    else do
1390        RH = VRInfo("Record")
1391        OH = VRInfo("Object")
1392        if RH <> "" then do
1393            ok = VRMethod( "Contextmenu_Files", "Popup", , , "", "PositionOnItem" )
1394        end
1395    end
1396return
1397
1398/*:VRX         CN_Daemons_Click
1399*/
1400CN_Daemons_Click:
1401    IF options.!debug == 1 then say time()' CN_Daemons_Click() started'
1402    NowClickedRecord = VRInfo("Record")
1403    say "  NowRecord  = '"NowClickedRecord"'"
1404    say "  LastRecord = '"LastClickedRecord"'"
1405    if NowClickedRecord <> LastClickedRecord then call _RefreshDaemonsDelay
1406    LastClickedRecord = NowClickedRecord
1407    IF options.!debug == 1 then say time()' CN_Daemons_Click() done'
1408return
1409
1410/*:VRX         CN_Daemons_ContextMenu
1411*/
1412CN_Daemons_ContextMenu:
1413    IF options.!debug == 1 THEN SAY time()' CN_Daemons_ContextMenu() started'
1414    if VRInfo("Top") < 400 & VRGet("CN_Daemons", "View") = "Detail" then do
1415        say "  Going for column modification..."
1416        call _ColumnsMenu "CN_Daemons"
1417    end
1418    else do
1419        say "  Going for context menu, record = '"VRInfo("Record")"'"
1420
1421        call _RefreshDaemonsDelay
1422        DRH = VRInfo("Record")
1423        DaemonName = ""
1424
1425        OH = VRInfo("Object")
1426        ok = VRset("ContextMenu_Daemons_Details",   "Visible", 1 )
1427        ok = VRset("ContextMenu_Daemons_Tree",      "Visible", 1 )
1428        ok = VRset("MItem_9",                       "Visible", 1 )
1429        ok = VRset("ContextMenu_Daemons_Sort",      "Visible", 1 )
1430        ok = VRset("ContextMenu_Daemons_MiniIcons", "Visible", 1 )
1431        ok = VRset("MItem_13",                      "Visible", 1 )
1432        ok = VRset("ContextMenu_Daemons_Ping",      "Visible", 1 )
1433        ok = VRset("ContextMenu_Daemons_KillPID",   "Visible", 1 )
1434        ok = VRset("ContextMenu_Daemons_Start",     "Visible", 1 )
1435        ok = VRset("ContextMenu_Daemons_Shutdown",  "Visible", 1 )
1436
1437        if DRH <> "" then do
1438            DaemonName = VRMethod("CN_Daemons", "GetRecordAttr", DRH, "Caption")
1439            ok = VRset("ContextMenu_Daemons_Ping","Visible", 1 )
1440        end
1441
1442        select
1443            when Words(DaemonName) = 3 & pos("PID ",DaemonName) > 0 then do /* a child process with PID in name */
1444                DaemonName = word(DaemonName,2)
1445                ok = VRSet("ContextMenu_Daemons_KillPID", "Caption", NLVGetMessage( 38, DaemonName))
1446                ok = VRset("ContextMenu_Daemons_Start", "Visible", 0 )
1447            end
1448            when Words(DaemonName) = 1 & (pos("mbd.exe",Daemonname) > 0 | pos("winbindd.exe",Daemonname) > 0) then do /* on root process */
1449                parse var DaemonName DaemonName'.exe'
1450                if strip(VRMethod("CN_Daemons", "GetFieldData", DRH, DPidsFH)) <> "" then do
1451                    ok = VRSet("ContextMenu_Daemons_Shutdown",  "Caption", NLVGetMessage( 33, DaemonName))
1452                    ok = VRset("ContextMenu_Daemons_KillPID",   "Visible", 0 )
1453                    ok = VRset("ContextMenu_Daemons_Start",     "Visible", 0 )
1454                end
1455            end
1456            when pos("\", DaemonName) > 0 then do /* we are on a file */
1457                ok = VRset("MItem_13",                      "Visible", 0 )
1458                ok = VRset("ContextMenu_Daemons_Ping",      "Visible", 0 )
1459                ok = VRset("ContextMenu_Daemons_KillPID",   "Visible", 0 )
1460                ok = VRset("ContextMenu_Daemons_Start",     "Visible", 0 )
1461                ok = VRset("ContextMenu_Daemons_Shutdown",  "Visible", 0 )
1462            end
1463            otherwise do /* we are on a user */
1464                ok = VRset("MItem_13",                      "Visible", 0 )
1465                ok = VRset("ContextMenu_Daemons_Ping",      "Visible", 0 )
1466                ok = VRset("ContextMenu_Daemons_KillPID",   "Visible", 0 )
1467                ok = VRset("ContextMenu_Daemons_Start",     "Visible", 0 )
1468                ok = VRset("ContextMenu_Daemons_Shutdown",  "Visible", 0 )
1469            end
1470        end
1471        say '  Daemon is "'DaemonName'"'
1472        say '  DaemonView = "'DaemonView'"'
1473        if VRGet("CN_Daemons","View") = "Detail" then do
1474            ok = VRSet("ContextMenu_Daemons_Details", "Enabled", 0)
1475            ok = VRSet("ContextMenu_Daemons_Tree", "Enabled", 1)
1476        end
1477        else do
1478            ok = VRSet("ContextMenu_Daemons_Details", "Enabled", 1)
1479            ok = VRSet("ContextMenu_Daemons_Tree", "Enabled", 0)
1480        end
1481        DaemonView = VRGet("CN_Daemons","View")
1482
1483        ok = VRMethod( "ContextMenu_Daemons", "Popup", , , "", "" )
1484    end
1485    IF options.!debug == 1 THEN SAY time()' CN_Daemons_ContextMenu() done'
1486return
1487
1488/*:VRX         CN_Files_ContextMenu
1489*/
1490CN_Files_ContextMenu:
1491    if VRInfo("Top") < 400 & VRGet("CN_Files", "View") = "Detail" then call _ColumnsMenu "CN_Files"
1492    else do
1493        RH = VRInfo("Record")
1494        OH = VRInfo("Object")
1495        if RH <> "" then do
1496            ok = VRMethod( "Contextmenu_Files", "Popup", , , "", "PositionOnItem" )
1497        end
1498    end
1499return
1500
1501/*:VRX         CN_Service_ContextMenu
1502*/
1503CN_Service_ContextMenu:
1504    if VRInfo("Top") < 400 & VRGet("CN_Service", "View") = "Detail" then call _ColumnsMenu "CN_Service"
1505    else do
1506    ok = VRSet("TM_refresh","Enabled", 0)
1507        SRH = VRInfo("Record")
1508        OH = VRInfo("Object")
1509        if SRH <> "" then do
1510            Service = VRMethod("CN_Service", "GetFieldData", SRH, ServiceFH)
1511            say '  Service is "'Service'"'
1512            ok = VRMethod( "ContextMenu_Service", "Popup", , , "", "" )
1513        end
1514    end
1515return
1516
1517/*:VRX         CN_smbtree_Click
1518*/
1519CN_smbtree_Click:
1520    rh = VRInfo('Record')
1521    if VRMethod( 'CN_SMBTREE', "ValidateRecord", rh) <> 1 then return
1522    userdata = VRMethod('CN_smbtree', 'GetRecordAttr', rh, 'UserData')
1523    parse var userdata . '|' userdata
1524    ok = VRset("Main","StatusText", userdata)
1525 
1526
1527return
1528
1529/*:VRX         CN_smbtree_ContextMenu
1530*/
1531CN_smbtree_ContextMenu:
1532    if VRInfo("Top") < 400 & VRGet("CN_smbtree", "View") = "Detail" then call _ColumnsMenu "CN_smbtree"
1533    else do
1534        RH = VRInfo("Record")
1535        if RH <> "" then do
1536            CurMachine = word(VRMethod( "CN_smbtree", "GetRecordAttr", RH, "Caption" ),1)
1537            ok = VRMethod( "Contextmenu_Tree", "Popup", , , "", "PositionOnItem" )
1538        end
1539    end
1540return
1541
1542/*:VRX         CN_Users_ContextMenu
1543*/
1544CN_Users_ContextMenu:
1545    if VRInfo("Top") < 400 & VRGet("CN_users", "View") = "Detail" then call _ColumnsMenu "CN_users"
1546    else do
1547        RH = VRInfo("Record")
1548        OH = VRInfo("Object")
1549        if RH <> "" then do
1550            CurMachine = VRMethod( "CN_users", "GetFieldData", RH, UMachineFH )
1551            ok = VRMethod( "Contextmenu_Users", "Popup", , , "", "PositionOnItem" )
1552        end
1553    end
1554return
1555
1556/*:VRX         Columns_01_Click
1557*/
1558Columns_01_Click:
1559    call _ColumnShow
1560return
1561
1562/*:VRX         Columns_02_Click
1563*/
1564Columns_02_Click:
1565    call _ColumnShow
1566return
1567
1568/*:VRX         Columns_03_Click
1569*/
1570Columns_03_Click:
1571    call _ColumnShow
1572return
1573
1574/*:VRX         Columns_04_Click
1575*/
1576Columns_04_Click:
1577    call _ColumnShow
1578return
1579
1580/*:VRX         Columns_05_Click
1581*/
1582Columns_05_Click:
1583    call _ColumnShow
1584return
1585
1586/*:VRX         Columns_06_Click
1587*/
1588Columns_06_Click:
1589    call _ColumnShow
1590return
1591
1592/*:VRX         Columns_07_Click
1593*/
1594Columns_07_Click:
1595    call _ColumnShow
1596return
1597
1598/*:VRX         Columns_08_Click
1599*/
1600Columns_08_Click:
1601    call _ColumnShow
1602return
1603
1604/*:VRX         Columns_09_Click
1605*/
1606Columns_09_Click:
1607    call _ColumnShow
1608return
1609
1610/*:VRX         Columns_10_Click
1611*/
1612Columns_10_Click:
1613    call _ColumnShow
1614return
1615
1616/*:VRX         Columns_11_Click
1617*/
1618Columns_11_Click:
1619    call _ColumnShow
1620return
1621
1622/*:VRX         Columns_12_Click
1623*/
1624Columns_12_Click:
1625    call _ColumnShow
1626return
1627
1628/*:VRX         Columns_13_Click
1629*/
1630Columns_13_Click:
1631    call _ColumnShow
1632return
1633
1634/*:VRX         Columns_14_Click
1635*/
1636Columns_14_Click:
1637    call _ColumnShow
1638return
1639
1640/*:VRX         ContextMenu_Daemons_Details_Click
1641*/
1642ContextMenu_Daemons_Details_Click:
1643    IF options.!debug == 1 THEN SAY time()' ContextMenu_Daemons_Tree_Click() started'
1644    ok = VRset("CN_Daemons","View","Detail")
1645    ok = VRset("ContextMenu_Daemons_Tree","Enabled",1)
1646    ok = VRset("ContextMenu_Daemons_Details","Enabled",0)
1647    ok = VRSet("TM_refresh","Enabled", 1)
1648    IF options.!debug == 1 THEN SAY time()' ContextMenu_Daemons_Tree_Click() done'
1649return
1650
1651/*:VRX         ContextMenu_Daemons_KillPID_Click
1652*/
1653ContextMenu_Daemons_KillPID_Click:
1654    Msg.Text = NLVGetMessage(39, DaemonName)
1655    Msg.Type = 'Q'
1656    if _MsgYesNo() = 1 then do
1657        ok = PRKillProcess("1",DaemonName )
1658        if ok = 0 then say ", success!"; else say ", error "ok
1659
1660/*      say 'kill -9 'DaemonName
1661        address cmd 'kill -9 'DaemonName */
1662    end
1663    ok = VRSet("TM_Refresh","Enabled", 1)
1664return
1665
1666/*:VRX         ContextMenu_Daemons_MiniIcons_Click
1667*/
1668ContextMenu_Daemons_MiniIcons_Click:
1669    advanced.!bigicons = \advanced.!bigicons
1670    ok = VRset("CN_DAEMONS", "MiniIcons", \advanced.!bigicons)
1671    ok = VRset("CN_SMBTREE", "MiniIcons", \advanced.!bigicons)
1672    ok = VRset("ContextMenu_Tree_MiniIcons",  "Checked", \advanced.!bigicons)
1673    ok = VRset("ContextMenu_Daemons_MiniIcons",  "Checked", \advanced.!bigicons)
1674return
1675
1676/*:VRX         ContextMenu_Daemons_Ping_Click
1677*/
1678ContextMenu_Daemons_Ping_Click:
1679    ok = VRSet("Main", 'Pointer', 'Wait' )
1680    address cmd samba.!smbcontrolexe' 'DaemonName' ping --timeout=3 --debuglevel=0 2>'samba.!error' 1>'samba.!msg
1681    call _SambaShowMsg "section table registered"
1682
1683    ok = VRSet("Main", 'Pointer', '<default>' )
1684    ok = VRSet("TM_refresh","Enabled", 1)
1685return
1686
1687/*:VRX         ContextMenu_Daemons_Shutdown_Click
1688*/
1689ContextMenu_Daemons_Shutdown_Click:
1690    Msg.Text = NLVGetMessage(34, DaemonName)
1691    Msg.Type = 'Q'
1692    if _MsgYesNo() = 1 then do
1693        address cmd samba.!smbcontrolexe' 'DaemonName' shutdown 2>'samba.!error' 1>'samba.!msg
1694        call _SambaShowMsg "section table registered tdb"
1695    end
1696    ok = VRSet("TM_Refresh","Enabled", 1)
1697return
1698
1699/*:VRX         ContextMenu_Daemons_Sort_Click
1700*/
1701ContextMenu_Daemons_Sort_Click:
1702    window = VRLoadSecondary( "SW_SORT", "W" )
1703return
1704
1705/*:VRX         ContextMenu_Daemons_Start_Click
1706*/
1707ContextMenu_Daemons_Start_Click:
1708    Msg.Text = NLVGetMessage(37, DaemonName)
1709    Msg.Type = 'Q'
1710    if _MsgYesNo() = 1 then do
1711        say samba.!smbcmd' start 'DaemonName
1712        address cmd samba.!smbcmd' start 'DaemonName
1713    end
1714    ok = VRSet("TM_Refresh","Enabled", 1)
1715return
1716
1717/*:VRX         ContextMenu_Daemons_Tree_Click
1718*/
1719ContextMenu_Daemons_Tree_Click:
1720    IF options.!debug == 1 THEN SAY time()' ContextMenu_Daemons_Tree_Click() started'
1721    ok = VRset("CN_Daemons","View","IconTree")
1722    ok = VRset("ContextMenu_Daemons_Tree","Enabled",0)
1723    ok = VRset("ContextMenu_Daemons_Details","Enabled",1)
1724    ok = VRSet("TM_refresh","Enabled", 1)
1725    IF options.!debug == 1 THEN SAY time()' ContextMenu_Daemons_Tree_Click() done'
1726return
1727
1728/*:VRX         ContextMenu_Files_Sort_Click
1729*/
1730ContextMenu_Files_Sort_Click:
1731    window = VRLoadSecondary( "SW_SORT", "W" )
1732return
1733
1734/*:VRX         ContextMenu_Service_CloseShare_Click
1735*/
1736ContextMenu_Service_CloseShare_Click:
1737    Msg.Text = NLVGetMessage(75, Service)
1738    Msg.Type = 'Q'
1739    if _MsgYesNo() = 1 then do
1740        address cmd samba.!smbcontrolexe' smbd close-share 'Service' --debuglevel=0' /* ' 2>'samba.!error' 1>'samba.!msg */
1741        /* No usable output from Samba here ! */
1742        /* call _SambaShowMsg */
1743        Msg.Text = NLVGetMessage(76, Service)
1744        Msg.Type = 'I'
1745        call _ShowMsg
1746    end
1747    ok = VRSet("TM_refresh","Enabled", 1)
1748return
1749
1750/*:VRX         ContextMenu_Service_Sort_Click
1751*/
1752ContextMenu_Service_Sort_Click:
1753    window = VRLoadSecondary( "SW_SORT", "W" )
1754return
1755
1756/*:VRX         ContextMenu_Tree_Details_Click
1757*/
1758ContextMenu_Tree_Details_Click:
1759    ok = VRset("CN_smbtree","View","Detail")
1760    ok = VRset("ContextMenu_Tree_Tree","Enabled",1)
1761    ok = VRset("ContextMenu_Tree_Details","Enabled",0)
1762    ok = VRset("ContextMenu_Tree_Icons","Enabled",1)
1763    ok = VRset("TM_Throbber", "Enabled", 1)
1764    ok = VRset("Pict_Throbber", "Visible", 0)
1765    call _RefreshTree
1766return
1767
1768/*:VRX         ContextMenu_Tree_Icons_Click
1769*/
1770ContextMenu_Tree_Icons_Click:
1771    ok = VRset("CN_smbtree","View","Icon")
1772    ok = VRset("ContextMenu_Tree_Icons","Enabled",0)
1773    ok = VRset("ContextMenu_Tree_Tree","Enabled",1)
1774    ok = VRset("ContextMenu_Tree_Details","Enabled",1)
1775    ok = VRset("TM_Throbber", "Enabled", 1)
1776    ok = VRset("Pict_Throbber", "Visible", 1)
1777    call _RefreshTree
1778return
1779
1780/*:VRX         ContextMenu_Tree_MiniIcons_Click
1781*/
1782ContextMenu_Tree_MiniIcons_Click:
1783    advanced.!bigicons = \advanced.!bigicons
1784    ok = VRset("CN_DAEMONS", "MiniIcons", \advanced.!bigicons)
1785    ok = VRset("CN_SMBTREE", "MiniIcons", \advanced.!bigicons)
1786    ok = VRset("ContextMenu_Tree_MiniIcons",  "Checked", \advanced.!bigicons)
1787    ok = VRset("ContextMenu_Daemons_MiniIcons",  "Checked", \advanced.!bigicons)
1788return
1789
1790/*:VRX         ContextMenu_Tree_SendMsg_Click
1791*/
1792ContextMenu_Tree_SendMsg_Click:
1793    call _SendMsg
1794return
1795
1796/*:VRX         ContextMenu_Tree_Sort_Click
1797*/
1798ContextMenu_Tree_Sort_Click:
1799    window = VRLoadSecondary( "SW_SORT", "W" )
1800return
1801
1802/*:VRX         ContextMenu_Tree_Tree_Click
1803*/
1804ContextMenu_Tree_Tree_Click:
1805    ok = VRset("CN_smbtree","View","IconTree")
1806    ok = VRset("ContextMenu_Tree_Tree","Enabled",0)
1807    ok = VRset("ContextMenu_Tree_Details","Enabled",1)
1808    ok = VRset("ContextMenu_Tree_Icons","Enabled",1)
1809    ok = VRset("TM_Throbber", "Enabled", 1)
1810    ok = VRset("Pict_Throbber", "Visible", 1)
1811    call _RefreshTree
1812return
1813
1814/*:VRX         ContextMenu_Users_SendMsg_Click
1815*/
1816ContextMenu_Users_SendMsg_Click:
1817    call _SendMsg
1818return
1819
1820/*:VRX         ContextMenu_Users_Sort_Click
1821*/
1822ContextMenu_Users_Sort_Click:
1823    window = VRLoadSecondary( "SW_SORT", "W" )
1824return
1825
1826/*:VRX         DT_STATUSBAR_ContextMenu
1827*/
1828DT_STATUSBAR_ContextMenu:
1829    ok = VRSet("DT_STATUSBAR","Caption", VRGet("Main", "HintText"))
1830return
1831
1832/*:VRX         Fini
1833*/
1834Fini:
1835    window = VRWindow()
1836    call VRSet window, "Visible", 0
1837    drop window
1838return 0
1839
1840/*:VRX         GetBootDrive
1841*/
1842GetBootDrive:
1843/* Use SysBootDrive if possible */
1844If Rxfuncadd('SysBootDrive', 'RexxUtil', 'SysBootDrive') Then
1845   Return Left(Value('RUNWORKPLACE',,'OS2ENVIRONMENT'),2)
1846Else
1847   Return SysBootDrive()
1848
1849
1850/*:VRX         Halt
1851*/
1852Halt:
1853    signal _VREHalt
1854return
1855
1856/*:VRX         Init
1857*/
1858Init:
1859window = VRWindow()
1860call VRMethod window, "CenterWindow"
1861call VRSet window, "Visible", 0
1862call VRMethod window, "Activate"
1863drop window
1864return
1865
1866/*:VRX         LB_SortFields_Click
1867*/
1868LB_SortFields_Click:
1869    call _ContainerSort
1870return
1871
1872/*:VRX         Main_Activate
1873*/
1874Main_Activate:
1875    call TM_Refresh_Trigger
1876    ok = VRset("TM_Refresh", "Enabled", 1)
1877return
1878
1879/*:VRX         Main_Close
1880*/
1881Main_Close:
1882    call Quit
1883return
1884
1885/*:VRX         Main_Create
1886*/
1887Main_Create:
1888    options.!debug    = 0
1889    if options.!debug == 1 then do
1890        ok = VRRedirectStdIO("ON")
1891        say time()' Main_Create started'
1892    end
1893    else ok = VRRedirectStdIO("OFF")
1894 
1895    call _LoadOtherFuncs
1896    call _InitTempDir
1897
1898    call _IniRead
1899    call NLVSetup
1900
1901    call _TabbeddialogSetup
1902    call _NLVSetup
1903    call _SambaInit
1904    if \WPSStartStop then call _CreateSmbStarter
1905    if _SambaRunning() then call _SambaFindPIDfile
1906    call _ContainerInit
1907    call _GUIInit
1908   
1909/*    str = 'call TAB_'CurrentPageNr'_Click';
1910say str
1911interpret str
1912say 'Done 'str
1913    if CurrentPageNr <> 5 then do
1914        ok = VRSet("TM_Throbber", "Enabled", 1)
1915        call _RefreshTree
1916    end */
1917    ok = VRMethod("PB_Refresh","SetFocus")
1918
1919    if options.!debug == 1 then say time()' Main_Create done'
1920return
1921/*:VRX         Main_Deactivate
1922*/
1923Main_Deactivate:
1924    ok = VRset("TM_Refresh", "Enabled", 0)
1925return
1926
1927/*:VRX         Main_Resize
1928*/
1929Main_Resize:
1930    IF options.!debug == 1 THEN SAY time()' Main_Resize started'
1931    ok = VRSet("Main","Painting", 0)
1932
1933 /* Basic measurements */
1934    main_iwidth  = VRGet("Main","InteriorWidth")                /* Width of window client-area */
1935    main_iheight = VRGet("Main","InteriorHeight")               /* Height of window client-area */
1936
1937    /* if main_iheight < 5500 then ok = VRSet("Main","Height",6200) */
1938    sbar_height  = 209                                          /* Height of status-bar */
1939    marginx2     = margin * 2                                   /* Common margin around controls */
1940
1941    pbtn_dist    = 980
1942    pbtn_nr      = 4
1943    pbtn_pos     = max((main_iwidth - pbtn_Dist * pbtn_Nr)%2, 0)+ margin
1944    pbtn_height  = 400                                          /* Height of the panels' internal button areas */
1945    pbtn_width   = 940
1946
1947    pane_height  = main_iheight- sbar_height - pbtn_height - margin * 7                   /* Height of notebook  */
1948    pane_width   = main_iwidth - marginx2              /* Width of the notebook panel */
1949
1950    /* Tabbed Dialog */
1951    ok = VRset("TDL_1", "Top",    marginx2    )
1952    ok = VRset("TDL_1", "Left",   margin      )
1953    ok = VRset("TDL_1", "Width",  pane_width  )
1954    ok = VRset("TDL_1", "Height", pane_height )
1955
1956    /* Statusbar */
1957    ok = VRSet("GB_STATUSBAR", "Left",  margin )
1958    ok = VRSet("GB_STATUSBAR", "Top",   main_iheight - sbar_height - margin )
1959    ok = VRSet("GB_STATUSBAR", "Height",sbar_height )
1960    ok = VRSet("GB_STATUSBAR", "Width", pane_width  )
1961
1962    ok = VRSet("DT_STATUSBAR", "Top",   12 )
1963    ok = VRSet("DT_STATUSBAR", "Left",  12 )
1964    ok = VRSet("DT_STATUSBAR", "Height",sbar_height- 24)
1965    ok = VRSet("DT_STATUSBAR", "Width", pane_width - 24)
1966
1967    ok = VRSet("PB_Refresh","top", pane_height + margin * 4 )
1968    ok = VRSet("PB_Help",   "top", pane_height + margin * 4 )
1969    ok = VRSet("PB_Cancel", "top", pane_height + margin * 4 )
1970    ok = VRSet("PB_About",  "top", pane_height + margin * 4 )
1971
1972    ok = VRSet("PB_Refresh","left",pbtn_pos + pbtn_dist * (pbtn_nr - 4))
1973    ok = VRSet("PB_Help",   "left",pbtn_pos + pbtn_dist * (pbtn_nr - 3))
1974    ok = VRSet("PB_About",  "left",pbtn_pos + pbtn_dist * (pbtn_nr - 2))
1975    ok = VRSet("PB_Cancel", "left",pbtn_pos + pbtn_dist * (pbtn_nr - 1))
1976
1977    ok = VRset("GB_CHKTDB","Top",    margin  )
1978    ok = VRset("GB_CHKTDB","Left",   marginx2)
1979    ok = VRset("GB_CHKTDB","Width",  pane_width - 760)
1980    ok = VRset("GB_CHKTDB","Height", pane_height- 1020)
1981    ok = VRset("CN_CHKTDB","Top",    margin)
1982    ok = VRset("CN_CHKTDB","Left",   margin)
1983    ok = VRset("CN_CHKTDB","Width",  pane_width - 760 - marginx2 )
1984    ok = VRset("CN_CHKTDB","Height", pane_height- 1020- marginx2 )
1985
1986    ok = VRset("GB_USERS","Top",    margin  )
1987    ok = VRset("GB_USERS","Left",   marginx2)
1988    ok = VRset("GB_USERS","Width",  pane_width - 760)
1989    ok = VRset("GB_USERS","Height", pane_height- 1020)
1990    ok = VRset("CN_USERS","Top",    margin)
1991    ok = VRset("CN_USERS","Left",   margin)
1992    ok = VRset("CN_USERS","Width",  pane_width - 760 - marginx2 )
1993    ok = VRset("CN_USERS","Height", pane_height- 1020- marginx2 )
1994
1995    ok = VRset("GB_FILES","Top",    margin  )
1996    ok = VRset("GB_FILES","Left",   marginx2)
1997    ok = VRset("GB_FILES","Width",  pane_width - 760)
1998    ok = VRset("GB_FILES","Height", pane_height- 1020)
1999    ok = VRset("CN_FILES","Top",    margin)
2000    ok = VRset("CN_FILES","Left",   margin)
2001    ok = VRset("CN_FILES","Width",  pane_width - 760 - marginx2 )
2002    ok = VRset("CN_FILES","Height", pane_height- 1020- marginx2 )
2003
2004    ok = VRset("GB_SERVICE","Top",    margin  )
2005    ok = VRset("GB_SERVICE","Left",   marginx2)
2006    ok = VRset("GB_SERVICE","Width",  pane_width - 760)
2007    ok = VRset("GB_SERVICE","Height", pane_height- 1020)
2008    ok = VRset("CN_SERVICE","Top",    margin)
2009    ok = VRset("CN_SERVICE","Left",   margin)
2010    ok = VRset("CN_SERVICE","Width",  pane_width - 760 - marginx2 )
2011    ok = VRset("CN_SERVICE","Height", pane_height- 1020- marginx2 )
2012
2013    ok = VRset("GB_DAEMONS","Top",    margin  )
2014    ok = VRset("GB_DAEMONS","Left",   marginx2)
2015    ok = VRset("GB_DAEMONS","Width",  pane_width -  760)
2016    ok = VRset("GB_DAEMONS","Height", pane_height- 1020)
2017    ok = VRset("CN_DAEMONS","Top",    margin)
2018    ok = VRset("CN_DAEMONS","Left",   margin)
2019    ok = VRset("CN_DAEMONS","Width",  pane_width -  760 - margin*4 - pbtn_width)
2020    ok = VRset("CN_DAEMONS","Height", pane_height- 1020 - marginx2 )
2021
2022    ok = VRSet("PB_START",  "Top",    pbtn_height*2 - marginx2)
2023    ok = VRSet("PB_STOP",   "Top",    pbtn_height*3 - marginx2)
2024    ok = VRSet("PB_Restart","Top",    pbtn_height*4 - marginx2)
2025    ok = VRSet("PB_Reload", "Top",    pbtn_height*5 - marginx2)
2026    ok = VRSet("PB_DelLogs","Top",    pbtn_height*6 - marginx2)
2027
2028    ok = VRSet("PB_START",  "Left",   pane_width -  760 - marginx2 - pbtn_width)
2029    ok = VRSet("PB_STOP",   "Left",   pane_width -  760 - marginx2 - pbtn_width)
2030    ok = VRSet("PB_Restart","Left",   pane_width -  760 - marginx2 - pbtn_width)
2031    ok = VRSet("PB_Reload", "Left",   pane_width -  760 - marginx2 - pbtn_width)
2032    ok = VRSet("PB_DelLogs","Left",   pane_width -  760 - marginx2 - pbtn_width)
2033
2034    ok = VRset("GB_SMBTREE","Top",    margin  )
2035    ok = VRset("GB_SMBTREE","Left",   marginx2)
2036    ok = VRset("GB_SMBTREE","Width",  pane_width - 760)
2037    ok = VRset("GB_SMBTREE","Height", pane_height- 1020)
2038    ok = VRset("CN_SMBTREE","Top",    margin)
2039    ok = VRset("CN_SMBTREE","Left",   margin)
2040    ok = VRset("CN_SMBTREE","Width",  pane_width - 760 - marginx2 )
2041    ok = VRset("CN_SMBTREE","Height", pane_height- 1020- marginx2 )
2042
2043    ok = VRset("PICT_THROBBER", "Top",  VRGet("CN_SMBTREE","Height") % 2 - 100 )
2044    ok = VRset("PICT_THROBBER", "Left", VRGet("CN_SMBTREE","Width")  % 2 - 200 )
2045
2046    ok = VRset("GB_SETTINGS","Top",    margin  )
2047    ok = VRset("GB_SETTINGS","Left",   marginx2)
2048    ok = VRset("GB_SETTINGS","Width",  pane_width - 760)
2049    ok = VRset("GB_SETTINGS","Height", pane_height- 1020)
2050
2051
2052    /* check and empty event queue, trash spurious resize events */
2053    EventString = ''
2054    TrashedResize = 0
2055    do until EventString = 'nop'
2056        EventString = VREvent('N')
2057        if EventString <> 'nop' then do
2058            if EventString = 'CALL Main_Resize' then TrashedResize = 1
2059                                                else interpret eventString
2060        end
2061    end
2062    if TrashedResize then CALL Main_Resize
2063    ok = VRSet("Main", "Painting", 1)
2064
2065    IF options.!debug == 1 THEN SAY time()' Main_Resize done'
2066return
2067
2068/*:VRX         Page1_Create
2069*/
2070Page1_Create:
2071
2072Return
2073
2074/*:VRX         Page1_Init
2075*/
2076Page1_Init:
2077    call _ContainerInit
2078return
2079
2080/*:VRX         Page2_Create
2081*/
2082Page2_create:
2083
2084Return
2085/*:VRX         Page2_init
2086*/
2087Page2_init:
2088
2089return
2090
2091/*:VRX         Page3_Create
2092*/
2093Page3_create:
2094
2095Return
2096/*:VRX         Page3_Init
2097*/
2098Page3_Init:
2099
2100return
2101
2102/*:VRX         Page4_Create
2103*/
2104Page4_Create:
2105
2106Return
2107/*:VRX         Page4_init
2108*/
2109Page4_init:
2110
2111return
2112
2113/*:VRX         Page5_Create
2114*/
2115Page5_Create:
2116
2117return
2118
2119/*:VRX         Page5_Init
2120*/
2121Page5_Init:
2122
2123return
2124
2125/*:VRX         Paper_Init
2126*/
2127Paper_Init:
2128    ok = VRSet("IPB_Paper","Width" ,VRMethod( "Screen", "PixelsToTwips", 32 ))
2129    ok = VRSet("IPB_Paper","Height",VRMethod( "Screen", "PixelsToTwips", 32 ))
2130    ok = VRset("IPB_Paper","Left",VRget("GB_Main2","width")-420)
2131return
2132
2133/*:VRX         PB_About_Click
2134*/
2135PB_About_Click:
2136    window = VRLoadSecondary( "About", "W" )
2137return
2138
2139/*:VRX         PB_AboutOK_Click
2140*/
2141PB_AboutOK_Click:
2142    call About_Close
2143return
2144
2145/*:VRX         PB_Cancel_Click
2146*/
2147PB_Cancel_Click:
2148    say 'start PB_Cancel_Click'
2149    Call Quit
2150    say 'done PB_Cancel_Click'
2151return
2152
2153/*:VRX         PB_DELLOGS_Click
2154*/
2155PB_DELLOGS_Click:
2156    call VRSet VRWindow(), 'Pointer', 'Wait'
2157
2158    /* Fixme - this needs to be read from smb.conf */
2159    samba.!logdir = ETC'\samba\log'
2160
2161    ok = SysFileTree(samba.!logdir'\log.*', logs.,'FO')
2162    do I = 1 to logs.0
2163        ok = VRMethod( "CN_Daemons", "GetRecordList", "All", "handle." )
2164        KeepLog = 0
2165        do J = 1 to handle.0
2166            CurPID = VRMethod("CN_Daemons", "GetFieldData", handle.J, DPidsFH)
2167            if pos(CurPID,logs.I) > 0 then KeepLog = 1
2168        end
2169        if KeepLog = 0 then ok = SysFileDelete(logs.I)
2170    end
2171
2172    call VRSet VRWindow(), 'Pointer', '<default>'
2173return
2174
2175/*:VRX         PB_Help_Click
2176*/
2177PB_Help_Click:
2178    ok = VRMethod("Main", "InvokeHelp" )
2179return
2180
2181/*:VRX         PB_Refresh_Click
2182*/
2183PB_Refresh_Click:
2184    IF options.!debug == 1 then say time()' PB_Refresh_Click() started'
2185    ok = SysSleep(0.3)
2186
2187    say "  CurrentPageNr = "CurrentPageNr
2188    select
2189        when CurrentPageNr = 2 then do
2190            ok = VRset("Pict_Throbber", "Visible", 1)
2191            ok = VRset("TM_Throbber", "Enabled", 1)
2192            call _RefreshTree
2193        end
2194        when CurrentPageNr = 6 then do
2195            call _ChkTDB
2196        end
2197        otherwise call _Refresh
2198    end
2199    IF options.!debug == 1 then say time()' PB_Refresh_Click() done'
2200return
2201
2202/*:VRX         PB_RELOAD_Click
2203*/
2204PB_RELOAD_Click:
2205    call VRSet VRWindow(), 'Pointer', 'Wait'
2206    if WPSStartStop then do
2207        ok = SysOpenObject('<smb_reload>', 'DEFAULT', 1)
2208    end
2209    else do
2210        call lineout samba.!bin"\smbstart", "reload"
2211        ok = stream(samba.!bin"\reload","c","close")
2212    end
2213    ok = VRSet("TM_Refresh","Delay", 2000)
2214    call VRSet VRWindow(), 'Pointer', '<default>'
2215return
2216
2217/*:VRX         PB_RESTART_Click
2218*/
2219PB_RESTART_Click:
2220    call VRSet VRWindow(), 'Pointer', 'Wait'
2221    if WPSStartStop then do
2222        ok = SysOpenObject('<smb_restart>', 'DEFAULT', 1)
2223    end
2224    else do
2225        call lineout samba.!bin"\restart", "restart"
2226        ok = stream(samba.!bin"\restart","c","close")
2227    end
2228    ok = VRSet("TM_Refresh","Delay", 1000)
2229    call VRSet VRWindow(), 'Pointer', '<default>'
2230return
2231
2232/*:VRX         PB_Sort_Cancel_Click
2233*/
2234PB_Sort_Cancel_Click:
2235    ok = VRset( Container, "DetailSort", Old.SortField )
2236    ok = VRSet( Container, "Sort", Old.SortOrder )
2237    ok = VRMethod( Container, "SortRecords" )
2238    drop Old.
2239    call SW_SORT_Close
2240return
2241
2242/*:VRX         PB_Sort_OK_Click
2243*/
2244PB_Sort_OK_Click:
2245    drop Old.
2246    call SW_SORT_Close
2247return
2248
2249/*:VRX         PB_START_Click
2250*/
2251PB_START_Click:
2252    say "IPB_Start_Click started"
2253    call VRSet VRWindow(), 'Pointer', 'Wait'
2254    if WPSStartStop then do
2255        ok = SysOpenObject('<smb_start>', 'DEFAULT', 1)
2256    end
2257    else do
2258        call lineout samba.!bin"\smbstart", "smbstart"
2259        ok = stream(samba.!bin"\smbstart","c","close")
2260    end
2261    ok = VRSet("TM_Refresh","Delay", 1000)
2262    call VRSet VRWindow(), 'Pointer', '<default>'
2263    say "IPB_Start_Click done"
2264return
2265/*:VRX         PB_STOP_Click
2266*/
2267PB_STOP_Click:
2268    say "IPB_Stop_Click started"
2269    call VRSet VRWindow(), 'Pointer', 'Wait'
2270    if WPSStartStop then do
2271        ok = SysOpenObject('<smb_stop>', 'DEFAULT', 1)
2272    end
2273    else do
2274        call lineout samba.!bin"\smbstop", "smbstop"
2275        ok = stream(samba.!bin"\smbstop","c","close")
2276    end
2277    ok = VRSet("TM_Refresh","Delay", 1000)
2278    call VRSet VRWindow(), 'Pointer', '<default>'
2279    say "IPB_Stop_Click done"
2280return
2281/*:VRX         PushbackAll
2282*/
2283PushbackAll:
2284    Pages = 6
2285    /* Tab distance from top */
2286    TabTop = 20
2287    TabWidth = VRMethod( "Screen", "PixelsToTwips", 78 )
2288    TabHeight= VRMethod( "Screen", "PixelsToTwips", 24 )
2289
2290    /* Page Position */
2291    PageLeft = 120
2292    PageTop = PageLeft + TabTop + 330
2293
2294    /* Page size */
2295    PageHeight = 3000
2296    PageWidth = 3000
2297    call beep 880, 20
2298/*  ok = VRset("DT_PageName", "Caption", "")
2299    ok = VRSet("GB_Main","Left", 0)
2300    ok = VRSet("GB_Main","Top", TabTop+230)
2301    do I = 1 to Pages
2302        ok = VRSet("TAB_"I,"Top", TabTop)
2303        ok = VRSet("TAB_"I,"PicturePath","#2"||I||";#2"||I)
2304        ok = VRSet("TAB_"I,"Left",TabWidth*(I-1)+PageLeft)
2305        ok = VRSet("TAB_"I,"Width",TabWidth)
2306        ok = VRSet("TAB_"I,"Height",TabHeight)
2307        ok = VRSet("Page_"I,"Height", max(PageHeight,VRget("GB_Main2","Height")-600))
2308        ok = VRSet("Page_"I,"Width", max(PageWidth,VRget("GB_Main2","Width")-450))
2309        ok = VRSet("Page_"I,"Left", PageLeft)
2310        ok = VRSet("Page_"I,"Top", PageTop)
2311        ok = VRSet("Page_"I,"Visible", 0)
2312        ok = VRSet("Page_"I,"BackColor", "<default>")
2313    end */
2314return
2315
2316/*:VRX         Quit
2317*/
2318Quit:
2319    call VRSet VRWindow(), 'Pointer', 'Wait'
2320    call _IniWrite
2321    ok = VRRedirectStdIO("OFF")
2322    call _SambaFinish
2323
2324    ok = SysFileDelete(smbdoutput)
2325
2326    call lineout samba.!bin"\quit", "quit"
2327    ok = stream(samba.!bin"\quit","c","close")
2328    ok = SysSleep(1)
2329    ok = SysDestroyObject('<smbstarter>')
2330    ok = SysFileDelete(samba.!bin'\smbstarter.cmd')
2331    ok = SysFileDelete(samba.!bin'\quit')
2332    call VRSet VRWindow(), 'Pointer', '<default>'
2333
2334    window = VRWindow()
2335    call VRSet window, "Shutdown", 1
2336    drop window
2337return
2338
2339/*:VRX         RB_Sort_Ascending_Click
2340*/
2341RB_Sort_Ascending_Click:
2342    SortOrder = "Ascending"
2343    call _ContainerSort
2344return
2345
2346/*:VRX         RB_Sort_Descending_Click
2347*/
2348RB_Sort_Descending_Click:
2349    SortOrder = "Descending"
2350    call _ContainerSort
2351return
2352
2353/*:VRX         RB_Sort_None_Click
2354*/
2355RB_Sort_None_Click:
2356    SortOrder = "None"
2357    call _ContainerSort
2358return
2359
2360/*:VRX         SPIN_Intervall_Change
2361*/
2362SPIN_Intervall_Change:
2363    Intervall = VRGet("SPIN_Intervall","Value")
2364    ok = VRSet("TM_Refresh","Delay", Intervall * 1000)
2365return
2366
2367/*:VRX         SPIN_IntervallMin_Change
2368*/
2369SPIN_IntervallMin_Change:
2370    IntervallMin = VRGet("SPIN_IntervallMin","Value")
2371return
2372
2373/*:VRX         SW_CHKTDB_Close
2374*/
2375SW_CHKTDB_Close:
2376    call SW_CHKTDB_Fini
2377return
2378
2379/*:VRX         SW_CHKTDB_Create
2380*/
2381SW_CHKTDB_Create:
2382    call SW_CHKTDB_Init
2383return
2384
2385/*:VRX         SW_CHKTDB_Fini
2386*/
2387SW_CHKTDB_Fini:
2388    window = VRInfo( "Window" )
2389    call VRDestroy window
2390    drop window
2391return
2392/*:VRX         SW_CHKTDB_Init
2393*/
2394SW_CHKTDB_Init:
2395    window = VRInfo( "Object" )
2396    if( \VRIsChildOf( window, "Notebook" ) ) then do
2397        call VRMethod window, "CenterWindow"
2398        call VRSet window, "Visible", 1
2399        call VRMethod window, "Activate"
2400    end
2401    drop window
2402return
2403
2404/*:VRX         SW_DAEMONS_Close
2405*/
2406SW_DAEMONS_Close:
2407    call SW_DAEMONS_Fini
2408return
2409
2410/*:VRX         SW_DAEMONS_Create
2411*/
2412SW_DAEMONS_Create:
2413    call SW_DAEMONS_Init
2414return
2415
2416/*:VRX         SW_DAEMONS_Fini
2417*/
2418SW_DAEMONS_Fini:
2419    window = VRInfo( "Window" )
2420    call VRDestroy window
2421    drop window
2422return
2423/*:VRX         SW_DAEMONS_Init
2424*/
2425SW_DAEMONS_Init:
2426    window = VRInfo( "Object" )
2427    if( \VRIsChildOf( window, "Notebook" ) ) then do
2428        call VRMethod window, "CenterWindow"
2429        call VRSet window, "Visible", 1
2430        call VRMethod window, "Activate"
2431    end
2432    drop window
2433return
2434
2435/*:VRX         SW_FILES_Close
2436*/
2437SW_FILES_Close:
2438    call SW_FILES_Fini
2439return
2440
2441/*:VRX         SW_FILES_Create
2442*/
2443SW_FILES_Create:
2444    call SW_FILES_Init
2445return
2446
2447/*:VRX         SW_FILES_Fini
2448*/
2449SW_FILES_Fini:
2450    window = VRInfo( "Window" )
2451    call VRDestroy window
2452    drop window
2453return
2454/*:VRX         SW_FILES_Init
2455*/
2456SW_FILES_Init:
2457    window = VRInfo( "Object" )
2458    if( \VRIsChildOf( window, "TDL" ) ) then do
2459        call VRMethod window, "CenterWindow"
2460        call VRSet window, "Visible", 1
2461        call VRMethod window, "Activate"
2462    end
2463    drop window
2464return
2465
2466/*:VRX         SW_SERVICE_Close
2467*/
2468SW_SERVICE_Close:
2469    call SW_SERVICE_Fini
2470return
2471
2472/*:VRX         SW_SERVICE_Create
2473*/
2474SW_SERVICE_Create:
2475    call SW_SERVICE_Init
2476return
2477
2478/*:VRX         SW_SERVICE_Fini
2479*/
2480SW_SERVICE_Fini:
2481    window = VRInfo( "Window" )
2482    call VRDestroy window
2483    drop window
2484return
2485/*:VRX         SW_SERVICE_Init
2486*/
2487SW_SERVICE_Init:
2488    window = VRInfo( "Object" )
2489    if( \VRIsChildOf( window, "TDL" ) ) then do
2490        call VRMethod window, "CenterWindow"
2491        call VRSet window, "Visible", 1
2492        call VRMethod window, "Activate"
2493    end
2494    drop window
2495return
2496
2497/*:VRX         SW_SETTINGS_Close
2498*/
2499SW_SETTINGS_Close:
2500    call SW_SETTINGS_Fini
2501return
2502
2503/*:VRX         SW_SETTINGS_Create
2504*/
2505SW_SETTINGS_Create:
2506    call SW_SETTINGS_Init
2507return
2508
2509/*:VRX         SW_SETTINGS_Fini
2510*/
2511SW_SETTINGS_Fini:
2512    window = VRInfo( "Window" )
2513    call VRDestroy window
2514    drop window
2515return
2516/*:VRX         SW_SETTINGS_Init
2517*/
2518SW_SETTINGS_Init:
2519    window = VRInfo( "Object" )
2520    if( \VRIsChildOf( window, "TDL" ) ) then do
2521        call VRMethod window, "CenterWindow"
2522        call VRSet window, "Visible", 1
2523        call VRMethod window, "Activate"
2524    end
2525    drop window
2526return
2527
2528/*:VRX         SW_SMBTREE_Close
2529*/
2530SW_SMBTREE_Close:
2531    call SW_SMBTREE_Fini
2532return
2533
2534/*:VRX         SW_SMBTREE_Create
2535*/
2536SW_SMBTREE_Create:
2537    call SW_SMBTREE_Init
2538return
2539
2540/*:VRX         SW_SMBTREE_Fini
2541*/
2542SW_SMBTREE_Fini:
2543    window = VRInfo( "Window" )
2544    call VRDestroy window
2545    drop window
2546return
2547/*:VRX         SW_SMBTREE_Init
2548*/
2549SW_SMBTREE_Init:
2550    window = VRInfo( "Object" )
2551    if( \VRIsChildOf( window, "TDL" ) ) then do
2552        call VRMethod window, "CenterWindow"
2553        call VRSet window, "Visible", 1
2554        call VRMethod window, "Activate"
2555    end
2556    drop window
2557return
2558
2559/*:VRX         SW_SMBTREE_Init_Content
2560*/
2561SW_SMBTREE_Init_Content:
2562    ok = VRset("Pict_Throbber", "Visible", 1)
2563    ok = VRset("TM_Throbber", "Enabled", 1)
2564    call _RefreshTree
2565return
2566
2567/*:VRX         SW_SORT_Close
2568*/
2569SW_SORT_Close:
2570    call SW_SORT_Fini
2571return
2572
2573/*:VRX         SW_SORT_Create
2574*/
2575SW_SORT_Create:
2576    call SW_SORT_Init
2577
2578    CALL NLVSetText 'SW_SORT',              'Caption', 35
2579    CALL NLVSetText 'PB_Sort_OK',           'Caption', 2
2580    CALL NLVSetText 'PB_Sort_Cancel',       'Caption', 3
2581
2582    CALL NLVSetText 'RB_Sort_Ascending',    'Caption', 90
2583    CALL NLVSetText 'RB_Sort_Descending',   'Caption', 91
2584    CALL NLVSetText 'RB_Sort_None',         'Caption', 92
2585
2586    Container = OH
2587say OH
2588say Container
2589    ok = VRMethod(Container, "GetFieldList", "Fields." )
2590
2591    SortOrder = "None"
2592
2593    do I = 1 to Fields.0
2594        ok = VRMethod("LB_SortFields","AddString", VRMethod(Container, "GetFieldAttr", fields.I, "Title" ))
2595    end   
2596    Old.SortField = VRGet( Container, "DetailSort" )
2597    Old.SortOrder = VRGet( Container, "Sort" )
2598say Old.SortField
2599say Old.SortOrder
2600return
2601
2602/*:VRX         SW_SORT_Fini
2603*/
2604SW_SORT_Fini:
2605    window = VRInfo( "Window" )
2606    call VRDestroy window
2607    drop window
2608return
2609/*:VRX         SW_SORT_Init
2610*/
2611SW_SORT_Init:
2612    window = VRInfo( "Object" )
2613    if( \VRIsChildOf( window, "Notebook" ) ) then do
2614        call VRMethod window, "CenterWindow"
2615        call VRSet window, "Visible", 1
2616        call VRMethod window, "Activate"
2617    end
2618    drop window
2619return
2620
2621/*:VRX         SW_USERS_Close
2622*/
2623SW_USERS_Close:
2624    call SW_USERS_Fini
2625return
2626
2627/*:VRX         SW_USERS_Create
2628*/
2629SW_USERS_Create:
2630    call SW_USERS_Init
2631return
2632
2633/*:VRX         SW_USERS_Fini
2634*/
2635SW_USERS_Fini:
2636    window = VRInfo( "Window" )
2637    call VRDestroy window
2638    drop window
2639return
2640/*:VRX         SW_USERS_Init
2641*/
2642SW_USERS_Init:
2643    window = VRInfo( "Object" )
2644    if( \VRIsChildOf( window, "Notebook" ) ) then do
2645        call VRMethod window, "CenterWindow"
2646        call VRSet window, "Visible", 1
2647        call VRMethod window, "Activate"
2648    end
2649    drop window
2650return
2651
2652/*:VRX         TDL_1_PageSelected
2653*/
2654TDL_1_PageSelected:
2655    page =  VRInfo("Page")
2656    CurrentPageNr = page
2657    ok = VRSet("TM_RefreshDaemons","Enabled", 0)
2658    ok = VRSet("DT_STATUSBAR","Caption", VRGet("Main", "HintText"))
2659    /* call _TabsStrip */
2660    select
2661        when page = 1 then do /* daemons */
2662            ok = VRSet("TM_RefreshDaemons","Enabled", 1)
2663            ok = VRSet("TM_RefreshDaemons","Delay",   3000)
2664        end
2665        when page = 2 then do /* smbtree */
2666            ok = VRMethod( "CN_SMBTree", "GetRecordList", "All", "handle." )
2667            /* if the page is empty, populate it */
2668            if handle.0 = 0 then call PB_Refresh_Click
2669        end
2670        when page = 3 then do /* Users */
2671            nop
2672        end
2673        when page = 4 then do /* files */
2674            nop
2675        end
2676        when page = 5 then do /* service */
2677            nop
2678        end
2679        when page = 6 then do /* chkTDB */
2680            say "ChkTDB"
2681            call _ChkTDB
2682        end
2683        when page = 7 then do /* Settings */
2684            nop
2685        end
2686        otherwise nop
2687    end
2688return
2689
2690/*:VRX         TM_Refresh_Trigger
2691*/
2692TM_Refresh_Trigger:
2693/*  call beep 1200, 20 */
2694    ok = VRSet("TM_Refresh","Delay", Intervall * 1000)
2695    call _Refresh
2696return
2697
2698/*:VRX         TM_RefreshDaemons_Trigger
2699*/
2700TM_RefreshDaemons_Trigger:
2701    ok = VRSet("TM_RefreshDaemons","Delay", 3000)
2702    call _RefreshDaemons
2703return
2704
2705/*:VRX         TM_RefreshTreeDisplay_Trigger
2706*/
2707TM_RefreshTreeDisplay_Trigger:
2708    select
2709        when RefreshMode = "TREE" then do
2710            call _RefreshTreeDisplay
2711        end
2712        when RefreshMode = "SHARE" then do
2713            call _AddSharesDisplay   
2714        end
2715        otherwise say "RefreshMode = "RefreshMode
2716    end
2717return
2718
2719/*:VRX         TM_Throbber_Trigger
2720*/
2721TM_Throbber_Trigger:
2722    pIdx = VRGet("Pict_Throbber","PicturePath")
2723    parse var pIdx '#' pidx
2724    pidx = pidx + 1
2725    if pidx = 136 then pidx = 111
2726    ok = VRSet("Pict_Throbber","PicturePath","#"pidx)
2727return
2728
Note: See TracBrowser for help on using the repository browser.