1: PACKAGE BODY fnd_http AS
2: /* $Header: AFSCHTPB.pls 115.3 99/07/16 23:28:56 porting ship $ */
3:
4: chr_newline varchar2(1) := '
5: ';
52: RETURN;
53: END IF;
54: res_start:=res_start+3;
55: res_end:=Instr(serv_result,'
',1,2);
72: out_end:=Instr(out_list,'
',out_start,1);
73: EXIT WHEN out_start>out_end;
74: out_name_value:=Substr(out_list,out_start,out_end-out_start);
75: equal_pos:=Instr(out_name_value,'=',1,1);
76: p_output_tab(i).name:=Ltrim(Rtrim(Substr(out_name_value,1,equal_pos-1),fnd_http.chr_newline),fnd_http.chr_newline);
77: p_output_tab(i).value:=Ltrim(Rtrim(Substr(out_name_value,equal_pos+1,out_end-equal_pos),fnd_http.chr_newline),fnd_http.chr_newline);
78: out_start:=out_end+4;
79: i:=i+1;
80: END LOOP;
73: EXIT WHEN out_start>out_end;
74: out_name_value:=Substr(out_list,out_start,out_end-out_start);
75: equal_pos:=Instr(out_name_value,'=',1,1);
76: p_output_tab(i).name:=Ltrim(Rtrim(Substr(out_name_value,1,equal_pos-1),fnd_http.chr_newline),fnd_http.chr_newline);
77: p_output_tab(i).value:=Ltrim(Rtrim(Substr(out_name_value,equal_pos+1,out_end-equal_pos),fnd_http.chr_newline),fnd_http.chr_newline);
78: out_start:=out_end+4;
79: i:=i+1;
80: END LOOP;
81:
92: err_end:=err_stack_end;
93: WHILE TRUE LOOP
94: err_end:=Instr(err_stack,'
',err_start,1);
95: EXIT WHEN err_start>err_end;
96: p_encoded_errors_tab(i):=Ltrim(Rtrim(Substr(err_stack,err_start,err_end-err_start),fnd_http.chr_newline),fnd_http.chr_newline);
97: err_start:=err_end+4;
98: i:=i+1;
99: END LOOP;
100:
100:
101: EXCEPTION WHEN OTHERS THEN
102: p_result:='false';
103: END;
104: END fnd_http;