webcit/calendar_tools.c

   1 /*
   2  * Miscellaneous functions which handle calendar components.
   3  *
   4  * Copyright (c) 1996-2012 by the citadel.org team
   5  *
   6  * This program is open source software.  You can redistribute it and/or
   7  * modify it under the terms of the GNU General Public License, version 3.
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details.
  13  */
  14
  15 #include "webcit.h"
  16 #include "webserver.h"
  17 #include "time.h"
  18 #include "calendar.h"
  19
  20 /* Hour strings */
  21 char *hourname[] = {
  22         "12am", "1am", "2am", "3am", "4am", "5am", "6am",
  23         "7am", "8am", "9am", "10am", "11am", "12pm",
  24         "1pm", "2pm", "3pm", "4pm", "5pm", "6pm",
  25         "7pm", "8pm", "9pm", "10pm", "11pm"
  26 };
  27
  28 /*
  29  * The display_icaltimetype_as_webform() and icaltime_from_webform() functions
  30  * handle the display and editing of date/time properties in web pages.  The
  31  * first one converts an icaltimetype into valid HTML markup -- a series of form
  32  * fields for editing the date and time.  When the user submits the form, the
  33  * results can be fed back into the second function, which turns it back into
  34  * an icaltimetype.  The "prefix" string required by both functions is prepended
  35  * to all field names.  This allows a form to contain more than one date/time
  36  * property (for example, a start and end time) by ensuring the field names are
  37  * unique within the form.
  38  *
  39  * NOTE: These functions assume that the icaltimetype being edited is in UTC, and
  40  * will convert to/from local time for editing.  "local" in this case is assumed
  41  * to be the time zone in which the WebCit server is running.  A future improvement
  42  * might be to allow the user to specify his/her timezone.
  43  */
  44
  45 void display_icaltimetype_as_webform(struct icaltimetype *t, char *prefix, int date_only) {
  46         wcsession *WCC = WC;
  47         int i;
  48         time_t now;
  49         struct tm tm_now;
  50         time_t tt;
  51         struct tm tm;
  52         int all_day_event = 0;
  53         int time_format;
  54         char timebuf[32];
  55
  56         time_format = get_time_format_cached ();
  57
  58         now = time(NULL);
  59         localtime_r(&now, &tm_now);
  60
  61         if (t == NULL) return;
  62         if (t->is_date) all_day_event = 1;
  63         tt = icaltime_as_timet(*t);
  64         if (all_day_event) {
  65                 gmtime_r(&tt, &tm);
  66         }
  67         else {
  68                 localtime_r(&tt, &tm);
  69         }
  70
  71         wc_printf("<input type=\"text\" name=\"");
  72         StrBufAppendBufPlain(WCC->WBuf, prefix, -1, 0);
  73         wc_printf("\" id=\"");
  74         StrBufAppendBufPlain(WCC->WBuf, prefix, -1, 0);
  75         wc_printf("\" size=\"10\" maxlength=\"10\" value=\"");
  76         wc_strftime(timebuf, 32, "%Y-%m-%d", &tm);
  77         StrBufAppendBufPlain(WCC->WBuf, timebuf, -1, 0);
  78         wc_printf("\">");
  79
  80         StrBufAppendPrintf(WC->trailing_javascript, "attachDatePicker('");
  81         StrBufAppendPrintf(WC->trailing_javascript, prefix);
  82         StrBufAppendPrintf(WC->trailing_javascript, "', '%s');\n", get_selected_language());
  83
  84         /* If we're editing a date only, we still generate the time boxes, but we hide them.
  85          * This keeps the data model consistent.
  86          */
  87         if (date_only) {
  88                 wc_printf("<div style=\"display:none\">");
  89         }
  90
  91         wc_printf("<span ID=\"");
  92         StrBufAppendBufPlain(WCC->WBuf, prefix, -1, 0);
  93         wc_printf("_time\">");
  94         wc_printf(_("Hour: "));
  95         wc_printf("<SELECT NAME=\"%s_hour\" SIZE=\"1\">\n", prefix);
  96         for (i=0; i<=23; ++i) {
  97
  98                 if (time_format == WC_TIMEFORMAT_24) {
  99                         wc_printf("<OPTION %s VALUE=\"%d\">%d</OPTION>\n",
 100                                 ((tm.tm_hour == i) ? "SELECTED" : ""),
 101                                 i, i
 102                                 );
 103                 }
 104                 else {
 105                         wc_printf("<OPTION %s VALUE=\"%d\">%s</OPTION>\n",
 106                                 ((tm.tm_hour == i) ? "SELECTED" : ""),
 107                                 i, hourname[i]
 108                                 );
 109                 }
 110
 111         }
 112         wc_printf("</SELECT>\n");
 113
 114         wc_printf(_("Minute: "));
 115         wc_printf("<SELECT NAME=\"%s_minute\" SIZE=\"1\">\n", prefix);
 116         for (i=0; i<=59; ++i) {
 117                 if ( (i % 5 == 0) || (tm.tm_min == i) ) {
 118                         wc_printf("<OPTION %s VALUE=\"%d\">:%02d</OPTION>\n",
 119                                 ((tm.tm_min == i) ? "SELECTED" : ""),
 120                                 i, i
 121                                 );
 122                 }
 123         }
 124         wc_printf("</SELECT></span>\n");
 125
 126         if (date_only) {
 127                 wc_printf("</div>");
 128         }
 129 }
 130
 131 /*
 132  * Get date/time from a web form and convert it into an icaltimetype struct.
 133  */
 134 void icaltime_from_webform(struct icaltimetype *t, char *prefix) {
 135         char vname[32];
 136
 137         if (!t) return;
 138
 139         /* Stuff with zero values */
 140         memset(t, 0, sizeof(struct icaltimetype));
 141
 142         /* Get the year/month/date all in one shot -- it will be in ISO YYYY-MM-DD format */
 143         sscanf((char*)BSTR(prefix), "%04d-%02d-%02d", &t->year, &t->month, &t->day);
 144
 145         /* hour */
 146         sprintf(vname, "%s_hour", prefix);
 147         t->hour = IBSTR(vname);
 148
 149         /* minute */
 150         sprintf(vname, "%s_minute", prefix);
 151         t->minute = IBSTR(vname);
 152
 153         /* time zone is set to the default zone for this server */
 154         t->is_utc = 0;
 155         t->is_date = 0;
 156         t->zone = get_default_icaltimezone();
 157 }
 158
 159
 160 /*
 161  * Get date (no time) from a web form and convert it into an icaltimetype struct.
 162  */
 163 void icaltime_from_webform_dateonly(struct icaltimetype *t, char *prefix) {
 164         if (!t) return;
 165
 166         /* Stuff with zero values */
 167         memset(t, 0, sizeof(struct icaltimetype));
 168
 169         /* Get the year/month/date all in one shot -- it will be in ISO YYYY-MM-DD format */
 170         sscanf((char*)BSTR(prefix), "%04d-%02d-%02d", &t->year, &t->month, &t->day);
 171
 172         /* time zone is set to the default zone for this server */
 173         t->is_utc = 1;
 174         t->is_date = 1;
 175 }
 176
 177
 178 /*
 179  * Render a PARTSTAT parameter as a string (and put it in parentheses)
 180  */
 181 void partstat_as_string(char *buf, icalproperty *attendee) {
 182         icalparameter *partstat_param;
 183         icalparameter_partstat partstat;
 184
 185         strcpy(buf, _("(status unknown)"));
 186
 187         partstat_param = icalproperty_get_first_parameter(
 188                 attendee,
 189                 ICAL_PARTSTAT_PARAMETER
 190                 );
 191         if (partstat_param == NULL) {
 192                 return;
 193         }
 194
 195         partstat = icalparameter_get_partstat(partstat_param);
 196         switch(partstat) {
 197         case ICAL_PARTSTAT_X:
 198                 strcpy(buf, "(x)");
 199                 break;
 200         case ICAL_PARTSTAT_NEEDSACTION:
 201                 strcpy(buf, _("(needs action)"));
 202                 break;
 203         case ICAL_PARTSTAT_ACCEPTED:
 204                 strcpy(buf, _("(accepted)"));
 205                 break;
 206         case ICAL_PARTSTAT_DECLINED:
 207                 strcpy(buf, _("(declined)"));
 208                 break;
 209         case ICAL_PARTSTAT_TENTATIVE:
 210                 strcpy(buf, _("(tenative)"));
 211                 break;
 212         case ICAL_PARTSTAT_DELEGATED:
 213                 strcpy(buf, _("(delegated)"));
 214                 break;
 215         case ICAL_PARTSTAT_COMPLETED:
 216                 strcpy(buf, _("(completed)"));
 217                 break;
 218         case ICAL_PARTSTAT_INPROCESS:
 219                 strcpy(buf, _("(in process)"));
 220                 break;
 221         case ICAL_PARTSTAT_NONE:
 222                 strcpy(buf, _("(none)"));
 223                 break;
 224         }
 225 }
 226
 227 /*
 228  * Utility function to encapsulate a subcomponent into a full VCALENDAR.
 229  *
 230  * We also scan for any date/time properties that reference timezones, and attach
 231  * those timezones along with the supplied subcomponent.  (Increase the size of the array if you need to.)
 232  *
 233  * Note: if you change anything here, change it in Citadel server's ical_send_out_invitations() too.
 234  */
 235 icalcomponent *ical_encapsulate_subcomponent(icalcomponent *subcomp) {
 236         icalcomponent *encaps;
 237         icalproperty *p;
 238         struct icaltimetype t;
 239         const icaltimezone *attached_zones[5] = { NULL, NULL, NULL, NULL, NULL };
 240         int i;
 241         const icaltimezone *z;
 242         int num_zones_attached = 0;
 243         int zone_already_attached;
 244
 245         if (subcomp == NULL) {
 246                 syslog(3, "ERROR: ical_encapsulate_subcomponent() called with NULL argument\n");
 247                 return NULL;
 248         }
 249
 250         /*
 251          * If we're already looking at a full VCALENDAR component, this is probably an error.
 252          */
 253         if (icalcomponent_isa(subcomp) == ICAL_VCALENDAR_COMPONENT) {
 254                 syslog(3, "ERROR: component sent to ical_encapsulate_subcomponent() already top level\n");
 255                 return subcomp;
 256         }
 257
 258         /* search for... */
 259         for (p = icalcomponent_get_first_property(subcomp, ICAL_ANY_PROPERTY);
 260              p != NULL;
 261              p = icalcomponent_get_next_property(subcomp, ICAL_ANY_PROPERTY))
 262         {
 263                 if ( (icalproperty_isa(p) == ICAL_COMPLETED_PROPERTY)
 264                   || (icalproperty_isa(p) == ICAL_CREATED_PROPERTY)
 265                   || (icalproperty_isa(p) == ICAL_DATEMAX_PROPERTY)
 266                   || (icalproperty_isa(p) == ICAL_DATEMIN_PROPERTY)
 267                   || (icalproperty_isa(p) == ICAL_DTEND_PROPERTY)
 268                   || (icalproperty_isa(p) == ICAL_DTSTAMP_PROPERTY)
 269                   || (icalproperty_isa(p) == ICAL_DTSTART_PROPERTY)
 270                   || (icalproperty_isa(p) == ICAL_DUE_PROPERTY)
 271                   || (icalproperty_isa(p) == ICAL_EXDATE_PROPERTY)
 272                   || (icalproperty_isa(p) == ICAL_LASTMODIFIED_PROPERTY)
 273                   || (icalproperty_isa(p) == ICAL_MAXDATE_PROPERTY)
 274                   || (icalproperty_isa(p) == ICAL_MINDATE_PROPERTY)
 275                   || (icalproperty_isa(p) == ICAL_RECURRENCEID_PROPERTY)
 276                 ) {
 277                         t = icalproperty_get_dtstart(p);        /*/ it's safe to use dtstart for all of them */
 278                         if ((icaltime_is_valid_time(t)) && (z=icaltime_get_timezone(t), z)) {
 279
 280                                 zone_already_attached = 0;
 281                                 for (i=0; i<5; ++i) {
 282                                         if (z == attached_zones[i]) {
 283                                                 ++zone_already_attached;
 284                                                 syslog(9, "zone already attached!!\n");
 285                                         }
 286                                 }
 287                                 if ((!zone_already_attached) && (num_zones_attached < 5)) {
 288                                         syslog(9, "attaching zone %d!\n", num_zones_attached);
 289                                         attached_zones[num_zones_attached++] = z;
 290                                 }
 291
 292                                 icalproperty_set_parameter(p,
 293                                         icalparameter_new_tzid(icaltimezone_get_tzid((icaltimezone *)z))
 294                                 );
 295                         }
 296                 }
 297         }
 298
 299         /* Encapsulate the VEVENT component into a complete VCALENDAR */
 300         encaps = icalcomponent_new(ICAL_VCALENDAR_COMPONENT);
 301         if (encaps == NULL) {
 302                 syslog(3, "ERROR: ical_encapsulate_subcomponent() could not allocate component\n");
 303                 return NULL;
 304         }
 305
 306         /* Set the Product ID */
 307         icalcomponent_add_property(encaps, icalproperty_new_prodid(PRODID));
 308
 309         /* Set the Version Number */
 310         icalcomponent_add_property(encaps, icalproperty_new_version("2.0"));
 311
 312         /* Attach any timezones we need */
 313         if (num_zones_attached > 0) for (i=0; i<num_zones_attached; ++i) {
 314                 icalcomponent *zc;
 315                 zc = icalcomponent_new_clone(icaltimezone_get_component((icaltimezone *)attached_zones[i]));
 316                 icalcomponent_add_component(encaps, zc);
 317         }
 318
 319         /* Encapsulate the subcomponent inside */
 320         icalcomponent_add_component(encaps, subcomp);
 321
 322         /* Return the object we just created. */
 323         return(encaps);
 324 }