path: root/calendar/pcs/icalendar.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
 * icalendar server for gnomecal
 * 
 * This module interfaces between libical and the gnomecal internal
 * representation
 *
 * Copyright (C) 1999 The Free Software Foundation
 * Authors:
 *   Russell Steinthal (rms39@columbia.edu)
 * 
 */

#include <config.h>
#include <unistd.h>
#include <sys/stat.h>
#include "icalendar.h"

static time_t icaltime_to_timet (struct icaltimetype* i);
static CalendarAlarm* parse_alarm (icalproperty *prop);
static iCalPerson* parse_person (icalproperty *prop, gchar *value);
static iCalRelation* parse_related (icalproperty *prop);

/* Duplicate a string without memory leaks */
static gchar* copy_str (gchar** store, gchar* src)
{
    if (*store)
        g_free (*store);
    return (*store = g_strdup (src));
}

static GList* 
copy_to_list (GList** store, gchar* src)
{
    *store = g_list_prepend (*store, g_strdup (src));
    return *store;
}

    
iCalObject *
ical_object_create_from_icalcomponent (icalcomponent* comp)
{
    iCalObject    *ical = NULL;
    iCalPerson    *person;
    icalcomponent *subcomp;
    icalproperty  *prop;
    icalparameter *param;
    struct icaltimetype ictime;
    time_t *pt; 
    CalendarAlarm *alarm = NULL;
    icalcomponent_kind compType;
    struct icalgeotype geo;
    struct icalperiodtype period; 

    gboolean root = FALSE;
    gboolean attachment = FALSE;

    char *tmpStr;       /* this is a library-owned string */

    ical  = g_new0 (iCalObject, 1);

    compType = icalcomponent_isa (comp);
    
    switch (compType) {
    case ICAL_XROOT_COMPONENT:
         root = TRUE;
         break;
    case ICAL_XATTACH_COMPONENT:
         attachment = TRUE;
         break;
    case ICAL_VEVENT_COMPONENT:
         ical->type = ICAL_EVENT;
         break;
    case ICAL_VTODO_COMPONENT:
         ical->type = ICAL_TODO;
         break;
    case ICAL_VJOURNAL_COMPONENT:
         ical->type = ICAL_JOURNAL;
         break;
    case ICAL_VCALENDAR_COMPONENT:
         /* FIXME: what does this mean? */
         break;
    case ICAL_VFREEBUSY_COMPONENT:
         ical->type = ICAL_FBREQUEST;
         /* NOTE: This is not conclusive- you need to analyze
        properties to determine whether this is an
        FBREQUEST or an FBREPLY */
         break;
    case ICAL_VTIMEZONE_COMPONENT:
         ical->type = ICAL_TIMEZONE;
         break;
    case ICAL_VALARM_COMPONENT:
    case ICAL_XAUDIOALARM_COMPONENT:
    case ICAL_XDISPLAYALARM_COMPONENT:
    case ICAL_XEMAILALARM_COMPONENT:
    case ICAL_XPROCEDUREALARM_COMPONENT:
         /* this should not be reached, since this loop should
        only be processing first level components */
         break;
    case ICAL_XSTANDARD_COMPONENT:
         /* FIXME: what does this mean? */
         break;
    case ICAL_XDAYLIGHT_COMPONENT:
         /* FIXME: what does this mean? */
         break;
    case ICAL_X_COMPONENT:
         /* FIXME: what does this mean? */
         break;
    case ICAL_VSCHEDULE_COMPONENT:
         /* FIXME: what does this mean? */
         break;
    case ICAL_XLICINVALID_COMPONENT:
         /* FIXME: what does this mean? */
         break;
    case ICAL_NO_COMPONENT:
    case ICAL_ANY_COMPONENT:
         /* should not occur */
         break;
    case ICAL_VQUERY_COMPONENT:
    case ICAL_VCAR_COMPONENT:
    case ICAL_VCOMMAND_COMPONENT:
         /* FIXME: what does this mean? */
         break;
    }
    
    prop = icalcomponent_get_first_property (comp, ICAL_ANY_PROPERTY);
    while (prop) {
        switch (icalproperty_isa (prop)) {
        case ICAL_CALSCALE_PROPERTY:
            if (g_strcasecmp (icalproperty_get_calscale (prop),
                      "GREGORIAN"))
                g_warning ("Unknown calendar format.");
            break;
        case ICAL_METHOD_PROPERTY:
            /* FIXME: implement something here */
            break;
        case ICAL_ATTACH_PROPERTY:
            /* FIXME: not yet implemented */
            break;
        case ICAL_CATEGORIES_PROPERTY:
            copy_to_list (&ical->categories,
                      icalproperty_get_categories (prop));
            break;
        case ICAL_CLASS_PROPERTY:
            copy_str (&ical->class, icalproperty_get_class (prop));
            break;
        case ICAL_COMMENT_PROPERTY:
            /*tmpStr = icalproperty_get_comment (prop);*/
            tmpStr = g_strconcat (icalproperty_get_comment (prop),
                          ical->comment,
                          NULL);
            if (ical->comment)
                g_free (ical->comment);
            ical->comment = tmpStr;
            break;
        case ICAL_DESCRIPTION_PROPERTY:
            copy_str (&ical->desc, 
                  icalproperty_get_description (prop));
            break;
        case ICAL_GEO_PROPERTY:
            geo = icalproperty_get_geo (prop);
            ical->geo.latitude = geo.lat;
            ical->geo.longitude = geo.lon;
            ical->geo.valid = TRUE;
            break;
        case ICAL_LOCATION_PROPERTY:
            copy_str (&ical->location,
                  icalproperty_get_location (prop));
            break;
        case ICAL_PERCENTCOMPLETE_PROPERTY:
            ical->percent = icalproperty_get_percentcomplete (prop);
            break;
        case ICAL_PRIORITY_PROPERTY:
            ical->priority = icalproperty_get_priority (prop);
            if (ical->priority < 0 || ical->priority > 9)
                g_warning ("Priority out-of-range (see RFC2445)");
            break;
        case ICAL_RESOURCES_PROPERTY:
            copy_to_list (&ical->resources,
                      icalproperty_get_resources (prop));
            break;
        case ICAL_STATUS_PROPERTY:
            copy_str (&ical->status,
                  icalproperty_get_status (prop));
            break;
        case ICAL_SUMMARY_PROPERTY:
            copy_str (&ical->summary,
                  icalproperty_get_summary (prop));
            break;
        case ICAL_COMPLETED_PROPERTY:
            ictime = icalproperty_get_completed (prop);
            ical->completed = icaltime_to_timet (&ictime);
            break;
        case ICAL_DTEND_PROPERTY:
            ictime = icalproperty_get_dtend (prop);
            ical->dtend = icaltime_to_timet (&ictime);
            param = icalproperty_get_first_parameter (prop,
                                  ICAL_VALUE_PARAMETER);
            if (param)
                ical->date_only = (icalparameter_get_value (param) == ICAL_VALUE_DATE);
            /* FIXME: We should handle timezone specifiers */
            break;
        case ICAL_DUE_PROPERTY:
            ictime = icalproperty_get_due (prop);
            ical->dtend = icaltime_to_timet (&ictime);
            param = icalproperty_get_first_parameter (prop,
                                  ICAL_VALUE_PARAMETER);
            ical->date_only = (icalparameter_get_value (param) == 
                       ICAL_VALUE_DATE);
            /* FIXME: We should handle timezone specifiers */
            break;
        case ICAL_DTSTART_PROPERTY:
            ictime = icalproperty_get_dtstart (prop);
            ical->dtstart = icaltime_to_timet (&ictime);
            param = icalproperty_get_first_parameter (prop,
                                  ICAL_VALUE_PARAMETER);
            if (param)
                ical->date_only = (icalparameter_get_value (param) == ICAL_VALUE_DATE);
            /* FIXME: We should handle timezone specifiers */
            break;
        case ICAL_DURATION_PROPERTY:
            /* FIXME: I don't see the necessary libical function */
            break;
        case ICAL_FREEBUSY_PROPERTY:
            period = icalproperty_get_freebusy (prop);
            ical->dtstart = icaltime_to_timet (&(period.start));
            /* FIXME: period.end is specified as being relative
               to start, so this may not be correct */
            ical->dtend   = icaltime_to_timet (&(period.end));
            break;
        case ICAL_TRANSP_PROPERTY:
            tmpStr = icalproperty_get_transp (prop);
            /* do not i18n the following string constant! */
            if (!g_strcasecmp (tmpStr, "TRANSPARENT"))
                ical->transp = ICAL_TRANSPARENT;
            else
                ical->transp = ICAL_OPAQUE;
            break;
        case ICAL_TZID_PROPERTY:
        case ICAL_TZNAME_PROPERTY:
        case ICAL_TZOFFSETFROM_PROPERTY:
        case ICAL_TZOFFSETTO_PROPERTY:
        case ICAL_TZURL_PROPERTY:
            /* no implementation for now */
            break;
        case ICAL_ATTENDEE_PROPERTY:
            tmpStr = icalproperty_get_attendee (prop);
            person  = parse_person (prop, tmpStr);
            ical->attendee = g_list_prepend (ical->attendee, 
                             person);
            break;
        case ICAL_CONTACT_PROPERTY:
            tmpStr = icalproperty_get_contact (prop);
            person  = parse_person (prop, tmpStr);
            ical->contact = g_list_prepend (ical->contact, person);
            break;
        case ICAL_ORGANIZER_PROPERTY:
            tmpStr = icalproperty_get_organizer (prop);
            person  = parse_person (prop, tmpStr);
            if (ical->organizer)
                g_free (ical->organizer);
            ical->organizer = person;
            break;
        case ICAL_RECURRENCEID_PROPERTY:
            ictime = icalproperty_get_recurrenceid (prop);
            ical->recurid = icaltime_to_timet (&ictime);
            /* FIXME: Range parameter not implemented */
            break;
        case ICAL_RELATEDTO_PROPERTY:
            ical->related = g_list_prepend (ical->related,
                            parse_related (prop));
            break;
        case ICAL_URL_PROPERTY:
            copy_str (&ical->url, 
                  icalproperty_get_url (prop));
            break;
        case ICAL_UID_PROPERTY:
            copy_str (&ical->uid,
                  icalproperty_get_uid (prop));
            break;
        case ICAL_EXDATE_PROPERTY:
            /* FIXME: This does not appear to parse
                           multiple exdate values in one property, as
                           allowed by the RFC; needs a libical fix */
            ictime = icalproperty_get_exdate (prop);
            pt = g_new0 (time_t, 1);
            *pt = icaltime_to_timet (&ictime);
            ical->exdate = g_list_prepend (ical->exdate, pt);
            break;
        case ICAL_EXRULE_PROPERTY:
        case ICAL_RDATE_PROPERTY:
        case ICAL_RRULE_PROPERTY:
            /* FIXME: need recursion processing */
            break;
        case ICAL_ACTION_PROPERTY:
        case ICAL_REPEAT_PROPERTY:
        case ICAL_TRIGGER_PROPERTY:
            /* should only occur in VALARM's, handled below */
            g_assert_not_reached();
            break;
        case ICAL_CREATED_PROPERTY:
            ictime = icalproperty_get_created (prop);
            ical->created = icaltime_to_timet (&ictime);
            break;
        case ICAL_DTSTAMP_PROPERTY:
            ictime = icalproperty_get_dtstamp (prop);
            ical->dtstamp = icaltime_to_timet (&ictime);
            break;
        case ICAL_LASTMODIFIED_PROPERTY:
            ictime = icalproperty_get_lastmodified (prop);
            ical->last_mod = icaltime_to_timet (&ictime);
            break;
        case ICAL_SEQUENCE_PROPERTY:
            ical->seq = icalproperty_get_sequence (prop);
            break;
        case ICAL_REQUESTSTATUS_PROPERTY:
            copy_str (&ical->rstatus,
                  icalproperty_get_requeststatus (prop));
            break;
        case ICAL_X_PROPERTY:
            g_warning ("Unsupported X-property: %s",
                   icalproperty_as_ical_string (prop));
            break;
        case ICAL_XLICERROR_PROPERTY:
            g_warning ("Unsupported property: %s",
                   icalproperty_get_xlicerror (prop));
            break;
        case ICAL_PRODID_PROPERTY:
        case ICAL_VERSION_PROPERTY:
            /* nothing to do for this property */
            break;
        default:
            g_warning ("Unsupported property: %s", icalproperty_as_ical_string 
(prop));
            break;
            
        }
        
        prop = icalcomponent_get_next_property (comp,
                            ICAL_ANY_PROPERTY);
    }
    
    /* now parse subcomponents --- should only be VALARM's */
    subcomp = icalcomponent_get_first_component (comp,
                             ICAL_ANY_COMPONENT);
    while (subcomp) {
        compType = icalcomponent_isa (subcomp);
        switch (compType) {
        case ICAL_VALARM_COMPONENT:
            alarm = parse_alarm (subcomp);
            if (alarm)
                ical->alarms = g_list_prepend (ical->alarms,
                                   alarm);
            break;
        default:
            g_warning ("Only nested VALARM components are supported.");
        }

        subcomp = icalcomponent_get_next_component (comp,
                                ICAL_ANY_COMPONENT);
    }

    return ical;
}


