/* $VER: htmlext.smod Rev.059 © by Juan Manuel Wehrli 1999 - 2000
   HTMLEXT System Modul
 */

dbname = "HTMLEXT"

if ~show("L",rexxreqtools.library) then do
		call addlib("rexxreqtools.library",0,-30,0)
end
if ~show("L",rexxtricks.library) then do
		call addlib("rexxtricks.library",0,-30,0)
end
NL = '0a'x

OPTIONS RESULTS
PARSE ARG befehl option
ADDRESS COMMAND

/* START
 */
if befehl = "START" then do
	if EXISTS('guis:gui4cli') then do
	    'assign GUIs: HTMLEXT:GUI ADD'
		'assign LIBS: HTMLEXT:Libs ADD'
		'assign FONTS: HTMLEXT:Fonts ADD'
		'gui HTMLEXT:GUI/HTMLEXT'
	end
    else do
		call rtezrequest('Gui4Cli ist nicht oder nicht korrekt installiert!' || nl || 'Bitte kontrolieren Sie die Gui4Cli Installation ...','Werde ich nun überprüfen.',dbname || ': Gui4Cli Erweiterung fehlt ...',,nil)
	end
end

/* SUITESIZE
 */
if befehl = "SUITESIZE" then do
	'list ' || Option || ' LFORMAT="%L" FILES ALL >t:htmlext/suitesize.list'
    if open('f','t:htmlext/suitesize.list','r') then do
		ssize = readln('f')
	    do while ~EOF('f')
    		nsize = readln('f')
            if nsize ~= "" then do
            	ssize = ssize + nsize
        	end
        end
		ssizekb = ssize / 1000
        call rtezrequest('Die Gesammtgrösse der WEB-Suite beträgt:' || nl || ssizekb || ' kB','Weiter',dbname || ': Web-Suite Umfang in kB ...',,nil)
	end
end


/* MREP
 */
if befehl = "MREP" then do
	if open("f","t:htmlext/mrep.files","r") then do
		do while ~EOF("f")
			fzeile = READLN("f")
			if fzeile ~= "" then do
				if open('f2','t:htmlext/mrep.list','r') then do
					do while ~EOF('f2')
						lzeile = READLN("f2")
						if lzeile ~= "" then do
							suchen = LEFT(lzeile,45)
							suchen = STRIP(suchen)
							ersetzen = RIGHT(lzeile,45)
							ersetzen = STRIP(ersetzen)
							'rep "' || fzeile || '" "' || suchen || '" "' || ersetzen|| '" I'
						end
					end
					call CLOSE('f2')
				end
			end
		end
	end
	call CLOSE('f')
end

/* REQSTRING
 */
if befehl = "REQSTRING" then do
	title =  GETENV('.htmlext.rqt')
	body =  GETENV('.htmlext.rqb')
	def =  GETENV('.htmlext.rqd')
	buttons =  GETENV('.htmlext.rqu')
	str = rtgetstring(def,body,title,buttons,"rtgs_backfill = false",res)
	if res = 0 then do
		bool =  SETENV('.htmlext.res','0')
		exit
	end
	bool =  SETENV('.htmlext.res','1')
	bool =  SETENV('.htmlext.tmp',str)
end

/* GETSCRMODE
 */
if befehl = "GETSCRMODE" then do
	'htmlext:programme/getmodeinfo >t:htmlext/scrmode'
	if open('f','t:htmlext/scrmode','r') then do
    	nil = readln('f')
    	nil = readln('f')
    	zeile = readln('f')
        zeile2 = RIGHT(zeile,10)
        str = "1052/900/16/"
        str = str || zeile2
        call setenv('.htmlext.tmp',str)
		call rtezrequest('Bitte passen Sie die Angaben WIDTH/HEIGHT/DEPTH/ von Hand an!' || nl || 'Es wird standardmässig 1052/900/16/ gesetzt ...','Werde ich nun machen',dbname || ': Screenmode einstellungen ...',,nil)
	end
end



exit