5000,5001,5003,5009,5021,6212if v6212 : 'save' then 'Now' fiif a(v5021) then '^1parameter missing^2language^3Inform the parameter lang in the call to iAH' ficat(v5000^b,'par/',v5003^*,'.def'),( if v1 : 'FILE ' then '^n'v1*5/ fi ),,( if v1 : 'FORMAT TITLE' then '^n'v1*13/ fi ),,(replace(v7998,'%path_database%',v5000^b[1]) /),,(replace(v7998,'%path_cgi-bin%',v5000^c[1]) /),,(replace(v7998,'%lang%',v5021[1])/),,(replace(v7998,'#',v5003^d[1]) /),(if v1 : 'INCLUDE CIPAR=' then mid(v1,instr(v1,'=')+1,size(v1)) fi/ )if p(v7999) then (cat(getenv('PATH_TRANSLATED'),v7999)) fi
'HEADER.PFT=',v5000^c,v5021'/headerfacic.pft',/
'CABEC.HTM=',v5000^c,v5021'/cabec.htm',/
/* database def files */
,(v7998^n/#),
/* include def files */
,(v7999/#),
79975000,5001,5015^n^v(if v2100 : '.x^' then mid(v2100,1,instr(v2100,'.')-1),break fi)if a(v2200) then v5001 fiif v2200^n*0.4 = 'Page' then '^nGO PAGE^p'v2200^n*4 fiif a(v2200) and p(v5015) then 'getindex' fi2200getenv('PATH_TRANSLATED')if v1 : 'list' then left(v1,instr(v1,'list')-1) fiif right(replace(v1,'\','/'),1) <> '/' then s(v1,'/') fiputenv('PATH_TRANSLATED='v1)
'Content-type: text/html'/#
'Cite error | ',v1^1,' | 'v1^2,'
',v1^3,'
'
05000,5021IsisScriptcat(getenv('PATH_TRANSLATED'),'iah.def.php')if a(v7999) then '^1aplication definition file^2unable to open ',getenv('PATH_TRANSLATED'),'iah.def^3Check the instalation process and the call to iAH.' fi
,(,
,if v7999 : 'PATH_DATABASE=' then '^b',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi,
,if v7999 : 'PATH_CGI-BIN=' then '^c',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi,
,if v7999 : 'PATH_DATA=' then '^d',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi,
,if v7999 : 'MAINTENANCE=' then '^m',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi,
,if v7999 : 'TEMPDIR=' then '^t',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi,
,),
,'^s',v9990,
,if p(v9991) then '^p'v9991 fi,
,if p(v9992) then '^f'v9992 fi,
,'^v2.7',
replace(v5000,'\','/')
,(,
,if v7999 : 'BODY BACKGROUND IMAGE=' then '^i',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi
,if v7999 : 'BODY BACKGROUND COLOR=' then '^c',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi
,if v7999 : 'BODY LINK COLOR=' then '^l',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi
,if v7999 : 'BODY TEXT COLOR=' then '^t',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi
,if v7999 : 'BAR BACKGROUND COLOR=' then '^b',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi
,if v7999 : 'MANAGER E-MAIL=' then '^e',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi
,if v7999 : 'MULTI-LANGUAGE=' then '^m',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi
,if v7999 : 'REVERSE MODE=' then '^r',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi
,if v7999 : 'AVAILABLE LANGUAGES=' then '^a',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi,
,),
( if v7999 : 'LOG DATABASE=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi )( if v7999 : 'LOGO IMAGE=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi )( if v7999 : 'LOGO URL=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi )( if v7999 : 'HEADER IMAGE=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi )( if v7999 : 'HEADER URL=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi )( if v7999 : 'BVSLOG URL=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi )5000,5006,5020/5041,5220,8002'Content-type: text/html'/#'Off'if a(v5000) then 'Now' fi
'5000 environment'/
'5001 nextAction'/
'5002 pathImages'/
'5003 base'/
'5004 arqdef'/
'5005 avaibleFormats'/
'5006 apperance'/
'5007 navBar'/
'5008 hits'/
'5009 format'/
'5010 prefixo'/
'5011 id'/
'5012 gizmo'/
'5013 user'/
'5014 field'/
'5015 index'/
'5016 title'/
'5017 from'/
'5018 baseFeatures'/
'5019 to'/
'5020 logDatabase'/
'5021 lang'/
'5030 logoImage'/
'5031 logoURL'/
'5040 headerImage'/
'5041 headerURL'/
'5100 infoTitle'/
'5111 mfn'/
'5113 userPassword'/
v5999tagif v5013^* = 'DEBUG' then 'Content-type: text/html'/# fiif v5013^* = 'DEBUG' then 'On' fi200000nowif right(replace(getenv('PATH_TRANSLATED'),'\','/'),1) <> '/' then 'Now' finowif a(v5002) then v5000^d,s(mpl,v5021,mpl),'/image/', fiif p(v5001) then v5001^* fiDATABASEv51111cat('CABEC.HTM')5009,5111if s(mpu,v5009,mpl) : '.PFT' then '@',v5009 fi'