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>
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"
58 Answer *answer_new(const gchar *attendee,
60 enum icalparameter_partstat ans,
61 enum icalparameter_cutype cutype)
63 Answer *answer = g_new0(Answer, 1);
64 answer->attendee = g_strdup(attendee);
65 answer->name = g_strdup(name);
67 answer->name = g_strdup("");
68 if (!answer->attendee)
69 answer->attendee = g_strdup("");
71 answer->cutype = cutype;
75 static void answer_free(Answer *answer)
77 g_free(answer->attendee);
82 static GSList *answer_find(VCalEvent *event, Answer *answer)
84 GSList *cur = event->answers;
85 while (cur && cur->data) {
86 Answer *b = (Answer *)cur->data;
87 if (!strcasecmp(b->attendee, answer->attendee))
94 void vcal_manager_copy_attendees(VCalEvent *src, VCalEvent *dest)
96 GSList *cur = src->answers;
97 while (cur && cur->data) {
98 Answer *a = (Answer *)cur->data;
99 Answer *b = answer_new(a->attendee, a->name, a->answer, a->cutype);
100 dest->answers = g_slist_prepend(dest->answers, b);
103 dest->answers = g_slist_reverse(dest->answers);
106 gchar *vcal_manager_answer_get_text(enum icalparameter_partstat ans)
108 static gchar *replies[5]={
110 N_("tentatively accepted"),
112 N_("did not answer"),
117 case ICAL_PARTSTAT_ACCEPTED:
118 return _(replies[0]);
120 case ICAL_PARTSTAT_DECLINED:
121 return _(replies[2]);
123 case ICAL_PARTSTAT_TENTATIVE:
124 return _(replies[1]);
126 case ICAL_PARTSTAT_NEEDSACTION:
127 return _(replies[3]);
128 case ICAL_PARTSTAT_DELEGATED:
129 case ICAL_PARTSTAT_COMPLETED:
130 case ICAL_PARTSTAT_X:
131 case ICAL_PARTSTAT_INPROCESS:
132 case ICAL_PARTSTAT_NONE:
133 return _(replies[4]);
139 gchar *vcal_manager_cutype_get_text(enum icalparameter_cutype type)
141 static gchar *replies[5]={
150 case ICAL_CUTYPE_INDIVIDUAL:
151 return _(replies[0]);
153 case ICAL_CUTYPE_GROUP:
154 return _(replies[1]);
156 case ICAL_CUTYPE_RESOURCE:
157 return _(replies[2]);
159 case ICAL_CUTYPE_ROOM:
160 return _(replies[3]);
162 return _(replies[4]);
168 static GSList *answer_remove(VCalEvent *event, Answer *answer)
170 GSList *cur = answer_find(event, answer);
172 Answer *b = (Answer *)cur->data;
173 event->answers = g_slist_remove(event->answers, b);
176 return event->answers;
179 static GSList *answer_add(VCalEvent *event, Answer *answer)
181 event->answers = g_slist_append(event->answers, answer);
182 return event->answers;
185 GSList *vcal_manager_get_answers_emails(VCalEvent *event)
188 GSList *cur = event->answers;
189 while (cur && cur->data) {
190 Answer *b = (Answer *)cur->data;
191 new = g_slist_prepend(new, b->attendee);
194 new = g_slist_reverse(new);
198 enum icalparameter_partstat vcal_manager_get_reply_for_attendee(VCalEvent *event, const gchar *att)
200 Answer *a = answer_new(att, NULL, 0, 0);
201 GSList *ans = answer_find(event, a);
202 enum icalparameter_partstat res = 0;
204 Answer *b = (Answer *)ans->data;
211 gchar *vcal_manager_get_cutype_text_for_attendee(VCalEvent *event, const gchar *att)
213 enum icalparameter_cutype status = vcal_manager_get_cutype_for_attendee(event, att);
216 res = g_strdup(vcal_manager_cutype_get_text(status));
221 enum icalparameter_partstat vcal_manager_get_cutype_for_attendee(VCalEvent *event, const gchar *att)
223 Answer *a = answer_new(att, NULL, 0, 0);
224 GSList *ans = answer_find(event, a);
225 enum icalparameter_cutype res = 0;
227 Answer *b = (Answer *)ans->data;
234 gchar *vcal_manager_get_reply_text_for_attendee(VCalEvent *event, const gchar *att)
236 enum icalparameter_partstat status = vcal_manager_get_reply_for_attendee(event, att);
239 res = g_strdup(vcal_manager_answer_get_text(status));
244 gchar *vcal_manager_get_attendee_name(VCalEvent *event, const gchar *att)
246 Answer *a = answer_new(att, NULL, 0, 0);
247 GSList *ans = answer_find(event, a);
250 Answer *b = (Answer *)ans->data;
252 res = g_strdup(b->name);
258 void vcal_manager_event_print(VCalEvent *event)
260 GSList *list = event->answers;
261 printf( "event->uid\t\t%s\n"
262 "event->organizer\t\t%s\n"
263 "event->start\t\t%s\n"
265 "event->location\t\t%s\n"
266 "event->summary\t\t%s\n"
267 "event->description\t%s\n"
269 "event->dtstart\t\t%s\n"
270 "event->dtend\t\t%s\n"
271 "event->recur\t\t%s\n"
272 "event->tzid\t\t%s\n"
273 "event->method\t\t%d\n"
274 "event->sequence\t\t%d\n",
289 while (list && list->data) {
290 Answer *a = (Answer *)list->data;
291 printf(" ans: %s %s, %s\n", a->name, a->attendee, vcal_manager_answer_get_text(a->answer));
297 static gchar *write_headers(PrefsAccount *account,
299 gboolean short_headers,
301 gboolean is_pseudo_event);
303 gchar *vcal_manager_event_dump(VCalEvent *event, gboolean is_reply, gboolean is_pseudo_event,
304 icalcomponent *use_calendar, gboolean modif)
306 gchar *organizer = g_strdup_printf("MAILTO:%s", event->organizer);
307 PrefsAccount *account = vcal_manager_get_account_from_event(event);
308 gchar *attendee = NULL;
309 gchar *body, *headers;
310 gchar *tmpfile = NULL;
311 icalcomponent *calendar, *ievent, *timezone, *tzc;
312 icalproperty *attprop;
313 icalproperty *orgprop;
314 enum icalparameter_partstat status = ICAL_PARTSTAT_NEEDSACTION;
315 gchar *sanitized_uid = g_strdup(event->uid);
317 subst_for_filename(sanitized_uid);
319 tmpfile = g_strdup_printf("%s%cevt-%d-%s", get_tmp_dir(),
320 G_DIR_SEPARATOR, getuid(), sanitized_uid);
321 g_free(sanitized_uid);
326 debug_print("no account found\n");
330 attendee = g_strdup_printf("MAILTO:%s", account->address);
332 if (vcal_manager_get_reply_for_attendee(event, account->address) != 0)
333 status = vcal_manager_get_reply_for_attendee(event, account->address);
337 if (use_calendar != NULL) {
338 calendar = use_calendar;
344 ICAL_VCALENDAR_COMPONENT,
345 icalproperty_new_version("2.0"),
346 icalproperty_new_prodid(
347 "-//Claws Mail//NONSGML Claws Mail Calendar//EN"),
348 icalproperty_new_calscale("GREGORIAN"),
349 icalproperty_new_method(is_reply ? ICAL_METHOD_REPLY:event->method),
354 g_warning ("can't generate calendar");
361 orgprop = icalproperty_new_organizer(organizer);
363 timezone = icalcomponent_new(ICAL_VTIMEZONE_COMPONENT);
365 icalcomponent_add_property(timezone,
366 icalproperty_new_tzid("UTC")); /* free */
368 tzc = icalcomponent_new(ICAL_XSTANDARD_COMPONENT);
369 icalcomponent_add_property(tzc,
370 icalproperty_new_dtstart(
371 icaltime_from_string("19700101T000000")));
372 icalcomponent_add_property(tzc,
373 icalproperty_new_tzoffsetfrom(0.0));
374 icalcomponent_add_property(tzc,
375 icalproperty_new_tzoffsetto(0.0));
376 icalcomponent_add_property(tzc,
377 icalproperty_new_tzname("Greenwich meridian time"));
379 icalcomponent_add_component(timezone, tzc);
383 ICAL_VEVENT_COMPONENT, 0);
386 g_warning ("can't generate event");
393 icalcomponent_add_property(ievent,
394 icalproperty_new_uid(event->uid));
395 icalcomponent_add_property(ievent,
396 icalproperty_vanew_dtstamp(icaltime_from_timet(time(NULL), TRUE), 0));
397 icalcomponent_add_property(ievent,
398 icalproperty_vanew_dtstart((icaltime_from_string(event->dtstart)), 0));
399 icalcomponent_add_property(ievent,
400 icalproperty_vanew_dtend((icaltime_from_string(event->dtend)), 0));
401 if (event->recur && *(event->recur)) {
402 icalcomponent_add_property(ievent,
403 icalproperty_vanew_rrule((icalrecurrencetype_from_string(event->recur)), 0));
405 icalcomponent_add_property(ievent,
406 icalproperty_new_description(event->description));
407 icalcomponent_add_property(ievent,
408 icalproperty_new_summary(event->summary));
409 icalcomponent_add_property(ievent,
410 icalproperty_new_sequence(modif && !is_reply ? event->sequence + 1 : event->sequence));
411 icalcomponent_add_property(ievent,
412 icalproperty_new_class("PUBLIC"));
413 icalcomponent_add_property(ievent,
414 icalproperty_new_transp("OPAQUE"));
415 if (event->location && *event->location)
416 icalcomponent_add_property(ievent,
417 icalproperty_new_location(event->location));
419 icalcomponent_add_property(ievent,
420 icalproperty_new_location(""));
421 icalcomponent_add_property(ievent,
422 icalproperty_new_status(ICAL_STATUS_CONFIRMED));
423 icalcomponent_add_property(ievent,
424 icalproperty_vanew_created(icaltime_from_timet(time(NULL), TRUE), 0));
425 icalcomponent_add_property(ievent,
426 icalproperty_vanew_lastmodified(icaltime_from_timet(time(NULL), TRUE), 0));
427 icalcomponent_add_property(ievent,
430 if (!icalcomponent_get_first_component(calendar, ICAL_VTIMEZONE_COMPONENT))
431 icalcomponent_add_component(calendar, timezone);
433 icalcomponent_free(timezone);
435 icalcomponent_add_component(calendar, ievent);
437 if (event->url && *(event->url)) {
438 attprop = icalproperty_new_url(event->url);
439 icalcomponent_add_property(ievent, attprop);
443 /* dump only this attendee */
445 icalproperty_vanew_attendee(
447 icalparameter_new_role(
448 ICAL_ROLE_REQPARTICIPANT),
449 icalparameter_new_rsvp(ICAL_RSVP_TRUE),
450 icalparameter_new_partstat(status),
453 icalcomponent_add_property(ievent, attprop);
455 /* dump all attendees */
456 GSList *cur = event->answers;
457 while (cur && cur->data) {
458 Answer *a = (Answer *)cur->data;
461 a->cutype = ICAL_CUTYPE_INDIVIDUAL;
463 a->answer = ICAL_PARTSTAT_NEEDSACTION;
466 icalproperty_vanew_attendee(
468 icalparameter_new_role(
469 ICAL_ROLE_REQPARTICIPANT),
470 icalparameter_new_rsvp(ICAL_RSVP_TRUE),
471 icalparameter_new_cutype(a->cutype),
472 icalparameter_new_partstat(a->answer),
476 icalcomponent_add_property(ievent, attprop);
488 headers = write_headers(account, event, is_pseudo_event, is_reply, is_pseudo_event);
491 g_warning("can't get headers");
498 body = g_strdup_printf("%s"
500 "%s", headers, icalcomponent_as_ical_string(calendar));
502 if (str_write_to_file(body, tmpfile) < 0) {
507 chmod(tmpfile, S_IRUSR|S_IWUSR);
511 icalcomponent_free(calendar);
520 static void get_rfc822_date_from_time_t(gchar *buf, gint len, time_t t)
523 gchar day[4], mon[4];
524 gint dd, hh, mm, ss, yyyy;
529 lt = localtime_r(&t, &buft2);
536 sscanf(asctime_r(lt, buft1), "%3s %3s %d %d:%d:%d %d\n",
537 day, mon, &dd, &hh, &mm, &ss, &yyyy);
538 g_snprintf(buf, len, "%s, %d %s %d %02d:%02d:%02d %s",
539 day, dd, mon, yyyy, hh, mm, ss, tzoffset(&t));
542 static gchar *write_headers_date(const gchar *uid)
551 memset(subject, 0, sizeof(subject));
552 memset(date, 0, sizeof(date));
554 if (!strcmp(uid, EVENT_PAST_ID)) {
556 t_subject = _("Past");
557 } else if (!strcmp(uid, EVENT_TODAY_ID)) {
559 t_subject = _("Today");
560 } else if (!strcmp(uid, EVENT_TOMORROW_ID)) {
561 t = time(NULL) + 86400;
562 t_subject = _("Tomorrow");
563 } else if (!strcmp(uid, EVENT_THISWEEK_ID)) {
564 t = time(NULL) + (86400*2);
565 t_subject = _("This week");
566 } else if (!strcmp(uid, EVENT_LATER_ID)) {
567 t = time(NULL) + (86400*7);
568 t_subject = _("Later");
570 g_warning("unknown spec date\n");
575 lt = *localtime_r(&t, &buft);
581 lt.tm_hour = lt.tm_min = lt.tm_sec = 0;
583 get_rfc822_date_from_time_t(date, sizeof(date), t);
584 conv_encode_header(subject, 511, t_subject, strlen("Subject: "), FALSE);
586 return g_strdup_printf("From: -\n"
590 "MIME-Version: 1.0\n"
591 "Content-Type: text/plain; charset=\"UTF-8\";\n"
592 "Content-Transfer-Encoding: quoted-printable\n"
593 "Message-ID: <%s>\n",
599 gchar *vcal_manager_dateevent_dump(const gchar *uid, FolderItem *item)
601 gchar *sanitized_uid = NULL;
602 gchar *headers = NULL;
603 gchar *lines, *body, *tmpfile;
605 sanitized_uid = g_strdup(uid);
606 subst_for_filename(sanitized_uid);
608 tmpfile = g_strdup_printf("%s%cevt-%d-%s", get_tmp_dir(),
609 G_DIR_SEPARATOR, getuid(), sanitized_uid);
610 g_free(sanitized_uid);
612 headers = write_headers_date(uid);
615 g_warning("can't get headers");
620 if (!strcmp(uid, EVENT_PAST_ID))
622 else if (!strcmp(uid, EVENT_TODAY_ID))
624 else if (!strcmp(uid, EVENT_TOMORROW_ID))
625 date = EVENT_TOMORROW;
626 else if (!strcmp(uid, EVENT_THISWEEK_ID))
627 date = EVENT_THISWEEK;
628 else if (!strcmp(uid, EVENT_LATER_ID))
633 lines = get_item_event_list_for_date(item, date);
634 body = g_strdup_printf("%s"
636 "%s", headers, lines);
638 if (str_write_to_file(body, tmpfile) < 0) {
642 chmod(tmpfile, S_IRUSR|S_IWUSR);
650 static gchar *write_headers_ical(PrefsAccount *account,
651 icalcomponent *ievent,
654 gchar *vcal_manager_icalevent_dump(icalcomponent *event, gchar *orga, icalcomponent *use_calendar)
656 PrefsAccount *account = account_get_cur_account();
657 gchar *body, *headers, *qpbody;
658 gchar **lines = NULL;
659 gchar *tmpfile = NULL;
660 icalcomponent *calendar;
662 icalcomponent *ievent = NULL;
665 ievent = icalcomponent_new_clone(event);
667 prop = icalcomponent_get_first_property(ievent, ICAL_UID_PROPERTY);
669 gchar *sanitized_uid = g_strdup(icalproperty_get_uid(prop));
671 subst_for_filename(sanitized_uid);
673 tmpfile = g_strdup_printf("%s%cevt-%d-%s", get_tmp_dir(),
674 G_DIR_SEPARATOR, getuid(), sanitized_uid);
675 g_free(sanitized_uid);
676 icalproperty_free(prop);
678 tmpfile = g_strdup_printf("%s%cevt-%d-%p", get_tmp_dir(),
679 G_DIR_SEPARATOR, getuid(), ievent);
684 icalcomponent_free(ievent);
690 if (use_calendar != NULL) {
691 calendar = use_calendar;
697 ICAL_VCALENDAR_COMPONENT,
698 icalproperty_new_version("2.0"),
699 icalproperty_new_prodid(
700 "-//Claws Mail//NONSGML Claws Mail Calendar//EN"),
701 icalproperty_new_calscale("GREGORIAN"),
702 icalproperty_new_method(ICAL_METHOD_PUBLISH),
707 g_warning ("can't generate calendar");
709 icalcomponent_free(ievent);
713 icalcomponent_add_component(calendar, ievent);
718 headers = write_headers_ical(account, ievent, orga);
721 g_warning("can't get headers");
723 icalcomponent_free(calendar);
727 lines = g_strsplit(icalcomponent_as_ical_string(calendar), "\n", 0);
728 qpbody = g_strdup("");
730 /* encode to quoted-printable */
733 gint e_len = strlen(qpbody), n_len = 0;
734 gchar *outline = conv_codeset_strdup(lines[i], CS_UTF_8, conv_get_outgoing_charset_str());
736 qp_encode_line(buf, (guchar *)outline);
739 qpbody = g_realloc(qpbody, e_len + n_len + 1);
740 strcpy(qpbody+e_len, buf);
741 *(qpbody+n_len+e_len) = '\0';
747 body = g_strdup_printf("%s"
749 "%s", headers, qpbody);
751 if (str_write_to_file(body, tmpfile) < 0) {
755 chmod(tmpfile, S_IRUSR|S_IWUSR);
761 icalcomponent_free(calendar);
766 VCalEvent * vcal_manager_new_event (const gchar *uid,
767 const gchar *organizer,
768 const gchar *orgname,
769 const gchar *location,
770 const gchar *summary,
771 const gchar *description,
772 const gchar *dtstart,
777 enum icalproperty_method method,
779 enum icalcomponent_kind type)
781 VCalEvent *event = g_new0(VCalEvent, 1);
783 event->uid = g_strdup(uid?uid:"");
784 event->organizer = g_strdup(organizer?organizer:"");
785 event->orgname = g_strdup(orgname?orgname:"");
787 if (dtend && *(dtend)) {
788 time_t tmp = icaltime_as_timet((icaltime_from_string(dtend)));
791 event->end = g_strdup(ctime_r(&tmp, buft));
794 if (dtstart && *(dtstart)) {
795 time_t tmp = icaltime_as_timet((icaltime_from_string(dtstart)));
798 event->start = g_strdup(ctime_r(&tmp, buft));
800 event->dtstart = g_strdup(dtstart?dtstart:"");
801 event->dtend = g_strdup(dtend?dtend:"");
802 event->recur = g_strdup(recur?recur:"");
803 event->location = g_strdup(location?location:"");
804 event->summary = g_strdup(summary?summary:"");
805 event->description = g_strdup(description?description:"");
806 event->url = g_strdup(url?url:"");
807 event->tzid = g_strdup(tzid?tzid:"");
808 event->method = method;
809 event->sequence = sequence;
811 event->rec_occurence = FALSE;
812 while (strchr(event->summary, '\n'))
813 *(strchr(event->summary, '\n')) = ' ';
818 void vcal_manager_free_event (VCalEvent *event)
825 g_free(event->organizer);
826 g_free(event->orgname);
827 g_free(event->start);
829 g_free(event->location);
830 g_free(event->summary);
831 g_free(event->dtstart);
832 g_free(event->dtend);
833 g_free(event->recur);
835 g_free(event->description);
837 for (cur = event->answers; cur; cur = cur->next) {
838 answer_free((Answer *)cur->data);
840 g_slist_free(event->answers);
844 gchar *vcal_manager_get_event_path(void)
846 static gchar *event_path = NULL;
848 event_path = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S,
854 gchar *vcal_manager_get_event_file(const gchar *uid)
856 gchar *tmp = g_strdup(uid);
859 subst_for_filename(tmp);
860 res = g_strconcat(vcal_manager_get_event_path(), G_DIR_SEPARATOR_S,
866 PrefsAccount *vcal_manager_get_account_from_event(VCalEvent *event)
868 GSList *list = vcal_manager_get_answers_emails(event);
871 /* find an attendee corresponding to one of our accounts */
872 while (cur && cur->data) {
873 gchar *email = (gchar *)cur->data;
874 if (account_find_from_address(email, FALSE)) {
876 return account_find_from_address(email, FALSE);
884 void vcal_manager_save_event (VCalEvent *event, gboolean export_after)
887 XMLNode *xmlnode = NULL;
888 GNode *rootnode = NULL;
891 GSList *answers = event->answers;
893 gint tmp_method = event->method;
895 tag = xml_tag_new("event");
896 xml_tag_add_attr(tag, xml_attr_new("organizer", event->organizer));
897 xml_tag_add_attr(tag, xml_attr_new("orgname", event->orgname));
898 xml_tag_add_attr(tag, xml_attr_new("location", event->location));
899 xml_tag_add_attr(tag, xml_attr_new("summary", event->summary));
900 xml_tag_add_attr(tag, xml_attr_new("description", event->description));
901 xml_tag_add_attr(tag, xml_attr_new("url", event->url));
902 xml_tag_add_attr(tag, xml_attr_new("dtstart", event->dtstart));
903 xml_tag_add_attr(tag, xml_attr_new("dtend", event->dtend));
904 xml_tag_add_attr(tag, xml_attr_new("recur", event->recur));
905 xml_tag_add_attr(tag, xml_attr_new("tzid", event->tzid));
907 /* updating answers saves events, don't save them with reply type */
908 if (tmp_method == ICAL_METHOD_REPLY)
909 tmp_method = ICAL_METHOD_REQUEST;
911 tmp = g_strdup_printf("%d", tmp_method);
912 xml_tag_add_attr(tag, xml_attr_new("method", tmp));
915 tmp = g_strdup_printf("%d", event->sequence);
916 xml_tag_add_attr(tag, xml_attr_new("sequence", tmp));
919 tmp = g_strdup_printf("%d", event->type);
920 xml_tag_add_attr(tag, xml_attr_new("type", tmp));
923 tmp = g_strdup_printf("%lu", event->postponed);
924 xml_tag_add_attr(tag, xml_attr_new("postponed", tmp));
927 tmp = g_strdup_printf("%d", event->rec_occurence);
928 xml_tag_add_attr(tag, xml_attr_new("rec_occurence", tmp));
931 xmlnode = xml_node_new(tag, NULL);
932 rootnode = g_node_new(xmlnode);
934 while (answers && answers->data) {
935 XMLNode *ansxmlnode = NULL;
936 GNode *ansnode = NULL;
937 XMLTag *anstag = xml_tag_new("answer");
938 Answer *a = (Answer *)answers->data;
939 xml_tag_add_attr(anstag, xml_attr_new("attendee", a->attendee));
940 xml_tag_add_attr(anstag, xml_attr_new("name", a->name?a->name:""));
941 tmp = g_strdup_printf("%d", a->answer);
942 xml_tag_add_attr(anstag, xml_attr_new("answer", tmp));
944 tmp = g_strdup_printf("%d", a->cutype);
945 xml_tag_add_attr(anstag, xml_attr_new("cutype", tmp));
947 ansxmlnode = xml_node_new(anstag, NULL);
948 ansnode = g_node_new(ansxmlnode);
949 g_node_append(rootnode, ansnode);
950 answers = answers->next;
953 path = vcal_manager_get_event_file(event->uid);
955 if ((pfile = prefs_write_open(path)) == NULL) {
956 gchar *dir_path = vcal_manager_get_event_path();
957 if (!is_dir_exist(dir_path) && make_dir(vcal_manager_get_event_path()) != 0) {
963 if ((pfile = prefs_write_open(path)) == NULL) {
970 xml_file_put_xml_decl(pfile->fp);
971 xml_write_tree(rootnode, pfile->fp);
972 xml_free_tree(rootnode);
974 if (prefs_file_close(pfile) < 0) {
975 g_warning("failed to write event.\n");
980 vcal_folder_export(NULL);
983 static VCalEvent *event_get_from_xml (const gchar *uid, GNode *node)
987 gchar *org = NULL, *location = NULL, *summary = NULL, *orgname = NULL;
988 gchar *dtstart = NULL, *dtend = NULL, *tzid = NULL;
989 gchar *description = NULL, *url = NULL, *recur = NULL;
990 VCalEvent *event = NULL;
991 enum icalproperty_method method = ICAL_METHOD_REQUEST;
992 enum icalproperty_kind type = ICAL_VEVENT_COMPONENT;
993 gint sequence = 0, rec_occurence = 0;
994 time_t postponed = (time_t)0;
996 g_return_val_if_fail(node->data != NULL, NULL);
998 xmlnode = node->data;
999 if (strcmp2(xmlnode->tag->tag, "event") != 0) {
1000 g_warning("tag name != \"event\"\n");
1004 list = xmlnode->tag->attr;
1005 for (; list != NULL; list = list->next) {
1006 XMLAttr *attr = list->data;
1008 if (!attr || !attr->name || !attr->value) continue;
1009 if (!strcmp(attr->name, "organizer"))
1010 org = g_strdup(attr->value);
1011 if (!strcmp(attr->name, "orgname"))
1012 orgname = g_strdup(attr->value);
1013 if (!strcmp(attr->name, "location"))
1014 location = g_strdup(attr->value);
1015 if (!strcmp(attr->name, "summary"))
1016 summary = g_strdup(attr->value);
1017 if (!strcmp(attr->name, "description"))
1018 description = g_strdup(attr->value);
1019 if (!strcmp(attr->name, "url"))
1020 url = g_strdup(attr->value);
1021 if (!strcmp(attr->name, "dtstart"))
1022 dtstart = g_strdup(attr->value);
1023 if (!strcmp(attr->name, "dtend"))
1024 dtend = g_strdup(attr->value);
1025 if (!strcmp(attr->name, "recur"))
1026 recur = g_strdup(attr->value);
1027 if (!strcmp(attr->name, "tzid"))
1028 tzid = g_strdup(attr->value);
1029 if (!strcmp(attr->name, "type"))
1030 type = atoi(attr->value);
1031 if (!strcmp(attr->name, "method"))
1032 method = atoi(attr->value);
1033 if (!strcmp(attr->name, "sequence"))
1034 sequence = atoi(attr->value);
1035 if (!strcmp(attr->name, "postponed"))
1036 postponed = atoi(attr->value);
1037 if (!strcmp(attr->name, "rec_occurence"))
1038 rec_occurence = atoi(attr->value);
1041 event = vcal_manager_new_event(uid, org, orgname, location, summary, description,
1042 dtstart, dtend, recur, tzid, url, method,
1045 event->postponed = postponed;
1046 event->rec_occurence = rec_occurence;
1052 g_free(description);
1059 node = node->children;
1060 while (node != NULL) {
1061 gchar *attendee = NULL;
1063 enum icalparameter_partstat answer = ICAL_PARTSTAT_NEEDSACTION;
1064 enum icalparameter_cutype cutype = ICAL_CUTYPE_INDIVIDUAL;
1066 xmlnode = node->data;
1067 if (strcmp2(xmlnode->tag->tag, "answer") != 0) {
1068 g_warning("tag name != \"answer\"\n");
1071 list = xmlnode->tag->attr;
1072 for (; list != NULL; list = list->next) {
1073 XMLAttr *attr = list->data;
1075 if (!attr || !attr->name || !attr->value) continue;
1076 if (!strcmp(attr->name, "attendee"))
1077 attendee = g_strdup(attr->value);
1078 if (!strcmp(attr->name, "name"))
1079 name = g_strdup(attr->value);
1080 if (!strcmp(attr->name, "answer"))
1081 answer = atoi(attr->value);
1082 if (!strcmp(attr->name, "cutype"))
1083 cutype = atoi(attr->value);
1086 event->answers = g_slist_prepend(event->answers, answer_new(attendee, name, answer, cutype));
1091 event->answers = g_slist_reverse(event->answers);
1096 VCalEvent *vcal_manager_load_event (const gchar *uid)
1100 VCalEvent *event = NULL;
1102 path = vcal_manager_get_event_file(uid);
1104 if (!is_file_exist(path)) {
1109 node = xml_parse_file(path);
1114 g_warning("no node\n");
1118 event = event_get_from_xml(uid, node);
1119 /* vcal_manager_event_print(event); */
1120 xml_free_tree(node);
1125 while (strchr(event->summary, '\n'))
1126 *(strchr(event->summary, '\n')) = ' ';
1132 void vcal_manager_update_answer (VCalEvent *event,
1133 const gchar *attendee,
1135 enum icalparameter_partstat ans,
1136 enum icalparameter_cutype cutype)
1138 Answer *answer = NULL;
1139 GSList *existing = NULL;
1140 Answer *existing_a = NULL;
1145 answer = answer_new(attendee, name, ans, cutype);
1146 existing = answer_find(event, answer);
1149 existing_a = (Answer *)existing->data;
1151 if (!answer->name && existing_a->name)
1152 answer->name = g_strdup(existing_a->name);
1153 if (!answer->cutype && existing_a->cutype)
1154 answer->cutype = existing_a->cutype;
1156 answer_remove(event, answer);
1159 answer_add(event, answer);
1161 vcal_manager_save_event(event, FALSE);
1164 static gchar *write_headers(PrefsAccount *account,
1166 gboolean short_headers,
1168 gboolean is_pseudo_display)
1170 gchar *subject = NULL;
1172 gchar *save_folder = NULL;
1173 gchar *result = NULL;
1174 gchar *queue_headers = NULL;
1175 gchar *method_str = NULL;
1176 gchar *attendees = NULL;
1177 enum icalparameter_partstat status;
1178 gchar *prefix = NULL;
1179 gchar enc_subject[512], enc_from[512], *from = NULL;
1181 gchar *calmsgid = NULL;
1183 cm_return_val_if_fail(account != NULL, NULL);
1185 memset(date, 0, sizeof(date));
1187 if (is_pseudo_display) {
1188 struct icaltimetype itt = (icaltime_from_string(event->dtstart));
1189 time_t t = icaltime_as_timet(itt);
1190 get_rfc822_date_from_time_t(date, sizeof(date), t);
1192 get_rfc822_date(date, sizeof(date));
1195 if (account_get_special_folder(account, F_OUTBOX)) {
1196 save_folder = folder_item_get_identifier(account_get_special_folder
1197 (account, F_OUTBOX));
1201 GSList *cur = event->answers;
1202 while (cur && cur->data) {
1204 Answer *a = (Answer *)cur->data;
1206 if (strcasecmp(a->attendee, event->organizer)) {
1208 tmp = g_strdup_printf("%s>,\n <%s", attendees, a->attendee);
1212 attendees = g_strdup_printf("%s", a->attendee);
1219 if (!short_headers) {
1220 queue_headers = g_strdup_printf("S:%s\n"
1225 "X-Claws-End-Special-Headers: 1\n",
1227 account->smtp_server,
1228 is_reply ? event->organizer:attendees,
1229 account->account_id,
1230 save_folder?"SCF:":"",
1231 save_folder?save_folder:"",
1232 save_folder?"\n":"");
1234 queue_headers = g_strdup("");
1239 method_str = "REPLY";
1240 status = vcal_manager_get_reply_for_attendee(event, account->address);
1241 if (status == ICAL_PARTSTAT_ACCEPTED)
1242 prefix = _("Accepted: ");
1243 else if (status == ICAL_PARTSTAT_DECLINED)
1244 prefix = _("Declined: ");
1245 else if (status == ICAL_PARTSTAT_TENTATIVE)
1246 prefix = _("Tentatively Accepted: ");
1249 } else if (event->method == ICAL_METHOD_PUBLISH)
1250 method_str = "PUBLISH";
1252 method_str = "REQUEST";
1254 subject = g_strdup_printf("%s%s", prefix, event->summary);
1256 conv_encode_header_full(enc_subject, sizeof(enc_subject), subject, strlen("Subject: "),
1257 FALSE, conv_get_outgoing_charset_str());
1258 from = is_reply?account->name:(event->orgname?event->orgname:"");
1259 conv_encode_header_full(enc_from, sizeof(enc_from), from, strlen("From: "),
1260 TRUE, conv_get_outgoing_charset_str());
1262 if (is_pseudo_display && event->uid) {
1263 calmsgid = g_strdup_printf("Message-ID: <%s>\n",event->uid);
1265 calmsgid = g_strdup("");
1268 if (account && account->set_domain && account->domain) {
1269 g_snprintf(msgid, sizeof(msgid), "%s", account->domain);
1270 } else if (!strncmp(get_domain_name(), "localhost", strlen("localhost"))) {
1271 g_snprintf(msgid, sizeof(msgid), "%s",
1272 strchr(account->address, '@') ?
1273 strchr(account->address, '@')+1 :
1276 g_snprintf(msgid, sizeof(msgid), "%s", "");
1279 generate_msgid(msgid, sizeof(msgid), account->address);
1281 result = g_strdup_printf("%s"
1286 "MIME-Version: 1.0\n"
1287 "Content-Type: text/calendar; method=%s; charset=\"%s\"\n"
1288 "Content-Transfer-Encoding: 8bit\n"
1293 is_reply ? account->address:event->organizer,
1294 is_reply ? event->organizer:(attendees?attendees:event->organizer),
1301 "In-Reply-To":"Message-ID",
1303 event_to_today_str(event, 0):msgid);
1306 g_free(save_folder);
1307 g_free(queue_headers);
1314 static gchar *write_headers_ical(PrefsAccount *account,
1315 icalcomponent *ievent,
1320 gchar *result = NULL;
1321 gchar *method_str = NULL;
1322 gchar *summary = NULL;
1323 gchar *organizer = NULL;
1324 gchar *orgname = NULL;
1325 icalproperty *prop = NULL;
1326 gchar *calmsgid = NULL;
1328 time_t t = (time_t)0;
1330 memset(subject, 0, sizeof(subject));
1331 memset(date, 0, sizeof(date));
1333 prop = icalcomponent_get_first_property(ievent, ICAL_SUMMARY_PROPERTY);
1335 summary = g_strdup(icalproperty_get_summary(prop));
1336 icalproperty_free(prop);
1338 summary = g_strdup("");
1341 while (strchr(summary, '\n'))
1342 *(strchr(summary, '\n')) = ' ';
1344 prop = icalcomponent_get_first_property(ievent, ICAL_ORGANIZER_PROPERTY);
1346 organizer = g_strdup(icalproperty_get_organizer(prop));
1347 if (icalproperty_get_parameter_as_string(prop, "CN") != NULL)
1348 orgname = g_strdup(icalproperty_get_parameter_as_string(prop, "CN"));
1350 icalproperty_free(prop);
1352 organizer = orga? g_strdup(orga):g_strdup("");
1355 prop = icalcomponent_get_first_property(ievent, ICAL_DTSTART_PROPERTY);
1357 t = icaltime_as_timet(icalproperty_get_dtstart(prop));
1358 get_rfc822_date_from_time_t(date, sizeof(date), t);
1360 get_rfc822_date(date, sizeof(date));
1363 conv_encode_header(subject, 511, summary, strlen("Subject: "), FALSE);
1365 method_str = "PUBLISH";
1367 prop = icalcomponent_get_first_property(ievent, ICAL_UID_PROPERTY);
1369 calmsgid = g_strdup_printf("Message-ID: <%s>\n",icalproperty_get_uid(prop));
1370 icalproperty_free(prop);
1372 calmsgid = g_strdup("");
1376 result = g_strdup_printf("From: %s <%s>\n"
1380 "MIME-Version: 1.0\n"
1381 "Content-Type: text/calendar; method=%s; charset=\"%s\"; vcalsave=\"no\"\n"
1382 "Content-Transfer-Encoding: quoted-printable\n"
1384 "In-Reply-To: <%s>\n",
1386 !strncmp(organizer, "MAILTO:", 7) ? organizer+7 : organizer,
1392 conv_get_outgoing_charset_str(),
1394 event_to_today_str(NULL, t));
1406 static gboolean vcal_manager_send (PrefsAccount *account,
1410 gchar *tmpfile = NULL;
1412 FolderItem *folderitem;
1413 gchar *msgpath = NULL;
1414 Folder *folder = NULL;
1416 tmpfile = vcal_manager_event_dump(event, is_reply, FALSE, NULL, TRUE);
1421 folderitem = account_get_special_folder(account, F_QUEUE);
1423 g_warning("can't find queue folder for %s\n", account->address);
1428 folder_item_scan(folderitem);
1430 if ((msgnum = folder_item_add_msg(folderitem, tmpfile, NULL, TRUE)) < 0) {
1431 g_warning("can't queue the message\n");
1437 msgpath = folder_item_fetch_msg(folderitem, msgnum);
1439 if (!prefs_common_get_prefs()->work_offline) {
1441 gboolean queued_removed = FALSE;
1442 gint val = procmsg_send_message_queue_with_lock(msgpath, &err, folderitem, msgnum, &queued_removed);
1444 if (!queued_removed)
1445 folder_item_remove_msg(folderitem, msgnum);
1446 folder_item_scan(folderitem);
1448 alertpanel_error_log("%s", err);
1456 folder = folder_find_from_name ("vCalendar", vcal_folder_get_class());
1458 folder_item_scan(folder->inbox);
1460 vcalviewer_reload(folder->inbox);
1464 gboolean vcal_manager_reply (PrefsAccount *account,
1467 return vcal_manager_send(account, event, TRUE);
1470 gboolean vcal_manager_request (PrefsAccount *account,
1473 return vcal_manager_send(account, event, FALSE);
1476 EventTime event_to_today(VCalEvent *event, time_t t)
1478 struct tm evtstart, today;
1479 time_t evtstart_t, today_t;
1480 struct icaltimetype itt;
1485 today_t = time(NULL);
1487 itt = icaltime_from_string(event->dtstart);
1488 evtstart_t = icaltime_as_timet(itt);
1494 today = *localtime_r(&today_t, &buft);
1495 localtime_r(&evtstart_t, &evtstart);
1501 today = *localtime(&today_t);
1502 evtstart = *localtime(&evtstart_t);
1505 if (today.tm_year == evtstart.tm_year) {
1506 int days = evtstart.tm_yday - today.tm_yday;
1509 } else if (days == 0) {
1511 } else if (days == 1) {
1512 return EVENT_TOMORROW;
1513 } else if (days > 1 && days < 7) {
1514 return EVENT_THISWEEK;
1518 } else if (today.tm_year > evtstart.tm_year) {
1520 } else if (today.tm_year == evtstart.tm_year - 1) {
1521 int days = ((365 - today.tm_yday) + evtstart.tm_yday);
1524 } else if (days == 1) {
1525 return EVENT_TOMORROW;
1526 } else if (days > 1 && days < 7) {
1527 return EVENT_THISWEEK;
1535 const gchar *event_to_today_str(VCalEvent *event, time_t t)
1537 EventTime days = event_to_today(event, t);
1540 return EVENT_PAST_ID;
1542 return EVENT_TODAY_ID;
1543 case EVENT_TOMORROW:
1544 return EVENT_TOMORROW_ID;
1545 case EVENT_THISWEEK:
1546 return EVENT_THISWEEK_ID;
1548 return EVENT_LATER_ID;