From mboxrd@z Thu Jan 1 00:00:00 1970 From: Guido Van Hoecke Subject: Re: Problem with Google Calendar Synchronization Date: Thu, 09 May 2013 20:00:40 +0200 Message-ID: References: <87vc6vxf06.fsf@thinkpad.tsdh.de> <874ned6fhj.fsf@ucl.ac.uk> <87a9o41ns3.fsf@ucl.ac.uk> <87ip2sp7u5.fsf@ucl.ac.uk> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:34173) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UaV94-0008LB-HC for emacs-orgmode@gnu.org; Thu, 09 May 2013 14:00:47 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UaV92-00086p-SB for emacs-orgmode@gnu.org; Thu, 09 May 2013 14:00:46 -0400 Received: from mail-wi0-x22d.google.com ([2a00:1450:400c:c05::22d]:61910) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UaV92-00086e-I8 for emacs-orgmode@gnu.org; Thu, 09 May 2013 14:00:44 -0400 Received: by mail-wi0-f173.google.com with SMTP id ey16so6535326wid.0 for ; Thu, 09 May 2013 11:00:43 -0700 (PDT) In-Reply-To: <87ip2sp7u5.fsf@ucl.ac.uk> (Eric S. Fraga's message of "Thu, 9 May 2013 15:05:06 +0100") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: orgmode --=-=-= Content-Type: text/plain Hi Eric, Eric S Fraga writes: > Guido Van Hoecke writes: > >> Eric, >> >> Eric S Fraga writes: > > [...] > >>> Suggestions on how to handle this case would be welcome, of course. >> >> I created a patch so that the date and time string is built directly >> from the iCal data for times before the epoch. This function produces >> valid date/time strings albeit without weekday info. >> >> Patch file is attached. > > Excellent. Thanks for this. Can you update the file on Worg directly? > If not, I will try to do it. > > One point, however. Should the first return statement in your > datetimestring(input) function (see last line in patch excerpt below) > refer to "input" instead of "datetmp"? What you have works because of > all variables being global but is less clear than using the argument, I > would suggest? It should be "timestamp" rather than "datetmp" :( I have attached the corrected patch. I don't know whether I have access to Worg. Would you mind updating it? > Thanks again, My pleasure, --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=ical2org.patch --- ical2org.awk.orig 2013-05-09 14:15:14.000000000 +0200 +++ ical2org.awk 2013-05-09 19:52:37.000000000 +0200 @@ -27,7 +27,7 @@ # no further revision log after this as the file was moved into a git # repository... # -# Last change: 2011.01.28 16:08:03 +# Last change: 2013.05.09 19:52:37 #---------------------------------------------------------------------------------- # a function to take the iCal formatted date+time, convert it into an @@ -60,12 +60,31 @@ # print "adjusted : " timestamp # print "Time stamp : " strftime("%Y-%m-%d %H:%M", timestamp); + if(timestamp < 0) timestamp = 0; return timestamp; } +# a function to comvert the iCal date+time string into a date time string; +# it uses the datetimestamp subroutine to compute the value to feed to strftime; +# if the iCal date falls before time 0, the string is built from the iCal input; + +function datetimestring(input) +{ + # try to create datetimestring from the datetimestamp + timestamp = datetimestamp(input); + if (timestamp > 0) + return strftime("%Y-%m-%d %a %H:%M", datetimestamp(timestamp)); + + # this is a date before the start of the epoch + # create the yyyy-mm-dd hh:mm string from the input (without day of week) + datespec = gensub("([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9])T([0-9][0-9])([0-9][0-9])([0-9][0-9]).*[\r]*", "\\1-\\2-\\3 \\4:\\5", "g", input); + # print "==> datespec:" datespec; + return datespec; +} + BEGIN { ### config section - max_age = 7; # in days + max_age = -1; #7; # in days # set this to -1 to get all entries or to N>0 to only get # that start or end less than N days ago ### end config section @@ -90,6 +109,7 @@ indescription = 0; lasttimestamp=-1; + print "#+TITLE: Main Google calendar entries" print "#+AUTHOR: Eric S Fraga" print "#+EMAIL: e.fraga@ucl.ac.uk" @@ -140,12 +160,12 @@ /^DTSTART;VALUE=DATE/ { datetmp = gensub("([0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9])(.*[\r])", "\\1T000000\\2", "g", $2) - date = strftime("%Y-%m-%d %a %H:%M", datetimestamp(datetmp)); + date = datetimestring(datetmp); if(max_age>0) lasttimestamp = datetimestamp(datetmp); } /^DTEND;VALUE=DATE/ { datetmp = gensub("([0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9])(.*[\r])", "\\1T000000\\2", "g", $2) - time2 = strftime("%Y-%m-%d %a %H:%M", datetimestamp(datetmp)); + time2 = datetimestring(datetmp); date = date ">--<" time2; if(max_age>0) lasttimestamp = datetimestamp(datetmp); } @@ -154,7 +174,7 @@ # we ignore the seconds /^DTSTART[:;][^V]/ { - date = strftime("%Y-%m-%d %a %H:%M", datetimestamp($2)); + date = datetimestring($2); if(max_age>0) lasttimestamp = datetimestamp($2); # print date; } @@ -165,7 +185,7 @@ /^DTEND[:;][^V]/ { # print $0 - time2 = strftime("%Y-%m-%d %a %H:%M", datetimestamp($2)); + time2 = datetimestring($2); date = date ">--<" time2; if(max_age>0) lasttimestamp = datetimestamp($2); } --=-=-= Content-Type: text/plain Guido -- "Life is like a buffet; it's not good but there's plenty of it." --=-=-=--