static time_t icaltime_to_timet (struct icaltimetype* i)
{
    struct tm t;
    time_t ret;

    t.tm_year = i->year - 1900;
    t.tm_mon  = i->month - 1;
    t.tm_mday = i->day;
    if (!i->is_date) {
        t.tm_hour = i->hour;
        t.tm_min  = i->minute;
        t.tm_sec  = i->second;
    } else {
        t.tm_hour = 0;
        t.tm_min  = 0;
        t.tm_sec  = 0;
    }

    ret = mktime(&t);

    if (i->is_utc) {
#ifdef HAVE_TIMEZONE
        extern long timezone;
        ret -= timezone;
#else
        struct tm *tmp;
        time_t tod = time(NULL);
        tmp = localtime (&tod);
        ret += tmp->tm_gmtoff;
#endif
    } 

    return ret;
}
    
static iCalPerson*
parse_person (icalproperty* prop, gchar* value)
{
    icalparameter* param;
    icalparameter_role role;
    icalparameter_partstat partstat;
    icalparameter_cutype cutype;

    iCalPerson* ret;
    
    ret = g_new0 (iCalPerson, 1);

    ret->addr = g_strdup (value);

    param = icalproperty_get_first_parameter (prop,
                          ICAL_CN_PARAMETER);
    if (param)
        ret->name = g_strdup (icalparameter_get_cn (param));
    else
        ret->name = NULL;
    
    
    param = icalproperty_get_first_parameter (prop,
                          ICAL_ROLE_PARAMETER);
    if (param) {
        role  = icalparameter_get_role (param);
        switch (role) {
        case ICAL_ROLE_CHAIR:
            ret->role = g_strdup ("CHAIR");
            break;
        case ICAL_ROLE_REQPARTICIPANT:
            ret->role = g_strdup ("REQPARTICIPANT");
            break;
        case ICAL_ROLE_OPTPARTICIPANT:
            ret->role = g_strdup ("OPTPARTICIPANT");
            break;
        case ICAL_ROLE_NONPARTICIPANT:
            ret->role = g_strdup ("NONPARTICIPANT");
            break;
        case ICAL_ROLE_XNAME:
        default:
            ret->role = g_strdup ("UNKNOWN");
            break;
        }
    } else
        ret->role = g_strdup ("REQPARTICIPANT");
    
    param = icalproperty_get_first_parameter (prop, ICAL_PARTSTAT_PARAMETER);
    if (param) {
        partstat = icalparameter_get_partstat (param);
        switch (partstat) {
        case ICAL_PARTSTAT_NEEDSACTION:
            ret->partstat = g_strdup ("NEEDSACTION");
            break;
        case ICAL_PARTSTAT_ACCEPTED:
            ret->partstat = g_strdup ("ACCEPTED");
            break;
        case ICAL_PARTSTAT_DECLINED:
            ret->partstat = g_strdup ("DECLINED");
            break;
        case ICAL_PARTSTAT_TENTATIVE:
            ret->partstat = g_strdup ("TENTATIVE");
            break;
        case ICAL_PARTSTAT_DELEGATED:
            ret->partstat = g_strdup ("DELEGATED");
            break;
        case ICAL_PARTSTAT_COMPLETED:
            ret->partstat = g_strdup ("COMPLETED");
            break;
        case ICAL_PARTSTAT_INPROCESS:
            ret->partstat = g_strdup ("INPROCESS");
            break;
        case ICAL_PARTSTAT_XNAME:
            ret->partstat = g_strdup (icalparameter_get_xvalue (param));
            break;
        default:
            ret->partstat = g_strdup ("UNKNOWN");
            break;
        }
    } else
        ret->partstat = g_strdup ("NEEDSACTION");

    param = icalproperty_get_first_parameter (prop, ICAL_RSVP_PARAMETER);
    if (param)
        ret->rsvp = icalparameter_get_rsvp (param);
    else
        ret->rsvp = FALSE;

    param = icalproperty_get_first_parameter (prop, ICAL_CUTYPE_PARAMETER
);
    if (param) {
        cutype = icalparameter_get_cutype (param);
        switch (cutype) {
        case ICAL_CUTYPE_INDIVIDUAL:
            ret->cutype = g_strdup ("INDIVIDUAL");
            break;
        case ICAL_CUTYPE_GROUP:
            ret->cutype = g_strdup ("GROUP");
            break;
        case ICAL_CUTYPE_RESOURCE:
            ret->cutype = g_strdup ("RESOURCE");
            break;
        case ICAL_CUTYPE_ROOM:
            ret->cutype = g_strdup ("ROOM");
            break;
        case ICAL_CUTYPE_UNKNOWN:
        case ICAL_CUTYPE_XNAME:
        default:
            ret->cutype = g_strdup ("UNKNOWN");
            break;
        }
    } else 
        ret->cutype = g_strdup ("INDIVIDUAL");
    
    param = icalproperty_get_first_parameter (prop, ICAL_MEMBER_PARAMETER
);
    while (param) {
        copy_to_list (&ret->member, icalparameter_get_member (param));
        param = icalproperty_get_next_parameter (prop, 
                             ICAL_MEMBER_PARAMETER);
    }
    
    param = icalproperty_get_first_parameter (prop, ICAL_DELEGATEDTO_PARAMETER);
    while (param) {
        copy_to_list (&ret->deleg_to, 
                  icalparameter_get_delegatedto (param));
        param = icalproperty_get_next_parameter (prop,
                             ICAL_DELEGATEDTO_PARAMETER);
    }

    param = icalproperty_get_first_parameter (prop, ICAL_DELEGATEDFROM_PARAMETER);
    while (param) {
        copy_to_list (&ret->deleg_from, 
                  icalparameter_get_delegatedfrom (param));
        param = icalproperty_get_next_parameter (prop,
                             ICAL_DELEGATEDFROM_PARAMETER);
    }

    param = icalproperty_get_first_parameter (prop, ICAL_SENTBY_PARAMETER);
    if (param)
        copy_str (&ret->sent_by, icalparameter_get_sentby (param));
    else
        ret->sent_by = NULL;

    param = icalproperty_get_first_parameter (prop, ICAL_DIR_PARAMETER);
    while (param) {
        copy_to_list (&ret->deleg_to, 
                  icalparameter_get_delegatedto (param));
        param = icalproperty_get_next_parameter (prop,
                             ICAL_DIR_PARAMETER);
    }

    return ret;
}

