Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

sscc.vrx@ 678

Visit:

Last change on this file since 678 was 677, checked in by Herwig Bauernfeind, 14 years ago
GUI-Tools: Initial commit for future SSCC x.x
File size: 110.3 KB

Line
1	/*:VRX Main
2	*/
3	/* Main
4	*/
5	Main:
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
58	exit _VREReturnValue
59
60	VRLoadSecondary:
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:
87	return __vrlsHWnd
88
89	/*:VRX __VXREXX____APPENDS__
90	*/
91	__VXREXX____APPENDS__:
92	/*
93	#append U:\Develop\Samba\guitools-1.0\shared\inittempdir.vrs
94	#append U:\Develop\Samba\guitools-1.0\shared\sambainit.vrs
95	#append U:\Develop\Samba\guitools-2.0\shared\nlv.vrs
96	#append U:\Develop\Samba\guitools-1.0\shared\swat.vrs
97	*/
98	return
99	/*:VRX _ActiveGroup
100	*/
101	_ActiveGroup:
102	ActiveGroup = translate(arg(1))
103	ActiveGroupObj = VRGet("GB_"ActiveGroup, "Self")
104	ok = VRset(ActiveGroupObj, "Visible", 1)
105	return
106
107	/*:VRX _bs2fs
108	*/
109	_bs2fs: procedure
110	string = arg(1)
111	return translate(string,'/','\')
112
113	/*:VRX _CfgPageSetupSize
114	*/
115	_CfgPageSetupSize:
116	if arg(1) = "GB_Global"
117	then ok = VRset(arg(1), "Top", 0)
118	else ok = VRset(arg(1), "Top", Fwidth)
119
120	ok = VRset(arg(1), "Left",VRGet("GB_SmbConfTree","Width") + 60)
121
122	if arg(1) = "GB_Global"
123	then ok = VRset(arg(1), "Height",VRGet("GB_SmbConfTree","height")+FWidth)
124	else ok = VRset(arg(1), "Height",VRGet("GB_SmbConfTree","height"))
125
126	ok = VRset(arg(1), "Width", VRGet("Main", "Width") - VRGet("GB_SmbConfTree","width") - 60- FWidth2-242)
127	return
128
129	/*:VRX _ChooseDir
130	*/
131	_ChooseDir:
132	Invoked = VRInfo("Object")
133	InitDir = VRGet("EF_"\|\|substr(VRGet(Invoked, "name"),5),"Value")
134	if pos('\\',InitDir) > 0 then do
135	Msg.Text = NLVGetMessage(63,InitDir)
136	Msg.Type = "E"
137	call _ShowMsg
138	return
139	end
140	VarPos = pos('%', InitDir)
141	if VarPos > 0 then do
142	VarChar = substr(InitDir,VarPos,2)
143	InitDir = left(InitDir,VarPos-1)
144	say VarChar
145	end
146	NewPath = _dirDialog('Choose path for 'VRGet("DT_Shares","Caption"),_fs2bs(InitDir))
147	if NewPath = "" then return
148	if VarPos > 0 then NewPath = NewPath'\'VarChar
149	ok = VRset("EF_"\|\|substr(VRGet(Invoked, "name"),5),"value",NewPath)
150	return
151
152	/*:VRX _CreateVocObject
153	*/
154	_CreateVocObject:
155	IF options.!debug == 1 THEN say "_CreateVocObject() started"
156	If VRIsValidObject(VocObjType"_"upVoc ) then Success = 1
157	else do
158	/* Creative descriptive text */
159	Objs = Objs + 1
160	Voc.V = translate(left(Voc.V,1))\|\|substr(Voc.V,2)
161	CreatedObjs.Objs = VRCreate(ActiveGroupObj, "DescriptiveText", "Name", "DT_"upVoc, 'Caption', Voc.V, "Top", ObjYPos+50 , "Left", 120+72, "Visible", 1, "AutoSize", 1)
162	select
163	when pos("\\",Val.V) > 0 then nop
164	when pos(" dir",Voc.V) > 0 then ok = VRSet(CreatedObjs.Objs, "Forecolor", "Black")
165	when pos("file",Voc.V) > 0 then ok = VRSet(CreatedObjs.Objs, "Forecolor", "Black")
166	when pos("path",Voc.V) > 0 then ok = VRSet(CreatedObjs.Objs, "Forecolor", "Black")
167	otherwise nop /* do not beautify */
168	end
169
170	DT_Handle = CreatedObjs.Objs
171	/* The CB or EF */
172	Objs = Objs + 1
173	select
174	when VocObjType = "CB" then do
175	CreatedObjs.Objs = VRCreate(ActiveGroupObj, "Checkbox", "Name", VocObjType"_"upVoc, "Top", ObjYPos+30, "AutoSize", 1)
176	ok = VRSet(VocObjType"_"upVoc, "Click", "call _ShareObject_Changed")
177	end
178	otherwise do
179	CreatedObjs.Objs = VRCreate(ActiveGroupObj, "EntryField", "Name", VocObjType"_"upVoc, "Top", ObjYPos , "Width", 2800, "Height", "253")
180	ok = VRSet(VocObjType"_"upVoc, "Change", "call _ShareObject_Changed")
181	end
182	end
183	Success = (CreatedObjs.OBjs <> "")
184	if Success then do /* SUccess */
185	ok = VRSet(VocObjType"_"upVoc, "Left", max(1500, 120*2+VRGet(DT_handle,"Width")))
186	if VocObjType = "EF" & upCurSection ="GLOBAL" then do
187	OWidth = 2800-max(0,VRGet(VocObjType"_"upVoc, "Left")-1500)
188	if datatype(Val.V) = "NUM" then OWidth = length(Val.V)*90+200
189	else OWidth = length(Val.V)*90+440
190	if Val.V = "" then OWidth = 1500
191	ok = VRSet(VocObjType"_"upVoc, "Width", OWidth)
192	if (pos("_DIRECTORY",upVoc) > 0 \| pos("_PATH",upVoc) > 0) & pos("MODE",upVoc) = 0 & pos("MASK",upVoc) = 0 then do
193	Objs = Objs + 1
194	CreatedObjs.Objs = VRCreate(ActiveGroupObj, "ImagePushButton", "Name", "IPB_"upVoc, "Top", ObjYPos+30, "AutoSize", 0 , "PicturePath", "#2;#3", "Left", VRGet(VocObjType"_"upVoc,"Left")+VRGet(VocObjType"_"upVoc,"Width")+72)
195	ok = VRSet("IPB_"upVoc, "Click", "call _ChooseDir")
196	ok = VRSet("IPB_"upVoc,"Width" ,VRMethod( "Screen", "PixelsToTwips", 20 ))
197	ok = VRSet("IPB_"upVoc,"Height",VRMethod( "Screen", "PixelsToTwips", 20 ))
198	end
199	end
200
201	/* ok = VRSet(VocObjType"_"upVoc, "BackColor", "Red") */
202	ok = VRSet(VocObjType"_"upVoc, "Visible", 1)
203	CreatedObjs.0 = Objs
204	ObjYPos= ObjYPos + ObjDelta
205	end
206	else do
207	say "Failed to Create "\|\|VocObjType"_"upVoc\|\|' in 'ActiveGroupObj
208	end
209	end
210	IF options.!debug == 1 THEN say ' Object: "'VocObjType'_'upVoc'" Value: "'Val.V'" Handle:"'CreatedObjs.Objs'"'
211	IF options.!debug == 1 THEN say "_CreateVocObject() done"
212	return Success
213	/*:VRX _dirdialog
214	*/
215	_DirDialog: procedure
216	Title = arg(1)
217	InitDir = arg(2)
218	RC = RxFuncQuery("DRCtrlPickDirectory")
219	if RC = 0 then do /* use DrCtrl if available */
220	MyDir=DRCtrlPickDirectory(InitDir, Title)
221	end
222	else do
223	MyDir = VRFileDialog(VRWindow,Title, 'o', InitDir\|\|'\dummy')
224	if MyDir <> '' then MyDir = strip(filespec('D',MyDir)\|\|Filespec('P',MyDir),'T','\')
225	end
226	return MyDir
227	/*:VRX _FindIBMLANPath
228	*/
229	_FindIBMLANPath:
230	say '_FindIBMLANPath() started.'
231	ibmlanini = SysBootDrive()'\IBMLAN\IBMLAN.INI'
232	ibmlaniniexists = VRFileExists(ibmlanini)
233	say ' Does "'ibmlanini'" exist? 'ibmlaniniexists' (1=Yes, 0=No)'
234
235	lsshareini = SysBootDrive()'\IBMLAN\LSSHARE.INI'
236	lsshareiniexists = VRFileExists(lsshareini)
237	say ' Does "'lsshareini'" exist? 'lsshareiniexists' (1=Yes, 0=No)'
238	say '_FindIBMLANPath() done.'
239	return
240
241	/*:VRX _fs2bs
242	*/
243	_fs2bs: procedure
244	string = arg(1)
245	return translate(string,'\','/')
246
247	/*:VRX _GroupCreate
248	*/
249	_GroupCreate:
250	/* Create kLIBC group file */
251	ok = SysFileDelete(samba.!group)
252	call lineout samba.!group, '# Created by SSCC ver. 'word(VRGet("Main","Hinttext"),2)
253	call lineout samba.!group, '# syntax:'
254	call lineout samba.!group, '# groupname:password:GID:user[,user,...,]'
255	call lineout samba.!group, 'admin:*:512:root,'
256	call lineout samba.!group, 'users:*:513:'
257	call lineout samba.!group, 'guests:*:514:'
258	call lineout samba.!group, 'machines:*:515:'
259	call lineout samba.!group, 'dc:*:516:'
260	call lineout samba.!group, 'certadmin:*:517:'
261	call lineout samba.!group, 'schemeadmin:*:518:'
262	call lineout samba.!group, 'entadmin:*:519:'
263	call lineout samba.!group, 'poladmin:*:520:'
264	ok = stream(samba.!group,'c','close')
265	return
266	/*:VRX _GUIInit
267	*/
268	_GUIInit:
269	if datatype(Top) = 'NUM' then do
270	ok = VRset("Main","Top",Top)
271	ok = VRset("Main","Left",Left)
272	ok = VRset("Main","Width",Width)
273	ok = VRset("Main","Height",Height)
274	end
275	else ok = VRset("Main","Width", 9250)
276
277	settings.!curfcolor = VRGetIni('PM_Default_Colors', 'ActiveTitleText', 'User', 'NoClose')
278	settings.!curbcolor = VRGetIni('PM_Default_Colors', 'ActiveTitleTextBgnd', 'User')
279
280	ok = VRSet("DT_SmbConfTree","BACKCOLOR", settings.!curbcolor )
281	ok = VRSet("DT_SmbConfTree","FORECOLOR", settings.!curfcolor )
282
283	ok = VRSet("EF_Binaries_Version","value",samba.!version)
284	ok = VRSet("EF_Binaries_Path","value",samba.!bin)
285	ok = VRSet("EF_Scripts_Path","value",samba.!tools)
286	ok = VRSet("EF_UnixRoot_Path","value",UnixRoot)
287	ok = VRSet("EF_ETC_Path","value",ETC)
288	ok = VRSet("CN_SmbConf","Caption", smbconf)
289	ok = VRSet("IPB_ChooseDir","Width" ,VRMethod( "Screen", "PixelsToTwips", 20 ))
290	ok = VRSet("IPB_ChooseDir","Height",VRMethod( "Screen", "PixelsToTwips", 20 ))
291	ok = VRSet("IPB_NewItem","Width" ,VRMethod( "Screen", "PixelsToTwips", 20 ))
292	ok = VRSet("IPB_NewItem","Height",VRMethod( "Screen", "PixelsToTwips", 20 ))
293
294	ok = VRSet("Menu_File_Import_IBMPeer", "Enabled", lsshareiniexists * ibmlaniniexists )
295
296	ok = VRSet("Menu_Options_MiniIcons","Checked", \advanced.!bigicons)
297	ok = VRset("CN_smbconf","MiniIcons", \advanced.!bigicons)
298
299	if _ChkTempFreeSpace() < 262144 then do
300	Msg.Type = "W"
301	Msg.Text = NLVGetMessage(116, TempDir)
302	call _ShowMsg
303	end
304
305	ok = VRSet("Menu_File_PrintCap","Enabled", \IsCupsPrintcap)
306	if \IsCupsPrintcap then call _PrintCapCreate
307
308	if SmbConfExists then call _SmbConfLoad
309	else ok = VRSet("TM_Installer","Enabled", 1)
310	return
311
312	/*:VRX _GUIInitNLV
313	*/
314	_GUIInitNLV:
315	say '_GUIInitNLV started'
316	CALL NLVSetup
317	CALL NLVSetText 'Main', 'Caption', 1
318	Msg.Title = VRGet("Main", "Caption")
319
320	CALL NLVSetText 'PB_Reload', 'Caption', 11
321	CALL NLVSetText 'PB_Reload', 'Hinttext', 111
322	CALL NLVSetText 'PB_Save', 'Caption', 12
323	CALL NLVSetText 'PB_Save', 'Hinttext', 112
324	CALL NLVSetText 'PB_Undo', 'Caption', 9
325	CALL NLVSetText 'PB_Undo', 'Hinttext', 109
326	CALL NLVSetText 'PB_Cancel', 'Caption', 10
327	CALL NLVSetText 'PB_Cancel', 'Hinttext', 110
328	CALL NLVSetText 'PB_Help', 'Caption', 4
329	CALL NLVSetText 'PB_Help', 'Hinttext', 104
330	CALL NLVSetText 'PB_Add_Voc_OK', 'Caption', 2
331	CALL NLVSetText 'PB_Add_Voc_OK', 'Hinttext', 102
332	CALL NLVSetText 'PB_Add_Voc_Cancel','Caption', 3
333	CALL NLVSetText 'PB_Add_Voc_Cancel','Hinttext', 103
334	CALL NLVSetText 'Menu_File', 'Caption', 21
335	CALL NLVSetText 'Menu_Options', 'Caption', 22
336	CALL NLVSetText 'Menu_Help', 'Caption', 23
337
338	CALL NLVSetText 'Menu_File_Import_IBMPeer', 'Caption', 24
339	CALL NLVSetText 'Menu_File_Reset', 'Caption', 25
340	CALL NLVSetText 'Menu_File_Debug', 'Caption', 26
341	CALL NLVSetText 'Menu_File_ImportHosts', 'Caption', 36
342	CALL NLVSetText 'Menu_File_PrintCap', 'Caption', 37
343	CALL NLVSetText 'Menu_File_SmbUpdate', 'Caption', 44
344	CALL NLVSetText 'Menu_File_Exit', 'Caption', 27
345
346	CALL NLVSetText 'Menu_Options_SimpleMode', 'Caption', 28
347	CALL NLVSetText 'Menu_Options_ExportMode', 'Caption', 29
348	CALL NLVSetText 'Menu_Options_MiniIcons', 'Caption', 74
349	CALL NLVSetText 'Menu_Help_smbconf', 'Caption', 30
350	CALL NLVSetText 'Menu_Help_About', 'Caption', 31
351	CALL NLVSetText 'Menu_Action', 'Caption', 32
352	CALL NLVSetText 'Menu_Action_AddHomes', 'Caption', 33
353	CALL NLVSetText 'Menu_Action_AddNetlogon', 'Caption', 34
354	CALL NLVSetText 'Menu_Action_AddProfiles', 'Caption', 35
355	CALL NLVSetText 'Menu_Action_AddProfiles', 'Caption', 35
356	CALL NLVSetText 'Menu_Action_EraseTransient','Caption', 47
357
358	CALL NLVSetText 'Menu_ShareContext_AddPrinter', 'Caption', 40
359	CALL NLVSetText 'Menu_ShareContext_Add', 'Caption', 41
360	CALL NLVSetText 'Menu_ShareContext_RemovePrinter','Caption', 42
361	CALL NLVSetText 'Menu_ShareContext_Remove', 'Caption', 43
362	CALL NLVSetText 'Menu_ShareContext_RenamePrinter','Caption', 48
363	CALL NLVSetText 'Menu_ShareContext_Rename', 'Caption', 49
364
365	CALL NLVSetText 'DT_Help', 'Caption', 80
366	CALL NLVSetText 'DT_Heading', 'Caption', 81
367	CALL NLVSetText 'DT_Binaries_Version', 'Caption', 82
368	CALL NLVSetText 'DT_Binaries_Path', 'Caption', 83
369	CALL NLVSetText 'DT_Scripts_Path', 'Caption', 84
370	/* CALL NLVSetText 'DT_SmbConfTree', 'Caption', 73 */
371	say NLVGetMessage(73)
372	ok = VRSet("DT_SmbConfTree","Caption", NLVGetMessage(73))
373	Drive = NLVGetMessage(38)
374	say '_GUIInitNLV done'
375	return
376
377	/*:VRX _INIRead
378	*/
379	_INIRead:
380	IF options.!debug == 1 THEN say '_INIRead() started'
381	OurINI = strip(VRParseFileName(VRget("Application","Program"),'DP')'\SSCC.INI',,'\')
382	ok = SysFileTree(OurINI, INIFound.,'FO')
383	if INIFound.0 = 1 then OurINI = VRParseFileName(INIFound.1,'DPNE')
384	say 'OurINI ='OurINI
385
386	Top = VRGetIni( "Pos", "Top", OurINI , 'NoClose')
387	Left = VRGetIni( "Pos", "Left", OurINI , 'NoClose')
388	Width = VRGetIni( "Pos", "Width", OurINI , 'NoClose')
389	Height= VRGetIni( "Pos", "Height", OurINI , 'NoClose')
390
391	options.!debug = VRGetIni( "Options", "Debug", OurINI, 'NoClose')
392	if options.!debug = "" then options.!debug = 0
393
394	ok = VRSet("Menu_File_Debug","Checked",options.!Debug)
395	if options.!Debug then ok = VRREdirectStdIO("ON")
396	else ok = VRREdirectStdIO("OFF")
397
398	options.!builddir = VRGetIni( "Options", "BuildDir", OurINI, 'NoClose')
399	if options.!builddir = "" then options.!builddir = ""
400
401	advanced.!bigicons = VRGetIni( "Options", "BigIcons", OurINI)
402	if advanced.!bigicons = "" then advanced.!bigicons = 1
403
404	/* Initialize several variables */
405	indent = '09'x
406	ManageDaemons = 1
407
408	/* these were formerly defined in smb.conf */
409	CreatedObjs.0 = 0
410	ChangeList = ""
411	ValueChanged = 0
412	CurSection = ""
413	CreatedObjs.0 = 0
414	ActiveGroup = "Global"
415
416	InstallMode = 0 /* Normally 0 for configure mode, /Install switch overrides this */
417	UseTDBSam = 0 /* only for installermode */
418	CreatePDC = 0 /* only for installermode */
419
420	FWidth = 32
421
422	IF options.!debug == 1 THEN say '_INIRead() done'
423	return
424
425	/*:VRX _INIWrite
426	*/
427	_INIWrite:
428	ok = VRSetIni( "Pos", "Top", VRGet("Main","Top"), OurINI, 'NoClose')
429	ok = VRSetIni( "Pos", "Left", VRGet("Main","Left"), OurINI, 'NoClose')
430	ok = VRSetIni( "Pos", "Width", VRGet("Main","Width"), OurINI, 'NoClose')
431	ok = VRSetIni( "Pos", "Height", VRGet("Main","Height"), OurINI, 'NoClose')
432	ok = VRSetIni( "Options", "BuildDir", options.!builddir, OurINI, 'NoClose')
433	ok = VRSetIni( "Options", "Debug", options.!debug, OurINI, 'NoClose')
434	ok = VRSetIni( "Options", "BigIcons", \VRGet("Menu_Options_MiniIcons","Checked"),OurINI)
435	return
436
437	/*:VRX _InstallerMode
438	*/
439	_InstallerMode:
440	ok = VRSet("Main", "Visible", 1)
441	window = VRLoadSecondary( "Installer", "W" )
442	ok = VRSet("Main", "Visible", 1)
443	return
444
445	/*:VRX _LMHostsImport
446	*/
447	_LMHostsImport:
448	hosts = ETC'\hosts'
449	lmhosts = ETC'\samba\lmhosts'
450
451	ok = SysFileDelete(lmhosts)
452
453	call lineout lmhosts,'# Created by SSCC ver. 'word(VRGet("Main","Hinttext"),2)' on 'date()' at 'time()
454	call lineout lmhosts,'# Syntax:'
455	call lineout lmhosts,'# IP-address NetBIOS-name'
456
457	do until lines(hosts) = 0
458	hostsline = linein(hosts)
459	parse var hostsline IP FQDN Alias
460	parse var FQDN hostname'.'domain
461	if IP <> '127.0.0.1' then do
462	say left(IP, 25)\|\|hostname
463	call lineout lmhosts, left(IP, 25)\|\|hostname
464	end
465	end
466
467	ok = stream(hosts,'c','close')
468	ok = stream(lmhosts,'c','close')
469	Msg.Text = NLVGetMessage(50, lmhosts)
470	msg.Type = 'I'
471	call _ShowMsg
472	return
473
474	/*:VRX _LoadOtherFuncs
475	*/
476	_LoadOtherFuncs:
477	if options.!Debug = 1
478	then ok = VRREdirectStdIO("ON")
479	else ok = VRREdirectStdIO("OFF")
480
481	call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
482	call SysLoadFuncs
483
484	call rxfuncadd 'IniLoadFuncs', 'REXXINI', 'IniLoadFuncs'
485	call IniLoadFuncs
486
487	call RxFuncAdd 'PRLoadFuncs', 'PR1UTIL', 'PRLoadFuncs'
488	call PRLoadFuncs
489
490	/* Deal with DRCtrlxxx */
491	RC = RxFuncQuery("DRCtrlPickDirectory")
492	if RC = 1 then do /* DRCtrlXXX not already registered */
493	/* Load DRCtrl functions */
494	ok = RxFuncAdd('DRCtrlLoadFuncs', 'drctl017', 'DRCtrlLoadFuncs')
495	if ok = 0 then CALL DRCtrlLoadFuncs
496	end
497	return
498
499	/*:VRX _MasterPasswdCreate
500	*/
501	_MasterPasswdCreate:
502	call lineout samba.!masterpasswd, '# Created by SSCC ver. 'word(VRGet("Main","Hinttext"),2)
503	call lineout samba.!masterpasswd, '# syntax:'
504	call lineout samba.!masterpasswd, '# username:passwd:UID:GID:login-class:chg pw x sec:deact x sec:GECOS:home:shell'
505	call lineout samba.!masterpasswd, 'root:*:0:513::0:0:root:/nonexistent:/usr/sbin/nologin'
506	call lineout samba.!masterpasswd, 'guest:*:65534:65534::0:0:guest:/nonexistent:/usr/sbin/nologin'
507	ok = stream(samba.!masterpasswd,'c','close')
508	return
509
510	/*:VRX _MsgYesNo
511	*/
512	_MsgYesNo:
513	IF options.!debug == 1 THEN say '_MsgYesNo() started'
514	IF options.!debug == 1 THEN say ' Msgbox:"'Msg.Text'"'
515	buttons.0 = 2
516	buttons.1 = NLVGetMessage('6')
517	buttons.2 = NLVGetMessage('7')
518	default = 2
519	buttons.default = buttons.2
520	esc = 2
521	buttons.esc = buttons.2
522	RC = VRMessage( VRWindow(), Msg.Text, Msg.Title,"Q","buttons.",default, esc )
523	IF options.!debug == 1 THEN say ' Answer: 'RC' ( 1 = Yes, 2 = No)'
524	IF options.!debug == 1 THEN say '_MsgYesNo() done'
525	return RC
526
527	/*:VRX _MyIniEnum
528	*/
529	_MyIniEnum: procedure expose sections. Voc. Val.
530	CurSection = arg(1)
531	do I = 1 to sections.0
532	say I':'sections.I
533	if sections.I = Cursection then leave
534	end
535	if I <= sections.0 then do
536	say 'sections.'I'.0='sections.I.0
537	Voc.0 = sections.I.0
538	Val.0 = sections.I.0
539	do J = 1 to Voc.0
540	parse var sections.I.J Voc.J'='Val.J
541	Voc.J = strip(Voc.J)
542	Val.J = strip(Val.J)
543	end
544	end
545	return
546
547	/*:VRX _MyIniEnumSections
548	*/
549	_MyIniEnumSections: procedure expose sections.
550	say '_MyIniEnumSections() started'
551	smbconf = arg(1)
552	sections. = ""
553	I = 0
554	J = 0
555	do until lines(smbconf) = 0
556	smbconfline = strip(translate(linein(smbconf),' ','09'x))
557	select
558	when left(smbconfline,1) =' ' then nop /* empty line */
559	when left(smbconfline,1) =';' then nop /* Comment */
560	when left(smbconfline,1) ='#' then nop /* Comment */
561	when left(smbconfline,1) ='[' then do /* Section */
562	sections.I.0 = J
563	I = I + 1
564	J = 0
565	parse var smbconfline '['CurSection']'
566	sections.I = CurSection
567	say ' 'CurSection
568	end
569	otherwise do /* Option */
570	parse var smbconfline option'='value
571	J = J + 1
572	sections.I.J = smbconfline
573	option = translate(strip(option),'_!?',' :$')
574	value = strip(value)
575	OptStr = CurSection'.'option'="'Value'"'
576	/* say OptStr */
577	end
578	end
579	end
580	sections.0 = I
581	sections.I.0 = J
582	ok = stream(smbconf,'c','close')
583	say '_MyIniEnumSections() done.'
584	return
585
586	/*:VRX _NLVSetup
587	*/
588	_NLVSetup:
589	call NLVSetup
590	RETURN
591	/*:VRX _ParseCommandLine
592	*/
593	_ParseCommandLine:
594	IF options.!debug == 1 THEN SAY "_ParseCommandLine() started"
595	CmdLine = VRGet("Application","Commandline")
596	IF options.!debug == 1 THEN SAY ' original commandline ="'CmdLine'"'
597	upCmdLine = translate(CmdLine)
598
599	InstPos = pos('/INSTALL',upCmdLine)
600
601	if InstPos > 0 then do
602	IF options.!debug == 1 THEN SAY " /install switch detected"
603	InstallMode = 1
604	end
605	IF options.!debug == 1 THEN SAY "_ParseCommandLine() done"
606	return
607
608	/*:VRX _PrintCapCreate
609	*/
610	_PrintCapCreate:
611	ok = SysFileDelete(samba.!printcap)
612	ok = SysIni('SYSTEM', 'PM_SPOOLER_QUEUE_DESCR', 'ALL:','printers.')
613	call lineout samba.!printcap, '# Created by SSCC ver. 'word(VRGet("Main","Hinttext"),2)' on 'date()' at 'time()
614	call lineout samba.!printcap, '# syntax:'
615	call lineout samba.!printcap, '# Printerqueue\|printername'
616	do I = 1 to printers.0
617	queue = printers.I
618	name = strip(strip(SysIni('SYSTEM', 'PM_SPOOLER_QUEUE_DESCR', printers.I),'T','00'x),,';')
619	call lineout samba.!printcap, queue'\|'name
620	end
621	ok = stream(samba.!printcap,'c','close')
622	return
623
624	/*:VRX _SambaCheckComponents
625	*/
626	_SambaCheckComponents:
627	IF options.!debug == 1 THEN say '_SambaCheckComponents() started'
628
629	/* set deprecated variables */
630	smbconf = samba.!smbconf
631	printcap = samba.!printcap
632
633	/* detect presence of several components and act accordingly */
634	SmbConfExists = VRFileExists(samba.!smbconf)
635	IF options.!debug == 1 THEN say ' Does "'smbconf'" exist? 'SmbConfExists' (1=Yes, 0=No)'
636
637	IsCupsPrintcap = 0
638	if VRFileExists(samba.!printcap) then do
639	printcapline = translate(linein(samba.!printcap))
640	if pos("CUPS",printcapline) > 0 then IsCupsPrintcap = 1
641	ok = stream(samba.!printcap,'c','close')
642	end
643	IF options.!debug == 1 THEN say ' Is printcap from CUPS? 'IsCupsPrintcap' (1=Yes, 0=No)'
644
645	if \VRFileExists(samba.!smbcmd) then do
646	Msg.Title = NLVGetMessage('1')
647	Msg.Type = "E"
648	Msg.Text = NLVGetMessage(53, samba.!smbcmd)' - 'NLVGetMessage(55)
649	call _ShowMsg
650	ManageDaemons = 0
651	end
652	IF options.!debug == 1 THEN say ' Is "'samba.!smbcmd'" present, able to manage daemons = 'ManageDaemons' (1=Yes, 0=No)'
653
654	if \VRFileExists(samba.!testparmexe) then do
655	Msg.Title = NLVGetMessage('1')
656	Msg.Text = NLVGetMessage(53,samba.!testparmexe)' - 'NLVGetMessage(54)
657	Msg.Type = "E"
658	call _ShowMsg
659	call Quit
660	end
661	IF options.!debug == 1 THEN say ' Is "'samba.!testparmexe'" present, continuing.'
662
663	if \VRFileExists(samba.!smbpasswdexe) then do
664	Msg.Title = NLVGetMessage('1')
665	Msg.Text = NLVGetMessage(53,samba.!smbpasswdexe)' - 'NLVGetMessage(54)
666	Msg.Type = "E"
667	call _ShowMsg
668	call Quit
669	end
670	IF options.!debug == 1 THEN say ' Is "'samba.!smbpasswdexe'" is present, continuing.'
671
672	if SmbConfExists then do
673	call _SmbConfBackup
674	if InstallMode then do
675	window = VRLoadSecondary( "RemoveConfig", "W" )
676	end
677	end
678
679	if \VRFileExists(swatusers) & swatauth = 1 & InstallMode = 0 then do
680	Msg.Text = NLVGetMessage(115, swatusers)
681	Msg.Type = "W"
682	call _ShowMsg
683	end
684	IF options.!debug == 1 THEN say ' Does "'samba.!smbconf'" still exist? 'SmbConfExists' (1=Yes, 0=No)'
685	IF options.!debug == 1 THEN say ' Running in InstallMode = 'InstallMode' (1=Yes, 0=No)'
686
687	IF options.!debug == 1 THEN say '_SambaCheckComponents() done'
688	return
689
690
691	/* Msg.Text = NLVGetMessage(56, samba.!smbconf)
692	Msg.Type = "Q"
693	ok = _MsgYesNo()
694	if ok = 1 then do
695	ok = SysFileDelete(samba.!smbconf)
696	SmbConfExists = 0
697	Msg.Text = "Also reinitialize backend?" /* NLVGetMessage(56, samba.!smbconf) */
698	Msg.Type = "Q"
699	ok = _MsgYesNo()
700	if ok = 1 then do
701	ok = SysFileTree(ETC"\samba\*.?db",xdb.,'FOS')
702	do I = 1 to xdb.0
703	ok = SysFileDelete(xdb.I)
704	if ok <> 0 then do
705	Msg.Text = "Error "ok" deleting "xdb.I"!"
706	Msg.Type = "W"
707	call _ShowMsg
708	end
709	end
710	end
711	end
712	else InstallMode = 0
713	*/
714	/*:VRX _SambaGroupMapInst
715	*/
716	_SambaGroupMapInst:
717	IF options.!debug == 1 THEN SAY "_SambaGroupMapInst() started"
718	/* These group mappings are obligatory */
719	IF options.!debug == 1 THEN SAY " Mapping Required domain groups"
720	address cmd samba.!netexe' groupmap add rid=512 ntgroup="Domain Admins" unixgroup="admin" type=domain comment="Domain Administrators"'
721	address cmd samba.!netexe' groupmap add rid=513 ntgroup="Domain Users" unixgroup="users" type=domain comment="Domain Users"'
722	address cmd samba.!netexe' groupmap add rid=514 ntgroup="Domain Guests" unixgroup="guests" type=domain comment="Domain Guests"'
723
724	/* These group mappings are optional */
725	IF options.!debug == 1 THEN SAY " Mapping Optional domain groups"
726	address cmd samba.!netexe' groupmap add rid=515 ntgroup="Domain Computers" unixgroup="machines" type=domain comment="Domain Computers"'
727	address cmd samba.!netexe' groupmap add rid=516 ntgroup="Domain Controllers" unixgroup="dc" type=domain comment="Domain Controllers"'
728	address cmd samba.!netexe' groupmap add rid=517 ntgroup="Domain Certificate Admins" unixgroup="certadmin" type=domain comment="Domain Certificate Administrators"'
729	address cmd samba.!netexe' groupmap add rid=518 ntgroup="Domain Schema Admins" unixgroup="schemeadmin" type=domain comment="Domain Schema Administrators"'
730	address cmd samba.!netexe' groupmap add rid=519 ntgroup="Domain Enterprise Admins" unixgroup="entadmin" type=domain comment="Domain Enterprise Administrators"'
731	address cmd samba.!netexe' groupmap add rid=520 ntgroup="Domain Policy Admins" unixgroup="poladmin" type=domain comment="Domain Policy Administrators"'
732
733	/* The following ones are unsupported at the moment - use at your own risk */
734	/*
735	IF options.!debug == 1 THEN SAY say " Mapping Builtin groups"
736	address cmd samba.!netexe' groupmap add rid=544 ntgroup="Builtin Admins" unixgroup="ntadmin" type=builtin
737	address cmd samba.!netexe' groupmap add rid=545 ntgroup="Builtin Users" unixgroup="ntusers" type=builtin
738	address cmd samba.!netexe' groupmap add rid=546 ntgroup="Builtin Guests" unixgroup="ntguests" type=builtin
739	address cmd samba.!netexe' groupmap add rid=547 ntgroup="Builtin Power Users" unixgroup="" type=builtin
740	address cmd samba.!netexe' groupmap add rid=548 ntgroup="Builtin Account Operators" unixgroup="" type=builtin
741	address cmd samba.!netexe' groupmap add rid=549 ntgroup="Builtin System Operators" unixgroup="operator" type=builtin
742	address cmd samba.!netexe' groupmap add rid=550 ntgroup="Builtin Print Operators" unixgroup="lp" type=builtin
743	address cmd samba.!netexe' groupmap add rid=551 ntgroup="Builtin Backup Operators" unixgroup="backup" type=builtin
744	address cmd samba.!netexe' groupmap add rid=552 ntgroup="Builtin Replicator" unixgroup="" type=builtin
745	address cmd samba.!netexe' groupmap add rid=553 ntgroup="Builtin RAS Servers" unixgroup="" type=builtin
746	*/
747	IF options.!debug == 1 THEN SAY "_SambaGroupMapInst() done"
748	return
749
750	/*:VRX _SambaGuestCreate
751	*/
752	_SambaGuestCreate:
753	IF options.!debug == 1 THEN say "_SambaGuestCreate() started"
754	IF options.!debug == 1 THEN say ' 'samba.!smbpasswdexe' -a guest -n'
755	samba.!smbpasswdexe' -a guest -n -D 0 2>'samba.!error' 1>'samba.!message
756
757	if rc = 0 then call _SambaShowMsg
758	else call _SambaShowError
759
760	IF options.!debug == 1 THEN say "_SambaGuestCreate() done"
761	return
762
763	/*:VRX _SambaRootPWCheck
764	*/
765	_SambaRootPWCheck:
766	if VRGet("EF_RootPassword","Value") ="" then do
767	Msg.type = "E"
768	Msg.Text = NLVGetMessage(57, "root")
769	call _ShowMsg
770	return 0
771	end
772	if VRGet("EF_RootPassword_repeat","Value") ="" then do
773	Msg.type = "E"
774	Msg.Text = NLVGetMessage(58,"root")
775	call _ShowMsg
776	return 0
777	end
778
779	if VRGet("EF_RootPassword","Value") <> VRGet("EF_RootPassword_repeat","Value") then do
780	Msg.type = "E"
781	Msg.Text = NLVGetMessage(59, "root")
782	call _ShowMsg
783	return 0
784	end
785	return 1
786
787	/*:VRX _SambaRootPWSet
788	*/
789	_SambaRootPWSet:
790	IF options.!debug == 1 THEN say "_SambaRootPWSet() started"
791
792	/* Write root password to a temp file */
793	pwdfile = TempDir'newpwd'
794	call lineout pwdfile, VRGet("EF_RootPassword","value")
795	call lineout pwdfile, VRGet("EF_RootPassword","value")
796	ok = stream(pwdfile,"c","close")
797
798	/* Create the root account */
799	IF options.!debug == 1 THEN say ' 'samba.!smbpasswdexe' -a root -s <'pwdfile
800	samba.!smbpasswdexe' -a root -s -D 0 <'pwdfile' 2>'samba.!error' 1>'samba.!message
801
802	if rc = 0 then call _SambaShowMsg
803	else call _SambaShowError
804
805	/* Remove the temp password file */
806	ok = SysFileDelete(pwdfile)
807
808	/* Deal with swat */
809	/* FixMe: We do not need htpasswd.exe anymore as we use rxcrypt.dll */
810	if swatauth then do
811	/* we always remove the old swat */
812	say ' 'samba.!htpasswdexe' -D "'swatusers'" root'
813	address cmd samba.!htpasswdexe' -D "'swatusers'" root' /* ' 2>'samba.!error' 1>'samba.!msg
814	if rc <> 0 then call _SambaShowError; else call _SambaShowMsg */
815
816	if VRFileExists(swatusers) then cFlag = ""; else cFlag="c"
817	say ' 'samba.!htpasswdexe' -b'cFLag' "'swatusers'" root **********'
818	address cmd samba.!htpasswdexe' -b'cFlag' "'swatusers'" root 'VRGet("EF_RootPassword","value") /* ' 2>'samba.!error' 1>'samba.!msg
819	if rc <> 0 then call _SambaShowError
820	else call _SambaShowMsg */
821	end
822	IF options.!debug == 1 THEN say "_SambaRootPWSet() done"
823	return
824
825	/*:VRX _SambaShowError
826	*/
827	_SambaShowError: procedure expose samba. settings. options.
828	I = 0
829	do while lines(samba.!error) <> 0
830	I = I + 1
831	smberr.I = linein(samba.!error)
832	say I':err:'smberr.I
833	end
834	ok = stream(Samba.!error,"c","close")
835	ok = SysFileDelete(Samba.!error)
836	smberr.0 = I
837	/* we did not get any error text */
838	if smberr.0 = 0 then return
839	Buttons.1 = "OK"
840	Buttons.0 = 1
841	id = VRMessageStem( VRWindow(), "smberr.", VRGet("Main", "Caption") , "Error", "Buttons.", buttons.1, buttons.1 )
842	return
843
844	/*:VRX _SambaShowMsg
845	*/
846	_SambaShowMsg: procedure expose samba. settings. options.
847	I = 0
848	do while lines(samba.!message) <> 0
849	I = I + 1
850	smbmsg.I = linein(samba.!message)
851	say I':msg:'smbmsg.I
852	end
853	ok = stream(Samba.!message,"c","close")
854	ok = SysFileDelete(Samba.!message)
855	smbmsg.0 = I
856	/* we did not get any message */
857	if smbmsg.0 = 0 then return
858	Buttons.1 = "OK"
859	Buttons.0 = 1
860	id = VRMessageStem( VRWindow(), "smbmsg.", VRGet("Main", "Caption") , "I", "Buttons.", buttons.1, buttons.1 )
861	return
862	/*:VRX _SambaUserCreate
863	*/
864	_SambaUserCreate:
865	eCSUser = value("USER",,"OS2ENVIRONMENT")
866	if translate(eCSUser) <> "root" & translate(eCSUser) <> "guest" then do
867	Msg.Text = NLVGetMessage(75, eCSUser)
868	Msg.Type = "I"
869	call _ShowMsg
870	end
871	return
872
873	/*:VRX _SambaVersion
874	*/
875	_SambaVersion:
876	say "_SambaVersion() started"
877	address cmd samba.!smbd' -V >'samba.!msg
878	samba.!version = linein(samba.!msg)
879	say " Samba "samba.!version
880	ok = stream(samba.!msg,"c","close")
881	say "_SambaVersion() done"
882	return
883
884	/*:VRX _SaveChanges
885	*/
886	_SaveChanges:
887	say '_SaveChanges() started for ['CurSection']'
888
889	do I = 1 to words(ChangeList)
890	ChangeObj = word(ChangeList,I)
891	say "Changed object: "ChangeObj
892
893	parse var ChangeObj ChangeObjType '_' ChangeVoc
894
895	ChangeVoc = translate(ChangeVoc, ' ', '_')
896	say "Changed voc: "ChangeVoc
897	VocIdx = VRGet(ChangeObj,'Userdata')
898	if ChangeObjType = "EF" then do
899
900	NewVal = VRGet(ChangeObj, 'Value')
901	parse var sections.CurSIdx.VocIdx OldVoc'='OldVal
902	OldVoc = strip(oldVoc)
903	sections.CurSIdx.VocIdx = OldVoc' = 'NewVal
904
905	if VRGet(ChangeObj, 'Value') <> "" then do
906	select
907	when pos("\\", VRGet(ChangeObj, 'Value')) > 0 then ok = IniSet(ChangeVoc, VRGet(ChangeObj, 'Value'), CurSection, samba.!smbconf)
908	when pos(" dir", ChangeVoc) > 0 then ok = IniSet(ChangeVoc, _bs2fs(VRGet(ChangeObj, 'Value')), CurSection, samba.!smbconf)
909	when pos("file", ChangeVoc) > 0 then ok = IniSet(ChangeVoc, _bs2fs(VRGet(ChangeObj, 'Value')), CurSection, samba.!smbconf)
910	when pos("path", ChangeVoc) > 0 then ok = IniSet(ChangeVoc, _bs2fs(VRGet(ChangeObj, 'Value')), CurSection, samba.!smbconf)
911	/* when pos("command",ChangeVoc) > 0 then ok = IniSet(ChangeVoc, _bs2fs(VRGet(ChangeObj, 'Value')), CurSection, samba.!smbconf) */
912	/* when pos("script", ChangeVoc) > 0 then ok = IniSet(ChangeVoc, _bs2fs(VRGet(ChangeObj, 'Value')), CurSection, samba.!smbconf) */
913	otherwise ok = IniSet(ChangeVoc, VRGet(ChangeObj, 'Value'), CurSection, samba.!smbconf)
914	end
915	say "INISet ok = "ok
916	end
917	else do
918	ok = IniDel( ChangeVoc, CurSection, samba.!smbconf )
919	say "INIDel ok = "ok
920	if ok = "" then ok = 0
921	end
922	end
923	if ChangeObjType = "CB" then do
924	If VRGet(ChangeObj, 'Set') then BoolVal = "Yes"; else BoolVal = "No"
925
926	parse var sections.CurSIdx.VocIdx OldVoc'='OldVal
927	OldVoc = strip(oldVoc)
928	sections.CurSIdx.VocIdx = OldVoc' = 'BoolVal
929
930	ok = IniSet(ChangeVoc, BoolVal, CurSection, samba.!smbconf)
931	say "INISet ok = "ok" (Bool)"
932	end
933	end
934
935	if ok = 0 then do
936	Msg.Type = "I"
937	Msg.Text = NLVGetMessage(51)
938	end
939	else do
940	Msg.Type = "E"
941	Msg.Text = NLVGetMessage(52)
942	end
943	call _ShowMsg
944
945	call TM_Value_Trigger
946
947	say '_SaveChanges() done'
948	return
949	/*:VRX _ShareObject_Changed
950	*/
951	_ShareObject_Changed:
952	say "_ShareObject_Changed() started"
953	ValueChanged = 1
954	if pos(VRGet(VRInfo("OBject"),"Name"), ChangeList) = 0 then Changelist = ChangeList' 'VRGet(VRInfo("OBject"),"Name")
955	ok = VRSet("PB_Save", "Enabled", 1)
956	say " ValueChanged = "ValueChanged
957	say Changelist
958	say "_ShareObject_Changed() done"
959	return
960
961	/*:VRX _SharesReset
962	*/
963	_SharesReset:
964	say '_SharesReset started'
965	ok = VRset("EF_path", "Value","")
966	ok = VRFlush( , "EF_path" )
967	ok = VRset("CB_Browseable", "Set", 1)
968	ok = VRFlush( , "CB_Browseable" )
969	ok = VRset("CB_Read_Only", "Set", 0)
970	ok = VRFlush( , "CB_Read_Only")
971	ok = VRset("CB_Guest_OK", "Set", 0)
972	ok = VRFlush( , "CB_Guest_OK" )
973	do I = 1 to CreatedObjs.0
974	ok = VRDestroy(CreatedObjs.I)
975	end
976	say '_SharesReset done'
977	return
978
979	/*:VRX _ShowMsg
980	*/
981	_ShowMsg:
982	Buttons.1 = "OK"
983	Buttons.0 = 1
984	id = VRMessage( VRWindow(), Msg.Text, Msg.Title, Msg.Type, "Buttons.", buttons.1, buttons.1 )
985	return
986
987	/*:VRX _Smb35Init
988	*/
989	_Smb35Init:
990	IF options.!debug == 1 THEN say '_Smb35Init() started'
991	say '1 -> 'samba.!smbpasswdexe' -a dummyuser -n -D 10'
992	address cmd samba.!smbpasswdexe' -a dummyuser -n -D 10'
993	say '2 -> 'samba.!smbpasswdexe' -x dummyuser -D 10'
994	address cmd samba.!smbpasswdexe' -x dummyuser -D 10'
995	say '3 -> 'samba.!pdbeditexe' --policies-reset -d=3'
996	address cmd samba.!pdbeditexe' --policies-reset -d=3'
997	say 'X -> ----------------------'
998	IF options.!debug == 1 THEN say '_Smb35Init() done'
999	return
1000
1001	/*:VRX _SmbConfBackup
1002	*/
1003	_SmbConfBackup:
1004	ok = VRCopyFile( SmbConf, SmbConf"-backup" )
1005	return
1006
1007	/*:VRX _SmbConfCommitChanges
1008	*/
1009	_SmbConfCommitChanges:
1010	IF options.!debug == 1 THEN say '_SmbConfCommitChanges() started'
1011
1012	src = TempDir'smb.conf'
1013	if stream(src,'c','query size') = 0 then do
1014	ok = VRCopyFile(smbconf,src)
1015	end
1016	trg = smbconf
1017	ok = SysFileDelete(smbconf)
1018	call lineout trg, '# Samba config file created using SSCC ver. 'word(VRGet("Main","Hinttext"),2)
1019	call lineout trg, '# from 'value("USER",,'OS2ENVIRONMENT')'@'value("HOSTNAME",,'OS2ENVIRONMENT')
1020	call lineout trg, '# Date: 'date()' 'time()
1021	lct = 0
1022	do until lines(src) = 0
1023	smbline = linein(src)
1024	if pos("idmap uid",smbline) > 0 then iterate
1025	if pos("idmap gid",smbline) > 0 then iterate
1026	if pos("winbind separator",smbline) > 0 then iterate
1027	if pos("copy ",smbline) > 0 then iterate
1028	call lineout trg, smbline
1029	lct = lct + 1
1030	end
1031	say "Lines saved "lct
1032	ok = stream(trg,'c','close')
1033	ok = stream(src,'c','close')
1034	ok = SysFileDelete(src)
1035	IF options.!debug == 1 THEN say '_SmbConfCommitChanges() done'
1036	return
1037
1038	/*:VRX _SmbConfCreateDefault
1039	*/
1040	_SmbConfCreateDefault:
1041	ok = SysFileDelete(smbconf)
1042
1043	/* Create a basic smb.conf */
1044	call _SmbConfDefault_Global
1045	call _SmbConfDefault_Scripts
1046	if CreatePDC then do
1047	call _SmbConfDefault_NetLogon
1048	call _SmbConfDefault_Profiles
1049	end
1050	call _SmbConfDefault_Homes
1051	call _SmbConfDefault_SharePrinters
1052	call _SmbConfDefault_ShareDrives
1053	ok = stream(smbconf,'c','close')
1054	return
1055
1056	/*:VRX _SmbConfCreateDefault_OldInstall
1057	*/
1058	_SmbConfCreateDefault_OldInstall:
1059	DriveList = SysDriveMap('C:','Local')
1060	ok = SysIni('SYSTEM', 'PM_SPOOLER_QUEUE_DESCR', 'ALL:','printers.')
1061	ok = VRSet("EF_NetBIOS_Name","Value", Value("HOSTNAME",,"OS2ENVIRONMENT"))
1062
1063	DrivesOH.0 = 0
1064	do I = 1 to words(DriveList)
1065	CurDrive = word(DriveList,I)
1066	Filesys = SysFilesystemType(Curdrive)
1067	DriveInfo=SysDriveInfo(CurDrive)
1068	parse var DriveInfo DrvLet CurFree CurSize CurLabel
1069	curlabel = strip(Curlabel)
1070	CurFree = word(Driveinfo,2)
1071	CurSize = word(Driveinfo,3)
1072	if Curlabel = "" then Curlabel = '?'
1073
1074	if datatype(CurSize) = 'NUM' then do
1075	CurSize = CurSize/(1024*1024)
1076	CurFree = CurFree/(1024*1024)
1077
1078	CurSize = format(CurSize,,0)'MB'
1079	CurFree = format(CurFree,,0)'MB'
1080	end
1081	else do
1082	CurSize = '?'
1083	CurFree = '?'
1084	end
1085
1086	/* DrivesOH.I = VRCreate( "GB_Drives", "CheckBox", "Name", "CB_"left(CurDrive,1), "Top", 120, "Left", 1325+(I-1)420, "Visible", 1, "Caption", CurDrive, "AutoSize", 1, "set", 1, "Userdata", FileSys, "HintText", CurDrive' ('Curlabel', 'FileSys') size: 'CurSize', free: 'CurFree) /
1087	Shares.!drives.I = VRMethod( "CN_smbconf", "AddRecord", smbconf.!dirs,,left(CurDrive,1) ,"#4")
1088	if FileSys = '' \| FileSys = 'CDFS' then do
1089	/* ok = VRSet(DrivesOH.I, "ForeColor", "Red") */
1090	end
1091	/* if CurDrive = SysBootDrive() then ok = VRSet(DrivesOH.I, "Set", 0)
1092	if CurDrive = translate(left(samba.!bin,2)) then ok = VRSet(DrivesOH.I, "Set", 0) */
1093	end
1094	DrivesOH.0 = I-1
1095
1096	PrintersOH.0 = 0
1097	Colum = 1325
1098	dx = 0
1099	do I = 1 to printers.0
1100	queue = printers.I
1101	name = strip(strip(SysIni('SYSTEM', 'PM_SPOOLER_QUEUE_DESCR', printers.I),'T','00'x),,';')
1102	/* PrintersOH.I = VRCreate( "GB_printers", "CheckBox", "Name", "CB_"queue, "Top", 120+(I-1-dx)250, "Left", Colum, "Visible", 1, "Caption", Name, "AutoSize", 1, "set", 1, "UserData", Queue) /
1103	Shares.!printers.I = VRMethod( "CN_smbconf", "AddRecord", smbconf.!printers,,queue,"#6")
1104	if I = 6 then do
1105	Colum = 4000
1106	dx = 6
1107	end
1108	end
1109	PrintersOH.0 = I-1
1110	return
1111
1112	/*:VRX _SmbConfDefault_Global
1113	*/
1114	_SmbConfDefault_Global:
1115	Migrate = (arg(1) = 1)
1116	if \Migrate then do /* when migrating these 4 lines are there already */
1117	section = '[global]'
1118	call lineout smbconf, section
1119	call lineout smbconf, Indent\|\|'workgroup = 'VRGet("EF_Workgroup_Initial","value")
1120	call lineout smbconf, Indent\|\|'netbios name = 'value('HOSTNAME',,'OS2ENVIRONMENT')
1121	call lineout smbconf, Indent\|\|'server string = %h Samba Server for eCS (OS/2)'
1122	call lineout smbconf, Indent\|\|'comment = Samba Server for eCS (OS/2)'
1123	end
1124
1125	call lineout smbconf, Indent\|\|'dos charset = IBM-850'
1126	call lineout smbconf, Indent\|\|'display charset = IBM-850'
1127	call lineout smbconf, Indent\|\|'unix charset = IBM-850'
1128
1129	CurCP = SysQueryProcessCodePage()
1130	if CurCP <> "850" then do
1131	Msg.Text = NLVGetMessage(117)
1132	Msg.Type = "W"
1133	call _ShowMsg
1134	end
1135	if UseTDBsam = 1 then do
1136	call lineout smbconf, Indent\|\|'passdb backend = tdbsam'
1137	end
1138	call lineout smbconf, Indent\|\|'log level = 2'
1139	call lineout smbconf, Indent\|\|'log file = '\|\|ETC\|\|'\samba\log\log.smbd.%U.%M'
1140	call lineout smbconf, Indent\|\|'null passwords = Yes'
1141	call lineout smbconf, Indent\|\|'guest account = guest'
1142	call lineout smbconf, Indent\|\|'security = user'
1143	call lineout smbconf, Indent\|\|'load printers = No'
1144	call lineout smbconf, Indent\|\|'time server = Yes'
1145	call lineout smbconf, Indent\|\|'lock directory = '\|\|ETC\|\|'\samba\lock'
1146	/* This EA makes the testparm warning about browsing go away.
1147	Note: The EA is NOT marked critical as it should be,
1148	neverthelesse this fix works */
1149	ok = SysPutEA(ETC\|\|'\samba\lock',"MODE", "FEFF0400ED410000"x)
1150	call lineout smbconf, Indent\|\|'ea support = Yes'
1151	call lineout smbconf, Indent\|\|'store dos attributes = Yes'
1152	call lineout smbconf, Indent\|\|'lm announce = Yes'
1153	call lineout smbconf, Indent\|\|'wins support = Yes'
1154	call lineout smbconf, Indent\|\|'wide links = No'
1155	ok = SysFileTree(samba.!printcap,exist.,'FO')
1156	if exist.0 = 1 then do
1157	call lineout smbconf, Indent\|\|'printcap name = 'samba.!printcap
1158	end
1159	samba.!smbusermap = ETC\|\|'\samba\private\smbusermap'
1160	call lineout smbconf, Indent\|\|'username map = 'samba.!smbusermap
1161	if \VRFileExists(samba.!smbusermap) then call _SmbUserMapCreate
1162	if CreatePDC then do
1163	call lineout smbconf, Indent\|\|'local master = Yes'
1164	call lineout smbconf, Indent\|\|'preferred master = Yes'
1165	call lineout smbconf, Indent\|\|'domain master = Yes'
1166	call lineout smbconf, Indent\|\|'os level = 65'
1167	call lineout smbconf, ';'Indent\|\|'domain groups ='
1168	call lineout smbconf, ';'Indent\|\|'domain admin group = '
1169	call lineout smbconf, Indent\|\|'domain admin users = root'
1170	call lineout smbconf, Indent\|\|'domain logons = Yes'
1171	call lineout smbconf, Indent\|\|'logon home = \\%L\Profiles\%U'
1172	call lineout smbconf, Indent\|\|'logon path = \\%L\Profiles\%U'
1173	call lineout smbconf, Indent\|\|'logon drive = z:'
1174	call lineout smbconf, Indent\|\|'logon script = %U.cmd'
1175	end
1176	else do
1177	call lineout smbconf, Indent\|\|'create mask = 0777'
1178	end
1179	ok = stream(smbconf, 'c','close')
1180	return
1181	/*:VRX _SmbConfDefault_Homes
1182	*/
1183	_SmbConfDefault_Homes:
1184	/* Create Homes section */
1185	call lineout smbconf, '[HOMES]'
1186	call lineout smbconf, Indent\|\|"comment = Home directory"
1187	smbhome = samba.!bin'\homes'
1188	Home = strip(value('Home',,'OS2ENVIRONMENT'),'T','\')
1189	if Home <> '' then do
1190	User = value('USER',,'OS2ENVIRONMENT')
1191	if User <> '' then do
1192	if translate(User) = translate(Filespec('N',Home)) \| translate(Filespec('N',Home)) = "DEFAULT" then smbHome = strip(filespec('D',Home)\|\|filespec('P',Home),'T','\')
1193	end
1194	end
1195	ok = SysMkDir(smbhome)
1196	call lineout smbconf, Indent\|\|"path = "_bs2fs(smbhome)'/%u'
1197	call lineout smbconf, Indent\|\|"read only = No"
1198	call lineout smbconf, Indent\|\|"browseable = No"
1199	call lineout smbconf, Indent
1200	ok = stream(smbconf, 'c','close')
1201	return
1202
1203	/*:VRX _SmbConfDefault_Netlogon
1204	*/
1205	_SmbConfDefault_Netlogon:
1206	/* Create Netlogon section */
1207	call lineout smbconf, '[NETLOGON]'
1208	call lineout smbconf, Indent\|\|"comment = Netlogon service"
1209	smbnetlogon = samba.!bin'\netlogon'
1210	ok = SysMkDir(smbnetlogon)
1211	call lineout smbconf, Indent\|\|"path = "_bs2fs(smbnetlogon)
1212	call lineout smbconf, Indent\|\|"read only = Yes"
1213	call lineout smbconf, Indent\|\|"browseable = Yes"
1214	call lineout smbconf, Indent\|\|"share modes = No"
1215	call lineout smbconf, Indent
1216	ok = stream(smbconf, 'c','close')
1217	return
1218
1219	/*:VRX _SmbConfDefault_Profiles
1220	*/
1221	_SmbConfDefault_Profiles:
1222	/* Create profiles section */
1223	call lineout smbconf, '[profiles]'
1224	call lineout smbconf, Indent\|\|"comment = profiles"
1225	smbprofiles = samba.!bin'\profiles'
1226	ok = SysMkDir(smbprofiles)
1227	call lineout smbconf, Indent\|\|"path = "_bs2fs(smbprofiles)
1228	call lineout smbconf, Indent\|\|"profile acls = Yes"
1229	call lineout smbconf, Indent\|\|"read only = No"
1230	call lineout smbconf, Indent\|\|"browseable = Yes"
1231	call lineout smbconf, Indent\|\|"create mask = 0777"
1232	call lineout smbconf, Indent\|\|"directory mask = 0777"
1233	call lineout smbconf, Indent
1234	ok = stream(smbconf, 'c','close')
1235	return
1236
1237	/*:VRX _SmbConfDefault_Scripts
1238	*/
1239	_SmbConfDefault_Scripts:
1240	smbtools = samba.!bin
1241
1242	/* user scripts */
1243	call lineout smbconf, ';'\|\|Indent\|\|'user scripts'
1244	call lineout smbconf, Indent\|\|'add user script = '\|\|smbtools\|\|'\usermod.cmd -a "%u"'
1245	call lineout smbconf, Indent\|\|'delete user script = '\|\|smbtools\|\|'\usermod.cmd -x "%u"'
1246	call lineout smbconf, Indent\|\|'rename user script = '\|\|smbtools\|\|'\usermod.cmd -r "%uold" "%unew"'
1247	call lineout smbconf, Indent\|\|'add machine script = '\|\|smbtools\|\|'\usermod.cmd -a "%u"'
1248	call lineout smbconf, Indent\|\|'set primary group script = '\|\|smbtools\|\|'\usermod.cmd -p "%u" "%g"'
1249
1250	/* group scripts */
1251	call lineout smbconf, ';'\|\|Indent\|\|'group scripts'
1252	call lineout smbconf, Indent\|\|'add group script = '\|\|smbtools\|\|'\groupmod.cmd -a "%g"'
1253	call lineout smbconf, Indent\|\|'delete group script = '\|\|smbtools\|\|'\groupmod.cmd -x "%g"'
1254	call lineout smbconf, Indent\|\|'add user to group script = '\|\|smbtools\|\|'\groupmod.cmd -j "%g" "%u"'
1255	call lineout smbconf, Indent\|\|'delete user from group script = '\|\|smbtools\|\|'\groupmod.cmd -l "%g" "%u"'
1256
1257	/* share scripts */
1258	call lineout smbconf, ';'\|\|Indent\|\|'share scripts'
1259	call lineout smbconf, Indent\|\|'add share command = '\|\|smbtools\|\|'\addshare.cmd'
1260	call lineout smbconf, Indent\|\|'change share command = '\|\|smbtools\|\|'\changeshare.cmd'
1261	call lineout smbconf, Indent\|\|'delete share command = '\|\|smbtools\|\|'\delshare.cmd'
1262
1263	/* other scripts */
1264	call lineout smbconf, ';'\|\|Indent\|\|'other scripts'
1265	call lineout smbconf, Indent\|\|'enumports command = '\|\|smbtools\|\|'\enumports.cmd'
1266	call lineout smbconf, Indent
1267	call lineout smbconf
1268	ok = stream(smbconf, 'c','close')
1269	return
1270
1271	/*:VRX _SmbConfDefault_ShareDrives
1272	*/
1273	_SmbConfDefault_ShareDrives:
1274	DriveList = SysDriveMap('C:','Local')
1275
1276	do I = 1 to words(DriveList)
1277	CurDrive = word(DriveList,I)
1278	say CurDrive
1279	Filesys = SysFilesystemType(Curdrive)
1280	DriveInfo=SysDriveInfo(CurDrive)
1281	parse var DriveInfo DrvLet CurFree CurSize CurLabel
1282
1283	if FileSys = '' \| FileSys = 'CDFS' then do
1284	read_write = 'read only = Yes'
1285	end
1286	else do
1287	read_write = 'read only = No'
1288	end
1289	if FileSys = '' then FileSys = 'CDFS'
1290
1291	section = '['left(curdrive,1)']'
1292	comment = 'comment = 'Drive' 'CurDrive' ('FileSys')'
1293	path = 'path = 'Curdrive'/'
1294	guest_ok = 'guest ok = Yes'
1295	hide_files = 'hide files = /*. SF/root/'
1296
1297	call lineout smbconf, section
1298	call lineout smbconf, Indent\|\|comment
1299	call lineout smbconf, Indent\|\|path
1300	call lineout smbconf, Indent\|\|read_write
1301	call lineout smbconf, Indent\|\|guest_ok
1302	call lineout smbconf, Indent\|\|hide_files
1303	call lineout smbconf, Indent
1304	end
1305	ok = stream(smbconf, 'c','close')
1306	return
1307
1308	/* browsable = 'browsable = Yes'
1309	printable = 'printable = No'
1310	public = 'public = Yes'
1311	call lineout smbconf, Indent\|\|browsable
1312	call lineout smbconf, Indent\|\|printable
1313	call lineout smbconf, Indent\|\|public */
1314	/*:VRX _SmbConfDefault_SharePrinters
1315	*/
1316	_SmbConfDefault_SharePrinters:
1317	ok = SysIni('SYSTEM', 'PM_SPOOLER_QUEUE_DESCR', 'ALL:','printers.')
1318
1319	do I = 1 to printers.0
1320	queue = printers.I
1321	name = strip(strip(SysIni('SYSTEM', 'PM_SPOOLER_QUEUE_DESCR', printers.I),'T','00'x),,';')
1322
1323	/* call lineout samba.!printcap, queue'\|'name */
1324
1325	section = '['queue']'
1326	path = 'path = 'ETC'\samba\spool\'queue
1327	ok = SysMkDir(ETC'\samba\spool\'queue)
1328	comment = 'comment = 'name
1329	create_mask = 'create mask = 0700'
1330	guest_ok = 'guest ok = Yes'
1331
1332	printable = 'printable = Yes'
1333	print_command = 'print command = 'samba.!bin'\smbprint.exe "%s" "%p" "%J" "%c" "%z"'
1334	printer_name = 'printer name = 'queue
1335
1336	call lineout smbconf, section
1337	call lineout smbconf, Indent\|\|comment
1338	call lineout smbconf, Indent\|\|path
1339	call lineout smbconf, Indent\|\|create_mask
1340	call lineout smbconf, Indent\|\|printable
1341	call lineout smbconf, Indent\|\|print_command
1342	call lineout smbconf, Indent\|\|printer_name
1343	call lineout smbconf, Indent\|\|guest_ok
1344
1345	call lineout smbconf, Indent
1346
1347	end
1348	ok = stream(smbconf, 'c','close')
1349	ok = stream(samba.!printcap,'c','close')
1350	return
1351
1352	/* browsable = 'browsable = Yes'
1353	call lineout smbconf, Indent\|\|browsable */
1354	/*:VRX _SmbConfLoad
1355	*/
1356	_SmbConfLoad:
1357	IF options.!debug == 1 THEN say '_SmbConfLoad() started'
1358	IF options.!debug == 1 THEN say ' Loading "'samba.!smbconf'" ('stream(samba.!smbconf,'c','query size')' bytes)'
1359
1360	/* ok = IniEnumSections(sections., samba.!smbconf) */
1361
1362	section. = ""
1363	sections.0 = 0
1364	call _MyIniEnumSections(samba.!smbconf)
1365
1366	special = 'global printers netlogon print$ homes profiles'
1367	Specialstatus.0 = sections.0
1368	PrintStatus.0 = sections.0
1369	sectionhandles.0 = sections.0
1370	recordhandle.0 = sections.0
1371
1372	do I = 1 to sections.0
1373	IF options.!debug == 1 THEN say ' ['sections.I'] section loaded'
1374	if wordpos(translate(sections.I),translate(special)) > 0 Then SpecialStatus.I = 1
1375	Else SpecialStatus.I = 0
1376	PrintRes = IniGet("Printable", sections.I, samba.!smbconf)
1377	if Translate(PrintRes) = "YES" \| Translate(PrintRes) = "TRUE" then PrintStatus.I = 1
1378	else PrintStatus.I = 0
1379
1380	IF options.!debug == 1 THEN say ' ['sections.I'] status (special:'SpecialStatus.I', print:'Printstatus.I')'
1381	if Printstatus.I = 1 & SpecialStatus.I = 0 then do /* printer share */
1382	recordhandle.I = VRMethod( "CN_smbconf", "AddRecord", smbconf.!printers,,sections.I,"#65:PMWP.DLL")
1383	ok = VRMethod("CN_smbconf","SetRecordAttr",recordhandle.I,"ReadOnly", 1)
1384	IF options.!debug == 1 THEN say ' ['sections.I'] added to shared printer tree'
1385	end
1386	if Printstatus.I = 0 & SpecialStatus.I = 0 then do /* directory share */
1387	recordhandle.I = VRMethod( "CN_smbconf", "AddRecord", smbconf.!dirs,, sections.I,"#64:PMWP.DLL")
1388	ok = VRMethod("CN_smbconf","SetRecordAttr",recordhandle.I,"ReadOnly", 1)
1389	IF options.!debug == 1 THEN say ' ['sections.I'] added to shared folder tree'
1390	end
1391	if translate(sections.I) = 'PROFILES' then do
1392	recordhandle.I = smbconf.!profiles
1393	ok = VRMethod("CN_smbconf","SetRecordAttr",recordhandle.I,"Visible", 1)
1394	end
1395	if translate(sections.I) = 'NETLOGON' then do
1396	recordhandle.I = smbconf.!netlogon
1397	ok = VRMethod("CN_smbconf","SetRecordAttr",recordhandle.I,"Visible", 1)
1398	end
1399	if translate(sections.I) = 'HOMES' then do
1400	recordhandle.I = smbconf.!homes
1401	ok = VRMethod("CN_smbconf","SetRecordAttr",recordhandle.I,"Visible", 1)
1402	end
1403	if translate(sections.I) = 'GLOBAL' then recordhandle.I = smbconf.!global
1404	end
1405	ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!root, "Collapsed", 0 )
1406	IF options.!debug == 1 THEN say '_SmbConfLoad() done'
1407	return
1408
1409
1410	/* if VRGet("DT_AlreadySmbConf","Visible") then do
1411	smbline = strip(translate(linein(smbconf),' ','09'x))
1412
1413	do while translate(left(smbline,8)) <> "[GLOBAL]"
1414	smbline = strip(translate(linein(smbconf),' ','09'x))
1415	end
1416
1417	do until left(smbline,1) = '['
1418	smbline = strip(translate(linein(smbconf),' ','09'x))
1419	parse var smbline voc '=' val
1420	voc = strip(voc)
1421	val = strip(val)
1422	if translate(voc) = "WORKGROUP" then do
1423	ok = VRset("EF_WorkGroup", "Value", val)
1424	ok = VRSet("EF_WorkGroup", "BackColor", "(255,255,180)")
1425	end
1426	if translate(voc) = "NETBIOS NAME" then do
1427	ok = VRset("EF_NetBIOS_Name", "Value", val)
1428	ok = VRSet("EF_NetBIOS_Name", "BackColor", "(255,255,180)")
1429	end
1430	if translate(voc) = "SERVER STRING" then do
1431	ok = VRset("EF_Server_String", "Value", val)
1432	ok = VRSet("EF_server_string", "BackColor", "(255,255,180)")
1433	end
1434
1435	end
1436	ok = stream(smbconf, 'c','close')
1437	end */
1438
1439	/*:VRX _SmbConfMigratePeer
1440	*/
1441	_SmbConfMigratePeer:
1442	Ok = SysFileDelete(smbconf)
1443	/* Migrate Peer To Samba */
1444
1445	/* IBMLAN.INI part */
1446	ibmlanline = strip(translate(linein(ibmlanini),' ',Indent))
1447
1448	do while translate(left(ibmlanline,11)) <> "[REQUESTER]"
1449	ibmlanline = strip(translate(linein(ibmlanini),' ',Indent))
1450	end
1451
1452	call lineout smbconf, '[global]'
1453	do until left(ibmlanline,1) = '['
1454	ibmlanline = strip(translate(linein(ibmlanini),' ',Indent))
1455	parse var ibmlanline voc '=' val
1456	voc = strip(voc)
1457	val = strip(val)
1458	if translate(voc) = "DOMAIN" then do
1459	call lineout smbconf, Indent\|\|'workgroup = 'val
1460	end
1461	if translate(voc) = "COMPUTERNAME" then do
1462	call lineout smbconf, Indent\|\|'netbios name = 'val
1463	end
1464	end
1465	do while translate(left(ibmlanline,6)) <> '[PEER]'
1466	ibmlanline = strip(translate(linein(ibmlanini),' ',Indent))
1467	end
1468	do until left(ibmlanline,1) = '[' \| lines(ibmlanini) = 0
1469	ibmlanline = strip(translate(linein(ibmlanini),' ',Indent))
1470	parse var ibmlanline voc '=' val
1471	voc = strip(voc)
1472	val = strip(val)
1473	if translate(voc) = "SRVCOMMENT" then do
1474	call lineout smbconf, Indent\|\|'server string = 'val
1475	call lineout smbconf, Indent\|\|'comment = 'val
1476	end
1477	end
1478	call _SmbConfDefault_Global 1 /* 1 = migration mode */
1479
1480	call _SmbConfDefault_Scripts
1481	if CreatePDC then do
1482	call _SmbConfDefault_NetLogon
1483	call _SmbConfDefault_Profiles
1484	end
1485	call _SmbConfDefault_Homes
1486
1487	/* LSSHARE.INI part */
1488
1489	ok = SysINI(lsshareini,"ALL:","Shares." )
1490	SharePath.0 = shares.0
1491	Comment.0 = shares.0
1492	Type.0 = shares.0
1493
1494	ok = VRMethod( "Application", "ListPrinters", "printer." )
1495
1496	do I = 1 to shares.0
1497	call lineout smbconf, '['Shares.I']'
1498	sharepath.I = SysINI(lsshareini, shares.I, 'Path')
1499	Type.I = c2d(left(SysINI(lsshareini, shares.I, 'Type'),1))
1500	if Type.I = '1' then do /* We migrate a printer */
1501	do J = 1 to printer.0
1502	parse var printer.J PrinterName';'PrinterQueue';'PrinterDriver
1503	if PrinterQueue = Sharepath.I then leave
1504	end
1505	call lineout smbconf, Indent\|\|'path = '_bs2fs(ETC'\samba\spool\'printerqueue)
1506	ok = SysMkDir(ETC'\samba\spool\'printerqueue)
1507	call lineout smbconf, Indent\|\|'comment = 'Printername
1508	call lineout smbconf, Indent\|\|'create mask = 0700'
1509	call lineout smbconf, Indent\|\|'printer name = 'printerqueue
1510	call lineout smbconf, Indent\|\|'printing = os2'
1511	call lineout smbconf, Indent\|\|'printable = Yes'
1512	call lineout smbconf, Indent\|\|'print command = 'samba.!bin'\smbprint.exe "%s" "%p" "%J" "%c" "%z"'
1513	call lineout smbconf, Indent\|\|'browseable = Yes'
1514	call lineout smbconf, Indent\|\|'guest ok = Yes'
1515	call lineout smbconf, Indent\|\|'read only = No'
1516	end
1517	else do /* we migrate a folder */
1518	Comment.I = SysINI(lsshareini, shares.I, 'Remark')
1519	call lineout smbconf, Indent\|\|'comment = 'Comment.I
1520	call lineout smbconf, Indent\|\|'path = 'translate(Sharepath.I,'/','\')
1521	call lineout smbconf, Indent\|\|'read only = No'
1522	call lineout smbconf, Indent\|\|'browseable = Yes'
1523	call lineout smbconf, Indent\|\|'hide files = /*. SF/root/'
1524	end
1525	call lineout smbconf, " "
1526	end
1527	ok = stream(smbconf,'c','close')
1528	return
1529
1530	/*:VRX _SmbConfRestore
1531	*/
1532	_SmbConfRestore:
1533	ok = VRCopyFile( SmbConf"-backup", SmbConf)
1534	return
1535
1536	/*:VRX _SmbConfShareRemove
1537	*/
1538	_SmbConfShareRemove:
1539	Aborted = 0
1540	ok = VRMethod( "CN_smbconf", "GetRecordList", "Selected", "SelectedHandle." )
1541	if Selectedhandle.0 = 0 then return
1542	Msg.Title = NLVGetMessage(67)
1543	do I = 1 to sections.0
1544	if recordhandle.I = SelectedHandle.1 then do
1545	if recordhandle.I = smbconf.!homes \| recordhandle.I = smbconf.!global then do
1546	Msg.Text = NLVGetMessage(61, Sections.I)
1547	Msg.Type = 'E'
1548	call _ShowMsg
1549	Aborted = 1
1550	return
1551	end
1552
1553	Msg.Text = NLVGetMessage(62, Sections.I)
1554	Msg.Type = "Q"
1555	ok = _MsgYesNo()
1556	if ok = 2 then return
1557
1558	NewSmbConf = TempDir'smb.conf'
1559	ok = SysFileDelete(NewSmbConf)
1560	smbline = strip(linein(smbconf))
1561	do while left(translate(smbline),length(sections.I)+2) <> translate('['sections.I']')
1562	call lineout NewSmbConf, smbline
1563	smbline = strip(linein(smbconf))
1564	end
1565	smbline = strip(linein(smbconf))
1566	do while left(translate(smbline),1) <> '[' & lines(smbconf) <> 0
1567	smbline = strip(linein(smbconf))
1568	end
1569	do until lines(smbconf) = 0
1570	call lineout NewSmbConf, smbline
1571	smbline = strip(linein(smbconf))
1572	end
1573	call lineout NewSmbConf, smbline
1574	ok = stream(smbconf, 'c', 'close')
1575	ok = stream(Newsmbconf, 'c', 'close')
1576	ok = VRCopyFile( NewSmbConf, smbconf )
1577	end
1578	end
1579	call _SmbConfTreeReset
1580
1581	if _SambaRunning() then do
1582	Msg.Text = NLVGetMessage(69)
1583	Msg.Type = 'I'
1584	call _ShowMsg
1585	end
1586	return
1587
1588	/*:VRX _SmbConfShareRename
1589	*/
1590	_SmbConfShareRename:
1591	Aborted = 0
1592	ok = VRMethod( "CN_smbconf", "GetRecordList", "Selected", "SelectedHandle." )
1593	if Selectedhandle.0 = 0 then return
1594
1595	do I = 1 to sections.0
1596	if recordhandle.I = SelectedHandle.1 then do
1597	if recordhandle.I = smbconf.!homes \| recordhandle.I = smbconf.!global then do
1598	Msg.Text = NLVGetMessage(66, Sections.I)
1599	Msg.Type = 'E'
1600	call _ShowMsg
1601	Aborted = 1
1602	return
1603	end
1604	Buttons.1 = NLVGetMessage(2)
1605	Buttons.2 = NLVGetMessage(3)
1606	Buttons.0 = 2
1607	NewShareName = Sections.I
1608	id = VRPrompt( VRWindow(), NLVGetMessage(66), "NewShareName", NLVGetMessage(68), "Buttons.", buttons.1, buttons.2 )
1609	if ID = 2 \| NewShareName = "" then return
1610
1611	NewSmbConf = TempDir'smb.conf'
1612	ok = SysFileDelete(NewSmbConf)
1613	smbline = strip(linein(smbconf))
1614	do while left(translate(smbline),length(sections.I)+2) <> translate('['sections.I']')
1615	call lineout NewSmbConf, smbline
1616	smbline = strip(linein(smbconf))
1617	end
1618	call lineout NewSmbConf, '['NewShareName']'
1619	smbline = strip(linein(smbconf))
1620	do until lines(smbconf) = 0
1621	call lineout NewSmbConf, smbline
1622	smbline = strip(linein(smbconf))
1623	end
1624	call lineout NewSmbConf, smbline
1625	ok = stream(smbconf, 'c', 'close')
1626	ok = stream(Newsmbconf, 'c', 'close')
1627	ok = VRCopyFile( NewSmbConf, smbconf )
1628	end
1629	end
1630	call _SmbConfTreeReset
1631
1632	if _SambaRunning() then do
1633	Msg.Text = NLVGetMessage(69)
1634	Msg.Type = 'I'
1635	call _ShowMsg
1636	end
1637	return
1638
1639	/*:VRX _SmbConfTreeInit
1640	*/
1641	_SmbConfTreeInit:
1642	IF options.!debug == 1 THEN say '_SmbConfTreeInit() started.'
1643	call _CfgPageSetupSize "GB_Help"
1644	call _CfgPageSetupSize "GB_Global"
1645	call _CfgPageSetupSize "GB_Shares"
1646	IF options.!debug == 1 THEN say ' Page setup done.'
1647
1648	ok = VRMethod("CN_smbconf", "RemoveRecord", "ALL")
1649	smbconf.!root = VRMethod( "CN_smbconf", "AddRecord",,, "smb.conf","#33:PMWP.DLL")
1650	smbconf.!global = VRMethod( "CN_smbconf", "AddRecord", smbconf.!root,, "Global","#33:PMWP.DLL")
1651	smbconf.!homes = VRMethod( "CN_smbconf", "AddRecord", smbconf.!root,, "Homes","#33:PMWP.DLL")
1652	smbconf.!netlogon = VRMethod( "CN_smbconf", "AddRecord", smbconf.!root,, "Netlogon","#33:PMWP.DLL")
1653	smbconf.!profiles = VRMethod( "CN_smbconf", "AddRecord", smbconf.!root,, "Profiles","#33:PMWP.DLL")
1654	smbconf.!printers = VRMethod( "CN_smbconf", "AddRecord", smbconf.!root,, NLVGetMessage(45),"#93:PMWP.DLL")
1655	smbconf.!dirs = VRMethod( "CN_smbconf", "AddRecord", smbconf.!root,, NLVGetMessage(46),"#27:PMWP.DLL")
1656	IF options.!debug == 1 THEN say ' smb.conf sections created.'
1657
1658	ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!netlogon, "Visible", 0 , "ReadOnly", 1)
1659	ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!profiles, "Visible", 0 , "ReadOnly", 1)
1660	ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!homes, "Visible", 0 , "ReadOnly", 1)
1661	ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!root, "Collapsed",1, "ReadOnly", 1 )
1662	ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!global, "ReadOnly", 1)
1663	ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!printers, "ReadOnly", 1)
1664	ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!dirs, "ReadOnly", 1)
1665
1666	IF options.!debug == 1 THEN say ' visibility set.'
1667	IF options.!debug == 1 THEN say '_SmbConfTreeInit() done.'
1668	return
1669
1670	/*:VRX _SmbConfTreeReset
1671	*/
1672	_SmbConfTreeReset:
1673	call _SharesReset
1674	ok = VRMethod( "CN_SmbConf", "RemoveRecord", smbconf.!root )
1675	call _SmbConfTreeInit
1676	call _GUIInit
1677	return
1678
1679	/*:VRX _SmbUserMapCreate
1680	*/
1681	_SmbUserMapCreate:
1682	call lineout samba.!smbusermap, '# Created by SSCC version 'word(VRGet("Main","Hinttext"),2)' on 'date()' at 'time()
1683	call lineout samba.!smbusermap, '# syntax:'
1684	call lineout samba.!smbusermap, '# Samba username = Windows username'
1685	call lineout samba.!smbusermap, 'root = Administrator'
1686	ok = stream(samba.!smbusermap,'c','close')
1687	return
1688
1689	/*:VRX About_Close
1690	*/
1691	About_Close:
1692	call About_Fini
1693	return
1694
1695	/*:VRX About_Create
1696	*/
1697	About_Create:
1698	call About_Init
1699	ok = VRSet("About","Caption", NLVGetMessage(31))
1700	ok = VRSet("PB_AboutOK","Caption", NLVGetMessage(2))
1701	SambaTeam.0 = 9
1702	SambaTeam.1 = 'Silvan Scherrer'
1703	SambaTeam.2 = 'Herwig Bauernfeind'
1704	SambaTeam.3 = 'Vitali Pelenyov'
1705	SambaTeam.4 = 'Paul Smedley'
1706	SambaTeam.5 = 'Yuri Dario'
1707	SambaTeam.6 = 'Alex Taylor'
1708	SambaTeam.7 = 'Nikolay Kolosov'
1709	SambaTeam.8 = 'All the Samba people'
1710	SambaTeam.9 = 'All the netlabs people'
1711	ok = VRSet("About","Font", VRGet("GB_Help2","Font"))
1712	ok = VRMethod("LB_SambaTeam","AddStringList", "SambaTeam." )
1713	ok = VRSet("DT_SambaTeam","Caption", NLVGetMessage(72))
1714	ok = VRSet("MLE_Version","Value", NLVGetMessage(1)\|\|'0D0A'x\|\|VRGet("Main", "Hinttext")\|\|'0D0A'x\|\|'0D0A'x\|\|SambaVer)
1715	return
1716
1717	/*:VRX About_Fini
1718	*/
1719	About_Fini:
1720	window = VRInfo( "Window" )
1721	call VRDestroy window
1722	drop window
1723	return
1724	/*:VRX About_Init
1725	*/
1726	About_Init:
1727	window = VRInfo( "Object" )
1728	if( \VRIsChildOf( window, "Notebook" ) ) then do
1729	call VRMethod window, "CenterWindow"
1730	call VRSet window, "Visible", 1
1731	call VRMethod window, "Activate"
1732	end
1733	drop window
1734	return
1735
1736	/*:VRX CB_Browseable_Click
1737	*/
1738	CB_Browseable_Click:
1739	call _ShareObject_Changed
1740	return
1741
1742	/*:VRX CB_EA_Support_Click
1743	*/
1744	CB_EA_Support_Click:
1745	call _ShareObject_Changed
1746	return
1747
1748	/*:VRX CB_Guest_OK_Click
1749	*/
1750	CB_Guest_OK_Click:
1751	call _ShareObject_Changed
1752	return
1753
1754	/*:VRX CB_LM_Announce_Click
1755	*/
1756	CB_LM_Announce_Click:
1757	call _ShareObject_Changed
1758	return
1759
1760	/*:VRX CB_Null_passwords_Click
1761	*/
1762	CB_Null_passwords_Click:
1763	call _ShareObject_Changed
1764	return
1765
1766	/*:VRX CB_Read_Only_Click
1767	*/
1768	CB_Read_Only_Click:
1769	call _ShareObject_Changed
1770	return
1771
1772	/*:VRX CB_RemoveSmbConf_Click
1773	*/
1774	CB_RemoveSmbConf_Click:
1775	ok = VRSet("CB_RemoveBackend", "Enabled", VRGet("CB_RemoveSmbConf","set"))
1776	if VRGet("CB_RemoveBackend", "Enabled") = 0 then ok = VRSet("CB_RemoveBackend", "Set", 0)
1777	return
1778
1779	/*:VRX CB_Store_DOS_attributes_Click
1780	*/
1781	CB_Store_DOS_attributes_Click:
1782	call _ShareObject_Changed
1783	return
1784
1785	/*:VRX CB_Time_Server_Click
1786	*/
1787	CB_Time_Server_Click:
1788	call _ShareObject_Changed
1789	return
1790
1791	/*:VRX CB_WINS_Support_Click
1792	*/
1793	CB_WINS_Support_Click:
1794	call _ShareObject_Changed
1795	return
1796
1797	/*:VRX CN_smbconf_Click
1798	*/
1799	CN_smbconf_Click:
1800	IF options.!debug == 1 THEN SAY 'CN_smbconf_Click() started'
1801	IF options.!debug == 1 THEN SAY ' Using 'smbconf' ('stream(smbconf,'c','query size')' bytes)'
1802	if ValueChanged then do
1803	if CurSection <> "" then do
1804	Msg.Title = NLVGetMessage('1')
1805	Msg.Text = NLVGetMessage(60, CurSection)
1806	ok = _MsgYesNo()
1807	if ok = 1 then call _SaveChanges
1808	CurSection = ""
1809	end
1810	end
1811
1812	Ok = VRset("Main", "Painting", 0)
1813	ok = VRset("GB_Help", "Visible", 0)
1814	ok = VRset("GB_Global", "Visible", 0)
1815	ok = VRset("GB_Shares", "Visible", 0)
1816
1817	ok = VRMethod( "CN_smbconf", "GetRecordList", "Selected", "Prophandle." )
1818	if PropHandle.0 = 0 then do
1819	IF options.!debug == 1 THEN SAY 'CN_smbconf_Click() aborted, no handle'
1820	Ok = VRset("Main", "Painting", 1)
1821	return
1822	end
1823	ParentHandle = VRMethod("CN_smbconf","GetRecordAttr", Prophandle.1,"Parent")
1824
1825	if Prophandle.1 = smbconf.!root then ok = VRset("GB_Help", "Visible", 1)
1826	if Prophandle.1 = smbconf.!global \| Parenthandle = smbconf.!global then call _ActiveGroup "Global"
1827	if Prophandle.1 = smbconf.!homes \| Parenthandle = smbconf.!homes then call _ActiveGroup "Shares"
1828	if Prophandle.1 = smbconf.!netlogon \| Parenthandle = smbconf.!netlogon then call _ActiveGroup "Shares"
1829	if Prophandle.1 = smbconf.!profiles \| Parenthandle = smbconf.!profiles then call _ActiveGroup "Shares"
1830	if Prophandle.1 = smbconf.!dirs then call _ActiveGroup "Help"
1831	if Prophandle.1 = smbconf.!printers then call _ActiveGroup "Help"
1832	if Parenthandle = smbconf.!dirs then call _ActiveGroup "Shares"
1833	if Parenthandle = smbconf.!printers then call _ActiveGroup "Shares"
1834
1835	call _SharesReset
1836	Ok = VRset("Main", "Painting", 1)
1837
1838	ok = VRSet("TM_Value", "Enabled", 1)
1839	if Prophandle.1 = smbconf.!root \| Prophandle.1 = smbconf.!dirs \| Prophandle.1 = smbconf.!printers then do
1840	IF options.!debug == 1 THEN SAY 'CN_smbconf_Click() aborted, got parent handle'
1841	Ok = VRset("Main", "Painting", 1)
1842	return
1843	end
1844	IF options.!debug == 1 THEN SAY ' Got child handle, start populating now'
1845	ObjYPos = 1280+361+72-120
1846	ObjXPos = 1325+72
1847	ObjDelta= 380
1848	CreatedObjs.0 = 0
1849	Objs = 0
1850
1851	Page = 1 /* for global */
1852
1853	do I = 1 to sections.0
1854	if Prophandle.1 <> recordhandle.I then iterate
1855
1856	Ok = VRset("Main", "Painting", 0)
1857	CurSection = sections.I
1858	CurSIdx = I
1859	upCurSection = translate(CurSection)
1860	IF options.!debug == 1 THEN SAY ' Section ['sections.I']'
1861
1862	if upCurSection = 'GLOBAL' then do
1863	ObjYPos = 1605+-120+361+361+361+361+361+361
1864	ObjXPos = 1325
1865	ObjDelta = 320
1866	if Page = 1 then do
1867	if \VRIsValidObject("GB_"ActiveGroup"_1") then do
1868	ActiveGroupObj = VRCreate("GB_Global", "Window", "Name", "GL_GLOBAL_"Page, "Height", 1500, "Width", 1500, "Visible", 0, "Font", "9.WarpSans")
1869	IF options.!debug == 1 THEN say ' Neues Fenster VRCreate = 'ok
1870	ok = VRLoad( "GB_Global", VRWindowPath(), "GL_GLOBAL_"Page )
1871	IF options.!debug == 1 THEN say ' VRLoad = 'ok
1872	ok = VRMethod("GB_Global", "InsertPage", "GL_GLOBAL_"Page, "+"Page)
1873	IF options.!debug == 1 THEN say ' InsertPage = 'ok
1874
1875	/* ok = VRset("Main", "Painting", 1)
1876	Msg.Text = NLVGetMessage(114)
1877	Msg.Type = "I"
1878	call _ShowMsg
1879	return */
1880	end
1881	ActiveGroupObj = VRGet("GB_"ActiveGroup"_1", "Self")
1882	end
1883	end
1884	else do
1885	if \VRIsValidObject("GB_"ActiveGroup) then do
1886	ok = VRset("Main", "Painting", 1)
1887	Msg.Text = NLVGetMessage(114)
1888	Msg.Type = "I"
1889	call _ShowMsg
1890	return
1891	end
1892	ActiveGroupObj = "GB_"ActiveGroup
1893	ok = VRSet("DT_"ActiveGroup,"Caption",sections.I)
1894	end
1895	say "CurSection="CurSection
1896	say "smbconf="smbconf
1897
1898	/* ok = IniEnum("Voc", hdl) / / Old command: Fill the Voc stem with vocabulary */
1899
1900	call _MyIniEnum(CurSection)
1901
1902	if upCurSection <> 'GLOBAL' then do
1903	ok = VRSet("CB_Read_Only", "set", 1)
1904	end
1905	do V = 1 to Voc.0 /* loop for every vocabulary */
1906	ValueChanged = 0
1907	ChangeList = ""
1908
1909	/* get value for this vocabulary */
1910	Val.V = IniGet(Voc.V, CurSection, samba.!smbconf) /* this is currently done by _MyIniEnum (which is probably not good) */
1911	select
1912	when pos("\\",Val.V) > 0 then nop
1913	when pos(" dir",Voc.V) > 0 then Val.V = _fs2bs(Val.V)
1914	when pos("file",Voc.V) > 0 then Val.V = _fs2bs(Val.V)
1915	when pos("path",Voc.V) > 0 then Val.V = _fs2bs(Val.V)
1916	when pos("username map",Voc.V) > 0 then Val.V = _fs2bs(Val.V)
1917	otherwise nop /* do not beautify */
1918	end
1919
1920	IF options.!debug == 1 THEN say ' Process: "'Voc.V'" = "'Val.V'"'
1921
1922	/* Proper format to ease checking and object creation */
1923	upVal = translate(Val.V)
1924	upVoc = translate(translate(Voc.V,'_',' '))
1925
1926	if upVal = 'YES'\| upVal = 'NO'
1927	then VocObjType = 'CB'
1928	else VocObjType = 'EF'
1929
1930	/* Non configurable items */
1931	if upVoc = "PRINTABLE" then iterate
1932	if pos('SCRIPT', upVoc) > 0 then iterate
1933	if pos('COMMAND', upVoc) > 0 then iterate
1934
1935	if upVoc = "COMMENT" then do
1936	CurPage = Page
1937	CurActiveGroupObj = ActiveGroupObj
1938	if Page <> 1 then ActiveGroupObj = VRGet("GB_"ActiveGroup"_1", "Self")
1939	OldObjYPos = ObjYPos
1940	if upCurSection = "GLOBAL" then ObjYPos = 860-120
1941	else ObjYPos = 860+361+72
1942	if _CreateVocObject() then do
1943	ok = VRSet(VocObjType"_"upVoc, 'Value', Val.V)
1944	ok = VRFlush( , VocObjType"_"upVoc )
1945	end
1946	ActiveGroupObj = CurActiveGroupObj
1947	Page = CurPage
1948	ObjYPos = OldObjYPos
1949	end
1950	else do /* Normalfall */
1951	if _CreateVocObject() then do
1952	if upVal = "YES" \| upVal = "NO" then do
1953	ok = VRset(VocObjType"_"upVoc,"Set", (upVal="YES"))
1954	ok = VRFlush( , VocObjType"_"upVoc )
1955	end
1956	else do
1957	ok = VRSet(VocObjType"_"upVoc, 'Value', Val.V)
1958	ok = VRFlush( , VocObjType"_"upVoc )
1959	if translate(VocObjType"_"upVoc) = VocObjType"_PRINTER_NAME" then do
1960	ok = VRSet(VocObjType"_"upVoc, 'ReadOnly', 1)
1961	ok = VRSet(VocObjType"_"upVoc, 'BackColor', 'PaleGray')
1962	end
1963	end
1964	end
1965	nop
1966	end
1967	ok = VRSet(VocObjType"_"upVoc, 'Userdata', V)
1968
1969	if upCurSection = 'GLOBAL' then do
1970	if upVoc = "WINBIND_SEPARATOR" then do /* Workaround for Samba Ticket #57 */
1971	ok = VRset("DT_WINBIND_SEPARATOR","Visible","0")
1972	ok = VRset("EF_WINBIND_SEPARATOR","Value","\|")
1973	ok = VRFlush( , "EF_WINBIND_SEPARATOR" )
1974	ok = VRset("EF_WINBIND_SEPARATOR","Visible",0)
1975	ObjYPos = ObjYPos - ObjDelta
1976	end
1977
1978	if ObjYPos > VRGet("GB_Global","Height") - 1200 then do
1979	/* Ok = VRset("Main", "Painting", 1) */
1980	Page = Page + 1
1981	if Page = 2 then do
1982	Ok = VRset("Main", "Painting", 1)
1983	ok = VRSet("Main", 'Pointer', 'Wait' )
1984	Ok = VRset("Main", "Painting", 0)
1985	end
1986	if \VRIsValidOBject("GL_GLOBAL_"Page) then do
1987	ActiveGroupObj = VRCreate("GB_Global", "Window", "Name", "GL_GLOBAL_"Page, "Height", 1500, "Width", 1500, "Visible", 0, "Font", "9.WarpSans")
1988	IF options.!debug == 1 THEN say ' Neues Fenster VRCreate = 'ok
1989	ok = VRLoad( "GB_Global", VRWindowPath(), "GL_GLOBAL_"Page )
1990	IF options.!debug == 1 THEN say ' VRLoad = 'ok
1991	ok = VRMethod("GB_Global", "InsertPage", "GL_GLOBAL_"Page, "+"Page)
1992	IF options.!debug == 1 THEN say ' InsertPage = 'ok
1993	end
1994	else do
1995	ActiveGroupObj = VRGet("GL_GLOBAL_"Page, "Self")
1996	end
1997	ObjYPos = 0
1998	IF options.!debug == 1 THEN say " Page ="page
1999	/* Ok = VRset("Main", "Painting", 0) */
2000	end
2001	end
2002	end
2003	end
2004	if upCurSection = "GLOBAL" then do
2005	if VRGet("EF_Netbios_name","Value") = "" then do
2006	ok = VRset("EF_NETBIOS_NAME","Value",Value("HOSTNAME",,"OS2ENVIRONMENT"))
2007	ok = VRFlush( , "EF_NETBIOS_NAME" )
2008	end
2009	if VRGet("EF_WorkGroup","Value") = "" then do
2010	ok = VRset("EF_WorkGroup","Value","WORKGROUP")
2011	ok = VRFlush( , "EF_WorkGroup" )
2012	end
2013	end
2014
2015	Ok = VRset("Main", "Painting", 1)
2016	ok = VRSet("Main", 'Pointer', '<default>' )
2017	IF options.!debug == 1 THEN SAY 'CN_smbconf_Click() done'
2018	return
2019	/*:VRX CN_smbconf_ContextMenu
2020	*/
2021	CN_smbconf_ContextMenu:
2022	ok = VRMethod( "CN_smbconf", "GetRecordList", "Selected", "Prophandle." )
2023	if PropHandle.0 = 0 then return
2024	ParentHandle = VRMethod("CN_smbconf","GetRecordAttr", Prophandle.1,"Parent")
2025	ok = VRset("Menu_ShareContext_AddPrinter", "Visible", 0)
2026	ok = VRset("Menu_ShareContext_RenamePrinter", "Visible", 0)
2027	ok = VRset("Menu_ShareContext_RemovePrinter", "Visible", 0)
2028	ok = VRset("Menu_ShareContext_Add", "Visible", 0)
2029	ok = VRset("Menu_ShareContext_Rename", "Visible", 0)
2030	ok = VRset("Menu_ShareContext_Remove", "Visible", 0)
2031
2032	if Prophandle.1 = smbconf.!root then ok = VRset("GB_Help", "Visible", 1)
2033	if Prophandle.1 = smbconf.!global \| Parenthandle = smbconf.!global then return
2034	if Prophandle.1 = smbconf.!homes \| Parenthandle = smbconf.!homes then return
2035	if Prophandle.1 = smbconf.!dirs then do
2036	ok = VRset("Menu_ShareContext_Add", "Visible", 1)
2037	end
2038	if Parenthandle = smbconf.!dirs then do
2039	ok = VRset("Menu_ShareContext_Add", "Visible", 1)
2040	ok = VRset("Menu_ShareContext_Rename", "Visible", 1)
2041	ok = VRset("Menu_ShareContext_Remove", "Visible", 1)
2042	end
2043	if Prophandle.1 = smbconf.!printers then do
2044	ok = VRset("Menu_ShareContext_AddPrinter", "Visible", 1)
2045	end
2046	if Parenthandle = smbconf.!printers then do
2047	ok = VRset("Menu_ShareContext_AddPrinter", "Visible", 1)
2048	ok = VRset("Menu_ShareContext_RenamePrinter", "Visible", 1)
2049	ok = VRset("Menu_ShareContext_RemovePrinter", "Visible", 1)
2050	end
2051
2052	ok = VRMethod( "Menu_ShareContext", "Popup", , , "", "" )
2053
2054	return
2055
2056	/*:VRX EF_display_charset_Change
2057	*/
2058	EF_display_charset_Change:
2059	call _ShareObject_Changed
2060	return
2061
2062	/*:VRX EF_dos_charset_Change
2063	*/
2064	EF_dos_charset_Change:
2065	call _ShareObject_Changed
2066	return
2067
2068	/*:VRX EF_Log_file_Change
2069	*/
2070	EF_Log_file_Change:
2071	call _ShareObject_Changed
2072	return
2073
2074	/*:VRX EF_LOG_LEVEL_Change
2075	*/
2076	EF_LOG_LEVEL_Change:
2077	call _ShareObject_Changed
2078	return
2079
2080	/*:VRX EF_NetBIOS_Name_Change
2081	*/
2082	EF_NetBIOS_Name_Change:
2083	call _ShareObject_Changed
2084	return
2085
2086	/*:VRX EF_path_Change
2087	*/
2088	EF_path_Change:
2089	call _ShareObject_Changed
2090	return
2091
2092	/*:VRX EF_SECURITY_Change
2093	*/
2094	EF_SECURITY_Change:
2095	call _ShareObject_Changed
2096	return
2097
2098	/*:VRX EF_Server_String_Change
2099	*/
2100	EF_Server_String_Change:
2101	call _ShareObject_Changed
2102	return
2103
2104	/*:VRX EF_Unix_charset_Change
2105	*/
2106	EF_Unix_charset_Change:
2107	call _ShareObject_Changed
2108	return
2109
2110	/*:VRX EF_Workgroup_Change
2111	*/
2112	EF_Workgroup_Change:
2113	call _ShareObject_Changed
2114	return
2115
2116	/*:VRX Fini
2117	*/
2118	Fini:
2119	window = VRWindow()
2120	call VRSet window, "Visible", 0
2121	drop window
2122	return 0
2123
2124	/*:VRX GB_Global_1_Close
2125	*/
2126	GB_Global_1_Close:
2127	call GB_Global_1_Fini
2128	return
2129
2130	/*:VRX GB_Global_1_Create
2131	*/
2132	GB_Global_1_Create:
2133	call GB_Global_1_Init
2134	return
2135
2136	/*:VRX GB_Global_1_Fini
2137	*/
2138	GB_Global_1_Fini:
2139	window = VRInfo( "Window" )
2140	call VRDestroy window
2141	drop window
2142	return
2143	/*:VRX GB_Global_1_Init
2144	*/
2145	GB_Global_1_Init:
2146	window = VRInfo( "Object" )
2147	if( \VRIsChildOf( window, "Notebook" ) ) then do
2148	call VRMethod window, "CenterWindow"
2149	call VRSet window, "Visible", 1
2150	call VRMethod window, "Activate"
2151	end
2152	drop window
2153	return
2154
2155	/*:VRX Halt
2156	*/
2157	Halt:
2158	signal _VREHalt
2159	return
2160
2161	/*:VRX Init
2162	*/
2163	Init:
2164	window = VRWindow()
2165	call VRMethod window, "CenterWindow"
2166	call VRSet window, "Visible", 1
2167	call VRMethod window, "Activate"
2168	drop window
2169	return
2170
2171	/*:VRX Installer_Close
2172	*/
2173	Installer_Close:
2174	Msg.Text = NLVGetMessage(114)
2175	Msg.Type = "I"
2176	call _ShowMsg
2177	call Installer_Fini
2178	return
2179
2180	/*:VRX Installer_Create
2181	*/
2182	Installer_Create:
2183	call Installer_Init
2184	CALL NLVSetText 'Installer', 'Caption', 90
2185	CALL NLVSetText 'DT_RootPasswordDescription', 'Caption', 91
2186	CALL NLVSetText 'DT_RootPassword', 'Caption', 92
2187	CALL NLVSetText 'DT_RootPassword_repeat', 'Caption', 93
2188	CALL NLVSetText 'CB_NoRoot', 'Caption', 94
2189	CALL NLVSetText 'DT_Backend', 'Caption', 95
2190	CALL NLVSetText 'DT_ServerType', 'Caption', 96
2191	CALL NLVSetText 'PB_Install_Default', 'Caption', 97
2192	CALL NLVSetText 'PB_Install_Migration', 'Caption', 98
2193
2194	ok = VRSet("PB_Install_Migration", "Enabled", lsshareiniexists * ibmlaniniexists )
2195	ok = VRSet("TM_Installer","Enabled", 0)
2196	if stream(samba.!group,'c','query exists') = "" \| stream(samba.!group,'c','query size') < 120 then do
2197	call _GroupCreate
2198	end
2199	if stream(samba.!masterpasswd,'c','query exists') = "" \| stream(samba.!group,'c','query size') < 230 then do
2200	call _MasterPasswdCreate
2201	call _PasswordDBRewrite
2202	ok = VRSet("CB_NoRoot","Enabled", 0)
2203	end
2204	if stream(samba.!pwddb,'c','query exists') = "" \| stream(samba.!spwddb,'c','query exists') = "" then do
2205	call _PasswordDBRewrite
2206	ok = VRSet("CB_NoRoot","Enabled", 0)
2207	end
2208	if \VRFileExists(ETC'\samba\private\secrets.tdb') then do
2209	ok = VRSet("CB_NoRoot","Enabled", 0)
2210	end
2211	UseTDBsam = 1
2212	CreatePDC = 0
2213	return
2214
2215	/*:VRX Installer_Fini
2216	*/
2217	Installer_Fini:
2218	window = VRInfo( "Window" )
2219	call VRDestroy window
2220	drop window
2221	return
2222	/*:VRX Installer_Init
2223	*/
2224	Installer_Init:
2225	window = VRInfo( "Object" )
2226	if( \VRIsChildOf( window, "Notebook" ) ) then do
2227	call VRMethod window, "CenterWindow"
2228	call VRSet window, "Visible", 1
2229	call VRMethod window, "Activate"
2230	end
2231	drop window
2232	return
2233
2234	/*:VRX IPB_ChooseDir_Click
2235	*/
2236	IPB_ChooseDir_Click:
2237	InitDir = VRGet("EF_Path","Value")
2238	VarPos = pos('%', InitDir)
2239	if VarPos > 0 then do
2240	VarChar = substr(InitDir,VarPos,2)
2241	InitDir = left(InitDir,VarPos-1)
2242	say VarChar
2243	end
2244	NewPath = _dirDialog('Choose path for 'VRGet("DT_Shares","Caption"),_fs2bs(InitDir))
2245	if NewPath = "" then return
2246	if VarPos > 0 then NewPath = NewPath'\'VarChar
2247	ok = VRset("EF_Path","value",NewPath)
2248	return
2249
2250	/*:VRX IPB_NewItem_Click
2251	*/
2252	IPB_NewItem_Click:
2253	smbconfopt = samba.!tools'\smbconf.opt'
2254	say smbconfopt
2255	do until lines(smbconfopt) = 0
2256	smbconfline = linein(smbconfopt)
2257	say smbconfline
2258	I = I + 1
2259	opt.I = smbconfline
2260	end
2261	opt.0 = I
2262	ok = stream(smbconfopt,'c','close')
2263	ok = VRMethod("DDCB_Add_Voc","Reset")
2264	ok = VRMethod("DDCB_Add_Voc","AddStringList", opt.)
2265	ok = VRSet("DDCB_Add_Voc","Top",ObjYPos-380)
2266	ok = VRSet("EF_Add_Voc","Top",ObjYPos-380)
2267	ok = VRSet("PB_Add_Voc_OK","Top",ObjYPos)
2268	ok = VRSet("PB_Add_Voc_Cancel","Top",ObjYPos)
2269
2270	ok = VRSet("DDCB_ADD_Voc","Visible",1)
2271	ok = VRSet("EF_ADD_Voc","Visible",1)
2272	ok = VRSet("PB_Add_Voc_OK","Visible",1)
2273	ok = VRSet("PB_add_Voc_Cancel","Visible",1)
2274	return
2275
2276	/*:VRX Main_Close
2277	*/
2278	Main_Close:
2279	call Quit
2280	return
2281
2282	/*:VRX Main_Create
2283	*/
2284	Main_Create:
2285	ok = VRREdirectStdIO("OFF")
2286	options.!debug = 0
2287
2288	call _LoadOtherFuncs
2289
2290	call _INIRead
2291
2292	call _ParseCommandLine
2293
2294	call _InitTempDir
2295	call _SambaInit
2296	call _SambaExtendSearchPath
2297	call _GUIInitNLV
2298
2299	call _FindHtpasswd
2300	call Main_Resize
2301	call _SambaCheckComponents
2302	call _SambaVersion
2303	call _FindIBMLANPath
2304	call _SmbConfTreeInit /* creates the records for default sections */
2305
2306	/* Installation mode is triggered by a timer activated in GUIInit, when no smb.conf exists */
2307	call _GUIInit
2308	return
2309
2310	/*:VRX Main_Resize
2311	*/
2312	Main_Resize:
2313	IF options.!debug == 1 THEN SAY "Main_Resize() started"
2314	Ok = VRset("Main", "Painting", 0)
2315	ok = VRSet("GB_SmbConfTree","Top", FWidth)
2316	ok = VRSet("GB_SmbConfTree","Left", FWidth-24)
2317	ok = VRSet("GB_SmbConfTree","Height", VRGet("Main", "Height") -1350)
2318
2319	ok = VRset("GB_SmbConfTree3","Top", FWidth)
2320	ok = VRset("GB_SmbConfTree3","Left", FWidth)
2321	ok = VRset("GB_SmbConfTree3","Height", 245 )
2322	ok = VRset("GB_SmbConfTree3","Width", VRGet("GB_SmbConfTree","Width") -(FWidth*2))
2323
2324	ok = VRset("DT_SmbConfTree","Top", 8)
2325	ok = VRset("DT_SmbConfTree","Left", 8)
2326	ok = VRset("DT_SmbConfTree","Height", 213)
2327	ok = VRset("DT_SmbConfTree","Width", VRGet("GB_SmbConfTree3","Width") - 24)
2328
2329	ok = VRset("GB_SmbConfTree2","Left", FWidth)
2330	ok = VRset("GB_SmbConfTree2","Top", 245 + FWidth*2)
2331	ok = VRset("GB_SmbConfTree2","Width", VRGet("GB_SmbConfTree","Width")-FWidth*2)
2332	ok = VRset("GB_SmbConfTree2","Height", VRGet("GB_SmbConfTree","Height")-FWidth*3-245)
2333
2334	ok = VRset("CN_SmbConf", "Top", FWidth)
2335	ok = VRset("CN_SmbConf", "Left", FWidth)
2336	ok = VRset("CN_SmbConf", "Width", VRGet("GB_SmbConfTree2","Width") -(FWidth*2))
2337	ok = VRset("CN_SmbConf", "Height", VRGet("GB_SmbConfTree2","Height")-(FWidth*2))
2338
2339	ok = VRset("GB_Help", "Top", FWidth)
2340	ok = VRset("GB_Help", "Left", VRGet("GB_SmbConfTree","Width") + 60)
2341	ok = VRSet("GB_Help", "Height", VRGet("GB_SmbConfTree","Height"))
2342	ok = VRSet("GB_Help", "Width", VRGet("Main", "Width") - VRGet("GB_SmbConfTree","width") - 60- FWidth2-242)
2343
2344	ok = VRset("GB_Help3","Top", FWidth)
2345	ok = VRset("GB_Help3","Left", FWidth)
2346	ok = VRset("GB_Help3","Height", 245 )
2347	ok = VRset("GB_Help3","Width", VRGet("GB_Help","Width") -(FWidth*2))
2348
2349	ok = VRset("GB_Help2","Left", FWidth)
2350	ok = VRset("GB_Help2","Top", 245 + FWidth*2)
2351	ok = VRset("GB_Help2","Width", VRGet("GB_Help","Width")-FWidth*2)
2352	ok = VRset("GB_Help2","Height", VRGet("GB_Help","Height")-FWidth*3-245)
2353
2354	ok = VRset("DT_Help","Top", 8)
2355	ok = VRset("DT_Help","Left", 8)
2356	ok = VRset("DT_Help","Height", 213)
2357	ok = VRset("DT_Help","Width", VRGet("GB_Help3","Width") - 24)
2358
2359	ok = VRset("GB_Shares", "Top", FWidth)
2360	ok = VRset("GB_Shares", "Left", VRGet("GB_SmbConfTree","Width") + 60)
2361	ok = VRSet("GB_Shares", "Height", VRGet("GB_SmbConfTree","Height"))
2362	ok = VRSet("GB_Shares", "Width", VRGet("Main", "Width") - VRGet("GB_SmbConfTree","width") - 60- FWidth2-242)
2363
2364	ok = VRset("GB_Shares3","Top", FWidth)
2365	ok = VRset("GB_Shares3","Left", FWidth)
2366	ok = VRset("GB_Shares3","Height", 245 )
2367	ok = VRset("GB_Shares3","Width", VRGet("GB_Shares","Width") -(FWidth*2))
2368
2369	ok = VRset("GB_Shares2","Left", FWidth)
2370	ok = VRset("GB_Shares2","Top", 245 + FWidth*2)
2371	ok = VRset("GB_Shares2","Width", VRGet("GB_Shares","Width")-FWidth*2)
2372	ok = VRset("GB_Shares2","Height", VRGet("GB_Shares","Height")-FWidth*3-245)
2373
2374	ok = VRset("DT_Shares", "Top", 8)
2375	ok = VRset("DT_Shares", "Left", 8)
2376	ok = VRset("DT_Shares", "Height", 213)
2377	ok = VRset("DT_Shares", "Width", VRGet("GB_Shares3","Width") - 24)
2378
2379	ok = VRSet("GB_Global", "Height", VRGet("GB_SmbConfTree","Height"))
2380	ok = VRSet("GB_Global", "Width", VRGet("GB_Shares", "Width"))
2381
2382	MButton.bTop = VRGet("GB_SmbConfTree","height")+FWidth*2
2383	MButton.bLeft = VRGet("GB_Shares","Left")
2384	MButton.bWidth = VRGet("PB_Save","Width")
2385
2386	if MButton.bTop < 1300 & MButton.bLeft < 1300 then do
2387	MButton.bTop = 4842
2388	MButton.bLeft = 3758
2389	MButton.bWidth = 1241
2390	FWidth = 32
2391	end
2392
2393	ok = VRSet("PB_Reload", "Top", MButton.bTop)
2394	ok = VRSet("PB_Reload", "Left", MButton.bLeft)
2395	ok = VRSet("PB_Reload", "Width", MButton.bWidth)
2396
2397	ok = VRSet("PB_Save", "Top", MButton.bTop)
2398	ok = VRSet("PB_Save", "Left", MButton.bLeft+1*FWidth+MButton.bWidth)
2399	ok = VRSet("PB_Reload", "Width", MButton.bWidth)
2400
2401	ok = VRSet("PB_Undo", "Top", MButton.bTop)
2402	ok = VRSet("PB_Undo", "Left", MButton.bLeft+2FWidth+MButton.bWidth2)
2403	ok = VRSet("PB_Undo", "Width", MButton.bWidth)
2404
2405	ok = VRSet("PB_Cancel", "Top", MButton.bTop)
2406	ok = VRSet("PB_Cancel", "Left", MButton.bLeft+3FWidth+MButton.bWidth3)
2407	ok = VRSet("PB_Cancel", "Width", MButton.bWidth)
2408
2409	/* ok = VRSet("PB_Help", "Top", MButton.bTop)
2410	ok = VRSet("PB_Help", "Left", MButton.bLeft+6FWidth+MButton.bWidth3)
2411	ok = VRSet("PB_Help", "Width", MButton.bWidth) */
2412
2413	drop MButton.b
2414
2415	Top = VRGet("Main","Top")
2416	Left = VRGet("Main","Left")
2417	Width = VRGet("Main","Width")
2418	Height = VRGet("Main","Height")
2419
2420	if ActiveGroup = "Global" then do
2421
2422	end
2423	IF options.!debug == 1 THEN SAY " Window size = "VRGet("Main","Width")', 'VRGet("Main","Height")
2424
2425	/* check and empty event queue, trash spurious resize events */
2426	EventString = ''
2427	TrashedResize = 0
2428	do until EventString = 'nop'
2429	EventString = VREvent('N')
2430	say ' Event: "'EventString'" ('TrashedResize')'
2431	if EventString <> 'nop' then do
2432	if EventString = 'CALL Main_Resize' then TrashedResize = TrashedResize + 1
2433	else interpret eventString
2434	end
2435	end
2436	if TrashedResize >= 2 then CALL Main_Resize
2437
2438	IF options.!debug == 1 THEN SAY " Window size = "VRGet("Main","Width")', 'VRGet("Main","Height")
2439	Ok = VRset("Main", "Painting", 1)
2440	IF options.!debug == 1 THEN SAY "Main_Resize() done"
2441	return
2442
2443	/*:VRX Menu_Action_AddHomes_Click
2444	*/
2445	Menu_Action_AddHomes_Click:
2446	call _SmbConfDefault_Homes
2447	call _SmbConfTreeInit
2448	call _SmbConfLoad
2449	return
2450
2451	/*:VRX Menu_Action_AddNetLogon_Click
2452	*/
2453	Menu_Action_AddNetLogon_Click:
2454	call _SmbConfDefault_Netlogon
2455	call _SmbConfTreeInit
2456	call _SmbConfLoad
2457	return
2458
2459	/*:VRX Menu_Action_AddProfiles_Click
2460	*/
2461	Menu_Action_AddProfiles_Click:
2462	call _SmbConfDefault_Profiles
2463	call _SmbConfTreeInit
2464	call _SmbConfLoad
2465	return
2466
2467	/*:VRX Menu_Action_EraseTransient_Click
2468	*/
2469	Menu_Action_EraseTransient_Click:
2470	if _SambaRunning() then do
2471	Msg.Text = NLVGetMessage(70)
2472	Msg.Type = "E"
2473	ok = _ShowMsg()
2474	return
2475	end
2476
2477	ok = VRMethod("CN_smbconf","SetRecordAttr", smbconf.!global, "Selected", 1)
2478	call CN_smbconf_Click
2479
2480	if VRIsValidObject( "EF_LOCK_DIRECTORY" ) then do
2481	LockDir = VRGet("EF_Lock_Directory","Value")
2482	Msg.Text = NLVGetMessage(71)
2483	Msg.Type = "Q"
2484	ok = _MsgYesNo()
2485	if ok <> 1 then return
2486
2487	ok = SysFileDelete(LockDir"\gencache.tdb")
2488	ok = SysFileDelete(LockDir"\brlock.tdb")
2489	ok = SysFileDelete(LockDir"\unexpected.tdb")
2490	ok = SysFileDelete(LockDir"\connections.tdb")
2491	ok = SysFileDelete(LockDir"\locking.tdb")
2492	ok = SysFileDelete(LockDir"\messages.tdb")
2493	end
2494	return
2495
2496	/*:VRX Menu_File_Debug_Click
2497	*/
2498	Menu_File_Debug_Click:
2499	options.!debug = VRGet("Menu_File_debug","Checked")
2500
2501	/* The following 2 lines are unnecessary for a checkbox ! */
2502	ok = VRSet("Menu_File_debug","Checked",\options.!debug)
2503	options.!debug = \options.!debug
2504
2505	if options.!debug
2506	then ok = VRRedirectStdIO("On")
2507	else ok = VRRedirectStdIO("OFF")
2508
2509	return
2510
2511	/*:VRX Menu_File_Exit_Click
2512	*/
2513	Menu_File_Exit_Click:
2514	call Quit
2515	return
2516
2517	/*:VRX Menu_File_Import_IBMPeer_Click
2518	*/
2519	Menu_File_Import_IBMPeer_Click:
2520	call _SmbConfMigratePeer
2521	ok = SysFileTree(smbconf,exist.,'FO')
2522	SmbConfExists = exist.0
2523	call _SmbConfTreeReset
2524	return
2525
2526	/*:VRX Menu_File_ImportHosts_Click
2527	*/
2528	Menu_File_ImportHosts_Click:
2529	if VRFileExists(ETC'\samba\lmhosts') then do
2530	Msg.Text = NLVGetMessage(56, ETC'\samba\lmhosts')
2531	Msg.Type = 'Q'
2532	if _MsgYesNo() = 1 then do
2533	call _LMHostsImport
2534	end
2535	end
2536	else call _LMHostsImport
2537	return
2538
2539	/*:VRX Menu_File_PrintCap_Click
2540	*/
2541	Menu_File_PrintCap_Click:
2542	call _PrintcapCreate
2543	Msg.Text = NLVGetMessage(50, samba.!printcap)
2544	msg.Type = 'I'
2545	call _ShowMsg
2546	return
2547
2548	/*:VRX Menu_File_reset_Click
2549	*/
2550	Menu_File_reset_Click:
2551	call _SmbConfCreateDefault
2552	ok = SysFileTree(smbconf,exist.,'FO')
2553	SmbConfExists = exist.0
2554	call _SmbConfTreeReset
2555	return
2556
2557	/*:VRX Menu_File_SmbUpdate_Click
2558	*/
2559	Menu_File_SmbUpdate_Click:
2560	BuildFile = VRFileDialog( VRWindow(), NLVGetMessage(64), "Open", options.!builddir"\samba-*zip", , , )
2561	if BuildFile = '' then return
2562	options.!builddir = VRParseFilename(buildfile,'DP')
2563	address CMD samba.!smbcmd' stop'
2564	OldDir = Directory(Strip(samba.!bin,'T','\'))
2565	ok = VRRedirectStdIO('ON')
2566	address cmd 'unzip.exe -oCj 'BuildFile' .exe .dll'
2567	say 'unzip RC = 'RC
2568	if RC <> 0 then address cmd 'PAUSE'
2569	IF options.!debug <> 1 THEN ok = VRRedirectStdIO('OFF')
2570	ok = directory(OldDir)
2571	call _SambaVersion
2572	ok = VRSet("EF_Binaries_Version","value",samba.!version)
2573	address CMD samba.!smbcmd' start'
2574	return
2575
2576	/*:VRX Menu_Help_About_Click
2577	*/
2578	Menu_Help_About_Click:
2579	say ' 'samba.!smbd' -V --debuglevel=0 2>'samba.!error' 1>'smboutput
2580	address cmd samba.!smbd' -V --debuglevel=0 2>'samba.!error' 1>'smboutput
2581
2582	SambaVer = "Samba "\|\|strip(linein(smboutput))
2583	ok = stream(smboutput,'c','close')
2584
2585	window = VRLoadSecondary( "About", "W" )
2586	return
2587
2588	/*:VRX Menu_Options_ExportMode_Click
2589	*/
2590	Menu_Options_ExportMode_Click:
2591	say 'ExpertMode_Click started'
2592	say samba.!testparmexe' -v -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
2593	address cmd samba.!testparmexe' -v -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
2594	say 'VRCopyFile('TempDir'smb.conf, 'smbconf' )'
2595	say " smb.conf Gráe: "stream(smbconf,'c','QUERY SIZE')
2596	ok = VRCopyFile( TempDir'smb.conf', smbconf )
2597	say " smb.conf Gráe: "stream(smbconf,'c','QUERY SIZE')
2598	say 'Copy ok ='ok' (1 = success, 0 = failure)'
2599	call _SmbConfTreeReset
2600	call Main_Resize
2601	say 'ExpertMode_Click done'
2602	return
2603
2604	/*:VRX Menu_Options_MiniIcons_Click
2605	*/
2606	Menu_Options_MiniIcons_Click:
2607	advanced.!bigicons = \advanced.!bigicons
2608	ok = VRset("CN_SMBCONF", "MiniIcons", \advanced.!bigicons)
2609	ok = VRset("Menu_Options_MiniIcons", "Checked", \advanced.!bigicons)
2610	return
2611
2612	/*:VRX Menu_Options_SimpleMode_Click
2613	*/
2614	Menu_Options_SimpleMode_Click:
2615	say 'SimpleMode_Click started'
2616
2617	/* Workaround for testparm bugs */
2618	say 'VRCopyFile('smbconf', 'TempDir'smb.conf )'
2619	ok = VRCopyFile( smbconf, TempDir'smb.conf')
2620	call _SmbConfCommitChanges
2621
2622	say samba.!testparmexe' -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
2623	address cmd samba.!testparmexe' -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
2624	NewSize = stream(TempDir"smb.conf",'c','QUERY SIZE')
2625	say " "TempDir"smb.conf Gráe: "NewSize
2626	if NewSize = 0 then 'pause'
2627	say " smb.conf Gráe: "stream(smbconf,'c','QUERY SIZE')
2628	say 'VRCopyFile('TempDir'smb.conf, 'smbconf' )'
2629	ok = VRCopyFile( TempDir'smb.conf' , smbconf )
2630	say " smb.conf Gráe: "stream(smbconf,'c','QUERY SIZE')
2631	say 'Copy ok ='ok' (1 = success, 0 = failure)'
2632	call _SmbConfTreeReset
2633	do I = Page to 3 by -1
2634	ok = VRMethod( "GB_Global", "DeletePage", I )
2635	ok = VRDestroy("GL_GLOBAL_"I)
2636	end
2637	Page = 2
2638	call Main_resize
2639	say 'SimpleMode_Click done'
2640	return
2641
2642	/*:VRX Menu_ShareContext_Add_Click
2643	*/
2644	Menu_ShareContext_Add_Click:
2645	NewShareDir = _dirDialog()
2646	if NewShareDir = "" then return
2647	NewShareName = filespec("N",NewShareDir)
2648	Buttons.1 = "OK"
2649	Buttons.2 = "Abort"
2650	Buttons.0 = 2
2651	id = VRPrompt( VRWindow(), "Enter name for new share", "NewShareName", "Add new Samba share", "Buttons.", buttons.1, buttons.2 )
2652	if ID = 2 \| NewShareName = "" then return
2653	NewShareHandle = VRMethod( "CN_smbconf", "AddRecord", smbconf.!dirs,, NewShareName,"#4")
2654	call lineout smbconf, '['NewShareName']'
2655	call lineout smbconf, Indent\|\|'path = '_bs2fs(NewShareDir)
2656	call lineout smbconf, Indent\|\|'comment = 'NewShareName' directory'
2657	call lineout smbconf, Indent\|\|'browseable = Yes'
2658	call lineout smbconf, Indent\|\|'read only = Yes'
2659	call lineout smbconf, Indent\|\|'hide files = /*.?SF/'
2660	call lineout smbconf
2661	call _SmbConfTreeReset
2662	Msg.Text = NLVGetMessage(69)
2663	Msg.Type = 'I'
2664	call _ShowMsg
2665	ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!dirs, "Collapsed", 0 )
2666	ok = VRMethod("CN_smbconf","SetRecordAttr",NewShareHandle, "Selected", 1 )
2667	return
2668
2669	/*:VRX Menu_ShareContext_AddPrinter_Click
2670	*/
2671	Menu_ShareContext_AddPrinter_Click:
2672	AbortPrinter = 1
2673	window = VRLoadSecondary( "PrinterSelection", "W" )
2674	if AbortPrinter then return
2675	parse var SharePrinter PrinterName';'PrinterQueue';'PrinterDriver
2676	NewShareHandle = VRMethod( "CN_smbconf", "AddRecord", smbconf.!printers,, PrinterQueue,"#4")
2677	call lineout smbconf, '['PrinterQueue']'
2678	call lineout smbconf, Indent\|\|'path = '_bs2fs(ETC'\samba\spool\'printerqueue)
2679	ok = SysMkDir(ETC'\samba\spool\'printerqueue)
2680	call lineout smbconf, Indent\|\|'comment = 'Printername
2681	call lineout smbconf, Indent\|\|'create mask = 0700'
2682	call lineout smbconf, Indent\|\|'printer name = 'printerqueue
2683	call lineout smbconf, Indent\|\|'printing = os2'
2684	call lineout smbconf, Indent\|\|'printable = Yes'
2685	call lineout smbconf, Indent\|\|'print command = 'samba.!bin'\smbprint.exe "%s" "%p" "%J" "%c" "%z"'
2686	call lineout smbconf, Indent\|\|'browseable = Yes'
2687	call lineout smbconf, Indent\|\|'guest ok = Yes'
2688	call lineout smbconf, Indent\|\|'read only = No'
2689	call lineout smbconf
2690	call _SmbConfTreeReset
2691	Msg.Text = NLVGetMessage(69)
2692	Msg.Type = 'I'
2693	call _ShowMsg
2694	ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!printers, "Collapsed", 0 )
2695	ok = VRMethod("CN_smbconf","SetRecordAttr",NewShareHandle, "Selected", 1 )
2696	return
2697
2698	/*:VRX Menu_ShareContext_Remove_Click
2699	*/
2700	Menu_ShareContext_Remove_Click:
2701	call _SmbConfShareRemove
2702	if \Aborted then ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!dirs, "Collapsed", 0 )
2703	return
2704
2705	/*:VRX Menu_ShareContext_RemovePrinter_Click
2706	*/
2707	Menu_ShareContext_RemovePrinter_Click:
2708	call _SmbConfShareRemove
2709	if \Aborted then ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!printers, "Collapsed", 0 )
2710	return
2711
2712	/*:VRX Menu_ShareContext_Rename_Click
2713	*/
2714	Menu_ShareContext_Rename_Click:
2715	call _SmbConfShareRename
2716	if \Aborted then ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!dirs, "Collapsed", 0 )
2717	return
2718
2719	/*:VRX Menu_ShareContext_RenamePrinter_Click
2720	*/
2721	Menu_ShareContext_RenamePrinter_Click:
2722	call _SmbConfShareRename
2723	if \Aborted then ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!printers, "Collapsed", 0 )
2724	return
2725
2726	/*:VRX PB_1_Click
2727	*/
2728	PB_1_Click:
2729	ok = VRREdirectStdIO("ON")
2730	Buttons.1 = NLVGetMessage(2)
2731	Buttons.2 = NLVGetMessage(3)
2732	Buttons.0 = 2
2733	command = 'd:\samba\smbpasswd.exe'
2734	id = VRPrompt( VRWindow(), "Console", "command", "Console", "Buttons.", buttons.1, buttons.2 )
2735	if id = 2 then return
2736	say command
2737	address cmd command
2738	/* samba.!netexe' rpc 'command' 'DebugLevel' 'UserCred' 2>'samba.!error' 1>'samba.!msg */
2739	/* if RC <> 0 then call _SambaShowError; else call _SambaShowMsg */
2740	return
2741
2742	/*:VRX PB_AboutOK_Click
2743	*/
2744	PB_AboutOK_Click:
2745	call About_Close
2746	return
2747
2748	/*:VRX PB_Add_Voc_Cancel_Click
2749	*/
2750	PB_Add_Voc_Cancel_Click:
2751	drop opt.
2752	ok = VRSet("DDCB_Add_Voc","Value","")
2753	ok = VRSet("EF_Add_Voc", "Value","")
2754
2755	ok = VRSet("DDCB_ADD_Voc","Visible",0)
2756	ok = VRSet("EF_ADD_Voc","Visible",0)
2757	ok = VRSet("PB_Add_Voc_OK","Visible",0)
2758	ok = VRSet("PB_add_Voc_Cancel","Visible",0)
2759	return
2760
2761	/*:VRX PB_Add_Voc_OK_Click
2762	*/
2763	PB_Add_Voc_OK_Click:
2764	NewVoc = VRGet("DDCB_Add_Voc","Value")
2765	NewValue=VRGet("EF_Add_Voc", "Value")
2766	call IniSet NewVoc, NewValue, CurSection, samba.!smbconf
2767	drop opt.
2768	ok = VRSet("DDCB_Add_Voc","Value","")
2769	ok = VRSet("EF_Add_Voc", "Value","")
2770	ok = VRSet("DDCB_ADD_Voc","Visible",0)
2771	ok = VRSet("EF_ADD_Voc","Visible",0)
2772	ok = VRSet("PB_Add_Voc_OK","Visible",0)
2773	ok = VRSet("PB_add_Voc_Cancel","Visible",0)
2774
2775	call Menu_Options_SimpleMode_Click
2776	return
2777
2778	/*:VRX PB_Cancel_Click
2779	*/
2780	PB_Cancel_Click:
2781	IF options.!debug == 1 THEN say 'PB_Cancel_Click() started'
2782	if VRGet("PB_Save","Enabled") then call PB_Save_Click
2783	call Quit
2784	IF options.!debug == 1 THEN say 'PB_Cancel_Click() done'
2785	return
2786
2787	/*:VRX PB_Help_Click
2788	*/
2789	PB_Help_Click:
2790
2791	return
2792
2793	/*:VRX PB_Install_Default_Click
2794	*/
2795	PB_Install_Default_Click:
2796	if VRGet("EF_Workgroup_Initial","Value") = "" then return
2797
2798	if \VRGet("CB_NoRoot","Set") then do
2799	if \_SambaRootPWCheck() then return
2800	end
2801
2802	call _SmbConfCreateDefault
2803	/* call _Smb35Init */
2804	ok = SysFileTree(smbconf,exist.,'FO')
2805	SmbConfExists = exist.0
2806	call _SmbConfBackup
2807	call _SmbConfTreeReset
2808
2809	if \VRGet("CB_NoRoot","Set") then do
2810	call _SambaRootPWSet
2811	end
2812	call _SambaGuestCreate
2813
2814	call _SambaUserCreate
2815	ok = VRSet("Main", 'Pointer', 'WAIT' )
2816	call _SambaGroupMapInst
2817	ok = VRSet("Main", 'Pointer', '<default>' )
2818	/* call Menu_File_ImportHosts_Click */
2819
2820	call Installer_Close
2821	return
2822
2823	/*:VRX PB_Install_Migration_Click
2824	*/
2825	PB_Install_Migration_Click:
2826	if VRGet("EF_Workgroup_Initial","Value") = "" then return
2827
2828	if \VRGet("CB_NoRoot","Set") then do
2829	if \_SambaRootPWCheck() then return
2830	end
2831
2832
2833	call _SmbConfMigratePeer
2834	ok = SysFileTree(smbconf,exist.,'FO')
2835	SmbConfExists = exist.0
2836	call _SmbConfBackup
2837	call _SmbConfTreeReset
2838	if \VRGet("CB_NoRoot","Set") then do
2839	call _SambaRootPWSet
2840	end
2841	call _SambaGuestCreate
2842
2843	call _SambaUserCreate
2844	ok = VRSet("Main", 'Pointer', 'WAIT' )
2845	call _SambaGroupMapInst
2846	ok = VRSet("Main", 'Pointer', '<default>' )
2847
2848	/* call Menu_File_ImportHosts_Click */
2849
2850	call Installer_Close
2851	return
2852
2853	/*:VRX PB_Printer_Abort_Click
2854	*/
2855	PB_Printer_Abort_Click:
2856	call PrinterSelection_Close
2857	return
2858
2859	/*:VRX PB_Printer_OK_Click
2860	*/
2861	PB_Printer_OK_Click:
2862	SharePrinter = RawPrinter(VRGet("LB_Printers","SelectedString"))
2863	AbortPrinter = 0
2864	say SharePrinter
2865	call PrinterSelection_Close
2866	return
2867
2868	RawPrinter:
2869	do I = 1 to printer.0 until PurePrinter(printer.I) = arg(1)
2870	end
2871	return printer.I
2872	/*:VRX PB_Reload_Click
2873	*/
2874	PB_Reload_Click:
2875	call PB_Save_Click
2876	call beep 960, 1
2877	address CMD samba.!smbcmd' reload'
2878	return
2879
2880	/*:VRX PB_RemoveContinue_Click
2881	*/
2882	PB_RemoveContinue_Click:
2883
2884	if VRGet("CB_RemoveSmbConf","set") then do
2885	ok = SysFileDelete(samba.!smbconf)
2886	SmbConfExists = 0
2887	Installmode = 1
2888	end
2889	else Installmode = 0
2890
2891	if VRGet("CB_RemoveBackend","set") then do
2892	ok = SysFileTree(ETC"\samba\*.?db",xdb.,'FOS')
2893	do I = 1 to xdb.0
2894	ok = SysFileDelete(xdb.I)
2895	if ok <> 0 then do
2896	Msg.Text = "Error "ok" deleting "xdb.I"!"
2897	Msg.Type = "W"
2898	call _ShowMsg
2899	end
2900	end
2901	end
2902	if VRGet("CB_RemoveLMHosts","set") then do
2903	call _LMHostsImport
2904	end
2905
2906	call RemoveConfig_Close
2907	return
2908
2909	/*:VRX PB_Save_Click
2910	*/
2911	PB_Save_Click:
2912	IF options.!debug == 1 THEN say 'PB_Save_Click() started'
2913	if ValueChanged then do
2914	if CurSection <> "" then do
2915	call _SaveChanges
2916	ok = VRSet("PB_Save", "Enabled", 0)
2917	call CN_smbconf_Click
2918	end
2919	end
2920	IF options.!debug == 1 THEN say 'PB_Save_Click() done'
2921	return
2922
2923	/*:VRX PB_Undo_Click
2924	*/
2925	PB_Undo_Click:
2926	call _SmbConfRestore
2927	SmbConfExists = 1
2928	call _SmbConfTreeReset
2929	return
2930
2931	/*:VRX PrinterSelection_Close
2932	*/
2933	PrinterSelection_Close:
2934	call PrinterSelection_Fini
2935	return
2936
2937	/*:VRX PrinterSelection_Create
2938	*/
2939	PrinterSelection_Create:
2940	call PrinterSelection_Init
2941	ok = VRMethod( "Application", "ListPrinters", "printer." )
2942
2943	CALL NLVSetText 'Printerselection', 'Caption', 40
2944	CALL NLVSetText 'PB_Printer_OK', 'Caption', 2
2945	CALL NLVSetText 'PB_Printer_Abort', 'Caption', 3
2946
2947	do I = 1 to printer.0
2948	ok = VRMethod("LB_Printers","AddString",PurePrinter(printer.I))
2949	if PurePrinter(printer.!default) = PurePrinter(printer.I) then ok = VRSet("LB_Printers","Selected",I)
2950	end
2951	return
2952	/*:VRX PrinterSelection_Fini
2953	*/
2954	PrinterSelection_Fini:
2955	window = VRInfo( "Window" )
2956	call VRDestroy window
2957	drop window
2958	return
2959	/*:VRX PrinterSelection_Init
2960	*/
2961	PrinterSelection_Init:
2962	window = VRInfo( "Object" )
2963	if( \VRIsChildOf( window, "Notebook" ) ) then do
2964	call VRMethod window, "CenterWindow"
2965	call VRSet window, "Visible", 1
2966	call VRMethod window, "Activate"
2967	end
2968	drop window
2969	return
2970
2971	/*:VRX PurePrinter
2972	*/
2973	PurePrinter:
2974	return substr(arg(1),1,pos(';',arg(1))-1)
2975
2976	/*:VRX Quit
2977	*/
2978	Quit:
2979	IF options.!debug == 1 THEN say "Quit() start"
2980
2981	if VRGet("Main","WindowState") = "Maximized"\|,
2982	VRGet("Main","WindowState") = "Minimized" then ok = VRMethod("Main", "Restore")
2983
2984	if samba.!testparmexe <> "" then do
2985	address cmd samba.!testparmexe' -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
2986	call _SmbConfCommitChanges
2987	end
2988
2989	call _INIWrite
2990	call _SambaFinish
2991	ok = SysFileDelete(TempDir'sscc.testparm')
2992	ok = SysFileDelete(smboutput)
2993
2994	IF options.!debug == 1 THEN say "Quit() done"
2995	/* ok = VRRedirectStdio('OFF') */
2996	window = VRWindow()
2997	call VRSet window, "Shutdown", 1
2998	drop window
2999	return
3000
3001	/*:VRX RB_PDC_Click
3002	*/
3003	RB_PDC_Click:
3004	CreatePDC = VRGet("RB_PDC","Set")
3005	return
3006
3007	/*:VRX RB_smbpasswd_Click
3008	*/
3009	RB_smbpasswd_Click:
3010	UseTDBsam = 0
3011	return
3012
3013	/*:VRX RB_Standalone_Click
3014	*/
3015	RB_Standalone_Click:
3016	CreatePDC = \VRGet("RB_Standalone","Set")
3017	return
3018
3019	/*:VRX RB_tdbsam_Click
3020	*/
3021	RB_tdbsam_Click:
3022	UseTDBsam = 1
3023	return
3024
3025	/*:VRX RemoveConfig_Close
3026	*/
3027	RemoveConfig_Close:
3028	call RemoveConfig_Fini
3029	return
3030
3031	/*:VRX RemoveConfig_Create
3032	*/
3033	RemoveConfig_Create:
3034	call RemoveConfig_Init
3035	CALL NLVSetText 'RemoveConfig', 'Caption', 90
3036	CALL NLVSetText 'PB_RemoveContinue', 'Caption', 14
3037
3038	ok = VRset("CB_RemoveSmbConf","Caption", NLVGetMessage(56, 'smb.conf'))
3039	ok = VRset("CB_RemoveBackend","Caption", NLVGetMessage(56, 'Backend'))
3040	ok = VRset("CB_RemoveLMHosts","Caption", NLVGetMessage(56, 'lmhosts'))
3041
3042	/* Check if ?db backend files exist */
3043	ok = SysFileTree(ETC"\samba\*.?db",xdb.,'FOS')
3044	if xdb.0 = 0 then ok = VRset("CB_RemoveBackend","Enabled", 0)
3045
3046	/* Check if LMHOsts exists */
3047	ok = VRset("CB_RemoveLMHosts","Enabled", VRFileExists(ETC'\samba\lmhosts'))
3048	return
3049
3050	/*:VRX RemoveConfig_Fini
3051	*/
3052	RemoveConfig_Fini:
3053	window = VRInfo( "Window" )
3054	call VRDestroy window
3055	drop window
3056	return
3057	/*:VRX RemoveConfig_Init
3058	*/
3059	RemoveConfig_Init:
3060	window = VRInfo( "Object" )
3061	if( \VRIsChildOf( window, "Notebook" ) ) then do
3062	call VRMethod window, "CenterWindow"
3063	call VRSet window, "Visible", 1
3064	call VRMethod window, "Activate"
3065	end
3066	drop window
3067	return
3068
3069	/*:VRX TM_Installer_Trigger
3070	*/
3071	TM_Installer_Trigger:
3072	call _InstallerMode
3073	return
3074
3075	/*:VRX TM_Value_Trigger
3076	*/
3077	TM_Value_Trigger:
3078	say "TM_Value_Trigger started"
3079	ValueChanged = 0
3080	ok = VRSet("PB_Save", "Enabled", 0)
3081	ChangeList = ""
3082	ok = VRSet("TM_Value", "Enabled", 0)
3083	say "TM_Value_Trigger done"
3084	return

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format