validate_recipients() now strips out duplicate recipients ... probably some 15 years...
[citadel] / webcit / fmt_date.c
1 /*
2  * Copyright (c) 1996-2012 by the citadel.org team
3  *
4  * This program is open source software.  You can redistribute it and/or
5  * modify it under the terms of the GNU General Public License, version 3.
6  *
7  * This program is distributed in the hope that it will be useful,
8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
10  * GNU General Public License for more details.
11  */
12
13 #include "webcit.h"
14 #include "webserver.h"
15
16 #ifdef HAVE_USELOCALE
17 extern locale_t *wc_locales;
18 #endif
19
20 typedef unsigned char byte;
21
22 #define FALSE 0 /**< no. */
23 #define TRUE 1 /**< yes. */
24
25 /*
26  * Wrapper around strftime() or strftime_l()
27  * depending upon how our build is configured.
28  *
29  * s            String target buffer
30  * max          Maximum size of string target buffer
31  * format       strftime() format
32  * tm           Input date/time
33  */
34 size_t wc_strftime(char *s, size_t max, const char *format, const struct tm *tm)
35 {
36
37 #ifdef ENABLE_NLS
38 #ifdef HAVE_USELOCALE
39         if (wc_locales[WC->selected_language] == NULL) {
40                 return strftime(s, max, format, tm);
41         }
42         else {
43                 return strftime_l(s, max, format, tm, wc_locales[WC->selected_language]);
44         }
45 #else
46         return strftime(s, max, format, tm);
47 #endif
48 #else
49         return strftime(s, max, format, tm);
50 #endif
51 }
52
53
54
55 /*
56  * Format a date/time stamp for output 
57  */
58 long webcit_fmt_date(char *buf, size_t siz, time_t thetime, int Format)
59 {
60         long retlen = 0;
61         struct tm tm;
62         struct tm today_tm;
63         time_t today_timet;
64         int time_format;
65
66         time_format = get_time_format_cached ();
67         today_timet = time(NULL);
68         localtime_r(&today_timet, &today_tm);
69
70         localtime_r(&thetime, &tm);
71
72         /*
73          * DATEFMT_FULL:      full display 
74          * DATEFMT_BRIEF:     if date == today, show only the time
75          *                    otherwise, for messages up to 6 months old, 
76          *                 show the month and day, and the time
77          *                    older than 6 months, show only the date
78          * DATEFMT_RAWDATE:   show full date, regardless of age 
79          * DATEFMT_LOCALEDATE:   show full date as prefered for the locale
80          */
81
82         switch (Format) {
83                 case DATEFMT_BRIEF:
84                         if ((tm.tm_year == today_tm.tm_year)
85                           &&(tm.tm_mon == today_tm.tm_mon)
86                           &&(tm.tm_mday == today_tm.tm_mday)) {
87                                 if (time_format == WC_TIMEFORMAT_24) 
88                                         retlen = wc_strftime(buf, siz, "%k:%M", &tm);
89                                 else
90                                         retlen = wc_strftime(buf, siz, "%l:%M%p", &tm);
91                         }
92                         else if (today_timet - thetime < 15552000) {
93                                 if (time_format == WC_TIMEFORMAT_24) 
94                                         retlen = wc_strftime(buf, siz, "%b %d %k:%M", &tm);
95                                 else
96                                         retlen = wc_strftime(buf, siz, "%b %d %l:%M%p", &tm);
97                         }
98                         else {
99                                 retlen = wc_strftime(buf, siz, "%b %d %Y", &tm);
100                         }
101                         break;
102                 case DATEFMT_FULL:
103                         if (time_format == WC_TIMEFORMAT_24)
104                                 retlen = wc_strftime(buf, siz, "%a %b %d %Y %T %Z", &tm);
105                         else
106                                 retlen = wc_strftime(buf, siz, "%a %b %d %Y %r %Z", &tm);
107                         break;
108                 case DATEFMT_RAWDATE:
109                         retlen = wc_strftime(buf, siz, "%a %b %d %Y", &tm);
110                         break;
111                 case DATEFMT_LOCALEDATE:
112                         retlen = wc_strftime(buf, siz, "%x", &tm);
113                         break;
114         }
115         return retlen;
116 }
117
118
119 /* 
120  * Try to guess whether the user will prefer 12 hour or 24 hour time based on the locale.
121  */
122 long guess_calhourformat(void) {
123         char buf[64];
124         struct tm tm;
125         memset(&tm, 0, sizeof tm);
126         wc_strftime(buf, 64, "%X", &tm);
127         if (buf[strlen(buf)-1] == 'M') {
128                 return 12;
129         }
130         return 24;
131 }
132
133
134 /*
135  * learn the users timeformat preference.
136  */
137 int get_time_format_cached (void)
138 {
139         long calhourformat;
140         int *time_format_cache;
141         time_format_cache = &(WC->time_format_cache);
142         if (*time_format_cache == WC_TIMEFORMAT_NONE)
143         {
144                 get_pref_long("calhourformat", &calhourformat, 99);
145
146                 /* If we don't know the user's time format preference yet,
147                  * make a guess based on the locale.
148                  */
149                 if (calhourformat == 99) {
150                         calhourformat = guess_calhourformat();
151                 }
152
153                 /* Now set the preference */
154                 if (calhourformat == 24) 
155                         *time_format_cache = WC_TIMEFORMAT_24;
156                 else
157                         *time_format_cache = WC_TIMEFORMAT_AMPM;
158         }
159         return *time_format_cache;
160 }
161
162 /*
163  * Format TIME ONLY for output 
164  * buf          the output buffer
165  * thetime      time to format into buf
166  */
167 void fmt_time(char *buf, size_t siz, time_t thetime)
168 {
169         struct tm *tm;
170         int hour;
171         int time_format;
172         
173         time_format = get_time_format_cached ();
174         buf[0] = 0;
175         tm = localtime(&thetime);
176         hour = tm->tm_hour;
177         if (hour == 0)
178                 hour = 12;
179         else if (hour > 12)
180                 hour = hour - 12;
181
182         if (time_format == WC_TIMEFORMAT_24) {
183                 snprintf(buf, siz, "%d:%02d",
184                         tm->tm_hour, tm->tm_min
185                 );
186         }
187         else {
188                 snprintf(buf, siz, "%d:%02d%s",
189                         hour, tm->tm_min, ((tm->tm_hour > 12) ? "pm" : "am")
190                 );
191         }
192 }
193
194
195
196
197 /*
198  * Break down the timestamp used in HTTP headers
199  * Should read rfc1123 and rfc850 dates OK
200  * FIXME won't read asctime
201  * Doesn't understand timezone, but we only should be using GMT/UTC anyway
202  */
203 time_t httpdate_to_timestamp(StrBuf *buf)
204 {
205         time_t t = 0;
206         struct tm tt;
207         const char *c;
208
209         /** Skip day of week, to number */
210         for (c = ChrPtr(buf); *c != ' '; c++)
211                 ;
212         c++;
213         
214         memset(&tt, 0, sizeof(tt));
215
216         /* Get day of month */
217         tt.tm_mday = atoi(c);
218         for (; *c != ' ' && *c != '-'; c++);
219         c++;
220
221         /* Get month */
222         switch (*c) {
223         case 'A':       /* April, August */
224                 tt.tm_mon = (c[1] == 'p') ? 3 : 7;
225                 break;
226         case 'D':       /* December */
227                 tt.tm_mon = 11;
228                 break;
229         case 'F':       /* February */
230                 tt.tm_mon = 1;
231                 break;
232         case 'M':       /* March, May */
233                 tt.tm_mon = (c[2] == 'r') ? 2 : 4;
234                 break;
235         case 'J':       /* January, June, July */
236                 tt.tm_mon = (c[2] == 'n') ? ((c[1] == 'a') ? 0 : 5) : 6;
237                 break;
238         case 'N':       /* November */
239                 tt.tm_mon = 10;
240                 break;
241         case 'O':       /* October */
242                 tt.tm_mon = 9;
243                 break;
244         case 'S':       /* September */
245                 tt.tm_mon = 8;
246                 break;
247         default:
248                 return 42;
249                 break;  /* NOTREACHED */
250         }
251         c += 4;
252
253         tt.tm_year = 0;
254         /* Get year */
255         tt.tm_year = atoi(c);
256         for (; *c != ' '; c++);
257         c++;
258         if (tt.tm_year >= 1900)
259                 tt.tm_year -= 1900;
260
261         /* Get hour */
262         tt.tm_hour = atoi(c);
263         for (; *c != ':'; c++);
264         c++;
265
266         /* Get minute */
267         tt.tm_min = atoi(c);
268         for (; *c != ':'; c++);
269         c++;
270
271         /* Get second */
272         tt.tm_sec = atoi(c);
273         for (; *c && *c != ' '; c++);
274
275         /* Got everything; let's go.  The global 'timezone' variable contains the
276          * local timezone's offset from UTC, in seconds, so we apply that to tm_sec.
277          * This produces an illegal value for tm_sec, but mktime() will normalize
278          * it for us.  This eliminates the need to temporarily switch the environment
279          * variable TZ to UTC, which is good because it fails to switch back on
280          * some systems.
281          */
282         tzset();
283         tt.tm_sec = tt.tm_sec - (int)timezone;
284         t = mktime(&tt);
285         return t;
286 }
287
288
289 void LoadTimeformatSettingsCache(StrBuf *Preference, long lvalue)
290 {
291         int *time_format_cache;
292         
293          time_format_cache = &(WC->time_format_cache);
294          if (lvalue == 24) 
295                  *time_format_cache = WC_TIMEFORMAT_24;
296          else
297                  *time_format_cache = WC_TIMEFORMAT_AMPM;
298 }
299
300
301
302 void 
303 InitModule_DATETIME
304 (void)
305 {
306         RegisterPreference("calhourformat", _("Time format"), PRF_INT, LoadTimeformatSettingsCache);
307
308
309 }