/* REXX script a magyar OS/2 FAQ telep¡t‚s‚hez */
/* Version 3.0 */

'@echo off'

Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs

/* Csak a biztons g kedv‚‚rt... */
say "Kezdhetem az OS/2 FAQ objektum nak telep¡t‚s‚t? (i/n)"
PULL valasz
IF valasz = "N" THEN  
	DO
	   say ''
	   say 'K r. 8-(( Tal n majd legk”zelebb.'
	   EXIT
	END


/* Hol vannak a FAQ f jlok? */
TargetPath=directory()

/* Mi a b”ng‚sz“? */
bevitel:
say ''
say 'Melyik b”ng‚sz“t akarod haszn lni az olvas shoz (Netscape javasolt)?'
say '1) Netscape'
say '2) WebExplorer'
say '3) Egy‚b program'
PULL valasz
if valasz < 1 | valasz > 3 then signal bevitel
if valasz = 3 then
	do
		say ''
		say 'G‚peld be a program nev‚t a teljes el‚r‚si £ttal!'
		PULL valasz
	end
select 
	when valasz = 1 then program = 'netscape.exe'
	when valasz = 2 then program = 'explore.exe'
	otherwise program = valasz
end

szoveg = 'Magyar OS/2^FAQ 3.03'

rcode = 0 
/* A FAQ objektum k‚sz¡t‚se. */
rc = SysCreateObject('WPProgram',szoveg,'<WP_DESKTOP>','ICONFILE='TargetPath'\images\hos2faq.ico;Exename='program';PARAMETERS=file:///'TargetPath'\index.htm')
if rc <> 1 then rcode = 1

/* A keres‚si oldal  talak¡t sa */
do while lines('search.htm')
	l=linein('search.htm')
	parse var l w1 w2 w3
	p=translate(targetpath, '/', '\')
	if w1='<param' & w2='name="server"' then l=w1' 'w2' value="file:/'p'/">'
	rc=lineout('outfile.tmp', l)
end
rc=lineout('search.htm')
rc=lineout('outfile.tmp')
'@copy outfile.tmp search.htm >NUL'
'@del outfile.tmp'

/* Jelz‚s, ha nem siker�lt. */
if rcode <> 0 then say 'A telep¡t‚s nem siker�lt!'

EXIT