static iCalRelation* 
parse_related (icalproperty* prop)
{
    iCalRelation* rel;
    icalparameter* param;
    icalparameter_reltype type;

    rel = g_new0 (iCalRelation, 1);
    rel->uid = g_strdup (icalproperty_get_relatedto (prop));
    
    param = icalproperty_get_first_parameter (prop, 
                          ICAL_RELTYPE_PARAMETER);
    if (param) {
        type = icalparameter_get_reltype (param);
        switch (type) {
        case ICAL_RELTYPE_PARENT:
            rel->reltype = g_strdup ("PARENT");
            break;
        case ICAL_RELTYPE_CHILD:
            rel->reltype = g_strdup ("CHILD");
            break;
        case ICAL_RELTYPE_SIBLING:
            rel->reltype = g_strdup ("SIBLING");
            break;
        case ICAL_RELTYPE_XNAME:
            rel->reltype = g_strdup (icalparameter_get_xvalue (param));
            break;
        default:
            rel->reltype = g_strdup ("UNKNOWN");
            break;
        }
    } else
        rel->reltype = g_strdup ("PARENT");

    return rel;
}
    
#ifdef TEST

int main(int argc, char* argv[])
{
    icalcomponent* comp;
    comp = icalendar_parse_file (argv[1]);
    printf ("%s\n", icalcomponent_as_ical_string (comp));
    return 0;
}

