Context Navigation

cupswiz.VRX@ 97

Last change on this file since 97 was 97, checked in by Alex Taylor, 3 years ago
Various updates and refactoring of font scaling logic; documentation and WIS updates.
File size: 89.2 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	InitArgs.0 = argCount
20	if( argCount > 0 )then do i = 1 to argCount
21	InitArgs.i = arg( i + argOff )
22	end
23	end; else do
24	call VROptions 'ImplicitNames'
25	call VROptions 'NoEchoQuit'
26	argCount = _ParseParams( arg(1) )
27	end
28	drop calledAs argCount argOff
29
30	/* Load the windows
31	*/
32	call VRInit
33	parse source . . spec
34	_VREPrimaryWindowPath = ,
35	VRParseFileName( spec, "dpn" ) \|\| ".VRW"
36	_VREPrimaryWindow = ,
37	VRLoad( parent, _VREPrimaryWindowPath )
38	drop parent spec
39	if( _VREPrimaryWindow == "" )then do
40	call VRMessage "", "Cannot load window:" VRError(), ,
41	"Error!"
42	_VREReturnValue = 32000
43	signal _VRELeaveMain
44	end
45
46	/* Process events
47	*/
48	call Init
49	signal on halt
50	do while( \ VRGet( _VREPrimaryWindow, "Shutdown" ) )
51	_VREEvent = VREvent()
52	interpret _VREEvent
53	end
54	_VREHalt:
55	_VREReturnValue = Fini()
56	call VRDestroy _VREPrimaryWindow
57	_VRELeaveMain:
58	call VRFini
59	exit _VREReturnValue
60
61	VRLoadSecondary:
62	__vrlsWait = abbrev( 'WAIT', translate(arg(2)), 1 )
63	if __vrlsWait then do
64	call VRFlush
65	end
66	__vrlsHWnd = VRLoad( VRWindow(), VRWindowPath(), arg(1) )
67	if __vrlsHWnd = '' then signal __vrlsDone
68	if __vrlsWait \= 1 then signal __vrlsDone
69	call VRSet __vrlsHWnd, 'WindowMode', 'Modal'
70	__vrlsTmp = __vrlsWindows.0
71	if( DataType(__vrlsTmp) \= 'NUM' ) then do
72	__vrlsTmp = 1
73	end
74	else do
75	__vrlsTmp = __vrlsTmp + 1
76	end
77	__vrlsWindows.__vrlsTmp = VRWindow( __vrlsHWnd )
78	__vrlsWindows.0 = __vrlsTmp
79	do while( VRIsValidObject( VRWindow() ) = 1 )
80	__vrlsEvent = VREvent()
81	interpret __vrlsEvent
82	end
83	__vrlsTmp = __vrlsWindows.0
84	__vrlsWindows.0 = __vrlsTmp - 1
85	call VRWindow __vrlsWindows.__vrlsTmp
86	__vrlsHWnd = ''
87	__vrlsDone:
88	return __vrlsHWnd
89
90	/*:VRX __NoValue
91	*/
92	__NoValue:
93	SAY FORMAT( sigl, 6 ) '+++' SOURCELINE( sigl )
94	SAY FORMAT( sigl, 6 ) '+++ Uninitialized variable'
95	EXIT sigl
96
97	/*:VRX __VXREXX____APPENDS__
98	*/
99	__VXREXX____APPENDS__:
100	/*
101	#append ..\..\Shared\PrintUtl.VRS
102	*/
103	return
104	/*:VRX _ParseParams
105	*/
106	_ParseParams: PROCEDURE EXPOSE InitArgs.
107	/* Parse program parameters when they are provided as a single string,
108	* including handling quotes.
109	*/
110
111	parse arg thisArgs
112
113	InitArgs. = ''
114	InitArgs.0 = 0
115
116	do while thisargs <> ''
117
118	parse value strip( thisArgs, "B" ) with curArg thisArgs
119
120	parse var curArg tc1 +1 .
121	if tc1 = '"' \| tc1 = "'" then
122	parse value curArg thisArgs with (tc1) curArg (tc1) ThisArgs
123
124	i = InitArgs.0 + 1
125	InitArgs.i = strip( curArg )
126	InitArgs.0 = i
127
128	end /* do while thisArgs <> '' */
129
130	RETURN InitArgs.0
131
132	/*:VRX CheckPrograms
133	*/
134	CheckPrograms: PROCEDURE EXPOSE globals.
135
136	/* Make sure CUPS.PDR is installed.
137	*/
138	cups_pdr = VRGetIni('PM_PORT_DRIVER', 'CUPS', 'System')
139	IF cups_pdr == '' THEN DO
140	cups_pdr = STREAM( globals.!bootdrv'\OS2\DLL\CUPS.PDR', 'C', 'QUERY EXISTS')
141	IF cups_pdr == '' THEN DO
142	CALL VRMessage VRWindow(),,
143	NLSGetMessage( 78, globals.!bootdrv'\OS2\DLL\CUPS.PDR'),, /* 78: The required program %1 is not installed... */
144	NLSGetMessage( 79 ), 'E' /* 79: Missing File */
145	RETURN 0
146	END
147	ELSE
148	CALL VRSetIni 'PM_PORT_DRIVER', 'CUPS', cups_pdr, 'System'
149	END
150
151	/* Make sure \TCPIP\BIN\CUPSLPR.EXE (required by CUPS.PDR) is installed.
152	*/
153	tcpipbin = SysSearchPath('PATH', 'inetd.exe')
154	IF tcpipbin <> '' THEN
155	tcpipbin = VRParseFileName( tcpipbin, 'DP')
156	ELSE
157	tcpipbin = globals.!bootdrv'\TCPIP\BIN'
158	IF \VRFileExists( tcpipbin'\cupslpr.exe') & (SysSearchPath('PATH', 'cupslpr.exe') == '') THEN DO
159	CALL VRMessage VRWindow(),,
160	NLSGetMessage( 78, 'CUPSLPR.EXE'),,
161	NLSGetMessage( 79 ), 'E'
162	RETURN 0
163	END
164
165	/* Make sure GZIP.EXE is installed (required for unpacking PPDs).
166	*/
167	gzip_exe = SysSearchPath('PATH', 'gzip.exe')
168	IF gzip_exe == '' THEN gzip_exe = STREAM( DIRECTORY() \|\| '\gzip.exe', 'C', 'QUERY EXISTS')
169	IF gzip_exe == '' THEN DO
170	CALL VRMessage VRWindow(), NLSGetMessage( 78, 'GZIP.EXE'), NLSGetMessage( 79 ), 'E'
171	RETURN 0
172	END
173
174	/* Make sure CUPSPORT.EXE is installed.
175	*/
176	port_exe = SysSearchPath('PATH', 'cupsport.exe')
177	IF port_exe == '' THEN port_exe = STREAM( DIRECTORY() \|\| '\cupsport.exe', 'C', 'QUERY EXISTS')
178	IF port_exe == '' THEN DO
179	CALL VRMessage VRWindow(), NLSGetMessage( 78, 'CUPSPORT.EXE'), NLSGetMessage( 79 ), 'E'
180	RETURN 0
181	END
182
183	/* Make sure PRNTOBJ.EXE is installed.
184	*/
185	prntobj_exe = SysSearchPath('PATH', 'prntobj.exe')
186	IF prntobj_exe == '' THEN prntobj_exe = STREAM( DIRECTORY() \|\| '\prntobj.exe', 'C', 'QUERY EXISTS')
187	IF prntobj_exe == '' THEN DO
188	CALL VRMessage VRWindow(), NLSGetMessage( 78, 'PRNTOBJ.EXE'), NLSGetMessage( 79 ), 'E'
189	RETURN 0
190	END
191
192	RETURN 1
193
194	/*:VRX CHK_CREATEPM_Click
195	*/
196	CHK_CREATEPM_Click: PROCEDURE
197	set = VRGet( "CHK_CREATEPM", "Set" )
198	CALL VRSet 'DT_PRESDRV', 'Enabled', set
199	CALL VRSet 'DDCB_PRESDRV', 'Enabled', set
200	RETURN
201
202	/*:VRX ConfirmAndCreate
203	*/
204	ConfirmAndCreate: PROCEDURE EXPOSE globals.
205
206	globals.!create = 0
207	CALL VRLoadSecondary 'SW_CREATE', 'W'
208	IF globals.!create <> 1 THEN RETURN
209
210	CALL SetPage4
211	CALL VRSet 'WN_MAIN', 'Pointer', 'WAIT'
212	CALL NLSSetText 'DT_INFO', 'Caption', 50 /* 50: Creating printer... */
213	ok = CreatePrinter( globals.!os2printer )
214
215	CALL VRSet 'DT_INFO', 'Caption', ''
216	CALL VRSet 'WN_MAIN', 'Pointer', '<default>'
217
218	IF ok <> 0 THEN DO
219	SELECT
220	WHEN ok == 1 THEN reason = NLSGetMessage( 70 ) /* 70: Error importing PPD file. */
221	WHEN ok == 2 THEN reason = NLSGetMessage( 71, globals.!log1 ) /* 71: Error creating CUPS printer. See %1 for more information. */
222	WHEN ok == 3 THEN reason = NLSGetMessage( 72, globals.!log1 ) /* 72: Error creating printer object. See %1 for more information. */
223	OTHERWISE reason = NLSGetMessage( 73) /* 73: Unknown error. */
224	END
225	CALL VRMessage VRWindow(), NLSGetMessage( 60 ) \|\|, /* 60: The following error occurred when trying to create the printer: */
226	'0d0a0d0a'x \|\| reason, NLSGetMessage( 56 ), 'E' /* 56: Error Creating Printer */
227	CALL NLSSetText 'DT_INFO', 'Caption', 52 /* 52: The printer could not be created. */
228	CALL NLSSetText 'PB_NEXT', 'Caption', 54 /* 54: Return */
229	END
230	ELSE DO
231	CALL NLSSetText 'DT_INFO', 'Caption', 51 /* 51: The printer has been created. */
232	CALL NLSSetText 'PB_NEXT', 'Caption', 53 /* 53: Create another */
233	END
234	CALL NLSSetText 'PB_CANCEL', 'Caption', 55 /* 55: Close */
235
236	CALL LINEOUT globals.!log1, ''
237	CALL LINEOUT globals.!log1
238
239	RETURN
240
241	/*:VRX CreateCupsPrinter
242	*/
243	CreateCupsPrinter: PROCEDURE EXPOSE globals.
244
245	od = DIRECTORY()
246	CALL DIRECTORY globals.!cupsdir'\sbin'
247	cups_cmd = 'lpadmin -p' globals.!prt_name '-E'
248	IF globals.!prt_info <> '' THEN
249	cups_cmd = cups_cmd '-D "'globals.!prt_info'"'
250	IF globals.!prt_loc <> '' THEN
251	cups_cmd = cups_cmd '-L "'globals.!prt_loc'"'
252	IF globals.!prt_dev <> '' THEN
253	cups_cmd = cups_cmd '-v "'globals.!prt_port'" -m' globals.!prt_dev
254	ELSE IF globals.!mode == 2 THEN
255	cups_cmd = cups_cmd '-v "'globals.!prt_port'" -P "'globals.!prt_ppd'"'
256	ELSE DO
257	/*
258	PARSE VAR globals.!prt_ppd (globals.!cupsdir)'\share\cups\model\' model
259	IF model == '' THEN
260	*/
261	model = TRANSLATE( globals.!prt_ppd, '/', '\')
262	cups_cmd = cups_cmd '-v "'globals.!prt_port'" -m "'model'"'
263	END
264
265	/* Temporary until we can offer user configuration:
266	*/
267	PARSE UPPER VALUE VALUE('LANG',,'OS2ENVIRONMENT') WITH 1 . 4 _ctry 6 .
268	IF ( WORDPOS( _ctry, 'US CA MX BO CO VE PH CL') > 0 ) THEN
269	page = 'Letter'
270	ELSE
271	page = 'A4'
272	cups_cmd = cups_cmd '-o media='page
273
274	CALL LINEOUT globals.!log1, 'Creating CUPS printer using:'
275	CALL LINEOUT globals.!log1, ' ' cups_cmd
276	IF VRFileExists( globals.!log2 ) THEN DO
277	CALL LINEOUT globals.!log2, ''
278	CALL LINEOUT globals.!log2
279	END
280	ADDRESS CMD '@' cups_cmd '1>NUL 2>>' globals.!log2
281	CALL LINEOUT globals.!log1, 'Return code: 0x' \|\| D2X( rc, 4 )
282	IF rc <> 0 THEN
283	CALL LINEOUT globals.!log1, 'See' globals.!log2 'for details.'
284	CALL DIRECTORY od
285	CALL LINEOUT globals.!log1, ''
286
287	RETURN rc
288
289	/*:VRX CreateOS2Printer
290	*/
291	/* Creates an OS/2 printer port, queue, and desktop object which point to
292	* the just-created CUPS printer.
293	*/
294	CreateOS2Printer: PROCEDURE EXPOSE globals.
295	ARG prnt_drv
296
297	IF globals.!remotecups == '' THEN DO
298	host = LoopbackName()
299	printer = globals.!prt_name
300	END
301	ELSE
302	PARSE VAR globals.!remotecups host printer .
303
304	printer_title = globals.!prt_info
305	printer_model = globals.!prt_nick
306	queue_name = GetQueueName( printer_title )
307	port_name = GetNextPortName('CUPS')
308
309	/* Determine the printer driver source directories/files. Yes, this is
310	* repeated from ImportPPD, but we have to do it again here because
311	* (a) we might not have gone through ImportPPD to get to this point, and
312	* (b) even if we did, the repository information might have changed.
313	*/
314	driver_path = GetDriverSource( prnt_drv )
315	IF driver_path == '' THEN
316	/* Driver was not found in the repository. Check for a previously-
317	* installed copy under \OS2\DLL.
318	*/
319	driver_path = STREAM( globals.!os2dir'\DLL\'prnt_drv'\'prnt_drv'.DRV', 'C', 'QUERY EXISTS')
320
321	IF driver_path == '' THEN DO
322	/* TODO allow the user to browse for the driver on their system */
323	CALL VRMessage VRWindow(),,
324	NLSGetMessage( 61, prnt_drv, globals.!os2dir'\DLL\'prnt_drv ),, /* 61: The printer driver %1 could not be located. If you have the driver files, please copy them to the directory %2 and then try again. */
325	NLSGetMessage( 57 ), 'E' /* 57: Driver Not Found */
326	RETURN 1
327	END
328
329	/* Create a new CUPS port.
330	*/
331	port_ok = AddPort_CUPS( port_name, host, printer )
332	IF port_ok > 1 THEN
333	RETURN 1
334
335	/* New logic to create the printer ourselves (instead of using RINSTPRN).
336	* There are two necessary steps: make sure the driver is installed, and
337	* then create the printer object (which causes the underlying device and
338	* queue to be created automatically as well).
339	*/
340
341	ok = InstallPrintDriver( prnt_drv, driver_path, printer_model )
342	CALL LINEOUT globals.!log1, 'InstallPrintDriver(' prnt_drv',' driver_path',' printer_model ') RC =' ok
343
344	IF ok == 0 THEN DO
345	ok = CreatePrinterObject( prnt_drv, printer_model,,
346	port_name, queue_name, printer_title )
347	CALL LINEOUT globals.!log1, 'CreatePrinterObject(' prnt_drv',' printer_model \|\|,
348	',' port_name',' queue_name',' printer_title ') RC =' ok
349	IF ( ok <> 0 ) & ( printer_model <> 'Generic Postscript Printer') THEN DO
350	CALL LINEOUT globals.!log1, 'Failed to create printer object; trying again with generic driver.'
351	ok = CreatePrinterObject( prnt_drv, 'Generic Postscript Printer',,
352	port_name, queue_name, printer_title )
353	CALL LINEOUT globals.!log1, 'CreatePrinterObject(' prnt_drv', Generic Postscript Printer' \|\|,
354	',' port_name',' queue_name',' printer_title ') RC =' ok
355	END
356	END
357
358	IF ok <> 0 THEN DO
359	CALL LINEOUT globals.!log1, 'Printer object creation failed.'
360	IF SysIni('SYSTEM', 'PM_SPOOLER_PRINTER', 'ALL:', 'prt_keys.') == '' THEN DO
361	DO i = 1 TO prt_keys.0
362	key_val = SysIni('SYSTEM', 'PM_SPOOLER_PRINTER', prt_keys.0 )
363	PARSE VAR key_val _kport ';' _ktitle ';' .
364	IF ( _kport == port_name ) & ( _ktitle == printer_title ) THEN DO
365	CALL LINEOUT globals.!log1, 'Cleaning INI entry:' prt_keys.0 '=' key_val
366	CALL SysIni 'SYSTEM', 'PM_SPOOLER_PRINTER_DESCR', prt_keys.0, 'DELETE:'
367	CALL LINEOUT globals.!log1, 'Cleaning INI entry:' prt_keys.0 '=' key_val
368	CALL SysIni 'SYSTEM', 'PM_SPOOLER_PRINTER', prt_keys.0, 'DELETE:'
369	LEAVE
370	END
371	END
372	END
373	CALL LINEOUT globals.!log1, 'Deleting port' port_name
374	CALL DeletePort port_name
375	END
376	ELSE IF port_ok == 1 THEN DO
377	CALL VRMessage VRWindow(),,
378	NLSGetMessage( 62 ),, /* 62: The installed version of CUPS.PDR appears to be out of date. As a result, the desktop printer will not be usable until the desktop is restarted. */
379	NLSGetMessage( 58 ), 'W' /* 58: Port Driver Problem */
380	END
381
382	RETURN ok
383
384	/*:VRX CreatePrinter
385	*/
386	CreatePrinter: PROCEDURE EXPOSE globals.
387	ARG create_os2
388
389	cups_etc = globals.!cupsdir'\etc'
390	IF \VRIsDir( cups_etc'\cups\ppd') THEN
391	cups_etc = globals.!cupsroot'\etc'
392	IF \VRIsDir( cups_etc'\cups\ppd') THEN
393	cups_etc = VALUE('ETC',,'OS2ENVIRONMENT')
394	IF \VRIsDir( cups_etc'\cups\ppd') THEN
395	cups_etc = '\etc'
396
397	/* Create the CUPS printer */
398	IF globals.!remotecups == '' THEN DO
399	CALL LINEOUT globals.!log1, 'Local CUPS queue does not exist, creating.'
400	ok = CreateCupsPrinter()
401	IF ok <> 0 THEN
402	RETURN 2 / RC=2 Error running lpadmin /
403	END
404
405	/* Now create the OS/2 printer object */
406	IF create_os2 == 1 & globals.!os2driver <> '' THEN DO
407
408	CALL LINEOUT globals.!log1, 'Creating OS/2 printer object:'
409	CALL LINEOUT globals.!log1, 'Mode: ' globals.!mode
410	CALL LINEOUT globals.!log1, 'Driver:' globals.!os2driver
411	CALL LINEOUT globals.!log1, 'Model: ' globals.!prt_nick
412
413	/* Make sure the presentation driver supports the printer */
414	IF globals.!mode == 2 THEN DO
415	/* Always (re)import when a PPD is provided by the user
416	*/
417	CALL LINEOUT globals.!log1, 'Importing user-supplied PPD' globals.!prt_ppd
418
419	ok = ImportPPD( globals.!os2driver, globals.!prt_ppd )
420	IF ok <> 0 THEN DO
421	CALL LINEOUT globals.!log1, 'PPD import failed:' ok
422	buttons.1 = NLSGetMessage( 2 ) /* 2: OK */
423	buttons.2 = NLSGetMessage( 3 ) /* 3: Cancel */
424	buttons.0 = 2
425	ok = VRMessage( VRWindow(), NLSGetMessage( 69 ),, /* 69: The printer parameters could not ... PPD file. */
426	NLSGetMessage( 70 ), 'W',, /* 70: Error importing PPD file */
427	'buttons.', 1, 2 )
428	IF ok == 1 THEN
429	CALL PromptForPMName
430	ELSE
431	RETURN 1 /* RC=1 PPD import failed **/
432	END
433	END
434	ELSE DO
435	cups_ppd = globals.!prt_ppd
436	IF cups_ppd == '' THEN DO
437	/* If we didn't have a PPD before, use the CUPS-generated one now
438	* to get the exact model name.
439	*/
440	CALL LINEOUT globals.!log1, 'No PPD yet, looking for' cups_etc'\cups\ppd\'globals.!prt_name'.ppd'
441	cups_ppd = STREAM( cups_etc'\cups\ppd\'globals.!prt_name'.ppd', 'C', 'QUERY EXISTS')
442	IF cups_ppd <> '' THEN
443	globals.!prt_nick = GetNameFromPPD( cups_ppd )
444	ELSE
445	CALL LINEOUT globals.!log1, 'PPD not found. Looking for model:' globals.!os2driver'.'globals.!prt_nick
446	END
447	drv_path = GetDriverSource( globals.!os2driver )
448	drv_model = PrinterExistsInDRV( drv_path, globals.!prt_nick )
449	CALL LINEOUT globals.!log1, 'PrinterExistsInDRV(' drv_path',' globals.!prt_nick '):' drv_model
450	IF drv_model == '' THEN DO
451	IF cups_ppd == '' THEN DO
452	/* CUPS didn't give us a PPD? Hmm, better ask the user for
453	* an existing printer model to use.
454	*/
455	CALL LINEOUT globals.!log1, 'CUPS PPD for this printer ('cups_etc'\cups\ppd\'globals.!prt_name'.ppd) does not exist.'
456	CALL LINEOUT globals.!log1, 'Cannot import PPD. Prompting user for preferred printer model.'
457	CALL PromptForPMName
458	END
459	ELSE DO
460	ok = ImportPPD( globals.!os2driver, cups_ppd )
461	IF ok <> 0 THEN DO
462	CALL LINEOUT globals.!log1, 'PPD import failed:' ok
463	CALL VRMessage VRWindow(), NLSGetMessage( 69 ), NLSGetMessage( 70 ), 'W'
464	CALL PromptForPMName
465	/* RETURN 1 RC=1 PPD import failed **/
466	END
467	END
468	END
469	ELSE
470	/* Make sure the name matches, including case */
471	globals.!prt_nick = drv_model
472	END
473
474	ok = CreateOS2Printer( globals.!os2driver )
475	IF ok <> 0 THEN
476	RETURN 3 / RC=3 Error running rinstprn /
477	END
478
479	RETURN 0
480
481	/*:VRX DDCB_PROTOCOL_Change
482	*/
483	DDCB_PROTOCOL_Change: PROCEDURE EXPOSE globals.
484
485	idx = VRGet('DDCB_PROTOCOL', 'Selected')
486	which = VRMethod('DDCB_PROTOCOL', 'GetItemData', idx )
487	show_server = 1
488	SELECT
489	WHEN which == 1 THEN DO /* IPP */
490	show_queue = 1
491	show_user = 1
492	show_pass = 1
493	show_pick = 0
494	server_caption = 82 /* 82: Printer or server address: */
495	queue_caption = 84 /* 84: Printer queue name: */
496	userid_caption = 86 /* 86: User ID: */
497	END
498	WHEN which == 2 THEN DO /* SOCKET */
499	show_queue = 0
500	show_user = 0
501	show_pass = 0
502	show_pick = 0
503	server_caption = 82 /* 82: Printer or server address: */
504	queue_caption = 84 /* 84: Printer queue name: */
505	userid_caption = 86 /* 86: User ID: */
506	END
507	WHEN which == 3 THEN DO /* LPD */
508	show_queue = 1
509	show_user = 1
510	show_pass = 0
511	show_pick = 0
512	server_caption = 82 /* 82: Printer or server address: */
513	queue_caption = 84 /* 84: Printer queue name: */
514	userid_caption = 87 /* 87: User ID (if required): */
515	END
516	WHEN which == 4 THEN DO /* SMB */
517	show_queue = 1
518	show_user = 1
519	show_pass = 1
520	show_pick = 0
521	server_caption = 83 /* 83: Print server name: */
522	queue_caption = 85 /* 85: Shared printer name: */
523	userid_caption = 86 /* 86: User ID: */
524	END
525	WHEN which == 6 THEN DO /* CUPS-PDF */
526	show_server = 0
527	show_queue = 0
528	show_user = 0
529	show_pass = 0
530	show_pick = 0
531	server_caption = 83 /* 83: Print server name: */
532	queue_caption = 84 /* 84: Printer queue name: */
533	userid_caption = 86 /* 86: User ID: */
534	END
535	OTHERWISE DO /* CUPS */
536	show_queue = 0
537	show_user = 0
538	show_pass = 0
539	show_pick = 1
540	server_caption = 88 /* 88: CUPS server name: */
541	queue_caption = 89 /* 89: CUPS printer name: */
542	userid_caption = 86 /* 86: User ID: */
543	END
544	END
545
546	r = NLSSetText('DT_SERVER', 'Caption', server_caption )
547	r = NLSSetText('DT_QUEUE', 'Caption', queue_caption )
548	r = NLSSetText('DT_USERID', 'Caption', userid_caption )
549
550	CALL VRSet 'DT_SERVER', 'Visible', show_server
551	CALL VRSet 'EF_SERVER', 'Visible', show_server
552	CALL VRSet 'DT_QUEUE', 'Visible', show_queue \| show_pick
553	CALL VRSet 'EF_QUEUE', 'Visible', show_queue
554	CALL VRSet 'DT_USERID', 'Visible', show_user
555	CALL VRSet 'EF_USERID', 'Visible', show_user
556	CALL VRSet 'DT_PASSWORD', 'Visible', show_pass
557	CALL VRSet 'EF_PASSWORD', 'Visible', show_pass
558	CALL VRSet 'DDCB_CUPSQUEUES','Visible', show_pick
559
560	RETURN
561
562	/*:VRX EF_SERVER_LostFocus
563	*/
564	EF_SERVER_LostFocus: PROCEDURE EXPOSE globals. network_dialog
565
566	idx = VRGet('DDCB_PROTOCOL', 'Selected')
567	which = VRMethod('DDCB_PROTOCOL', 'GetItemData', idx )
568	IF which <> 5 THEN RETURN
569
570	CALL VRMethod 'DDCB_CUPSQUEUES', 'Clear'
571	server = STRIP( VRGet("EF_SERVER", "Value"))
572	IF server == '' THEN RETURN
573
574	IF GetCupsQueues( server ) == 0 THEN RETURN
575
576	/* Sanity check to make sure the dialog wasn't dismissed before lpstat returned */
577	IF network_dialog <> 1 THEN RETURN
578
579	CALL VRMethod 'DDCB_CUPSQUEUES', 'AddStringList', 'cupsdest.'
580	RETURN
581
582	/*:VRX ExecRINSTPRN
583	*/
584	ExecRINSTPRN: PROCEDURE EXPOSE globals.
585	PARSE ARG dsc, drv, src, rsp
586
587	od = DIRECTORY()
588	CALL DIRECTORY src
589	rinstprn_cmd = 'rinstprn /DSC:'dsc '/DRV:'drv' /S:'src ,
590	'/T:'globals.!bootdrv '/L1:'globals.!logdir'\rinstprn.log' ,
591	'/R:'rsp
592
593	CALL LINEOUT globals.!log1, 'Creating OS/2 printer using:'
594	CALL LINEOUT globals.!log1, ' ' rinstprn_cmd
595	ADDRESS CMD '@' rinstprn_cmd '1>NUL 2>NUL'
596	CALL LINEOUT globals.!log1, 'Return code: 0x' \|\| D2X( rc, 4 )
597	IF rc <> 0 THEN
598	CALL LINEOUT globals.!log1, 'See' globals.!logdir'\rinstprn.log for details.'
599	CALL DIRECTORY od
600	CALL LINEOUT globals.!log1, ''
601
602	RETURN rc
603
604	/*:VRX Fini
605	*/
606	Fini:
607	window = VRWindow()
608	call VRSet window, "Visible", 0
609	drop window
610
611	CALL PrintManCheckIn 'CUPSWIZ DONE'
612
613	return 0
614
615	/*:VRX GetCupsPorts
616	*/
617	GetCupsPorts: PROCEDURE EXPOSE globals.
618
619	CALL NLSSetText 'DT_INFO', 'Caption', 30 /* 30: Looking for connected printers. Please wait... */
620
621	lpinfo_cmd = globals.!cupsdir'\sbin\lpinfo.exe -v 2>&1 \|rxqueue'
622	snmp_cmd = globals.!cupsdir'\lib\cups\backend\snmp.exe 2>&1 \|rxqueue'
623
624	_od = DIRECTORY()
625	CALL DIRECTORY globals.!cupsdir
626	listqueue = RXQUEUE('CREATE')
627	defqueue = RXQUEUE('SET', listqueue )
628
629	/* Use the SNMP backend to find network printers. We do this in addition
630	* to lpinfo because SNMP may provide the actual printer name. We'll
631	* merge this with the output of lpinfo in the next step.
632	*/
633	ADDRESS CMD '@' snmp_cmd listqueue
634	DO QUEUED()
635	PARSE PULL line
636	PARSE VAR line _type _uri '"'_identifier'"' .
637	_uri = STRIP( _uri )
638	_type = STRIP( _type )
639	IF _uri == '' THEN ITERATE
640	IF _type <> 'network' THEN ITERATE
641	netnames._uri = _identifier
642	END
643
644	ADDRESS CMD '@' lpinfo_cmd listqueue
645	i = 0
646	DO QUEUED()
647	PARSE PULL line
648	PARSE VAR line _type _name
649	IF _name == '' THEN ITERATE
650	IF _type == 'network' & POS('://', _name ) > 0 THEN DO
651	PARSE VAR _name _protocol '://' _host '/' _queue
652	IF _protocol == 'socket' THEN _protocol = 'AppSocket'
653	ELSE _protocol = TRANSLATE( _protocol )
654	i = i + 1
655	IF _queue <> '' THEN _queue = '(queue '_queue')'
656	IF SYMBOL('netnames._name') == 'VAR' THEN
657	devices.i = NLSGetMessage( 32, _protocol, netnames._name, _host _queue ) /* 32: Detected network printer (%1) "%2" at %3 */
658	ELSE
659	devices.i = NLSGetMessage( 33, _protocol, _host _queue ) /* 33: Detected network printer (%1) at %2 */
660	END
661	ELSE IF _type == 'file' & _name == 'cups-pdf:/' THEN DO
662	globals.!has_pdf = 1
663	END
664	ELSE IF _type <> 'direct' THEN ITERATE
665	ELSE DO
666	IF _name == 'hp' THEN ITERATE
667	i = i + 1
668	devices.i = NLSGetMessage( 35, _name ) /* 35: Local printer: %1 */
669	END
670	ports.i = _name
671	END
672	devices.0 = i
673
674	CALL RXQUEUE 'SET', defqueue
675	CALL RXQUEUE 'DELETE', listqueue
676	CALL DIRECTORY _od
677
678	CALL VRSet 'LB_SELECT', 'Painting', 0
679	CALL VRMethod 'LB_SELECT', 'AddStringList', 'devices.',, 'ports.'
680	CALL VRMethod 'LB_SELECT', 'AddString', NLSGetMessage( 34 ),, '' /* 34: Network printer (manual configuration) */
681	CALL VRSet 'LB_SELECT', 'Selected', 1
682	CALL VRSet 'LB_SELECT', 'Painting', 1
683
684	CALL VRSet 'DT_INFO', 'Caption', NLSGetMessage( 31 ) /* 31: Select the connection for this printer. */
685
686	RETURN
687
688	/*:VRX GetCupsPrinters
689	*/
690	GetCupsPrinters: PROCEDURE EXPOSE globals. manufacturers.
691
692	CALL NLSSetText 'DT_INFO', 'Caption', 20 /* 20: Getting list of supported printers. Please wait... */
693
694	lpinfo_cmd = globals.!cupsdir'\sbin\lpinfo.exe -m 2>&1 \|rxqueue' /* --exclude-schemes drv */
695
696	_od = DIRECTORY()
697	CALL DIRECTORY globals.!cupsdir
698	listqueue = RXQUEUE('CREATE')
699	defqueue = RXQUEUE('SET', listqueue )
700
701	ADDRESS CMD '@' lpinfo_cmd listqueue
702	i = 0
703	makers = ''
704	DO QUEUED()
705	PARSE PULL line
706	/* IF LEFT( line, 6 ) == 'drv://' THEN ITERATE */
707	IF WORD( line, 1 ) == 'raw' THEN ITERATE
708	PARSE VAR line _ppd '.ppd.gz ' _name
709	_ppd = _ppd'.ppd.gz'
710	IF _name == '' THEN DO
711	PARSE VAR line _ppd '.ppd ' _name
712	_ppd = _ppd'.ppd'
713	END
714	IF _name == '' THEN DO
715	PARSE VAR line _ppd _name
716	END
717	IF _name <> '' THEN DO
718	PARSE VAR _name _brand _model
719	IF WORDPOS( _brand, makers ) == 0 THEN makers = makers \|\| _brand' '
720	i = i + 1
721	ppds.i = _ppd
722	models.i = _name
723	END
724	END
725	ppds.0 = i
726	models.0 = i
727
728	CALL RXQUEUE 'SET', defqueue
729	CALL RXQUEUE 'DELETE', listqueue
730	CALL DIRECTORY _od
731
732	/* Now build the 'manufacturers' stem.
733	* This stem takes the following format:
734	* manufacturers.0 number of manufacturers
735	* manufacturers.i.!name manufacturer name (e.g. 'Apple')
736	* manufacturers.i.!printers.0 number of printer models
737	* manufacturers.i.!printers.j.!model printer model name, short form (e.g. 'LaserWriter 330')
738	* manufacturers.i.!printers.j.!type driver version/type (e.g. 'Gutenprint v5.2.7')
739	* manufacturers.i.!printers.j.!driver the internal CUPS printer driver name (PPD or URI)
740	* - by preference this is the "simplified" version if available
741	* manufacturers.i.!printers.j.!remark any distinguishing remarks (e.g. 'Simplified')
742	* manufacturers.i.!printers.j.!driver2 alternate driver in case there is more than one (PPD or URI)
743	* - if defined this is usually the non-"simplified" driver
744	* manufacturers.i.!printers.j.!remark2 any distinguishing remarks for the alternate driver
745	*/
746	manufacturers.0 = WORDS( makers )
747	DO i = 1 TO manufacturers.0
748	manufacturers.i.!name = WORD( makers, i )
749	manufacturers.i.!printers.0 = 0
750	END
751
752	DO i = 1 TO models.0
753	PARSE VAR models.i _brand _model ' - CUPS+' _type
754	IF _type == '' THEN DO
755	IF POS('hpcups', _model ) > 0 THEN
756	_type = 'HPLIP'
757	ELSE IF POS('hpijs', _model ) > 0 THEN
758	_type = 'HPLIP'
759	ELSE IF ( _type == '') & ( LEFT( ppds.i, 3 ) == 'hp/') THEN
760	_type = 'HPLIP'
761	lc = LASTPOS(',', _model )
762	IF ( _type == 'HPLIP') & ( lc > 1 ) THEN DO
763	_type = _type \|\| SUBSTR( _model, lc )
764	_model = LEFT( _model, lc - 1 )
765	END
766	END
767	man = WORDPOS( _brand, makers )
768	IF man == 0 THEN ITERATE
769
770	PARSE VAR _type _version 'Simplified' .
771	_version = STRIP( _version )
772	_flag = RIGHT( _type, 10 )
773
774	count = manufacturers.man.!printers.0
775	IF count > 0 THEN DO
776	/* If there are two or more printers defined with the same model
777	* name and driver version, keep the first and last as the regular
778	* and alternate drivers; if one if them is 'Simplified', make that
779	* the regular driver by preference.
780	*/
781	IF ( TRANSLATE( manufacturers.man.!printers.count.!model ) == TRANSLATE( _model )) THEN DO
782	IF ( manufacturers.man.!printers.count.!type == _version ) THEN DO
783	IF ( WORD( _version, 1 ) == 'Gutenprint') & ( _flag == 'Simplified') THEN DO
784	manufacturers.man.!printers.count.!driver2 = manufacturers.man.!printers.count.!driver
785	manufacturers.man.!printers.count.!remark2 = manufacturers.man.!printers.count.!remark
786	manufacturers.man.!printers.count.!driver = ppds.i
787	manufacturers.man.!printers.count.!remark = 'Simplified'
788	END
789	ELSE DO
790	manufacturers.man.!printers.count.!driver2 = ppds.i
791	IF _flag == 'Simplified' THEN
792	manufacturers.man.!printers.count.!remark2 = 'Simplified'
793	ELSE
794	manufacturers.man.!printers.count.!remark2 = ''
795	END
796	ITERATE
797	END
798	END
799	END
800	count = count + 1
801	manufacturers.man.!printers.count.!model = _model
802	manufacturers.man.!printers.count.!type = _version
803	manufacturers.man.!printers.count.!driver = ppds.i
804	IF _flag == 'Simplified' THEN
805	manufacturers.man.!printers.count.!remark = 'Simplified'
806	ELSE
807	manufacturers.man.!printers.count.!remark = ''
808	manufacturers.man.!printers.count.!driver2 = ''
809	manufacturers.man.!printers.count.!remark2 = ''
810	manufacturers.man.!printers.0 = count
811	END
812
813	/* Add one more category for special items ...
814	*/
815	count = manufacturers.0 + 1
816	manufacturers.count.!name = NLSGetMessage( 22 ) /* 22: -- Custom -- */
817	manufacturers.count.!printers.0 = 1
818	manufacturers.count.!printers.1.!model = NLSGetMessage( 23 ) /* 23: -- Other printer (requires PPD) -- */
819	manufacturers.count.!printers.1.!driver = ''
820	manufacturers.count.!printers.1.!type = ''
821	manufacturers.count.!printers.1.!remark = manufacturers.count.!printers.1.!model
822	manufacturers.count.!printers.1.!driver2 = ''
823	manufacturers.count.!printers.1.!remark2 = ''
824	manufacturers.0 = count
825
826	RETURN
827
828	/*:VRX GetCupsQueues
829	*/
830	GetCupsQueues: PROCEDURE EXPOSE globals. cupsdest.
831	ARG hostaddr
832
833	/* Try to find lpstat.exe */
834	lpstat_exe = STREAM( globals.!cupsdir'\bin\lpstat.exe', 'C', 'QUERY EXISTS')
835	IF lpstat_exe == '' THEN lpstat_exe = STREAM( globals.!mydir'\lpstat.exe', 'C', 'QUERY EXISTS')
836	IF lpstat_exe == '' THEN lpstat_exe = STREAM( DIRECTORY()'\lpstat.exe', 'C', 'QUERY EXISTS')
837	IF lpstat_exe == '' THEN lpstat_exe = SysSearchPath('PATH', 'lpstat.exe')
838	IF lpstat_exe == '' THEN RETURN 0
839
840	sq = RXQUEUE('CREATE')
841	oq = RXQUEUE('SET', sq )
842
843	CALL VRSet VRWindow(), 'Pointer', 'WAIT'
844	ADDRESS CMD '@'lpstat_exe '-h' hostaddr '-p -c 2>&1 \|rxqueue' sq
845	CALL VRSet VRWindow(), 'Pointer', '<default>'
846
847	_count = 0
848	DO QUEUED()
849	PARSE PULL _info
850	IF _info == '' THEN ITERATE
851	IF _info == 'lpstat: Connection refused' THEN LEAVE
852	IF WORD( _info, 1 ) == 'printer' THEN
853	PARSE VAR _info 'printer' _qname .
854	ELSE IF WORD( info, 1 ) == 'class' THEN
855	PARSE VAR _info 'class' _qname .
856	ELSE ITERATE
857	IF _qname == '' THEN ITERATE
858	_count = _count + 1
859	cupsdest._count = _qname
860	END
861	CALL RXQUEUE 'DELETE', sq
862	CALL RXQUEUE 'SET', oq
863
864	cupsdest.0 = _count
865
866	RETURN _count
867
868	/*:VRX Halt
869	*/
870	Halt:
871	signal _VREHalt
872	return
873
874	/*:VRX ImportPPD
875	*/
876	ImportPPD: PROCEDURE EXPOSE globals.
877	/* Import a new PPD file into a PostScript driver.
878	*/
879	ARG driver, ppdfile
880	IF driver == '' THEN driver = 'PSCRIPT'
881
882	CALL LINEOUT globals.!log1, 'Going to import PPD file into driver' driver'.'
883
884	/***
885	*** First, get our working directories and locate the driver source files.
886	***/
887
888	mustcopy = 0
889	driver_path = GetDriverSource( driver )
890	IF driver_path == '' THEN DO
891	/* No source found. We'll have to try copying the actual installed
892	* driver files from under \OS2\DLL.
893	*/
894	CALL LINEOUT globals.!log1, 'Driver source not found.'
895	driver_path = STREAM( globals.!os2dir'\DLL\'driver'\'driver'.DRV', 'C', 'QUERY EXISTS')
896	mustcopy = 1
897	END
898	IF driver_path <> '' THEN DO
899	srcdir = VRParseFilePath( driver_path, 'DP')
900	pin = STREAM( srcdir'\PIN.EXE', 'C', 'QUERY EXISTS')
901	ppdenc = STREAM( srcdir'\PPDENC.EXE', 'C', 'QUERY EXISTS')
902	/* TODO should we check for all the REQUIREDDRIVER FILES as well? */
903	DROP srcdir
904	END
905
906	/* Driver (or one of its required files) was not found.
907	*/
908	IF ( driver_path == '') \| ( pin == '') \| ( ppdenc == '') \| ,
909	( VerifyDriverEAs( driver_path ) == 0 ) THEN
910	DO
911	CALL LINEOUT globals.!log1, ' - Missing required driver files.'
912	/* TODO should prompt for installable driver package? */
913	RETURN 1 / RC=1 Missing required driver files /
914	END
915
916	IF mustcopy <> 0 THEN DO
917	/* Looks like the driver wasn't shipped with the OS; we have a source
918	* (either the active files from \OS2\DLL, or a package provided by
919	* the user), but we need somewhere for them to live. The user needs
920	* to tell us where, because they're going to have to specify the
921	* directory later on if they install the driver from PM.
922	*/
923	pbtn.1 = NLSGetMessage( 2 ) /* 2: OK */
924	pbtn.2 = NLSGetMessage( 3 ) /* 3: Cancel */
925	pbtn.0 = 2
926	ptext = NLSGetMessage( 63, driver ) \|\|, /* 63: The install files for the %1 driver could not be located. These files will be recreated from the driver files which are already installed on your system. */
927	'0d0a0d0a'x \|\| NLSGetMessage( 64 ) /* 64: Please enter the directory where the install files will be placed. */
928
929	PARSE VALUE VRGetIni('PM_INSTALL', driver'_DIR', 'USER') WITH drvr_dir '00'x .
930	IF drvr_dir == '' THEN
931	PARSE VALUE VRGetIni('InstPDR', 'PATH_TO_'driver, 'USER') WITH drvr_dir '00'x .
932	ok = VRPrompt('WN_MAIN', ptext, 'drvr_dir', NLSGetMessage( 59 ), 'pbtn.', 1, 2 ) /* 59: Enter Directory */
933	IF ok <> 1 THEN RETURN 9 / RC=9 User cancelled /
934	drvr_dir = VRExpandFileName( drvr_dir )
935	DO WHILE drvr_dir == ''
936	ok = VRPrompt('WN_MAIN', ptext, 'drvr_dir',,
937	'Enter Directory', 'pbtn.', 1, 2 )
938	drvr_dir = VRExpandFileName( drvr_dir )
939	END
940
941	/* Now create the new directory, if necessary */
942	IF VRMkDir( drvr_dir ) == 0 THEN
943	RETURN 3 / RC=3 Failed to copy driver files /
944	IF CopyDriverToSource( driver_path, drvr_dir ) == 0 THEN
945	RETURN 3 / RC=3 Failed to copy driver files /
946
947	/* Make sure we save the location (we'll need this information later) */
948	CALL VRSetIni 'PM_INSTALL', driver'_DIR', drvr_dir\|\|'00'x, 'USER'
949
950	/* Now point to the new copy as the driver we will work on */
951	driver_path = drvr_dir'\'driver'.DRV'
952	END
953
954	workdir = SysTempFileName( globals.!tmpdir'\PPD_????')
955	ok = VrMkDir( workdir )
956	IF ok == 1 THEN ok = VrMkDir( workdir'\OUT')
957	IF ok <> 1 THEN
958	RETURN 2 / RC=2 Failed to create temporary directory /
959
960	SELECT
961	WHEN driver == 'ECUPS' THEN ppddir = globals.!repository'\PPD_E'
962	WHEN driver == 'ECUPS-HP' THEN ppddir = globals.!repository'\PPD_EHP'
963	WHEN driver == 'PSPRINT' THEN ppddir = globals.!repository'\PPD_PS'
964	WHEN driver == 'PSPRINT2' THEN ppddir = globals.!repository'\PPD_PS2'
965	WHEN driver == 'PSCRIPT2' THEN ppddir = globals.!repository'\PPD2'
966	OTHERWISE ppddir = globals.!repository'\PPD'
967	END
968
969	/* Make sure ppddir (for keeping PPD files) exists */
970	CALL SysFileTree ppddir, 'dirs.', 'DO'
971	IF dirs.0 == 0 THEN DO
972	ok = VrMkDir( ppddir )
973	IF ok <> 1 THEN
974	RETURN 4 / RC=4 Failed to create PPD directory /
975	END
976
977	/***
978	*** Now do the actual work.
979	***/
980
981	/* Back up the modified files (AUXPRINT.PAK and <driver>.DRV) if we're
982	* working out of the repository.
983	IF mustcopy == 0 THEN DO
984	repfiles.0 = 2
985	repfiles.1 = driver'.DRV'
986	repfiles.2 = 'AUXPRINT.PAK'
987	CALL BackupDrivers driver_path
988	END
989	*/
990
991	/* Copy the needed driver files to our working directories.
992	*/
993	drv_out = workdir'\OUT\'driver'.DRV'
994	pin_exe = workdir'\PIN.EXE'
995	ppd_exe = workdir'\PPDENC.EXE'
996	ok = VRCopyFile( driver_path, drv_out )
997	IF ok == 1 THEN ok = VRCopyFile( pin, pin_exe )
998	IF ok == 1 THEN ok = VRCopyFile( ppdenc, ppd_exe )
999	IF ok == 0 THEN DO
1000	RETURN 3 /* RC=3 Failed to copy driver files */
1001	END
1002
1003	/* Set up the output redirection.
1004	*/
1005	nq = RXQUEUE('CREATE')
1006	oq = RXQUEUE('SET', nq )
1007
1008	/* If the PPD file is compressed, uncompress it.
1009	*/
1010	IF VRParseFilePath( ppdfile, 'E') == 'GZ' THEN DO
1011	decppd = workdir'\' \|\| VRParseFilePath( ppdfile, 'N')
1012	CALL LINEOUT globals.!log1, 'Decompressing' ppdfile 'to' decppd
1013	ADDRESS CMD '@gzip -c -d' ppdfile '\| RXQUEUE' nq
1014	DO QUEUED()
1015	PARSE PULL line
1016	CALL LINEOUT decppd, line
1017	END
1018	CALL LINEOUT decppd
1019	ppdfile = decppd
1020	END
1021
1022	IF VRFileExists( ppdfile ) == 0 THEN DO
1023	CALL LINEOUT globals.!log1, 'PPD file' ppdfile 'could not be found.'
1024	RETURN 5 / RC=5 PPD import failed /
1025	END
1026
1027	ppd_use = ppddir'\' \|\| VRParseFileName( ppdfile, 'NE')
1028
1029	/* Now we have to clean up and validate the PPD file so PIN can use it.
1030	* First, PPDENC converts the codepage if necessary, and copies the results
1031	* to our working directory.
1032	*/
1033	CALL LINEOUT globals.!log1, 'Converting PPD with:' ppd_exe '"'ppdfile'" "'ppd_use'"'
1034	ADDRESS CMD '@'ppd_exe '"'ppdfile'" "'ppd_use'" 2>NUL \| RXQUEUE' nq
1035	DO QUEUED()
1036	PULL output
1037	CALL LINEOUT globals.!log2, output
1038	END
1039	CALL LINEOUT globals.!log2, ''
1040	CALL LINEOUT globals.!log2
1041
1042	IF VRFileExists( ppd_use ) == 0 THEN DO
1043	CALL LINEOUT globals.!log1, 'Hmm,' ppd_use 'was not created. Copying manually.'
1044	CALL VRCopyFile ppdfile, ppd_use
1045	END
1046
1047	/* Next we strip out some problematic lines used which are often encountered
1048	* in (e.g.) CUPS-based PPD files.
1049	*/
1050	CALL CleanPPD ppd_use, globals.!log1
1051
1052	/* Preparation complete. Now do the import.
1053	*/
1054	count = 0
1055	ADDRESS CMD '@'pin_exe 'ppd' ppddir drv_out '2>NUL \| RXQUEUE' nq
1056	DO QUEUED()
1057	PARSE PULL output
1058	CALL LINEOUT globals.!log2, output
1059	PARSE VAR output . 'OK (' nickname
1060	IF nickname <> '' THEN DO
1061	count = count + 1
1062	newprinters.count = STRIP( nickname, 'T', ')')
1063	END
1064	END
1065	newprinters.0 = count
1066	CALL LINEOUT globals.!log2, ''
1067	CALL LINEOUT globals.!log2
1068
1069	/* End the output redirection.
1070	*/
1071	CALL RXQUEUE 'SET', oq
1072	CALL RXQUEUE 'DELETE', nq
1073
1074
1075	/***
1076	*** Post-import processing.
1077	***/
1078
1079	IF newprinters.0 == 0 THEN DO
1080	RETURN 5 / RC=5 PPD import failed /
1081	END
1082
1083	/IF mustcopy == 0 THEN DO/
1084	IF pmdx <> '' THEN DO
1085	/* If we're working out of the repository, we need to update the
1086	* driver table in PRDESC.LST to add the new driver(s).
1087	*/
1088
1089	CALL LINEOUT globals.!log1, 'Updating' globals.!prdesc 'with' newprinters.0 'new entries ...'
1090	count = 0
1091	match_drv = '('driver'.DRV)'
1092	match_len = LENGTH( match_drv )
1093
1094	/* First, copy all lines that don't refer to the driver just updated */
1095	DO WHILE LINES( globals.!prdesc )
1096	_line = LINEIN( globals.!prdesc )
1097	IF TRANSLATE( RIGHT( _line, LENGTH( match_len ))) == match_drv THEN ITERATE
1098	count = count + 1
1099	defs.count = _line
1100	END
1101	CALL STREAM globals.!prdesc, 'C', 'CLOSE'
1102
1103	/* Next, create a new list for the updated driver and merge that in */
1104	newlist = workdir'\'driver'.LST'
1105	CALL CreateDriverList drv_out, newlist
1106	DO WHILE LINES( newlist )
1107	_line = LINEIN( newlist )
1108	count = count + 1
1109	defs.count = _line
1110	END
1111	defs.0 = count
1112
1113	/* Now sort the list and recreate PRDESC.LST */
1114	CALL SysStemSort 'defs.',, 'I'
1115	prdesc_tmp = workdir'\PRDESC.LST'
1116	IF STREAM( prdesc_tmp, 'C', 'QUERY EXISTS') <> '' THEN
1117	CALL VRDeleteFile prdesc_tmp
1118	DO i = 1 TO defs.0
1119	CALL LINEOUT prdesc_tmp, defs.i
1120	END
1121	CALL LINEOUT prdesc_tmp
1122	ok = VRCopyFile( prdesc_tmp, globals.!prdesc )
1123	IF ok == 0 THEN DO
1124	RETURN 6 / RC=6 Error updating PRDESC.LST /
1125	END
1126	CALL VRDeleteFile prdesc_tmp
1127
1128	END
1129
1130	/* Finally, copy the updated driver files.
1131	*/
1132	target = VRParseFilePath( driver_path, 'DP')
1133	CALL LINEOUT globals.!log1, 'Copying files from' workdir'\OUT to' target
1134	ADDRESS CMD '@UNLOCK' target'\'driver'.DRV 2>NUL 1>NUL'
1135	ok = VRCopyFile( workdir'\OUT\'driver'.DRV', target'\'driver'.DRV')
1136	IF ok == 1 THEN
1137	ok = VRCopyFile( workdir'\OUT\AUXPRINT.PAK', target'\AUXPRINT.PAK')
1138	IF ok == 1 THEN DO
1139	/* Copy the updated files to \OS2\DLL\<driver>, replacing any
1140	* existing copies. (This prevents problems if the OS/2 driver
1141	* installation doesn't/fails to copy them, which can happen under
1142	* some circumstances.)
1143	*/
1144	IF VRFileExists( globals.!os2dir'\DLL\'driver ) THEN DO
1145	CALL VRCopyFile workdir'\OUT\AUXPRINT.PAK',,
1146	globals.!os2dir'\DLL\'driver'\AUXPRINT.PAK'
1147	ADDRESS CMD '@UNLOCK' workdir'\OUT\'driver'.DRV 2>NUL 1>NUL'
1148	CALL VRCopyFile workdir'\OUT\'driver'.DRV',,
1149	globals.!os2dir'\DLL\'driver'\'driver'.DRV'
1150	END
1151	END
1152	IF ok == 0 THEN DO
1153	CALL LINEOUT globals.!log1, VRError()
1154	RETURN 3 /* RC=3 Failed to copy driver files */
1155	END
1156
1157	CALL LINEOUT globals.!log1, newprinters.0 'printers imported successfully.'
1158	DO i = 1 TO newprinters.0
1159	CALL LINEOUT globals.!log1, ' ->' newprinters.i
1160	END
1161	CALL LINEOUT globals.!log1, ''
1162	CALL LINEOUT globals.!log1
1163
1164	/* Clean up our work directories.
1165	*/
1166	CALL VRDeleteFile workdir'\OUT\*'
1167	CALL VRDeleteFile workdir'\*'
1168	CALL VRRmDir( workdir'\OUT')
1169	CALL VRRmDir( workdir )
1170
1171	RETURN 0
1172
1173	/*:VRX Init
1174	*/
1175	Init:
1176	SIGNAL ON NOVALUE NAME __NoValue
1177
1178	/* Hide the VX-REXX console window
1179	*/
1180	CALL VRSet 'Console', 'WindowListTitle', ''
1181
1182	CALL RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
1183	CALL SysLoadFuncs
1184
1185	CALL LoadSettings
1186	CALL SetLanguage
1187	canContinue = CheckPrograms()
1188
1189	IF canContinue THEN DO
1190	_force_remote = 0
1191	globals.!prt_ppd = ''
1192	IF InitArgs.0 > 0 THEN
1193	DO i = 1 TO InitArgs.0
1194	InitArgs.i = TRANSLATE( InitArgs.i )
1195	IF VRIsDir( InitArgs.i ) THEN
1196	globals.!cupsdir = InitArgs.1
1197	ELSE IF InitArgs.i == '/R' THEN DO
1198	globals.!cupsdir = ''
1199	_force_remote = 1
1200	END
1201	ELSE IF VRFileExists( InitArgs.i ) THEN DO
1202	_filetype = VRParseFileName( InitArgs.i, 'E')
1203	IF _filetype == 'PPD' THEN
1204	globals.!prt_ppd = InitArgs.i
1205	END
1206	END
1207
1208	IF globals.!cupsdir == '' & \_force_remote THEN
1209	CALL VRMessage VRWindow(),,
1210	NLSGetMessage( 65, 'CUPSWIZ F:\CUPS') \|\|, /* 65: CUPS could not be located ... on the command line to this program (e.g "%1"). */
1211	'0d0a0d0a'x \|\| NLSGetMessage( 66 ),, /* 66: Only remote CUPS queues ... start this program with the /R parameter.) */
1212	NLSGetMessage( 28 ), 'E' /* 28: CUPS Path Not Found or Not Valid */
1213
1214	/* Delete the error log file each time the program starts.
1215	*/
1216	IF VRFileExists( globals.!log2 ) THEN
1217	CALL VRDeleteFile globals.!log2
1218
1219	CALL PrintManCheckIn 'CUPSWIZ INIT'
1220
1221	window = VRWindow()
1222	call VRMethod window, "CenterWindow"
1223	call VRSet window, "Visible", 1
1224	call VRMethod window, "Activate"
1225	drop window
1226
1227	manufacturers.0 = 0
1228	CALL SetPage1
1229	END
1230	ELSE
1231	CALL Quit
1232
1233	RETURN
1234
1235	/*:VRX InitMessageLog
1236	*/
1237	/* Initialize the message logfile. Unlike the error log, which is cleared and
1238	* recreated every time the program starts, the message log is appended to
1239	* until it reaches 100kB in size. If the message log is larger than 100kB when
1240	* this function is called, it is renamed (with '~' appended to the name) and
1241	* a new message log is started.
1242	*/
1243	InitMessageLog: PROCEDURE EXPOSE globals.
1244
1245	logsize = STREAM( globals.!log1, 'C', 'QUERY SIZE')
1246	IF ( logsize <> '') & ( logsize > 102400 ) THEN DO
1247	CALL VRCopyFile globals.!log1, globals.!log1 \|\| '~'
1248	CALL VRDeleteFile globals.!log1
1249	END
1250
1251	datestr = DATE('L') TIME('N')
1252	CALL LINEOUT globals.!log1, '--[' datestr ']' \|\|,
1253	COPIES('-', 73 - LENGTH( datestr ))
1254
1255	CALL LINEOUT globals.!log1, 'System boot volume:' TRANSLATE( globals.!bootdrv )
1256	CALL LINEOUT globals.!log1, 'Local CUPS directory:' TRANSLATE( globals.!cupsdir )
1257	CALL LINEOUT globals.!log1, 'Local driver repository:' TRANSLATE( globals.!repository )
1258	CALL LINEOUT globals.!log1, ''
1259
1260	RETURN
1261
1262	/*:VRX LB_BRAND_Click
1263	*/
1264	LB_BRAND_Click: PROCEDURE EXPOSE globals. manufacturers.
1265
1266	CALL VRSet 'WN_MAIN', 'StatusText', ''
1267
1268	index = VRGet('LB_BRAND', 'Selected')
1269	IF index == 0 THEN RETURN
1270
1271	item = VRMethod('LB_BRAND', 'GetItemData', index )
1272	IF item == 0 THEN RETURN
1273
1274	DO i = 1 TO manufacturers.item.!printers.0
1275	models.i = manufacturers.item.!printers.i.!model
1276	/* ppds.i = manufacturers.item.!printers.i.!driver */
1277	IF manufacturers.item.!printers.i.!driver == '' THEN
1278	ppds.i = ''
1279	ELSE
1280	ppds.i = i
1281
1282	/* DEBUG
1283	say 'Model: ' manufacturers.item.!printers.i.!model
1284	say 'Driver: ' manufacturers.item.!printers.i.!driver
1285	say ' ' manufacturers.item.!printers.i.!longname
1286	if manufacturers.item.!printers.i.!driver2 <> '' then
1287	say 'Alternate:' manufacturers.item.!printers.i.!driver2
1288	if manufacturers.item.!printers.i.!longname2 <> '' then
1289	say ' ' manufacturers.item.!printers.i.!longname2
1290	say 'Type: ' manufacturers.item.!printers.i.!type
1291	say '---'
1292	*/
1293
1294	END
1295	models.0 = manufacturers.item.!printers.0
1296	ppds.0 = manufacturers.item.!printers.0
1297
1298	CALL VRSet 'WN_MAIN', 'Pointer', 'WAIT'
1299	CALL VRMethod 'LB_SELECT', 'Clear'
1300	CALL VRSet 'LB_SELECT', 'Painting', 0
1301	CALL VRMethod 'LB_SELECT', 'AddStringList', 'models.',, 'ppds.'
1302	CALL VRSet 'LB_SELECT', 'Painting', 1
1303	CALL VRSet 'WN_MAIN', 'Pointer', '<default>'
1304	/* CALL VRSet 'LB_SELECT', 'Selected', 1 */
1305
1306	RETURN
1307
1308	/*:VRX LB_SELECT_Click
1309	*/
1310	LB_SELECT_Click: PROCEDURE EXPOSE globals. manufacturers.
1311	SELECT
1312	WHEN globals.!page == 1 THEN DO
1313	CALL VRSet 'WN_MAIN', 'StatusText', ''
1314
1315	brand = VRGet('LB_BRAND', 'Selected')
1316	IF brand == 0 THEN RETURN
1317	selected = VRGet('LB_SELECT', 'Selected')
1318	IF selected == 0 THEN RETURN
1319	which = VRMethod('LB_SELECT', 'GetItemData', selected )
1320	IF which <> '' THEN DO
1321	man = VRMethod('LB_BRAND', 'GetItemData', brand )
1322	IF man == '' THEN RETURN
1323	make = manufacturers.man.!name
1324	model = manufacturers.man.!printers.which.!model
1325	driver = manufacturers.man.!printers.which.!type
1326	IF WORD( driver, 1 ) == 'hpcups' THEN driver = 'HPLIP'
1327	remark = manufacturers.man.!printers.which.!remark
1328	IF driver == '' THEN
1329	type = ''
1330	ELSE IF remark == '' THEN
1331	type = ' ('driver')'
1332	ELSE
1333	type = ' ('driver' - 'remark')'
1334	CALL VRSet 'WN_MAIN', 'StatusText', make model type
1335	END
1336	END
1337
1338	OTHERWISE NOP
1339	END
1340
1341	CALL VRSet 'PB_NEXT', 'Enabled', 1
1342	RETURN
1343
1344	/*:VRX LoadSettings
1345	*/
1346	LoadSettings: PROCEDURE EXPOSE globals.
1347
1348	me = VRGet('Application', 'Program')
1349	IF me == '' THEN PARSE SOURCE . . me
1350	globals.!mydir = VRParseFilePath( me, 'DP')
1351
1352	/* Get CUPS paths.
1353	*/
1354	PARSE VALUE VRGetIni('eCups', 'CUPS', 'USER') WITH cupsdrv '00'x
1355	IF cupsdrv == '' THEN DO
1356	cupsd_exe = SysSearchPath('PATH', 'cupsd.exe')
1357	IF cupsd_exe <> '' THEN
1358	cupsdrv = FILESPEC('DRIVE', cupsd_exe )
1359	END
1360	IF cupsdrv == '' THEN
1361	cupsdrv = VRParseFilePath( me, 'D') \|\| ':'
1362	ELSE
1363	cupsdrv = STRIP( cupsdrv, 'T', '\')
1364
1365	IF VRIsDir( cupsdrv'\cups') THEN
1366	globals.!cupsdir = cupsdrv'\cups'
1367	ELSE
1368	globals.!cupsdir = cupsdrv'\usr'
1369	globals.!cupsroot = cupsdrv
1370
1371	/* Get system paths.
1372	*/
1373	globals.!bootdrv = SysBootDrive()
1374	IF globals.!bootdrv == '' THEN
1375	globals.!bootdrv = FILESPEC('DRIVE', VALUE('OS2_SHELL',,'OS2ENVIRONMENT'))
1376	globals.!os2dir = globals.!bootdrv'\OS2'
1377	globals.!tmpdir = VALUE('TMP',,'OS2ENVIRONMENT')
1378	IF globals.!tmpdir == '' THEN
1379	globals.!tmpdir = VALUE('TEMP',,'OS2ENVIRONMENT')
1380	IF globals.!tmpdir == '' THEN
1381	globals.!tmpdir = globals.!mydir
1382	globals.!tmpdir = STRIP( globals.!tmpdir, 'T', '\')
1383	globals.!logdir = VALUE('LOGFILES',,'OS2ENVIRONMENT')
1384	IF globals.!logdir == '' THEN
1385	globals.!logdir = globals.!mydir
1386	globals.!logdir = STRIP( globals.!logdir, 'T', '\')
1387
1388	globals.!log1 = globals.!logdir'\cupswiz.l1'
1389	globals.!log2 = globals.!logdir'\cupswiz.l2'
1390
1391	globals.!has_pdf = 0
1392
1393	/* Get printer-related paths.
1394	*/
1395	PARSE VALUE VRGetIni('PM_INSTALL', 'PDR_DIR', 'USER') WITH repos_dir '00'x .
1396	globals.!repository = repos_dir
1397	globals.!prdrv = STREAM( globals.!os2dir'\install\prdrv.lst', 'C', 'QUERY EXISTS')
1398	globals.!prdesc = STREAM( globals.!os2dir'\install\prdesc.lst', 'C', 'QUERY EXISTS')
1399
1400	/* Set the language file name.
1401	*/
1402	globals.!nlsfile = 'cupswz'
1403
1404	/* Set the UI font.
1405	*/
1406	globals.!defaultSize = 9
1407	PARSE VALUE VRGetIni('PM_SystemFonts', 'WindowText') WITH globals.!windowText '00'x .
1408	IF globals.!windowText <> '' THEN DO
1409	CALL VRSet 'WN_MAIN', 'Font', globals.!windowText
1410	CALL VRSet 'WN_MAIN', 'StatusFont', globals.!windowText
1411	factor = GetScalingFactor( ParseFontSize( globals.!windowText ))
1412	CALL RescaleObject 'WN_MAIN', factor, 0
1413	CALL RescaleObject 'GB_LOGO', factor
1414	CALL RescaleObject 'PICT_ICON', factor
1415	CALL RescaleObject 'GB_MAIN', factor
1416	CALL RescaleObject 'DT_INFO', factor
1417	CALL RescaleObject 'LB_BRAND', factor
1418	CALL RescaleObject 'LB_SELECT', factor
1419	CALL RescaleObject 'GB_INFO', factor
1420	CALL RescaleObject 'DT_NAME', factor
1421	CALL RescaleObject 'EF_NAME', factor
1422	CALL RescaleObject 'DT_LOCATION', factor
1423	CALL RescaleObject 'EF_LOCATION', factor
1424	CALL RescaleObject 'DT_DESC', factor
1425	CALL RescaleObject 'EF_DESC', factor
1426	CALL RescaleObject 'PB_NEXT', factor
1427	CALL RescaleObject 'PB_CANCEL', factor
1428	CALL RescaleObject 'PB_HELP', factor
1429	END
1430
1431	RETURN 0
1432
1433	/*:VRX LoopbackName
1434	*/
1435	/* Check to see if 'localhost' is defined in the HOSTS file. If not, we'll
1436	* have to use '127.0.0.1' instead.
1437	*/
1438	LoopbackName: PROCEDURE
1439
1440	lo_name = '127.0.0.1'
1441	etcdir = VALUE('ETC',,'OS2ENVIRONMENT')
1442	IF etcdir <> '' THEN DO
1443	hosts = STREAM( etcdir'\HOSTS', 'C', 'QUERY EXISTS')
1444	IF hosts <> '' THEN DO
1445	CALL LINEIN hosts, 1, 0
1446	DO WHILE LINES( hosts ) > 0
1447	_hostdef = TRANSLATE( LINEIN( hosts ))
1448	_hostdef = TRANSLATE( _hostdef, ' ', '09'x )
1449	IF WORDPOS('LOCALHOST', _hostdef ) == 2 THEN DO
1450	lo_name = 'localhost'
1451	LEAVE
1452	END
1453	END
1454	END
1455	END
1456
1457	RETURN lo_name
1458
1459	/*:VRX PB_ABOUT_Click
1460	*/
1461	PB_ABOUT_Click:
1462	CALL SW_ABOUT_Close
1463	RETURN
1464
1465	/*:VRX PB_CANCEL_Click
1466	*/
1467	PB_CANCEL_Click:
1468	CALL Quit
1469	return
1470
1471	/*:VRX PB_CREATECANCEL_Click
1472	*/
1473	PB_CREATECANCEL_Click:
1474	CALL SW_CREATE_Close
1475	RETURN
1476
1477	/*:VRX PB_CREATEHELP_Click
1478	*/
1479	PB_CREATEHELP_Click:
1480	CALL VRMethod 'SW_CREATE', 'InvokeHelp'
1481	return
1482
1483	/*:VRX PB_CREATEOK_Click
1484	*/
1485	PB_CREATEOK_Click:
1486
1487	create_os2 = VRGet('CHK_CREATEPM', 'Set')
1488	globals.!os2printer = create_os2
1489	globals.!os2driver = VRGet('DDCB_PRESDRV', 'SelectedString')
1490	globals.!create = 1
1491
1492	CALL SW_CREATE_Close
1493
1494	RETURN
1495
1496	/*:VRX PB_HELP_Click
1497	*/
1498	PB_HELP_Click:
1499	CALL VRMethod 'WN_MAIN', 'InvokeHelp'
1500	return
1501
1502	/*:VRX PB_MODELCANCEL_Click
1503	*/
1504	PB_MODELCANCEL_Click:
1505	CALL SW_MODEL_Close
1506	globals.!prt_nick = 'Generic PostScript Printer'
1507	RETURN
1508
1509	/*:VRX PB_MODELOK_Click
1510	*/
1511	PB_MODELOK_Click:
1512	globals.!prt_nick = VRGet( "LB_OS2MODELS", "SelectedString" )
1513	CALL SW_MODEL_Close
1514	RETURN
1515
1516	/*:VRX PB_NETCANCEL_Click
1517	*/
1518	PB_NETCANCEL_Click:
1519	CALL SW_NETWORK_Fini
1520	RETURN
1521
1522	/*:VRX PB_NETHELP_Click
1523	*/
1524	PB_NETHELP_Click:
1525	CALL VRMethod 'SW_NETWORK', 'InvokeHelp'
1526	return
1527
1528	/*:VRX PB_NETOK_Click
1529	*/
1530	PB_NETOK_Click: PROCEDURE EXPOSE globals. port
1531
1532	idx = VRGet('DDCB_PROTOCOL', 'Selected')
1533	which = VRMethod('DDCB_PROTOCOL', 'GetItemData', idx )
1534	server = STRIP( VRGet("EF_SERVER", "Value"))
1535	pqueue = STRIP( VRGet("EF_QUEUE", "Value"))
1536	cqueue = STRIP( VRGet("DDCB_CUPSQUEUES","Value"))
1537	userid = STRIP( VRGet("EF_USERID", "Value"))
1538	passwd = STRIP( VRGet("EF_PASSWORD", "Value"))
1539
1540	invalid = 0
1541
1542	SELECT
1543	WHEN which == 1 THEN DO /* IPP */
1544	IF server == '' \| pqueue == '' THEN invalid = 1
1545	uri = 'ipp://'
1546	IF userid <> '' THEN DO
1547	uri = uri \|\| userid
1548	IF passwd <> '' THEN uri = uri':'passwd
1549	uri = uri'@'
1550	END
1551	uri = uri \|\| server'/'pqueue
1552	END
1553	WHEN which == 2 THEN DO /* SOCKET */
1554	IF server == '' THEN invalid = 1
1555	uri = 'socket://'server
1556	END
1557	WHEN which == 3 THEN DO /* LPD */
1558	IF server == '' THEN invalid = 1
1559	IF pqueue == '' THEN pqueue = '*'
1560	IF userid <> '' THEN
1561	uri = 'ipp://'userid'@'server'/'pqueue
1562	ELSE
1563	uri = 'lpd://'server'/'pqueue
1564	END
1565	WHEN which == 4 THEN DO /* SMB */
1566	IF server == '' \| pqueue == '' THEN invalid = 1
1567	uri = 'smb://'
1568	IF userid <> '' THEN DO
1569	uri = uri \|\| userid
1570	IF passwd <> '' THEN uri = uri':'passwd
1571	uri = uri'@'
1572	END
1573	uri = uri \|\| server'/'pqueue
1574	END
1575	WHEN which == 6 THEN DO /* CUPS-PDF */
1576	/* TODO use lpstat -v to see if cups-pdf:// exists and if so add a queue name? */
1577	uri = 'cups-pdf://'
1578	END
1579	OTHERWISE DO /* Existing CUPS */
1580	IF server == '' \| cqueue == '' THEN invalid = 1
1581	ELSE DO
1582	globals.!remotecups = server cqueue
1583	uri = ''
1584	END
1585	END
1586	END
1587
1588	IF invalid == 1 THEN DO
1589	CALL VRMessage VRWindow(), NLSGetMessage( 74 ),, /* 74: Missing required value(s). */
1590	NLSGetMessage( 75 ), 'E' /* 75: Missing Value(s) */
1591	RETURN
1592	END
1593
1594	port = uri
1595	CALL SW_NETWORK_Fini
1596
1597	RETURN
1598
1599	/*:VRX PB_NEXT_Click
1600	*/
1601	PB_NEXT_Click: PROCEDURE EXPOSE globals. manufacturers.
1602
1603	SELECT
1604	WHEN globals.!page == 1 THEN DO
1605	brand = VRGet('LB_BRAND', 'Selected')
1606	IF brand == 0 THEN RETURN
1607	selected = VRGet('LB_SELECT', 'Selected')
1608	IF selected == 0 THEN RETURN
1609
1610	CALL VRSet 'WN_MAIN', 'StatusText', ''
1611
1612	which = VRMethod('LB_SELECT', 'GetItemData', selected )
1613	IF which == '' THEN DO
1614	globals.!mode = 2 /* Mode 2: user-selected PPD file */
1615	ppd = VRFileDialog( VRWindow(), NLSGetMessage( 24 ), 'O', '.ppd') / 24: Select PPD */
1616	IF ppd == '' THEN RETURN
1617	globals.!prt_ppd = ppd
1618	globals.!prt_dev = ''
1619	globals.!prt_nick = GetNameFromPPD( ppd )
1620	IF globals.!prt_nick == '' THEN DO
1621	CALL VRMessage VRWindow(), NLSGetMessage( 76, ppd ),, /* 76: Could not read printer name from %1. */
1622	NLSGetMessage( 77 ), 'E' /* 77: Invalid PPD */
1623	RETURN
1624	END
1625	END
1626	ELSE DO
1627	man = VRMethod('LB_BRAND', 'GetItemData', brand )
1628	IF man == '' THEN DO
1629	/* TODO display an error? But this shouldn't be possible... */
1630	RETURN
1631	END
1632	ppd = manufacturers.man.!printers.which.!driver
1633	globals.!mode = 1 /* Mode 1: CUPS-included model */
1634
1635	/* We're dealing with a device which lpadmin reported as supported
1636	* by the current CUPS installation. In this mode, we will set
1637	* both !prt_ppd and !prt_dev if a path to a PPD file was returned, or
1638	* only !prt_dev if it was reported as a URI (e.g. drv:///whatever) to
1639	* a dynamic PPD.
1640	*/
1641	IF POS('://', ppd ) > 0 THEN DO /* lpadmin returned URI for dynamic PPD */
1642	globals.!prt_ppd = ''
1643	globals.!prt_dev = ppd
1644	sel_brand = VRGet('LB_BRAND', 'SelectedString')
1645	sel_name = sel_brand VRMethod('LB_SELECT', 'GetString', selected )
1646	PARSE VAR sel_name _nick ' - CUPS' .
1647	IF _nick == '' THEN
1648	globals.!prt_nick = STRIP( sel_name )
1649	ELSE
1650	globals.!prt_nick = STRIP( _nick )
1651	END
1652	ELSE DO /* lpadmin returned path to an actual PPD */
1653	globals.!prt_dev = ppd /* <-- or is relative_ppd needed for this? */
1654	IF LEFT( ppd, 10 ) == 'lsb/local/' THEN DO
1655	path_to_ppd = globals.!cupsroot'/usr/local/share'
1656	relative_ppd = SUBSTR( ppd, 11 )
1657	END
1658	ELSE IF LEFT( ppd, 8 ) == 'lsb/usr/' THEN DO
1659	path_to_ppd = globals.!cupsroot'/usr/share'
1660	relative_ppd = SUBSTR( ppd, 9 )
1661	END
1662	ELSE DO
1663	path_to_ppd = globals.!cupsdir'/share/cups'
1664	relative_ppd = ppd
1665	END
1666	globals.!prt_ppd = TRANSLATE( path_to_ppd'/ppd/' \|\| relative_ppd, '\', '/')
1667	/* TODO check for '/@unixroot' and replace with globals.!cupsroot if present */
1668	globals.!prt_nick = GetNameFromPPD( globals.!prt_ppd )
1669	IF globals.!prt_nick = '' THEN DO
1670	globals.!prt_ppd = TRANSLATE( path_to_ppd'/model/' \|\| relative_ppd, '\', '/')
1671	globals.!prt_nick = GetNameFromPPD( globals.!prt_ppd )
1672	END
1673	IF globals.!prt_nick = '' THEN DO
1674	CALL VRMessage VRWindow(), NLSGetMessage( 76, globals.!prt_ppd ),, /* 76: Could not read printer name from %1. */
1675	NLSGetMessage( 77 ), 'E' /* 77: Invalid PPD */
1676	RETURN
1677	END
1678	END
1679	END
1680	globals.!remotecups = ''
1681
1682	CALL InitMessageLog
1683	IF globals.!mode == 2 THEN
1684	CALL LINEOUT globals.!log1, 'Starting printer install with user-provided PPD:'
1685	ELSE
1686	CALL LINEOUT globals.!log1, 'Starting printer install for built-in model:' ppd
1687	IF globals.!prt_ppd <> '' THEN
1688	CALL LINEOUT globals.!log1, ' - PPD file: ' globals.!prt_ppd
1689	ELSE
1690	CALL LINEOUT globals.!log1, ' - Device name:' globals.!prt_dev
1691	CALL LINEOUT globals.!log1, ' - Model name: ' globals.!prt_nick
1692	CALL LINEOUT globals.!log1, ''
1693
1694	CALL SetPage2
1695	END
1696
1697	WHEN globals.!page == 2 THEN DO
1698	selected = VRGet('LB_SELECT', 'Selected')
1699	IF selected == 0 THEN RETURN
1700	port = VRMethod('LB_SELECT', 'GetItemData', selected )
1701
1702	IF port == '' THEN DO
1703	/* Network printer selected; prompt for the connection details
1704	*/
1705	CALL VRLoadSecondary 'SW_NETWORK', 'W'
1706	END
1707
1708	IF port == '' & globals.!remotecups == '' THEN RETURN
1709	globals.!prt_port = port
1710
1711	CALL SetPage3
1712	END
1713
1714	WHEN globals.!page == 3 THEN DO
1715	globals.!prt_name = STRIP( VRGet('EF_NAME', 'Value'))
1716	globals.!prt_loc = STRIP( VRGet('EF_LOCATION', 'Value'))
1717	globals.!prt_info = STRIP( VRGet('EF_DESC', 'Value'))
1718	IF ((( globals.!prt_name == '') \|,
1719	( globals.!prt_loc == '')) & ( globals.!remotecups == '')) \|,
1720	( globals.!prt_info == '') THEN
1721	DO
1722	IF ( globals.!remotecups <> '') THEN
1723	_errmsg = NLSGetMessage( 42 ) /* 42: You must enter a description. */
1724	ELSE
1725	_errmsg = NLSGetMessage( 43 ) /* 43: You must enter a name, a location, and a description. */
1726	CALL VRMessage VRWindow(), _errmsg, NLSGetMessage( 75 ), 'E' /* 75: Missing Value(s) */
1727	RETURN
1728	END
1729	IF ( globals.!remotecups == '' &,
1730	( POS( LEFT( globals.!prt_name, 1 ),,
1731	'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz') == 0 ) \|,
1732	( VERIFY( globals.!prt_name, '/# ' \|\| '09'x, 'MATCH') <> 0 )) THEN
1733	DO
1734	CALL VRMessage VRWindow(), NLSGetMessage( 44 ),, /* 44: The printer name must start with ... or tab characters. */
1735	NLSGetMessage( 45 ), 'E' /* 45: Invalid Name */
1736	RETURN
1737	END
1738
1739	/* TODO support other drivers
1740	*/
1741	IF WORD( globals.!prt_nick, 1 ) == 'Apollo' \|,
1742	WORD( globals.!prt_nick, 1 ) == 'HP' \|,
1743	WORD( globals.!prt_nick, 1 ) == 'Hewlett-Packard' THEN
1744	globals.!os2driver = 'ECUPS-HP'
1745	ELSE IF TRANSLATE( WORD( globals.!prt_nick, 1 )) == 'EPSON' THEN
1746	globals.!os2driver = 'EPSONINK'
1747	ELSE
1748	globals.!os2driver = 'ECUPS'
1749
1750	CALL ConfirmAndCreate
1751	END
1752
1753	WHEN globals.!page == 4 THEN DO
1754	CALL NLSSetText 'PB_NEXT', 'Caption', 5 /* 5: Next > */
1755	CALL VRSet 'EF_NAME', 'Value', ''
1756	CALL VRSet 'EF_LOCATION', 'Value', ''
1757	CALL VRSet 'EF_DESC', 'Value', ''
1758
1759	globals.!prt_ppd = ''
1760	CALL SetPage1
1761	END
1762
1763	OTHERWISE NOP
1764	END
1765
1766	RETURN
1767
1768	/*:VRX PICT_ICON_Click
1769	*/
1770	PICT_ICON_Click: PROCEDURE EXPOSE globals.
1771	CALL VRLoadSecondary 'SW_ABOUT', 'W'
1772	RETURN
1773
1774	/*:VRX PrintManCheckIn
1775	*/
1776	PrintManCheckIn: PROCEDURE
1777	PARSE ARG data
1778
1779	/* This function attempts to report in to Printer Manager (if it's running)
1780	* by using a named pipe.
1781	*/
1782	IF data == '' THEN RETURN 0
1783
1784	npipe = '\PIPE\PRINTMAN'
1785	RC_PIPE_BUSY = '231'
1786
1787	PARSE UPPER VALUE STREAM( npipe, 'C', 'OPEN WRITE') WITH state ':' rc .
1788	IF state <> 'READY' THEN DO
1789	IF rc == RC_PIPE_BUSY THEN
1790	rc = SysWaitNamedPipe( npipe, 0 )
1791	IF rc <> 0 THEN RETURN 0
1792	END
1793	CALL CHAROUT npipe, data
1794	CALL STREAM npipe, 'C', 'CLOSE'
1795
1796	RETURN 0
1797
1798	/*:VRX PromptForPMName
1799	*/
1800	PromptForPMName: PROCEDURE EXPOSE globals. models. best
1801	best = MatchPrinterModel( globals.!os2driver, globals.!prt_nick )
1802
1803	IF models.0 == 0 THEN DO
1804	/* No similar models were found in the list of supported printers.
1805	* Just use the generic PS driver.
1806	*/
1807	CALL VRMessage VRWindow(), NLSGetMessage( 67, globals.!prt_nick, globals.!os2driver ),, /* 67: The printer "%1" does not ... application support. */
1808	NLSGetMessage( 68 ), 'W' /* 68: Printer Name Not Found */
1809	globals.!prt_nick = 'Generic PostScript Printer'
1810	RETURN
1811	END
1812
1813	CALL VRLoadSecondary 'SW_MODEL', 'W'
1814
1815	RETURN
1816
1817	/*:VRX Quit
1818	*/
1819	Quit:
1820	window = VRWindow()
1821	call VRSet window, "Shutdown", 1
1822	drop window
1823	return
1824
1825	/*:VRX SetLanguage
1826	*/
1827	SetLanguage: PROCEDURE EXPOSE globals.
1828	PARSE ARG locale
1829
1830	/*
1831	* This function locates the proper language files, and uses the message
1832	* file to sets all UI text. If the language could not be determined, we
1833	* default to English.
1834	*/
1835	execPath = VRGet('Application', 'Program')
1836	execDir = VRParseFileName( execPath, 'DP')
1837
1838	/*
1839	* First, figure out what language/message file to use.
1840	*/
1841	IF locale <> '' THEN
1842	syslanguage = locale
1843	ELSE
1844	syslanguage = VALUE('LANG',,'OS2ENVIRONMENT')
1845
1846	SELECT
1847	WHEN TRANSLATE( syslanguage ) == 'ZH_TW' THEN nlv = 'tw'
1848	WHEN TRANSLATE( syslanguage ) == 'ZH_CN' THEN nlv = 'cx'
1849	OTHERWISE PARSE VAR syslanguage nlv '_' .
1850	END
1851	nlvfile = globals.!nlsfile \|\| nlv
1852	IF ( STREAM( execDir'\'nlvfile'.msg', 'C', 'QUERY EXISTS') \= '') \| ( SysSearchPath('DPATH', nlvfile'.msg') \= '') THEN DO
1853	globals.!messages = nlvfile'.msg'
1854	helpfile = nlvfile'.hlp'
1855	CALL VRSet 'WN_MAIN', 'HelpFile', helpfile
1856	END
1857	ELSE DO
1858	globals.!messages = globals.!nlsfile \|\| 'en.msg'
1859	helpfile = globals.!nlsfile \|\| 'en.hlp'
1860	CALL VRSet 'WN_MAIN', 'HelpFile', helpfile
1861	END
1862
1863	/*
1864	* If the message file is missing or unreadable, display an error and then exit.
1865	*/
1866	IF NLSGetMessage( 1 ) == '' THEN DO
1867	CALL VRMessage VRWindow(), 'Language file' TRANSLATE( globals.!messages ) 'could not be loaded.', 'Cannot Continue', 'E'
1868	RETURN 0
1869	END
1870
1871	/*
1872	* Now set the captions for the UI controls on the main window, according
1873	* to the specified language.
1874	*/
1875	CALL NLSSetText 'WN_MAIN', 'Caption', 1 /* 1: Create CUPS Printer */
1876	CALL NLSSetText 'PB_NEXT', 'Caption', 5 /* 5: Next > */
1877	CALL NLSSetText 'PB_CANCEL', 'Caption', 3 /* 3: Cancel */
1878	CALL NLSSetText 'PB_HELP', 'Caption', 4 /* 6: Help */
1879
1880	RETURN 1
1881
1882	/*:VRX SetPage1
1883	*/
1884	SetPage1: PROCEDURE EXPOSE globals. manufacturers.
1885
1886	CALL VRMethod 'LB_BRAND', 'Clear'
1887
1888	globals.!page = 1
1889	globals.!prt_port = ''
1890	globals.!remotecups = ''
1891	globals.!prt_name = ''
1892	globals.!prt_loc = ''
1893	globals.!prt_info = ''
1894	globals.!os2driver = ''
1895
1896	/* If a PPD was passed on the command line, skip to page 2 */
1897	IF globals.!prt_ppd <> '' THEN DO
1898	globals.!prt_dev = ''
1899	globals.!prt_nick = GetNameFromPPD( globals.!prt_ppd )
1900	IF globals.!prt_nick == '' THEN DO
1901	CALL VRMessage VRWindow(), NLSGetMessage( 76, globals.!prt_ppd ),, /* 76: Could not read printer name from %1. */
1902	NLSGetMessage( 77 ), 'E' /* 77: Invalid PPD */
1903	END
1904	ELSE DO
1905	globals.!mode = 2 /* Mode 2: user-selected PPD file */
1906	globals.!remotecups = ''
1907	CALL InitMessageLog
1908	CALL LINEOUT globals.!log1, 'Starting printer install with user-provided PPD:'
1909	CALL LINEOUT globals.!log1, ''
1910	CALL SetPage2
1911	RETURN
1912	END
1913	END
1914
1915	globals.!prt_ppd = ''
1916	globals.!prt_dev = ''
1917	globals.!prt_nick = ''
1918
1919	CALL VRSet 'PB_NEXT', 'Enabled', 0
1920	CALL VRSet 'LB_BRAND', 'Visible', 1
1921
1922	CALL VRSet 'WN_MAIN', 'HelpTag', 200
1923
1924	/* Resize LB_SELECT if necessary to make room for LB_BRAND */
1925	lb_x = VRGet('LB_BRAND', 'Left') + VRGet('LB_BRAND', 'Width') + 60
1926	lb_w = VRGet('GB_INFO', 'Width') - lb_x + VRGet('GB_INFO', 'Left')
1927	CALL VRSet 'LB_SELECT', 'Left', lb_x
1928	CALL VRSet 'LB_SELECT', 'Width', lb_w
1929
1930	CALL VRSet 'LB_SELECT', 'Visible', 1
1931	CALL VRSet 'GB_INFO', 'Visible', 0
1932
1933	CALL VRSet 'WN_MAIN', 'Pointer', 'WAIT'
1934
1935	IF manufacturers.0 == 0 THEN DO
1936
1937	/* Populate the manufacturer list */
1938	IF globals.!cupsdir == '' THEN DO
1939	manufacturers.1.!name = NLSGetMessage( 22 ) /* 22: -- Custom -- */
1940	manufacturers.1.!printers.0 = 1
1941	manufacturers.1.!printers.1.!model = NLSGetMessage( 23 ) /* 23: -- Other printer (requires PPD) -- */
1942	manufacturers.1.!printers.1.!driver = ''
1943	manufacturers.1.!printers.1.!type = ''
1944	manufacturers.1.!printers.1.!remark = NLSGetMessage( 23 ) /* 23: -- Other printer (requires PPD) -- */
1945	manufacturers.1.!printers.1.!driver2 = ''
1946	manufacturers.1.!printers.1.!remark2 = ''
1947	manufacturers.0 = 1
1948	END
1949	ELSE
1950	CALL GetCupsPrinters
1951
1952	END
1953	CALL NLSSetText 'DT_INFO', 'Caption', 21 /* 21: Select the printer manufacturer and model from the list below. */
1954
1955	CALL VRSet 'LB_BRAND', 'Painting', 0
1956	DO i = 1 TO manufacturers.0
1957	addman.i = manufacturers.i.!name
1958	addidx.i = i
1959	END
1960	addman.0 = manufacturers.0
1961	addidx.0 = manufacturers.0
1962	CALL VRMethod 'LB_BRAND', 'AddStringList', 'addman.',, 'addidx.'
1963	CALL VRSet 'LB_BRAND', 'Painting', 1
1964
1965	CALL VRMethod 'LB_BRAND', 'SetFocus'
1966	CALL VRSet 'LB_BRAND', 'Selected', 1
1967	CALL VRSet 'WN_MAIN', 'Pointer', '<default>'
1968
1969	RETURN
1970
1971	/*:VRX SetPage2
1972	*/
1973	SetPage2: PROCEDURE EXPOSE globals.
1974
1975	globals.!page = 2
1976	CALL VRSet 'WN_MAIN', 'HelpTag', 300
1977
1978	CALL VRSet 'LB_BRAND', 'Visible', 0
1979	CALL VRSet 'PB_NEXT', 'Enabled', 0
1980	CALL NLSSetText 'WN_MAIN', 'StatusText', 29, globals.!prt_nick /* 29: Selected printer: %1 */
1981
1982	/* Resize LB_SELECT to the full width of GB_INFO */
1983	lb_x = VRGet('GB_INFO', 'Left')
1984	lb_w = VRGet('GB_INFO', 'Width')
1985	CALL VRSet 'LB_SELECT', 'Left', lb_x
1986	CALL VRSet 'LB_SELECT', 'Width', lb_w
1987
1988	CALL VRMethod 'LB_SELECT', 'Clear'
1989
1990	CALL VRSet 'WN_MAIN', 'Pointer', 'WAIT'
1991	IF globals.!cupsdir == '' THEN DO
1992	CALL VRMethod 'LB_SELECT', 'AddString', NLSGetMessage( 34 ),, '' /* 34: Network printer (manual configuration) */
1993	CALL VRSet 'LB_SELECT', 'Selected', 1
1994	END
1995	ELSE
1996	CALL GetCupsPorts
1997	CALL VRMethod 'LB_SELECT', 'SetFocus'
1998	CALL VRSet 'WN_MAIN', 'Pointer', '<default>'
1999
2000	RETURN
2001
2002	/*:VRX SetPage3
2003	*/
2004	SetPage3: PROCEDURE EXPOSE globals.
2005
2006	globals.!page = 3
2007	CALL VRSet 'WN_MAIN', 'HelpTag', 400
2008
2009	CALL VRSet 'EF_DESC', 'Value', globals.!prt_nick
2010	CALL NLSSetText DT_NAME, 'Caption', 103 /* 103: Name: */
2011	CALL NLSSetText DT_LOCATION, 'Caption', 105 /* 105: Location: */
2012	CALL NLSSetText DT_DESC, 'Caption', 106 /* 106: Description: */
2013
2014	CALL VRMethod 'LB_SELECT', 'Clear'
2015
2016	CALL VRSet 'LB_SELECT', 'Visible', 0
2017	CALL VRSet 'GB_INFO', 'Visible', 1
2018	IF globals.!remotecups == '' THEN DO
2019	CALL NLSSetText 'DT_INFO', 'Caption', 40 /* 40: Choose the printer name, and enter its location and a short description. */
2020	CALL VRSet 'DT_NAME', 'Visible', 1
2021	CALL VRSet 'EF_NAME', 'Visible', 1
2022	CALL VRSet 'DT_LOCATION', 'Visible', 1
2023	CALL VRSet 'EF_LOCATION', 'Visible', 1
2024	END
2025	ELSE
2026	CALL NLSSetText 'DT_INFO', 'Caption', 41 /* 41: Enter a short description of this printer. This will be used for the printer object that appears on your desktop. */
2027	CALL VRSet 'DT_DESC', 'Visible', 1
2028	CALL VRSet 'EF_DESC', 'Visible', 1
2029
2030	CALL VRMethod 'EF_NAME', 'SetFocus'
2031
2032	RETURN
2033
2034	/*:VRX SetPage4
2035	*/
2036	SetPage4:
2037
2038	globals.!page = 4
2039	CALL VRSet 'WN_MAIN', 'HelpTag', 100
2040
2041	CALL VRSet 'LB_SELECT', 'Visible', 0
2042	CALL VRSet 'GB_INFO', 'Visible', 0
2043	CALL VRSet 'WN_MAIN', 'StatusText', ''
2044
2045	RETURN
2046
2047	/*:VRX SW_ABOUT_Close
2048	*/
2049	SW_ABOUT_Close:
2050	call SW_ABOUT_Fini
2051	return
2052
2053	/*:VRX SW_ABOUT_Create
2054	*/
2055	SW_ABOUT_Create:
2056	call SW_ABOUT_Init
2057	return
2058
2059	/*:VRX SW_ABOUT_Fini
2060	*/
2061	SW_ABOUT_Fini:
2062	window = VRInfo( "Window" )
2063	call VRDestroy window
2064	drop window
2065	return
2066	/*:VRX SW_ABOUT_Init
2067	*/
2068	SW_ABOUT_Init:
2069
2070	CALL NLSSetText 'SW_ABOUT', 'Caption', 10 /* 10: Product Information */
2071	CALL NLSSetText 'DT_ABOUT1', 'Caption', 11 /* 11: eCups Printer Install Utility */
2072	CALL NLSSetText 'DT_ABOUT2', 'Caption', 12, '1.21' /* 12: Version %1 */
2073	CALL NLSSetText 'DT_ABOUT3', 'Caption', 13, '2010-2023' /* 13: (C) %1 Alex Taylor */
2074	CALL NLSSetText 'PB_ABOUT', 'Caption', 2 /* 10: Product Information */
2075
2076	CALL NLSSetText 'DT_BOOTDRIVE', 'Caption', 14, TRANSLATE( globals.!bootdrv ) /* 14: System boot volume: %1 */
2077	CALL NLSSetText 'DT_CUPSPATH', 'Caption', 15, TRANSLATE( globals.!cupsdir ) /* 15: Local CUPS directory: %1 */
2078	CALL NLSSetText 'DT_REPOSITORY', 'Caption', 16, TRANSLATE( globals.!repository ) /* 16: Local driver repository: %1 */
2079
2080	window = VRInfo( "Object" )
2081
2082	IF globals.!windowText <> '' THEN DO
2083	CALL VRSet window, 'Font', globals.!windowText
2084	CALL VRSet window, 'StatusFont', globals.!windowText
2085	CALL VRSet 'DT_ABOUT1', 'Font', globals.!windowText \|\| ' Bold'
2086	factor = GetScalingFactor( ParseFontSize( globals.!windowText ))
2087	CALL RescaleObject window, factor, 0
2088	CALL RescaleObject 'PICT_ABOUT', factor
2089	CALL RescaleObject 'DT_ABOUT1', factor
2090	CALL RescaleObject 'DT_ABOUT2', factor
2091	CALL RescaleObject 'DT_ABOUT3', factor
2092	CALL RescaleObject 'GB_ABOUT1', factor
2093	CALL VRSet 'GB_ABOUT1', 'Height', 30
2094	CALL RescaleObject 'GB_ABOUT2', factor
2095	CALL RescaleObject 'DT_BOOTDRIVE', factor
2096	CALL RescaleObject 'DT_CUPSPATH', factor
2097	CALL RescaleObject 'DT_REPOSITORY', factor
2098	CALL RescaleObject 'PB_ABOUT', factor
2099	END
2100
2101	if( \VRIsChildOf( window, "Notebook" ) ) then do
2102	call VRMethod window, "CenterWindow"
2103	call VRSet window, "Visible", 1
2104	call VRMethod window, "Activate"
2105	end
2106	drop window
2107	return
2108
2109	/*:VRX SW_CREATE_Close
2110	*/
2111	SW_CREATE_Close:
2112	call SW_CREATE_Fini
2113	return
2114
2115	/*:VRX SW_CREATE_Create
2116	*/
2117	SW_CREATE_Create:
2118	call SW_CREATE_Init
2119	return
2120
2121	/*:VRX SW_CREATE_Fini
2122	*/
2123	SW_CREATE_Fini:
2124	window = VRInfo( "Window" )
2125	call VRDestroy window
2126	drop window
2127	return
2128	/*:VRX SW_CREATE_Init
2129	*/
2130	SW_CREATE_Init:
2131
2132	CALL VRSet 'SW_CREATE', 'HelpFile', VRGet('WN_MAIN', 'HelpFile')
2133
2134	CALL NLSSetText 'SW_CREATE', 'Caption', 115 /* 115: Confirm Create Printer */
2135	CALL NLSSetText 'DT_CRMODEL', 'Caption', 102 /* 102: Model: */
2136	CALL NLSSetText 'DT_CRLOC', 'Caption', 105 /* 105: Location: */
2137	CALL NLSSetText 'DT_CRDESC', 'Caption', 106 /* 106: Description: */
2138
2139	CALL NLSSetText 'CHK_CREATEPM', 'Caption', 109 /* 109: Create printer object */
2140	CALL NLSSetText 'DT_PRESDRV', 'Caption', 110 /* 110: Presentation driver: */
2141	CALL NLSSetText 'PB_CREATEOK', 'Caption', 111 /* 111: Create */
2142	CALL NLSSetText 'PB_CREATECANCEL', 'Caption', 3 /* 3: Cancel */
2143	CALL NLSSetText 'PB_CREATEHELP', 'Caption', 4 /* 4: ~Help */
2144
2145	CALL VRSet 'EF_CRMODEL', 'Value', globals.!prt_nick
2146
2147	IF globals.!remotecups <> '' THEN DO
2148	/* An existing CUPS printer was indicated. This means we're not
2149	* creating a CUPS printer, but only a PM printer object (and port)
2150	* that points to it.
2151	*/
2152	CALL NLSSetText 'DT_CREATE', 'Caption', 101 /* 101: Ready to create printer object with the following parameters. */
2153
2154	PARSE VAR globals.!remotecups cups_host cups_printer .
2155	CALL NLSSetText 'DT_CRNAME', 'Caption', 107 /* 107: CUPS server: */
2156	CALL NLSSetText 'DT_CRURI', 'Caption', 108 /* 108: CUPS queue: */
2157	CALL VRSet 'DT_CRLOC', 'Visible', 0
2158	CALL VRSet 'EF_CRNAME', 'Value', cups_host
2159	CALL VRSet 'EF_CRURI', 'Value', cups_printer
2160	CALL VRSet 'EF_CRLOC', 'Visible', 0
2161	CALL VRSet 'CHK_CREATEPM', 'Visible', 0
2162	END
2163	ELSE DO
2164	CALL NLSSetText 'DT_CREATE', 'Caption', 100 /* 100: Ready to create CUPS printer with the following parameters. */
2165	CALL NLSSetText 'DT_CRNAME', 'Caption', 103 /* 103: Name: */
2166	CALL NLSSetText 'DT_CRURI', 'Caption', 104 /* 104: URI: */
2167	CALL VRSet 'EF_CRNAME', 'Value', globals.!prt_name
2168	CALL VRSet 'EF_CRURI', 'Value', globals.!prt_port
2169	CALL VRSet 'EF_CRLOC', 'Value', globals.!prt_loc
2170	END
2171	CALL VRSet 'EF_CRDESC', 'Value', globals.!prt_info
2172
2173	IF QueryAvailableDrivers() > 0 THEN DO
2174	def_idx = 1
2175	CALL VRMethod 'DDCB_PRESDRV', 'AddStringList', 'drv_list.'
2176	DO i = 1 TO drv_list.0
2177	IF drv_list.i == globals.!os2driver THEN DO
2178	def_idx = i
2179	LEAVE
2180	END
2181	/* If PSPRINT is present use it as a fallback default */
2182	ELSE IF drv_list.i == 'PSPRINT' THEN def_idx = i
2183	END
2184	CALL VRSet 'DDCB_PRESDRV', 'Selected', def_idx
2185	END
2186	ELSE DO /* 112: No eCups-compatible OS/2 presentation drivers are installed. */
2187	/* 113: Please install the ECUPS or ECUPS-HP printer driver before continuing. */
2188	CALL VRMessage VRWindow(),
2189	NLSGetMessage( 112 ) \|\| '0d0a0d0a'x \|\| NLSGetMessage( 113 ),,
2190	NLSGetMessage( 114 ), 'E' /* 114: Missing PM Driver */
2191	CALL VRSet 'PB_CREATEOK', 'Enabled', 0
2192	/* TODO give an error if no drivers were found */
2193	END
2194
2195	window = VRInfo( "Object" )
2196	IF globals.!windowText <> '' THEN DO
2197	CALL VRSet window, 'Font', globals.!windowText
2198	CALL VRSet window, 'StatusFont', globals.!windowText
2199	factor = GetScalingFactor( ParseFontSize( globals.!windowText ))
2200	CALL RescaleObject window, factor, 0
2201	CALL RescaleObject 'PICT_CICON', factor
2202	CALL RescaleObject 'DT_CREATE', factor
2203	CALL RescaleObject 'GB_CREATE', factor
2204	CALL RescaleObject 'DT_CRMODEL', factor
2205	CALL RescaleObject 'EF_CRMODEL', factor
2206	CALL RescaleObject 'DT_CRNAME', factor
2207	CALL RescaleObject 'EF_CRNAME', factor
2208	CALL RescaleObject 'DT_CRURI', factor
2209	CALL RescaleObject 'EF_CRURI', factor
2210	CALL RescaleObject 'DT_CRLOC', factor
2211	CALL RescaleObject 'EF_CRLOC', factor
2212	CALL RescaleObject 'DT_CRDESC', factor
2213	CALL RescaleObject 'EF_CRDESC', factor
2214	CALL RescaleObject 'CHK_CREATEPM', factor
2215	CALL RescaleObject 'DT_PRESDRV', factor
2216	CALL RescaleObject 'DDCB_PRESDRV', factor
2217	CALL RescaleObject 'PB_CREATEOK', factor
2218	CALL RescaleObject 'PB_CREATECANCEL', factor
2219	CALL RescaleObject 'PB_CREATEHELP', factor
2220	END
2221
2222	if( \VRIsChildOf( window, "Notebook" ) ) then do
2223	call VRMethod window, "CenterWindow"
2224	call VRSet window, "Visible", 1
2225	call VRMethod window, "Activate"
2226	end
2227	drop window
2228
2229	RETURN
2230
2231	/*:VRX SW_MODEL_Close
2232	*/
2233	SW_MODEL_Close:
2234	call SW_MODEL_Fini
2235	return
2236
2237	/*:VRX SW_MODEL_Create
2238	*/
2239	SW_MODEL_Create:
2240	call SW_MODEL_Init
2241	return
2242
2243	/*:VRX SW_MODEL_Fini
2244	*/
2245	SW_MODEL_Fini:
2246
2247	CALL VRSet 'WN_MAIN', 'Pointer', 'WAIT'
2248
2249	window = VRInfo( "Window" )
2250	call VRDestroy window
2251	drop window
2252	return
2253	/*:VRX SW_MODEL_Init
2254	*/
2255	SW_MODEL_Init:
2256
2257	CALL NLSSetText 'SW_MODEL', 'Caption', 120 /* 120: Select Printer Model */
2258
2259	/* We should have a list of suggested printer models whose names at least
2260	* partially match the requested model, sorted in order with the closest
2261	* match at the top.
2262	*/
2263	ok = VRMethod( "LB_OS2MODELS", "AddStringList", "models.", )
2264	IF best > 0 THEN
2265	CALL VRSet 'LB_OS2MODELS', 'Selected', best
2266
2267	CALL NLSSetText 'DT_MODEL1', 'Caption',,
2268	121, globals.!prt_nick, globals.!os2driver /* 121: The printer "%1" could not ... to applications. */
2269	CALL NLSSetText 'DT_MODEL2', 'Caption', 122 /* 122: You can select one of ... use a generic driver. */
2270
2271	CALL NLSSetText 'PB_MODELOK', 'Caption', 2 /* 2: OK */
2272	CALL NLSSetText 'PB_MODELCANCEL', 'Caption', 3 /* 3: Cancel */
2273
2274	CALL VRSet 'WN_MAIN', 'Pointer', '<default>'
2275
2276	window = VRInfo( "Object" )
2277
2278	IF globals.!windowText <> '' THEN DO
2279	CALL VRSet window, 'Font', globals.!windowText
2280	CALL VRSet window, 'StatusFont', globals.!windowText
2281	factor = GetScalingFactor( ParseFontSize( globals.!windowText ))
2282	CALL RescaleObject window, factor, 0
2283	CALL RescaleObject 'DT_MODEL1', factor
2284	CALL RescaleObject 'DT_MODEL2', factor
2285	CALL RescaleObject 'LB_OS2MODELS', factor
2286	CALL RescaleObject 'PB_MODELOK', factor
2287	CALL RescaleObject 'PB_MODELCANCEL', factor
2288	END
2289
2290	if( \VRIsChildOf( window, "Notebook" ) ) then do
2291	call VRMethod window, "CenterWindow"
2292	call VRSet window, "Visible", 1
2293	call VRMethod window, "Activate"
2294	end
2295	drop window
2296
2297	RETURN
2298
2299	/*:VRX SW_NETWORK_Close
2300	*/
2301	SW_NETWORK_Close:
2302	call SW_NETWORK_Fini
2303	return
2304
2305	/*:VRX SW_NETWORK_Create
2306	*/
2307	SW_NETWORK_Create:
2308	call SW_NETWORK_Init
2309	return
2310
2311	/*:VRX SW_NETWORK_Fini
2312	*/
2313	SW_NETWORK_Fini:
2314
2315	network_dialog = 0
2316
2317	window = VRInfo( "Window" )
2318	call VRDestroy window
2319	drop window
2320	return
2321	/*:VRX SW_NETWORK_Init
2322	*/
2323	SW_NETWORK_Init:
2324
2325	CALL VRSet 'SW_NETWORK', 'HelpFile', VRGet('WN_MAIN', 'HelpFile')
2326
2327	/* Flag to keep track of whether dialog is open */
2328	network_dialog = 1
2329
2330	CALL NLSSetText 'SW_NETWORK', 'Caption', 80 /* 80: Network Printer */
2331	CALL NLSSetText 'DT_PROTOCOL', 'Caption', 81 /* 81: Network protocol: */
2332	CALL NLSSetText 'DT_PASSWORD', 'Caption', 90 /* 90: Password: */
2333	CALL NLSSetText 'PB_NETOK', 'Caption', 2 /* 2: OK */
2334	CALL NLSSetText 'PB_NETCANCEL', 'Caption', 3 /* 3: Cancel */
2335	CALL NLSSetText 'PB_NETHELP', 'Caption', 4 /* 4: ~Help */
2336
2337	IF globals.!cupsdir == '' THEN DO
2338	protos.0 = 1
2339	protos.1 = NLSGetMessage( 91 ) /* 91: Existing CUPS printer (remote server) */
2340	pnums.0 = 1
2341	pnums.1 = 5
2342	END
2343	ELSE DO
2344	CALL VRSet 'EF_SERVER', 'Value', 'localhost'
2345	protos.0 = 5
2346	protos.1 = NLSGetMessage( 92 ) /* 92: Internet Printing Protocol (IPP) */
2347	protos.2 = NLSGetMessage( 93 ) /* 93: AppSocket/JetDirect */
2348	protos.3 = NLSGetMessage( 94 ) /* 94: Line Printer Remote daemon (LPD) */
2349	protos.4 = NLSGetMessage( 95 ) /* 95: Windows/SMB network */
2350	protos.5 = NLSGetMessage( 96 ) /* 96: Existing CUPS printer */
2351	pnums.0 = 5
2352	pnums.1 = 1
2353	pnums.2 = 2
2354	pnums.3 = 3
2355	pnums.4 = 4
2356	pnums.5 = 5
2357	IF globals.!has_pdf THEN DO
2358	/* CUPS-PDF backend is present */
2359	protos.0 = 6
2360	protos.6 = NLSGetMessage( 97 ) /* 97: Virtual PDF printer (CUPS-PDF) */
2361	pnums.0 = 6
2362	pnums.6 = 6
2363	END
2364	END
2365
2366	CALL VRMethod 'DDCB_PROTOCOL', 'AddStringList', 'protos.',, 'pnums.'
2367	CALL VRSet 'DDCB_PROTOCOL', 'Selected', 1
2368
2369	window = VRInfo( "Object" )
2370
2371	IF globals.!windowText <> '' THEN DO
2372	CALL VRSet window, 'Font', globals.!windowText
2373	CALL VRSet window, 'StatusFont', globals.!windowText
2374	factor = GetScalingFactor( ParseFontSize( globals.!windowText ))
2375	CALL RescaleObject window, factor, 0
2376	CALL RescaleObject 'DT_NETWORK', factor
2377	CALL RescaleObject 'DT_PROTOCOL', factor
2378	CALL RescaleObject 'DDCB_PROTOCOL', factor
2379	CALL RescaleObject 'DT_SERVER', factor
2380	CALL RescaleObject 'EF_SERVER', factor
2381	CALL RescaleObject 'DT_QUEUE', factor
2382	CALL RescaleObject 'EF_QUEUE', factor
2383	CALL RescaleObject 'DT_USERID', factor
2384	CALL RescaleObject 'EF_USERID', factor
2385	CALL RescaleObject 'DT_PASSWORD', factor
2386	CALL RescaleObject 'EF_PASSWORD', factor
2387	CALL RescaleObject 'DDCB_CUPSQUEUES', factor
2388	CALL RescaleObject 'PB_NETOK', factor
2389	CALL RescaleObject 'PB_NETCANCEL', factor
2390	CALL RescaleObject 'PB_NETHELP', factor
2391	END
2392
2393	if( \VRIsChildOf( window, "Notebook" ) ) then do
2394	call VRMethod window, "CenterWindow"
2395	call VRSet window, "Visible", 1
2396	call VRMethod window, "Activate"
2397	end
2398	drop window
2399	return
2400
2401	/*:VRX WN_MAIN_Close
2402	*/
2403	WN_MAIN_Close:
2404	call Quit
2405	return
2406

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

Download in other formats:

Original Format