2 * Claws Mail -- a GTK+ based, lightweight, and fast e-mail client
3 * Copyright (C) 1999-2007 Colin Leroy <colin@colino.net> and
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 3 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
23 #include "claws-features.h"
28 #include <glib/gi18n.h>
30 #include <sys/types.h>
35 #include <libical/ical.h>
36 #include "vcalendar.h"
37 #include "vcal_folder.h"
38 #include "vcal_manager.h"
39 #include "vcal_meeting_gtk.h"
40 #include "vcal_prefs.h"
44 #include "prefs_common.h"
45 #include "prefs_account.h"
46 #include "alertpanel.h"
51 #include "quoted-printable.h"
59 Answer *answer_new(const gchar *attendee,
61 icalparameter_partstat ans,
62 icalparameter_cutype cutype)
64 Answer *answer = g_new0(Answer, 1);
65 answer->attendee = g_strdup(attendee);
66 answer->name = g_strdup(name);
68 answer->name = g_strdup("");
69 if (!answer->attendee)
70 answer->attendee = g_strdup("");
72 answer->cutype = cutype;
76 static void answer_free(Answer *answer)
78 g_free(answer->attendee);
83 static GSList *answer_find(VCalEvent *event, Answer *answer)
85 GSList *cur = event->answers;
86 while (cur && cur->data) {
87 Answer *b = (Answer *)cur->data;
88 if (!strcasecmp(b->attendee, answer->attendee))
95 void vcal_manager_copy_attendees(VCalEvent *src, VCalEvent *dest)
97 GSList *cur = src->answers;
98 while (cur && cur->data) {
99 Answer *a = (Answer *)cur->data;
100 Answer *b = answer_new(a->attendee, a->name, a->answer, a->cutype);
101 dest->answers = g_slist_prepend(dest->answers, b);
104 dest->answers = g_slist_reverse(dest->answers);
107 gchar *vcal_manager_answer_get_text(icalparameter_partstat ans)
109 static gchar *replies[5]={
111 N_("tentatively accepted"),
113 N_("did not answer"),
118 case ICAL_PARTSTAT_ACCEPTED:
119 return _(replies[0]);
121 case ICAL_PARTSTAT_DECLINED:
122 return _(replies[2]);
124 case ICAL_PARTSTAT_TENTATIVE:
125 return _(replies[1]);
127 case ICAL_PARTSTAT_NEEDSACTION:
128 return _(replies[3]);
129 case ICAL_PARTSTAT_DELEGATED:
130 case ICAL_PARTSTAT_COMPLETED:
131 case ICAL_PARTSTAT_X:
132 case ICAL_PARTSTAT_INPROCESS:
133 case ICAL_PARTSTAT_NONE:
134 case ICAL_PARTSTAT_FAILED:
135 return _(replies[4]);
141 gchar *vcal_manager_cutype_get_text(icalparameter_cutype type)
143 static gchar *replies[5]={
152 case ICAL_CUTYPE_INDIVIDUAL:
153 return _(replies[0]);
155 case ICAL_CUTYPE_GROUP:
156 return _(replies[1]);
158 case ICAL_CUTYPE_RESOURCE:
159 return _(replies[2]);
161 case ICAL_CUTYPE_ROOM:
162 return _(replies[3]);
164 return _(replies[4]);
170 static GSList *answer_remove(VCalEvent *event, Answer *answer)
172 GSList *cur = answer_find(event, answer);
174 Answer *b = (Answer *)cur->data;
175 event->answers = g_slist_remove(event->answers, b);
178 return event->answers;
181 static GSList *answer_add(VCalEvent *event, Answer *answer)
183 event->answers = g_slist_append(event->answers, answer);
184 return event->answers;
187 GSList *vcal_manager_get_answers_emails(VCalEvent *event)
190 GSList *cur = event->answers;
191 while (cur && cur->data) {
192 Answer *b = (Answer *)cur->data;
193 new = g_slist_prepend(new, b->attendee);
196 new = g_slist_reverse(new);
200 icalparameter_partstat vcal_manager_get_reply_for_attendee(VCalEvent *event, const gchar *att)
202 Answer *a = answer_new(att, NULL, 0, 0);
203 GSList *ans = answer_find(event, a);
204 icalparameter_partstat res = 0;
206 Answer *b = (Answer *)ans->data;
213 gchar *vcal_manager_get_cutype_text_for_attendee(VCalEvent *event, const gchar *att)
215 icalparameter_cutype status = vcal_manager_get_cutype_for_attendee(event, att);
218 res = g_strdup(vcal_manager_cutype_get_text(status));
223 icalparameter_partstat vcal_manager_get_cutype_for_attendee(VCalEvent *event, const gchar *att)
225 Answer *a = answer_new(att, NULL, 0, 0);
226 GSList *ans = answer_find(event, a);
227 icalparameter_cutype res = 0;
229 Answer *b = (Answer *)ans->data;
236 gchar *vcal_manager_get_reply_text_for_attendee(VCalEvent *event, const gchar *att)
238 icalparameter_partstat status = vcal_manager_get_reply_for_attendee(event, att);
241 res = g_strdup(vcal_manager_answer_get_text(status));
246 gchar *vcal_manager_get_attendee_name(VCalEvent *event, const gchar *att)
248 Answer *a = answer_new(att, NULL, 0, 0);
249 GSList *ans = answer_find(event, a);
252 Answer *b = (Answer *)ans->data;
254 res = g_strdup(b->name);
260 void vcal_manager_event_print(VCalEvent *event)
262 GSList *list = event->answers;
263 printf( "event->uid\t\t%s\n"
264 "event->organizer\t\t%s\n"
265 "event->start\t\t%s\n"
267 "event->location\t\t%s\n"
268 "event->summary\t\t%s\n"
269 "event->description\t%s\n"
271 "event->dtstart\t\t%s\n"
272 "event->dtend\t\t%s\n"
273 "event->recur\t\t%s\n"
274 "event->tzid\t\t%s\n"
275 "event->method\t\t%d\n"
276 "event->sequence\t\t%d\n",
291 while (list && list->data) {
292 Answer *a = (Answer *)list->data;
293 printf(" ans: %s %s, %s\n", a->name, a->attendee, vcal_manager_answer_get_text(a->answer));
299 static gchar *write_headers(PrefsAccount *account,
301 gboolean short_headers,
303 gboolean is_pseudo_event);
305 gchar *vcal_manager_event_dump(VCalEvent *event, gboolean is_reply, gboolean is_pseudo_event,
306 icalcomponent *use_calendar, gboolean modif)
308 gchar *organizer = g_strdup_printf("MAILTO:%s", event->organizer);
309 PrefsAccount *account = vcal_manager_get_account_from_event(event);
310 gchar *attendee = NULL;
311 gchar *body, *headers;
312 gchar *tmpfile = NULL;
313 icalcomponent *calendar, *ievent, *timezone, *tzc;
314 icalproperty *attprop;
315 icalproperty *orgprop;
316 icalparameter_partstat status = ICAL_PARTSTAT_NEEDSACTION;
317 gchar *sanitized_uid = g_strdup(event->uid);
319 subst_for_filename(sanitized_uid);
321 tmpfile = g_strdup_printf("%s%cevt-%d-%s", get_tmp_dir(),
322 G_DIR_SEPARATOR, getuid(), sanitized_uid);
323 g_free(sanitized_uid);
328 debug_print("no account found\n");
332 attendee = g_strdup_printf("MAILTO:%s", account->address);
334 if (vcal_manager_get_reply_for_attendee(event, account->address) != 0)
335 status = vcal_manager_get_reply_for_attendee(event, account->address);
339 if (use_calendar != NULL) {
340 calendar = use_calendar;
346 ICAL_VCALENDAR_COMPONENT,
347 icalproperty_new_version("2.0"),
348 icalproperty_new_prodid(
349 "-//Claws Mail//NONSGML Claws Mail Calendar//EN"),
350 icalproperty_new_calscale("GREGORIAN"),
351 icalproperty_new_method(is_reply ? ICAL_METHOD_REPLY:event->method),
356 g_warning ("can't generate calendar");
363 orgprop = icalproperty_new_organizer(organizer);
365 timezone = icalcomponent_new(ICAL_VTIMEZONE_COMPONENT);
367 icalcomponent_add_property(timezone,
368 icalproperty_new_tzid("UTC")); /* free */
370 tzc = icalcomponent_new(ICAL_XSTANDARD_COMPONENT);
371 icalcomponent_add_property(tzc,
372 icalproperty_new_dtstart(
373 icaltime_from_string("19700101T000000")));
374 icalcomponent_add_property(tzc,
375 icalproperty_new_tzoffsetfrom(0.0));
376 icalcomponent_add_property(tzc,
377 icalproperty_new_tzoffsetto(0.0));
378 icalcomponent_add_property(tzc,
379 icalproperty_new_tzname("Greenwich meridian time"));
381 icalcomponent_add_component(timezone, tzc);
385 ICAL_VEVENT_COMPONENT, (void*)0);
388 g_warning ("can't generate event");
395 icalcomponent_add_property(ievent,
396 icalproperty_new_uid(event->uid));
397 icalcomponent_add_property(ievent,
398 icalproperty_vanew_dtstamp(icaltime_from_timet(time(NULL), TRUE), (void*)0));
399 icalcomponent_add_property(ievent,
400 icalproperty_vanew_dtstart((icaltime_from_string(event->dtstart)), (void*)0));
401 icalcomponent_add_property(ievent,
402 icalproperty_vanew_dtend((icaltime_from_string(event->dtend)), (void*)0));
403 if (event->recur && *(event->recur)) {
404 icalcomponent_add_property(ievent,
405 icalproperty_vanew_rrule((icalrecurrencetype_from_string(event->recur)), (void*)0));
407 icalcomponent_add_property(ievent,
408 icalproperty_new_description(event->description));
409 icalcomponent_add_property(ievent,
410 icalproperty_new_summary(event->summary));
411 icalcomponent_add_property(ievent,
412 icalproperty_new_sequence(modif && !is_reply ? event->sequence + 1 : event->sequence));
413 icalcomponent_add_property(ievent,
414 icalproperty_new_class(ICAL_CLASS_PUBLIC));
415 icalcomponent_add_property(ievent,
416 icalproperty_new_transp(ICAL_TRANSP_OPAQUE));
417 if (event->location && *event->location)
418 icalcomponent_add_property(ievent,
419 icalproperty_new_location(event->location));
421 icalcomponent_add_property(ievent,
422 icalproperty_new_location(""));
423 icalcomponent_add_property(ievent,
424 icalproperty_new_status(ICAL_STATUS_CONFIRMED));
425 icalcomponent_add_property(ievent,
426 icalproperty_vanew_created(icaltime_from_timet(time(NULL), TRUE), (void*)0));
427 icalcomponent_add_property(ievent,
428 icalproperty_vanew_lastmodified(icaltime_from_timet(time(NULL), TRUE), (void*)0));
429 icalcomponent_add_property(ievent,
432 if (!icalcomponent_get_first_component(calendar, ICAL_VTIMEZONE_COMPONENT))
433 icalcomponent_add_component(calendar, timezone);
435 icalcomponent_free(timezone);
437 icalcomponent_add_component(calendar, ievent);
439 if (event->url && *(event->url)) {
440 attprop = icalproperty_new_url(event->url);
441 icalcomponent_add_property(ievent, attprop);
445 /* dump only this attendee */
447 icalproperty_vanew_attendee(
449 icalparameter_new_role(
450 ICAL_ROLE_REQPARTICIPANT),
451 icalparameter_new_rsvp(ICAL_RSVP_TRUE),
452 icalparameter_new_partstat(status),
455 icalcomponent_add_property(ievent, attprop);
457 /* dump all attendees */
458 GSList *cur = event->answers;
459 while (cur && cur->data) {
460 Answer *a = (Answer *)cur->data;
463 a->cutype = ICAL_CUTYPE_INDIVIDUAL;
465 a->answer = ICAL_PARTSTAT_NEEDSACTION;
468 icalproperty_vanew_attendee(
470 icalparameter_new_role(
471 ICAL_ROLE_REQPARTICIPANT),
472 icalparameter_new_rsvp(ICAL_RSVP_TRUE),
473 icalparameter_new_cutype(a->cutype),
474 icalparameter_new_partstat(a->answer),
478 icalcomponent_add_property(ievent, attprop);
490 headers = write_headers(account, event, is_pseudo_event, is_reply, is_pseudo_event);
493 g_warning("can't get headers");
500 body = g_strdup_printf("%s"
502 "%s", headers, icalcomponent_as_ical_string(calendar));
504 if (str_write_to_file(body, tmpfile) < 0) {
509 chmod(tmpfile, S_IRUSR|S_IWUSR);
513 icalcomponent_free(calendar);
522 static void get_rfc822_date_from_time_t(gchar *buf, gint len, time_t t)
526 gchar day[4], mon[4];
527 gint dd, hh, mm, ss, yyyy;
531 lt = localtime_r(&t, &buft2);
532 sscanf(asctime_r(lt, buft1), "%3s %3s %d %d:%d:%d %d\n",
533 day, mon, &dd, &hh, &mm, &ss, &yyyy);
534 g_snprintf(buf, len, "%s, %d %s %d %02d:%02d:%02d %s",
535 day, dd, mon, yyyy, hh, mm, ss, tzoffset(&t));
537 GDateTime *dt = g_date_time_new_from_unix_local(t);
538 gchar *buf2 = g_date_time_format(dt, "%a, %e %b %Y %H:%M:%S %z");
539 g_date_time_unref(dt);
540 strncpy(buf, buf2, len);
545 static gchar *write_headers_date(const gchar *uid)
549 gchar date[RFC822_DATE_BUFFSIZE];
553 memset(subject, 0, sizeof(subject));
554 memset(date, 0, sizeof(date));
556 if (!strcmp(uid, EVENT_PAST_ID)) {
558 t_subject = _("Past");
559 } else if (!strcmp(uid, EVENT_TODAY_ID)) {
561 t_subject = _("Today");
562 } else if (!strcmp(uid, EVENT_TOMORROW_ID)) {
563 t = time(NULL) + 86400;
564 t_subject = _("Tomorrow");
565 } else if (!strcmp(uid, EVENT_THISWEEK_ID)) {
566 t = time(NULL) + (86400*2);
567 t_subject = _("This week");
568 } else if (!strcmp(uid, EVENT_LATER_ID)) {
569 t = time(NULL) + (86400*7);
570 t_subject = _("Later");
572 g_warning("unknown spec date");
578 lt = *localtime_r(&t, &buft);
584 lt.tm_hour = lt.tm_min = lt.tm_sec = 0;
586 get_rfc822_date_from_time_t(date, sizeof(date), t);
587 conv_encode_header(subject, 511, t_subject, strlen("Subject: "), FALSE);
589 return g_strdup_printf("From: -\n"
593 "MIME-Version: 1.0\n"
594 "Content-Type: text/plain; charset=\"UTF-8\";\n"
595 "Content-Transfer-Encoding: quoted-printable\n"
596 "Message-ID: <%s>\n",
602 gchar *vcal_manager_dateevent_dump(const gchar *uid, FolderItem *item)
604 gchar *sanitized_uid = NULL;
605 gchar *headers = NULL;
606 gchar *lines, *body, *tmpfile;
608 sanitized_uid = g_strdup(uid);
609 subst_for_filename(sanitized_uid);
611 tmpfile = g_strdup_printf("%s%cevt-%d-%s", get_tmp_dir(),
612 G_DIR_SEPARATOR, getuid(), sanitized_uid);
613 g_free(sanitized_uid);
615 headers = write_headers_date(uid);
618 g_warning("can't get headers");
623 if (!strcmp(uid, EVENT_PAST_ID))
625 else if (!strcmp(uid, EVENT_TODAY_ID))
627 else if (!strcmp(uid, EVENT_TOMORROW_ID))
628 date = EVENT_TOMORROW;
629 else if (!strcmp(uid, EVENT_THISWEEK_ID))
630 date = EVENT_THISWEEK;
631 else if (!strcmp(uid, EVENT_LATER_ID))
636 lines = get_item_event_list_for_date(item, date);
637 body = g_strdup_printf("%s"
639 "%s", headers, lines);
641 if (str_write_to_file(body, tmpfile) < 0) {
645 chmod(tmpfile, S_IRUSR|S_IWUSR);
653 static gchar *write_headers_ical(PrefsAccount *account,
654 icalcomponent *ievent,
657 gchar *vcal_manager_icalevent_dump(icalcomponent *event, gchar *orga, icalcomponent *use_calendar)
659 PrefsAccount *account = account_get_cur_account();
660 gchar *body, *headers, *qpbody;
661 gchar **lines = NULL;
662 gchar *tmpfile = NULL;
663 icalcomponent *calendar;
665 icalcomponent *ievent = NULL;
668 ievent = icalcomponent_new_clone(event);
670 prop = icalcomponent_get_first_property(ievent, ICAL_UID_PROPERTY);
672 gchar *sanitized_uid = g_strdup(icalproperty_get_uid(prop));
674 subst_for_filename(sanitized_uid);
676 tmpfile = g_strdup_printf("%s%cevt-%d-%s", get_tmp_dir(),
677 G_DIR_SEPARATOR, getuid(), sanitized_uid);
678 g_free(sanitized_uid);
679 icalproperty_free(prop);
681 tmpfile = g_strdup_printf("%s%cevt-%d-%p", get_tmp_dir(),
682 G_DIR_SEPARATOR, getuid(), ievent);
687 icalcomponent_free(ievent);
693 if (use_calendar != NULL) {
694 calendar = use_calendar;
700 ICAL_VCALENDAR_COMPONENT,
701 icalproperty_new_version("2.0"),
702 icalproperty_new_prodid(
703 "-//Claws Mail//NONSGML Claws Mail Calendar//EN"),
704 icalproperty_new_calscale("GREGORIAN"),
705 icalproperty_new_method(ICAL_METHOD_PUBLISH),
710 g_warning ("can't generate calendar");
712 icalcomponent_free(ievent);
716 icalcomponent_add_component(calendar, ievent);
721 headers = write_headers_ical(account, ievent, orga);
724 g_warning("can't get headers");
726 icalcomponent_free(calendar);
730 lines = g_strsplit(icalcomponent_as_ical_string(calendar), "\n", 0);
731 qpbody = g_strdup("");
733 /* encode to quoted-printable */
735 gint e_len = strlen(qpbody), n_len = 0;
736 gchar *outline = conv_codeset_strdup(lines[i], CS_UTF_8, conv_get_outgoing_charset_str());
737 gchar *qpoutline = g_malloc(strlen(outline)*8 + 1);
739 qp_encode_line(qpoutline, (guchar *)outline);
740 n_len = strlen(qpoutline);
742 qpbody = g_realloc(qpbody, e_len + n_len + 1);
743 strcpy(qpbody+e_len, qpoutline);
744 *(qpbody+n_len+e_len) = '\0';
751 body = g_strdup_printf("%s"
753 "%s", headers, qpbody);
755 if (str_write_to_file(body, tmpfile) < 0) {
759 chmod(tmpfile, S_IRUSR|S_IWUSR);
765 icalcomponent_free(calendar);
770 VCalEvent * vcal_manager_new_event (const gchar *uid,
771 const gchar *organizer,
772 const gchar *orgname,
773 const gchar *location,
774 const gchar *summary,
775 const gchar *description,
776 const gchar *dtstart,
781 icalproperty_method method,
783 icalcomponent_kind type)
785 VCalEvent *event = g_new0(VCalEvent, 1);
787 event->uid = g_strdup(uid?uid:"");
788 event->organizer = g_strdup(organizer?organizer:"");
789 event->orgname = g_strdup(orgname?orgname:"");
791 if (dtend && *(dtend)) {
792 time_t tmp = icaltime_as_timet((icaltime_from_string(dtend)));
794 GDateTime *dt = g_date_time_new_from_unix_local(tmp);
795 event->end = g_date_time_format(dt, "%a, %e %b %Y %H:%M:%S %z");
796 g_date_time_unref(dt);
800 event->end = g_strdup(ctime_r(&tmp, buft));
804 if (dtstart && *(dtstart)) {
805 time_t tmp = icaltime_as_timet((icaltime_from_string(dtstart)));
807 GDateTime *dt = g_date_time_new_from_unix_local(tmp);
808 event->start = g_date_time_format(dt, "%a, %e %b %Y %H:%M:%S %z");
809 g_date_time_unref(dt);
813 event->start = g_strdup(ctime_r(&tmp, buft));
816 event->dtstart = g_strdup(dtstart?dtstart:"");
817 event->dtend = g_strdup(dtend?dtend:"");
818 event->recur = g_strdup(recur?recur:"");
819 event->location = g_strdup(location?location:"");
820 event->summary = g_strdup(summary?summary:"");
821 event->description = g_strdup(description?description:"");
822 event->url = g_strdup(url?url:"");
823 event->tzid = g_strdup(tzid?tzid:"");
824 event->method = method;
825 event->sequence = sequence;
827 event->rec_occurrence = FALSE;
828 while (strchr(event->summary, '\n'))
829 *(strchr(event->summary, '\n')) = ' ';
834 void vcal_manager_free_event (VCalEvent *event)
841 g_free(event->organizer);
842 g_free(event->orgname);
843 g_free(event->start);
845 g_free(event->location);
846 g_free(event->summary);
847 g_free(event->dtstart);
848 g_free(event->dtend);
849 g_free(event->recur);
851 g_free(event->description);
853 for (cur = event->answers; cur; cur = cur->next) {
854 answer_free((Answer *)cur->data);
856 g_slist_free(event->answers);
860 gchar *vcal_manager_get_event_path(void)
862 static gchar *event_path = NULL;
864 event_path = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S,
870 gchar *vcal_manager_get_event_file(const gchar *uid)
872 gchar *tmp = g_strdup(uid);
875 subst_for_filename(tmp);
876 res = g_strconcat(vcal_manager_get_event_path(), G_DIR_SEPARATOR_S,
882 PrefsAccount *vcal_manager_get_account_from_event(VCalEvent *event)
884 GSList *list = vcal_manager_get_answers_emails(event);
887 /* find an attendee corresponding to one of our accounts */
888 while (cur && cur->data) {
889 gchar *email = (gchar *)cur->data;
890 if (account_find_from_address(email, FALSE)) {
892 return account_find_from_address(email, FALSE);
900 void vcal_manager_save_event (VCalEvent *event, gboolean export_after)
903 XMLNode *xmlnode = NULL;
904 GNode *rootnode = NULL;
907 GSList *answers = event->answers;
909 gint tmp_method = event->method;
911 tag = xml_tag_new("event");
912 xml_tag_add_attr(tag, xml_attr_new("organizer", event->organizer));
913 xml_tag_add_attr(tag, xml_attr_new("orgname", event->orgname));
914 xml_tag_add_attr(tag, xml_attr_new("location", event->location));
915 xml_tag_add_attr(tag, xml_attr_new("summary", event->summary));
916 xml_tag_add_attr(tag, xml_attr_new("description", event->description));
917 xml_tag_add_attr(tag, xml_attr_new("url", event->url));
918 xml_tag_add_attr(tag, xml_attr_new("dtstart", event->dtstart));
919 xml_tag_add_attr(tag, xml_attr_new("dtend", event->dtend));
920 xml_tag_add_attr(tag, xml_attr_new("recur", event->recur));
921 xml_tag_add_attr(tag, xml_attr_new("tzid", event->tzid));
923 /* updating answers saves events, don't save them with reply type */
924 if (tmp_method == ICAL_METHOD_REPLY)
925 tmp_method = ICAL_METHOD_REQUEST;
927 tmp = g_strdup_printf("%d", tmp_method);
928 xml_tag_add_attr(tag, xml_attr_new("method", tmp));
931 tmp = g_strdup_printf("%d", event->sequence);
932 xml_tag_add_attr(tag, xml_attr_new("sequence", tmp));
935 tmp = g_strdup_printf("%d", event->type);
936 xml_tag_add_attr(tag, xml_attr_new("type", tmp));
939 tmp = g_strdup_printf("%lld", (long long)event->postponed);
940 xml_tag_add_attr(tag, xml_attr_new("postponed", tmp));
943 tmp = g_strdup_printf("%d", event->rec_occurrence);
944 xml_tag_add_attr(tag, xml_attr_new("rec_occurrence", tmp));
947 xmlnode = xml_node_new(tag, NULL);
948 rootnode = g_node_new(xmlnode);
950 while (answers && answers->data) {
951 XMLNode *ansxmlnode = NULL;
952 GNode *ansnode = NULL;
953 XMLTag *anstag = xml_tag_new("answer");
954 Answer *a = (Answer *)answers->data;
955 xml_tag_add_attr(anstag, xml_attr_new("attendee", a->attendee));
956 xml_tag_add_attr(anstag, xml_attr_new("name", a->name?a->name:""));
957 tmp = g_strdup_printf("%d", a->answer);
958 xml_tag_add_attr(anstag, xml_attr_new("answer", tmp));
960 tmp = g_strdup_printf("%d", a->cutype);
961 xml_tag_add_attr(anstag, xml_attr_new("cutype", tmp));
963 ansxmlnode = xml_node_new(anstag, NULL);
964 ansnode = g_node_new(ansxmlnode);
965 g_node_append(rootnode, ansnode);
966 answers = answers->next;
969 path = vcal_manager_get_event_file(event->uid);
971 if ((pfile = prefs_write_open(path)) == NULL) {
972 gchar *dir_path = vcal_manager_get_event_path();
973 if (!is_dir_exist(dir_path) && make_dir(vcal_manager_get_event_path()) != 0) {
979 if ((pfile = prefs_write_open(path)) == NULL) {
986 xml_file_put_xml_decl(pfile->fp);
987 xml_write_tree(rootnode, pfile->fp);
988 xml_free_tree(rootnode);
990 if (prefs_file_close(pfile) < 0) {
991 g_warning("failed to write event.");
996 vcal_folder_export(NULL);
999 static VCalEvent *event_get_from_xml (const gchar *uid, GNode *node)
1003 gchar *org = NULL, *location = NULL, *summary = NULL, *orgname = NULL;
1004 gchar *dtstart = NULL, *dtend = NULL, *tzid = NULL;
1005 gchar *description = NULL, *url = NULL, *recur = NULL;
1006 VCalEvent *event = NULL;
1007 icalproperty_method method = ICAL_METHOD_REQUEST;
1008 icalcomponent_kind type = ICAL_VEVENT_COMPONENT;
1009 gint sequence = 0, rec_occurrence = 0;
1010 time_t postponed = (time_t)0;
1012 g_return_val_if_fail(node->data != NULL, NULL);
1014 xmlnode = node->data;
1015 if (strcmp2(xmlnode->tag->tag, "event") != 0) {
1016 g_warning("tag name != \"event\"");
1020 list = xmlnode->tag->attr;
1021 for (; list != NULL; list = list->next) {
1022 XMLAttr *attr = list->data;
1024 if (!attr || !attr->name || !attr->value) continue;
1025 if (!strcmp(attr->name, "organizer"))
1026 org = g_strdup(attr->value);
1027 if (!strcmp(attr->name, "orgname"))
1028 orgname = g_strdup(attr->value);
1029 if (!strcmp(attr->name, "location"))
1030 location = g_strdup(attr->value);
1031 if (!strcmp(attr->name, "summary"))
1032 summary = g_strdup(attr->value);
1033 if (!strcmp(attr->name, "description"))
1034 description = g_strdup(attr->value);
1035 if (!strcmp(attr->name, "url"))
1036 url = g_strdup(attr->value);
1037 if (!strcmp(attr->name, "dtstart"))
1038 dtstart = g_strdup(attr->value);
1039 if (!strcmp(attr->name, "dtend"))
1040 dtend = g_strdup(attr->value);
1041 if (!strcmp(attr->name, "recur"))
1042 recur = g_strdup(attr->value);
1043 if (!strcmp(attr->name, "tzid"))
1044 tzid = g_strdup(attr->value);
1045 if (!strcmp(attr->name, "type"))
1046 type = atoi(attr->value);
1047 if (!strcmp(attr->name, "method"))
1048 method = atoi(attr->value);
1049 if (!strcmp(attr->name, "sequence"))
1050 sequence = atoi(attr->value);
1051 if (!strcmp(attr->name, "postponed"))
1052 postponed = atoi(attr->value);
1053 if (!strcmp(attr->name, "rec_occurrence"))
1054 rec_occurrence = atoi(attr->value);
1057 event = vcal_manager_new_event(uid, org, orgname, location, summary, description,
1058 dtstart, dtend, recur, tzid, url, method,
1061 event->postponed = postponed;
1062 event->rec_occurrence = rec_occurrence;
1068 g_free(description);
1075 node = node->children;
1076 while (node != NULL) {
1077 gchar *attendee = NULL;
1079 icalparameter_partstat answer = ICAL_PARTSTAT_NEEDSACTION;
1080 icalparameter_cutype cutype = ICAL_CUTYPE_INDIVIDUAL;
1082 xmlnode = node->data;
1083 if (strcmp2(xmlnode->tag->tag, "answer") != 0) {
1084 g_warning("tag name != \"answer\"");
1087 list = xmlnode->tag->attr;
1088 for (; list != NULL; list = list->next) {
1089 XMLAttr *attr = list->data;
1091 if (!attr || !attr->name || !attr->value) continue;
1092 if (!strcmp(attr->name, "attendee"))
1093 attendee = g_strdup(attr->value);
1094 if (!strcmp(attr->name, "name"))
1095 name = g_strdup(attr->value);
1096 if (!strcmp(attr->name, "answer"))
1097 answer = atoi(attr->value);
1098 if (!strcmp(attr->name, "cutype"))
1099 cutype = atoi(attr->value);
1102 event->answers = g_slist_prepend(event->answers, answer_new(attendee, name, answer, cutype));
1107 event->answers = g_slist_reverse(event->answers);
1112 VCalEvent *vcal_manager_load_event (const gchar *uid)
1116 VCalEvent *event = NULL;
1118 path = vcal_manager_get_event_file(uid);
1120 if (!is_file_exist(path)) {
1125 node = xml_parse_file(path);
1130 g_warning("no node");
1134 event = event_get_from_xml(uid, node);
1135 /* vcal_manager_event_print(event); */
1136 xml_free_tree(node);
1141 while (strchr(event->summary, '\n'))
1142 *(strchr(event->summary, '\n')) = ' ';
1148 void vcal_manager_update_answer (VCalEvent *event,
1149 const gchar *attendee,
1151 icalparameter_partstat ans,
1152 icalparameter_cutype cutype)
1154 Answer *answer = NULL;
1155 GSList *existing = NULL;
1156 Answer *existing_a = NULL;
1161 answer = answer_new(attendee, name, ans, cutype);
1162 existing = answer_find(event, answer);
1165 existing_a = (Answer *)existing->data;
1167 if (!answer->name && existing_a->name)
1168 answer->name = g_strdup(existing_a->name);
1169 if (!answer->cutype && existing_a->cutype)
1170 answer->cutype = existing_a->cutype;
1172 answer_remove(event, answer);
1175 answer_add(event, answer);
1177 vcal_manager_save_event(event, FALSE);
1180 static gchar *write_headers(PrefsAccount *account,
1182 gboolean short_headers,
1184 gboolean is_pseudo_display)
1186 gchar *subject = NULL;
1187 gchar date[RFC822_DATE_BUFFSIZE];
1188 gchar *save_folder = NULL;
1189 gchar *result = NULL;
1190 gchar *queue_headers = NULL;
1191 gchar *method_str = NULL;
1192 gchar *attendees = NULL;
1193 icalparameter_partstat status;
1194 gchar *prefix = NULL;
1195 gchar enc_subject[512], enc_from[512], *from = NULL;
1197 gchar *calmsgid = NULL;
1199 cm_return_val_if_fail(account != NULL, NULL);
1201 memset(date, 0, sizeof(date));
1203 if (is_pseudo_display) {
1204 struct icaltimetype itt = (icaltime_from_string(event->dtstart));
1205 time_t t = icaltime_as_timet(itt);
1206 get_rfc822_date_from_time_t(date, sizeof(date), t);
1208 get_rfc822_date(date, sizeof(date));
1211 if (account_get_special_folder(account, F_OUTBOX)) {
1212 save_folder = folder_item_get_identifier(account_get_special_folder
1213 (account, F_OUTBOX));
1217 GSList *cur = event->answers;
1218 while (cur && cur->data) {
1220 Answer *a = (Answer *)cur->data;
1222 if (strcasecmp(a->attendee, event->organizer)) {
1224 tmp = g_strdup_printf("%s>,\n <%s", attendees, a->attendee);
1228 attendees = g_strdup_printf("%s", a->attendee);
1235 if (!short_headers) {
1236 queue_headers = g_strdup_printf("S:%s\n"
1241 "X-Claws-End-Special-Headers: 1\n",
1243 account->smtp_server,
1244 is_reply ? event->organizer:attendees,
1245 account->account_id,
1246 save_folder?"SCF:":"",
1247 save_folder?save_folder:"",
1248 save_folder?"\n":"");
1250 queue_headers = g_strdup("");
1255 method_str = "REPLY";
1256 status = vcal_manager_get_reply_for_attendee(event, account->address);
1257 if (status == ICAL_PARTSTAT_ACCEPTED)
1258 prefix = _("Accepted: ");
1259 else if (status == ICAL_PARTSTAT_DECLINED)
1260 prefix = _("Declined: ");
1261 else if (status == ICAL_PARTSTAT_TENTATIVE)
1262 prefix = _("Tentatively Accepted: ");
1265 } else if (event->method == ICAL_METHOD_PUBLISH) {
1266 method_str = "PUBLISH";
1267 } else if (event->method == ICAL_METHOD_CANCEL) {
1268 method_str = "CANCEL";
1270 method_str = "REQUEST";
1273 subject = g_strdup_printf("%s%s", prefix, event->summary);
1275 conv_encode_header_full(enc_subject, sizeof(enc_subject), subject, strlen("Subject: "),
1276 FALSE, conv_get_outgoing_charset_str());
1277 from = is_reply?account->name:(event->orgname?event->orgname:"");
1278 conv_encode_header_full(enc_from, sizeof(enc_from), from, strlen("From: "),
1279 TRUE, conv_get_outgoing_charset_str());
1281 if (is_pseudo_display && event->uid) {
1282 calmsgid = g_strdup_printf("Message-ID: <%s>\n",event->uid);
1284 calmsgid = g_strdup("");
1287 msgid = prefs_account_generate_msgid(account);
1289 result = g_strdup_printf("%s"
1294 "MIME-Version: 1.0\n"
1295 "Content-Type: text/calendar; method=%s; charset=\"%s\"\n"
1296 "Content-Transfer-Encoding: 8bit\n"
1301 is_reply ? account->address:event->organizer,
1302 is_reply ? event->organizer:(attendees?attendees:event->organizer),
1309 "In-Reply-To":"Message-ID",
1311 event_to_today_str(event, 0):msgid);
1314 g_free(save_folder);
1315 g_free(queue_headers);
1323 static gchar *write_headers_ical(PrefsAccount *account,
1324 icalcomponent *ievent,
1328 gchar date[RFC822_DATE_BUFFSIZE];
1329 gchar *result = NULL;
1330 gchar *method_str = NULL;
1331 gchar *summary = NULL;
1332 gchar *organizer = NULL;
1333 gchar *orgname = NULL;
1334 icalproperty *prop = NULL;
1335 gchar *calmsgid = NULL;
1337 time_t t = (time_t)0;
1339 memset(subject, 0, sizeof(subject));
1340 memset(date, 0, sizeof(date));
1342 prop = icalcomponent_get_first_property(ievent, ICAL_SUMMARY_PROPERTY);
1344 summary = g_strdup(icalproperty_get_summary(prop));
1345 icalproperty_free(prop);
1347 summary = g_strdup("");
1350 while (strchr(summary, '\n'))
1351 *(strchr(summary, '\n')) = ' ';
1353 prop = icalcomponent_get_first_property(ievent, ICAL_ORGANIZER_PROPERTY);
1355 organizer = g_strdup(icalproperty_get_organizer(prop));
1356 if (icalproperty_get_parameter_as_string(prop, "CN") != NULL)
1357 orgname = g_strdup(icalproperty_get_parameter_as_string(prop, "CN"));
1359 icalproperty_free(prop);
1361 organizer = orga? g_strdup(orga):g_strdup("");
1364 prop = icalcomponent_get_first_property(ievent, ICAL_DTSTART_PROPERTY);
1366 t = icaltime_as_timet(icalproperty_get_dtstart(prop));
1367 get_rfc822_date_from_time_t(date, sizeof(date), t);
1369 get_rfc822_date(date, sizeof(date));
1372 conv_encode_header(subject, 511, summary, strlen("Subject: "), FALSE);
1374 method_str = "PUBLISH";
1376 prop = icalcomponent_get_first_property(ievent, ICAL_UID_PROPERTY);
1378 calmsgid = g_strdup_printf("Message-ID: <%s>\n",icalproperty_get_uid(prop));
1379 icalproperty_free(prop);
1381 calmsgid = g_strdup("");
1385 result = g_strdup_printf("From: %s <%s>\n"
1389 "MIME-Version: 1.0\n"
1390 "Content-Type: text/calendar; method=%s; charset=\"%s\"; vcalsave=\"no\"\n"
1391 "Content-Transfer-Encoding: quoted-printable\n"
1393 "In-Reply-To: <%s>\n",
1395 !strncmp(organizer, "MAILTO:", 7) ? organizer+7 : organizer,
1401 conv_get_outgoing_charset_str(),
1403 event_to_today_str(NULL, t));
1415 static gboolean vcal_manager_send (PrefsAccount *account,
1419 gchar *tmpfile = NULL;
1421 FolderItem *folderitem;
1422 gchar *msgpath = NULL;
1423 Folder *folder = NULL;
1425 tmpfile = vcal_manager_event_dump(event, is_reply, FALSE, NULL, TRUE);
1430 folderitem = account_get_special_folder(account, F_QUEUE);
1432 g_warning("can't find queue folder for %s", account->address);
1437 folder_item_scan(folderitem);
1439 if ((msgnum = folder_item_add_msg(folderitem, tmpfile, NULL, TRUE)) < 0) {
1440 g_warning("can't queue the message");
1446 msgpath = folder_item_fetch_msg(folderitem, msgnum);
1448 if (!prefs_common_get_prefs()->work_offline) {
1450 gboolean queued_removed = FALSE;
1451 gint val = procmsg_send_message_queue_with_lock(msgpath, &err, folderitem, msgnum, &queued_removed);
1453 if (!queued_removed)
1454 folder_item_remove_msg(folderitem, msgnum);
1455 folder_item_scan(folderitem);
1457 alertpanel_error_log("%s", err);
1465 folder = folder_find_from_name ("vCalendar", vcal_folder_get_class());
1467 folder_item_scan(folder->inbox);
1469 vcalviewer_reload(folder->inbox);
1473 gboolean vcal_manager_reply (PrefsAccount *account,
1476 return vcal_manager_send(account, event, TRUE);
1479 gboolean vcal_manager_request (PrefsAccount *account,
1482 return vcal_manager_send(account, event, FALSE);
1485 EventTime event_to_today(VCalEvent *event, time_t t)
1487 struct tm evtstart, today;
1488 time_t evtstart_t, today_t;
1489 struct icaltimetype itt;
1493 today_t = time(NULL);
1495 itt = icaltime_from_string(event->dtstart);
1496 evtstart_t = icaltime_as_timet(itt);
1503 today = *localtime_r(&today_t, &buft);
1504 localtime_r(&evtstart_t, &evtstart);
1510 today = *localtime(&today_t);
1511 evtstart = *localtime(&evtstart_t);
1514 if (today.tm_year == evtstart.tm_year) {
1515 int days = evtstart.tm_yday - today.tm_yday;
1518 } else if (days == 0) {
1520 } else if (days == 1) {
1521 return EVENT_TOMORROW;
1522 } else if (days > 1 && days < 7) {
1523 return EVENT_THISWEEK;
1527 } else if (today.tm_year > evtstart.tm_year) {
1529 } else if (today.tm_year == evtstart.tm_year - 1) {
1530 int days = ((365 - today.tm_yday) + evtstart.tm_yday);
1533 } else if (days == 1) {
1534 return EVENT_TOMORROW;
1535 } else if (days > 1 && days < 7) {
1536 return EVENT_THISWEEK;
1544 const gchar *event_to_today_str(VCalEvent *event, time_t t)
1546 EventTime days = event_to_today(event, t);
1549 return EVENT_PAST_ID;
1551 return EVENT_TODAY_ID;
1552 case EVENT_TOMORROW:
1553 return EVENT_TOMORROW_ID;
1554 case EVENT_THISWEEK:
1555 return EVENT_THISWEEK_ID;
1557 return EVENT_LATER_ID;