5000,5003,5021,6212if v6212 : 'save' then 'Now' fiif a(v5021) then '^1parameter missing^2language^3Inform the parameter lang in the call to iAH' ficat(getenv('PATH_TRANSLATED'),v5003^*,'.def'),( if v1 : 'FILE ' then '^n'v1*5/ fi ),'(v7998^n,v7998^'v5021'/)',(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)) fis(mpu,v5021,mpl)
/* gizmo */
,"CI_TEMPDIR="v5000^t,/
,'ASC2ANS.*=',v5000^b,'gizmo/g850ans.*',/
,'MINUSC.*=',v5000^b,'gizmo/minusc.*',/
/* xml support */
,'GIZMO_XML.*=',v5000^b,'gizmo/gXML.*',/
,'PROLOG.I2X=',v5000^c,'prolog.i2x'/
/* database def files */
,(v7998/),
/* include def files */
,(v7999/),
,'QUERY.IAH=',v5000^c,v5021,'/query.pft',/
5001v5001,'^s'v15001getenv('PATH_TRANSLATED')if v1 : 'list' then left(v1,instr(v1,'list')-1) fiif right(replace(v1,'\','/'),1) <> '/' then s(v1,'/') fiputenv('PATH_TRANSLATED='v1)5003cat(getenv('PATH_TRANSLATED'),v5003^*,'.def')(if v1.6 = 'INDEX ' then '^n',replace(v1*6,'=','')/ fi),( if a(v2^x) then
if p(v2^s) then replace(v2,'^s','^x/') else v2,'^xALL ' fi,
fi,
,if a(v2^y) then '^yDATABASE' fi, /)
'[2:',v3,']'5000,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 v2200^n.9 = 'photocopy' then '^n'v2200^n,"^m"v2200^m,"^i"v2200^i,'^h'v2200^h,'^p'v2200^p fiif a(v2200) and p(v5015) then 'getindex' fi22006003'^l',v1,(if iocc = val(v1[1]) then v6003,break fi)61005000,5003,5004,5009,5013,5021,6000cat(getenv('PATH_TRANSLATED'),v5003^*,'.def')
if a(v5003) then '^1parameter missing^2database^3Inform the parameter base in the call to iAH' fi
if a(v1) then '^1database definition file^2unable to open ',getenv('PATH_TRANSLATED'),v5003^*'.def^3Check the instalation process and the call to iAH' fi
,(,
if v1 : 'GIZMO=' then '^g',mid(v1,instr(v1,'=')+1,size(v1))/ fi
if v1 : 'DECOD=' then '^d',mid(v1,instr(v1,'=')+1,size(v1))/ fi
,),
,( if v1 : 'FORMAT ' then '^n',if v1 : 'DEFAULT' then 'DEFAULT^f' else replace(v1^**7,'=',''),fi, mid(v1,instr(v1,'=')+1,size(v1))/ fi ),
if v3 : '^nDEFAULT' then else '^nDEFAULT^f'v3^n[1] fi,( if v1 : 'HELP ' or v1 : 'NOTE ' then '^n',replace(v1^*,'=','^v') fi/ ),,(if v1 : 'RESUBMIT=' then replace(mid(v1,instr(v1,'=')+1,size(v1)),',',s(#))/,break, fi ),if p(v5003^n) then left(v5003,instr(v5003,'^n')-1) fiif p(v5) then (v5/) fi(v3/)(v2/)(v4/)if a(v5013) then 'GUEST' fi,( if v1 : 'AVAILABLE FORMS=' then mid(v1,instr(v1,'=')+1,size(v1)) fi ),if a(v5014) then 'F,B,A' fi(if left(v1,instr(v1,'=')-1) : 'NAVIGATION BAR' then mid(v1,instr(v1,'=')+1,size(v1)),break, fi)if a(v5007) then 'ON' fi(if left(v1,instr(v1,'=')-1) : 'DOCUMENTS PER PAGE' then mid(v1,instr(v1,'=')+1,size(v1)),break, fi)if a(v5008) then '10' fiif a(v5009) then (if v5005^n = 'DEFAULT' then v5005^f fi) fi(
if left(v1,instr(v1,'=')-1) : 'FEATURES' then '^f',mid(v1,instr(v1,'=')+1,size(v1)) fi,
if left(v1,instr(v1,'=')-1) : 'SEND RESULT BY EMAIL' then '^e',mid(v1,instr(v1,'=')+1,size(v1)) fi,
if left(v1,instr(v1,'=')-1) : 'KEYRANGE SUFFIX' then '^k',mid(v1,instr(v1,'=')+1,size(v1)) fi,
if left(v1,instr(v1,'=')-1) : 'SEARCH ACTAB' then '^a',mid(v1,instr(v1,'=')+1,size(v1)) fi,
if left(v1,instr(v1,'=')-1) : 'SEARCH UCTAB' then '^u',mid(v1,instr(v1,'=')+1,size(v1)) fi,
)if a(v6000) then v5014.1 fi5003/5005,5007/5010,5012/5014,5018,60005000,5002,5021IsisScriptcat(getenv('PATH_TRANSLATED'),'iah.def')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.5.3',
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 a(v5002) then v5000^d,s(mpu,v5021,mpl),'/image/', 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,5002,5006,5020/5041,5220,8000/89995000,5002cat(s(getenv('PATH_TRANSLATED')'iah.def'))
,(,
,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 : 'TEMPDIR=' then '^t',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi,
,),
'^s'v5000^s,
if getenv('SERVER_NAME') <> 'localhost' then '^l'v5000^l fi
15000gizmoDecodDATABASEv1^m1(v5012^g/)v5012^dcat('PROC.PFT'),','ALLv99991002,1031,5001,5008mpu,v5001^*,mpl1f(val(v1031)+val(v5008),1,0)f((val(v1002)-1)/val(v5008),1,2)f((val(left(v1,size(v1)-3)) * val(v5008))+1,1,0)f((val(v1031)-val(v5008))-1,1,0)if val(v1) > 0 then f(val(v1)+1,1,0) else '1' fiif v5001^p = '1' then '1' else f(((val(v5001^p)*val(v5008))+1)-val(v5008),1,0) fi1002,1031,5008f(val(v1002)/val(v5008),1,5)left(f(val(v1031)/val(v5008),1,5),instr(f(val(v1031)/val(v5008),1,5),'.')-1)f(val(v1)+1,1,0)left(v99,instr(v99,'.')-1)if val(right(v99,size(v99)-instr(v99,'.'))) > 0 then f(val(v2)+1,1,0) fiif val(v2) = 0 then '1' fileft(f((val(v1)-1)/10,1,5),instr(f((val(v1)-1)/10,1,5),'.')-1)f((10*val(v3))+1,1,0)v3if val(v2) < (val(v3)+9) then v2 else f(val(v3)+9,1,0) fiIsis_Current1/2,6205'^c'v1'^l'v2'^i',v1001,if v1 = v1001 then '^hred' fi620562055000/5003,5006,5021,5030/5041,6213,6214v1^*6214v6214v6214v6214replace(v6213,'@bireme.br','@brm.bireme.br')cat(getenv('PATH_TRANSLATED'),'sendmail.conf')(if left(v9,instr(v9,'=')-1) : 'EXECUTE' then mid(v9,instr(v9,'=')+1,size(v9)) fi/)replace(replace(v9,'',v6213),'',v6214)system(v9)v6214@AHEMAIL.PFT5000,5021,5010s(mpu,v5021,mpl)'^h',v5000^d,v5021,'/help/','^n'getenv('PATH_TRANSLATED'),v5021'/help/'( if v5010^n = s('HELP ',v1^1[1],' ',v1^2[1]) then '^h'v2^h[1],v5010^v, break fi)if a(v5011) then ( if v5010^n = s('HELP ',v1^1[1]) then '^h'v2^h[1],v5010^v, break fi) fi( if v5010^n = s('NOTE ',v1^1[1],' ',v1^2[1]) then v5011[1],'^n'v2^n[1],v5010^v, break fi)if a(v5011^n) then ( if v5010^n = s('NOTE ',v1^1[1]) then v5011[1],'^n'v2^n[1],v5010^v, break fi) fi50111,6100REF([v6100^g]1,(v1/))REF([v6100^g]1,(v2/))if nocc(v6111) > 1 then 'APLY' fiv6100^g212
v1[1]
if s(v6100^x.2) = 'MH' then
(if right(v1^v[1],(size(v1^v[1])-instr(v1^v[1],'/')+1)) = v6111 then '^n'replace(v1^v[1],v6111,v6112),break fi)
else
(if v1^v[1] = v6111 then '^n'replace(v1^v[1],v6111,v6112),break fi)
fi
1if p(v1) then 'APLY' fi(v10/)11002,1031,1032,5000/7000v5020if v1^s : 'm' then 'APPEND' fiv5020v5020NewIsis_Statusdategetenv('REMOTE_ADDR')getenv('HTTP_USER_AGENT')1031,1032,1002,5001,5003,5007,5008,5009,5013,5021,6000/6003,6100,6102,6211,6213'd6001d6002d6003'(if p(v6002) then 'a6001~'v6001'~a6002~'v6002'~',|a6003~|v6003|~| fi/)Unlock1002,1031,1032,5000/9000if s(mpu,v5021,mpl) = 'P' then 'pt' else if s(mpu,v5021,mpl) = 'E' then 'es' else 'en' fi,fiif p(v6002) then @QUERY.IAH else if p(v6100) then s(mpu,v6100^n,mpl) fi,fi''
'Content-type: text/html'/#
'iAH error | ',v1^1,' | 'v1^2,'
',v1^3,'
'
06002replace(v6002,' ',s(#))(v6002 +| |)6002
'Content-type: text/xml'/#
if v1 <> 'omit-xml-declaration' then
''/
fi