Problem while bringing Google Calendar events to Oracle Tables

Question

Hi Friends,
I have written the following code to bring the Google Calendar Events to Oracle Tables...
CREATE OR REPLACE procedure XX_DEV.authenticate_service_test(p_email in varchar2,p_password in varchar2)
is
l_request utl_http.req;
l_response utl_http.resp;
l_params varchar2(255);
l_resp_data VARCHAR2(4000);-- CHARACTER SET;
l_auth_token VARCHAR2(4000);
l_cal_entry CLOB;
v_response_xml XMLType;
v_entry_id varchar2(100);
xml_result xmltype;
cnt number:= 0;
v_xmldoc CLOB;
v_start_time date;
v_end_time date;
cursor c1 is select x.title title, x.content content, x.where where, x.start_time start_time, x.end_time end_time, x.entry_id entry_id from
xmltable('feed/entry'
passing xmltype(v_xmldoc)
columns title varchar2(1000) path '/entry/title/text()'
,content clob path '/entry/content/text()'
,where clob path '/entry/gd-where/@valueString'
,start_time varchar2(100) path '/entry/gd-when/@startTime'
,end_time varchar2(100) path '/entry/gd-when/@endTime'
,entry_id varchar2(1000) path '/entry/id'
) x ;
begin
-- access the oracle wallet to allow us to make an https request
utl_http.set_wallet(path => 'file:/u01/app/oracle/product/11.2.0/owm/wallets/oracle11/',password => 'srisys123');
-- set up the request body with our credentials
l_params := 'Email=' || p_email || '&Passwd=' || p_password ||'&service=cl' || '&source=e-DBA-test-1.0';
l_request := utl_http.begin_request('https://www.google.com/accounts/ClientLogin','POST','HTTP/1.1');--accounts/ClientLogin
-- set the request headers
utl_http.set_header(l_request,'Content-Type','application/x-www-form-urlencoded');
utl_http.set_header(l_request,'Content-Length',length(l_params));
-- write out the request body
utl_http.write_text( l_request, l_params );
-- get the response
l_response := utl_http.get_response( r => l_request );
dbms_output.put_line('Status Code: '||l_response.status_code);
loop
utl_http.read_line( r => l_response, data => l_resp_data, remove_crlf => TRUE);
dbms_output.put_line(l_resp_data);
if substr(l_resp_data, 1, 5) = 'Auth=' then
l_auth_token := substr(l_resp_data, 6);
end if;
end loop;
exception
when utl_http.end_of_body then
null;
dbms_output.put_line('Auth Token: '||l_auth_token);
utl_http.end_response ( l_response );
-- replace the substitution variables in the template with the parameter values
--utl_http.end_response ( l_response );
l_request := utl_http.begin_request(
'http://www.google.com/calendar/feeds/default/private/full',
'GET',
'HTTP/1.1');
utl_http.set_header(
l_request,
'Content-Type',
'application/atom+xml');
utl_http.set_header(
l_request,
'Authorization',
'GoogleLogin auth='||l_auth_token);
l_response := utl_http.get_response( r => l_request );
utl_http.read_text(
l_response,
l_cal_entry
dbms_output.put_line('Status Code: ' || l_response.status_code);
/*select replace(l_cal_entry,'<?xml version='||'''1.0'''||' encoding='||'''UTF-8'''||'?>','') into l_cal_entry from dual;
select ltrim(l_cal_entry,substr(l_cal_entry,1,148)) into l_cal_entry from dual;
select '<feed'||l_cal_entry into l_cal_entry from dual;
select replace (l_cal_entry,':','-') into l_cal_entry from dual;*/
dbms_output.put_line('Calendar Event: ' || l_cal_entry);
-- xml_result :=XMLType.extract(l_cal_entry,'//title');
delete from xml_test1;
insert into xml_test1 values (l_cal_entry);
utl_http.end_response ( l_response );
select DATA into v_xmldoc from XML_TEST1;
execute immediate 'alter session set events = ''31156 trace name context forever, level 2''';
for i in c1
loop
l_cal_entry:= NULL;
dbms_output.put_line('Result: '||i.title||'*'||i.content||'*'||i.name||'*'||i.start_time||'*'||i.end_time||'*'||i.entry_id);
begin
select 1 into cnt from events_bkp where entry_id = i.entry_id;
select nvl(to_date(rtrim(replace(i.start_time,'T',' '),substr(replace(i.start_time,'T',' '),12,20))||
replace(substr(replace(i.start_time,'T',' '),12,8),'-',':'),'yyyy-mm-dd hh24:mi:ss'),sysdate) into v_start_time from dual;
select nvl(to_date(rtrim(replace(i.end_time,'T',' '),substr(replace(i.end_time,'T',' '),12,20))||
replace(substr(replace(i.end_time,'T',' '),12,8),'-',':'),'yyyy-mm-dd hh24:mi:ss'),sysdate) into v_end_time from dual;
update events_bkp set description = i.title, notes = nvl(i.content,'No Notes'), start_date_time = v_start_time, end_date_time = v_end_time
where entry_id = i.entry_id;
exception when others then
select nvl(to_date(rtrim(replace(i.start_time,'T',' '),substr(replace(i.start_time,'T',' '),12,20))||
replace(substr(replace(i.start_time,'T',' '),12,8),'-',':'),'yyyy-mm-dd hh24:mi:ss'),sysdate) into v_start_time from dual;
select nvl(to_date(rtrim(replace(i.end_time,'T',' '),substr(replace(i.end_time,'T',' '),12,20))||
replace(substr(replace(i.end_time,'T',' '),12,8),'-',':'),'yyyy-mm-dd hh24:mi:ss'),sysdate) into v_end_time from dual;
insert into events_bkp values(events_seq.nextval, 9, 1,1, 4, i.title, nvl(i.content,'No Notes'), v_start_time, v_end_time,'','',
4, 1, sysdate, 1, sysdate, 13, i.entry_id);
end;
commit;
end loop;
execute immediate 'alter session set events = ''31156 trace name context off''';
end authenticate_service_test;
I am able to execute it successfully with my username and password but I am getting error when the number of events are more than 15...
The parameter l_cal_entry which is of clob datatype is not holding the whole xml data.
Please advice....
Thank You,
Srikanth

Answer 1

Hi Friends,
Now I am able to load all the events of a user by adding the following code
loop
utl_http.read_text(l_response, l_cal);
l_cal_entry:= l_cal_entry||l_cal;
end loop;
but I am getting problem when the user has more than one calendar. The Begin_request link I am using is...
'https://www.google.com/calendar/feeds/default/private/full'
Using this, I am able to get only the events of a default calendar associated to the user.
How can I get the events of all calendars or a particular calendar associated with the user.
I may have to change the above link... I have tried with various combinations by appending calendar id but I am unable get the right combination
Please advice...
Thank You,
Srikanth