RSSyl: Allow use of .netrc by libcurl. Bug/enhancement #3309, by Vincent Pelletier
[claws.git] / src / plugins / rssyl / libfeed / date.c
1 /**
2  * @file common.c common routines for Liferea
3  * 
4  * Copyright (C) 2003-2005  Lars Lindner <lars.lindner@gmx.net>
5  * Copyright (C) 2004,2005  Nathan J. Conrad <t98502@users.sourceforge.net>
6  * Copyright (C) 2004       Karl Soderstrom <ks@xanadunet.net>
7  *
8  * parts of the RFC822 timezone decoding were taken from the gmime 
9  * source written by 
10  *
11  * Authors: Michael Zucchi <notzed@helixcode.com>
12  *          Jeffrey Stedfast <fejj@helixcode.com>
13  *
14  * Copyright 2000 Helix Code, Inc. (www.helixcode.com)
15  *
16  * This program is free software; you can redistribute it and/or modify
17  * it under the terms of the GNU General Public License as published by
18  * the Free Software Foundation; either version 2 of the License, or
19  * (at your option) any later version.
20  *
21  * This program is distributed in the hope that it will be useful,
22  * but WITHOUT ANY WARRANTY; without even the implied warranty of
23  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
24  * GNU General Public License for more details.
25  *
26  * You should have received a copy of the GNU General Public License
27  * along with this program; if not, write to the Free Software
28  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
29  */
30
31 #ifdef HAVE_CONFIG_H
32 #  include <config.h>
33 #endif
34
35 /* this is needed for strptime() */
36 #define _XOPEN_SOURCE /* glibc2 needs this */
37
38 #include <time.h>
39 #include <glib.h>
40 #include <locale.h>
41 #include <string.h>
42 #include <ctype.h>
43 #include <stdlib.h>
44
45 /* converts a ISO 8601 time string to a time_t value */
46 time_t parseISO8601Date(gchar *date) {
47         struct tm       tm;
48         time_t          t, t2, offset = 0;
49         gboolean        success = FALSE;
50         gchar *pos;
51
52         if (date == NULL)
53                 return -1;
54         
55         memset(&tm, 0, sizeof(struct tm));
56         
57         /* we expect at least something like "2003-08-07T15:28:19" and
58            don't require the second fractions and the timezone info
59
60            the most specific format:   YYYY-MM-DDThh:mm:ss.sTZD
61          */
62          
63         /* full specified variant */
64         if(NULL != (pos = strptime((const char *)date, "%Y-%m-%dT%H:%M:%SZ", &tm))) {
65                 /* Parse seconds */
66                 if (*pos == ':')
67                         pos++;
68                 if (isdigit(pos[0]) && !isdigit(pos[1])) {
69                         tm.tm_sec = pos[0] - '0';
70                         pos++;
71                 } else if (isdigit(pos[0]) && isdigit(pos[1])) {
72                         tm.tm_sec = 10*(pos[0]-'0') + pos[1] - '0';
73                         pos +=2;
74                 }
75                 /* Parse timezone */
76                 if (*pos == 'Z')
77                         offset = 0;
78                 else if ((*pos == '+' || *pos == '-') && isdigit(pos[1]) && isdigit(pos[2]) && strlen(pos) >= 3) {
79                         offset = (10*(pos[1] - '0') + (pos[2] - '0')) * 60 * 60;
80                         
81                         if (pos[3] == ':' && isdigit(pos[4]) && isdigit(pos[5]))
82                                 offset +=  (10*(pos[4] - '0') + (pos[5] - '0')) * 60;
83                         else if (isdigit(pos[3]) && isdigit(pos[4]))
84                                 offset +=  (10*(pos[3] - '0') + (pos[4] - '0')) * 60;
85                         
86                         offset *= (pos[0] == '+') ? 1 : -1;
87
88                 }
89                 success = TRUE;
90         /* only date */
91         } else if(NULL != strptime((const char *)date, "%t%Y-%m-%d", &tm))
92                 success = TRUE;
93         /* there were others combinations too... */
94
95         if(TRUE == success) {
96                 if((time_t)(-1) != (t = mktime(&tm))) {
97                         /* Correct for the local timezone*/
98                         t = t - offset;
99                         t2 = mktime(gmtime(&t));
100                         t = t - (t2 - t);
101                         
102                         return t;
103                 } else {
104                         g_warning("internal error! time conversion error! mktime failed!\n");
105                 }
106         } else {
107                 g_warning("Invalid ISO8601 date format! Ignoring <dc:date> information!\n");
108         }
109         
110         return 0;
111 }
112
113 gchar *dayofweek[] = { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"};
114 gchar *months[] = {"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};
115
116 gchar *createRFC822Date(const time_t *time) {
117         struct tm *tm;
118
119         tm = gmtime(time); /* No need to free because it is statically allocated */
120         return g_strdup_printf("%s, %2d %s %4d %02d:%02d:%02d GMT", dayofweek[tm->tm_wday], tm->tm_mday,
121                                            months[tm->tm_mon], 1900 + tm->tm_year, tm->tm_hour, tm->tm_min, tm->tm_sec);
122 }
123
124 time_t parseRFC822Date(gchar *date)
125 {
126         struct tm t;
127         memset(&t, 0, sizeof(struct tm));
128         const char *c = setlocale(LC_TIME, NULL);
129
130         /* Adjust the LC_TIME locale to standard C in order for strptime()
131          * to work reliably. */
132         if (c != NULL)
133                 setlocale(LC_TIME, "C");
134
135         if (!strptime(date, "%a, %d %b %Y %H:%M:%S %Z", &t) &&
136                 !strptime(date, "%a, %d %b %Y %H:%M %Z", &t)) {
137                 g_warning("Invalid RFC822 date!\n");
138                 if (c != NULL)
139                         setlocale(LC_TIME, c);
140                 return 0;
141         }
142
143         /* Restore the original LC_TIME locale. */
144         if (c != NULL)
145                 setlocale(LC_TIME, c);
146
147         return mktime(&t);
148 }