#endif
    
    
static CalendarAlarm*
parse_alarm (icalcomponent* comp)
{
    CalendarAlarm *alarm;
    icalproperty  *prop;
    char          *tmpStr;
    struct icaldurationtype dur;
    struct icalattachtype attach;

    g_return_val_if_fail (comp != NULL, NULL);
    
    alarm = g_new0 (CalendarAlarm, 1);
    
    prop = icalcomponent_get_first_property (comp, ICAL_ANY_PROPERTY);
    while (prop) {
        switch (icalproperty_isa (prop)) {
        case ICAL_ACTION_PROPERTY:
            tmpStr = icalproperty_get_action (prop);
            if (!g_strcasecmp (tmpStr, "AUDIO"))
                alarm->type = ALARM_AUDIO;
            else if (!g_strcasecmp (tmpStr, "DISPLAY"))
                alarm->type = ALARM_DISPLAY;
            else if (!g_strcasecmp (tmpStr, "EMAIL"))
                alarm->type = ALARM_MAIL;
            else if (!g_strcasecmp (tmpStr, "PROCEDURE"))
                alarm->type = ALARM_PROGRAM;
            else
                g_warning ("Unsupported alarm type!");
            break;
        case ICAL_TRIGGER_PROPERTY:
            /* FIXME: waiting on proper libical support */
            break;
        case ICAL_REPEAT_PROPERTY:
            alarm->snooze_repeat = icalproperty_get_repeat (prop);
            break;
        case ICAL_DURATION_PROPERTY:
            dur = icalproperty_get_duration (prop);
            alarm->snooze_secs = icaldurationtype_as_timet (dur);
            break;
        case ICAL_ATTACH_PROPERTY:
            attach = icalproperty_get_attach (prop);
            copy_str (&alarm->attach,
                  icalattachtype_get_url (&attach));
            break;
        case ICAL_DESCRIPTION_PROPERTY:
            copy_str (&alarm->desc,
                  icalproperty_get_description (prop));
            break;
        case ICAL_SUMMARY_PROPERTY:
            copy_str (&alarm->summary,
                  icalproperty_get_summary (prop));
            break;
        case ICAL_ATTENDEE_PROPERTY:
            copy_str (&alarm->attendee,
                  icalproperty_get_attendee (prop));
            break;
        default:
            g_warning ("Unsupported alarm property: %s",
                   icalproperty_as_ical_string (prop));
            break;
        }
        
        prop = icalcomponent_get_next_property (comp, 
                            ICAL_ANY_PROPERTY);
    }

    return alarm;
}