5000,5003,5021,6212 if v6212 : 'save' then 'Now' fi if a(v5021) then '^1parameter missing^2language^3Inform the parameter lang in the call to iAH' fi cat(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)) fi s(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',/ 5001 v5001,'^s'v1 5001 getenv('PATH_TRANSLATED') if v1 : 'list' then left(v1,instr(v1,'list')-1) fi if right(replace(v1,'\','/'),1) <> '/' then s(v1,'/') fi putenv('PATH_TRANSLATED='v1) 5003 cat(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 fi if v2200^n*0.4 = 'Page' then '^nGO PAGE^p'v2200^n*4 fi if v2200^n.9 = 'photocopy' then '^n'v2200^n,"^m"v2200^m,"^i"v2200^i,'^h'v2200^h,'^p'v2200^p fi if a(v2200) and p(v5015) then 'getindex' fi 2200 6003 '^l',v1,(if iocc = val(v1[1]) then v6003,break fi) 6100 5000,5003,5004,5009,5013,5021,6000 cat(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) fi if 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' fi if 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 fi 5003/5005,5007/5010,5012/5014,5018,6000 5000,5002,5021 IsisScript cat(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/8999 5000,5002 cat(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 1 5000 gizmoDecod DATABASE v1^m 1 (v5012^g/) v5012^d cat('PROC.PFT'),',' ALL v9999 1002,1031,5001,5008 mpu,v5001^*,mpl 1 f(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' fi if v5001^p = '1' then '1' else f(((val(v5001^p)*val(v5008))+1)-val(v5008),1,0) fi 1002,1031,5008 f(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) fi if val(v2) = 0 then '1' fi left(f((val(v1)-1)/10,1,5),instr(f((val(v1)-1)/10,1,5),'.')-1) f((10*val(v3))+1,1,0) v3 if val(v2) < (val(v3)+9) then v2 else f(val(v3)+9,1,0) fi Isis_Current 1/2,6205 '^c'v1'^l'v2'^i',v1001,if v1 = v1001 then '^hred' fi 6205 6205 5000/5003,5006,5021,5030/5041,6213,6214 v1^* 6214 v6214 v6214 v6214 replace(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.PFT 5000,5021,5010 s(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) fi 5011 1,6100 REF([v6100^g]1,(v1/)) REF([v6100^g]1,(v2/)) if nocc(v6111) > 1 then 'APLY' fi v6100^g 2 1 2 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 1 if p(v1) then 'APLY' fi (v10/) 1 1002,1031,1032,5000/7000 v5020 if v1^s : 'm' then 'APPEND' fi v5020 v5020 New Isis_Status date getenv('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/) Unlock 1002,1031,1032,5000/9000 if s(mpu,v5021,mpl) = 'P' then 'pt' else if s(mpu,v5021,mpl) = 'E' then 'es' else 'en' fi,fi if 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,'' 0 6002 replace(v6002,' ',s(#)) (v6002 +| |) 6002 'Content-type: text/xml'/# if v1 <> 'omit-xml-declaration' then ''/ fi