/*----------------------------------------------------------------------------*/
char * qfits_get_datetime_iso8601(void)
{
static char date_iso8601[20];
long curdate;
long curtime;
curdate = qfits_date_now();
curtime = qfits_time_now();
sprintf(date_iso8601, "%04d-%02d-%02dT%02d:%02d:%02d",
GET_CCYEAR(curdate),
GET_MONTH(curdate),
GET_DAY(curdate),
GET_HOUR(curtime),
GET_MINUTE(curtime),
GET_SECOND(curtime));
return date_iso8601;
}
char *
conv_date_pict (
long date,
const char *picture)
{
static char
*month_name [] =
{
"January", "February", "March", "April", "May", "June", "July",
"August", "September", "October", "November", "December"
},
*day_name [] =
{
"Sunday", "Monday", "Tuesday", "Wednesday",
"Thursday", "Friday", "Saturday"
},
formatted [FORMAT_MAX + 1]; /* Formatted return string */
int
century, /* Century component of date */
year, /* Year component of date */
month, /* Month component of date */
day, /* Day component of date */
cursize; /* Size of current component */
char
*dest, /* Store formatted data here */
ch, /* Next character in picture */
lastch = '0'; /* Last character we output */
long
full_date = date;
conv_reason = 0; /* No conversion errors so far */
/* Zero date is returned as empty string */
if (date == 0)
{
strclr (formatted);
return (formatted);
}
default_century (&full_date);
century = GET_CENTURY (full_date);
year = GET_YEAR (full_date);
month = GET_MONTH (full_date);
day = GET_DAY (full_date);
ASSERT (month > 0 && month <= 12);
ASSERT (day > 0 && day <= 31);
/* Scan through picture, converting each component */
dest = formatted;
*dest = 0; /* string is empty */
while (*picture)
{
/* Get character and count number of occurences */
ch = *picture++;
for (cursize = 1; *picture == ch; cursize++)
picture++;
switch (ch)
{
/* cc century 2 digits, 01-99 */
case 'c':
if (cursize == 2)
sprintf (dest, "%02d", century);
break;
/* y day of year, 1-366 */
/* yy year 2 digits, 00-99 */
/* yyyy year 4 digits, 0100-9999 */
case 'y': /* y = day of year */
if (cursize == 1)
sprintf (dest, "%d", julian_date (full_date));
else
if (cursize == 2)
sprintf (dest, "%02d", year);
else
if (cursize == 4)
sprintf (dest, "%02d%02d", century, year);
break;
/* m month, 1-12 */
/* mm month, 01-12 */
/* mmm month, 3 letters */
/* mmmm month, full name */
case 'm':
if (cursize == 1)
sprintf (dest, (isdigit (lastch)? "%2d": "%d"), month);
else
if (cursize == 2)
sprintf (dest, "%02d", month);
else
if (cursize == 3)
{
memcpy (dest, month_name [month - 1], 3);
dest [3] = 0;
}
else
if (cursize == 4)
strcpy (dest, month_name [month - 1]);
break;
/* MMM month, 3-letters, ucase */
/* MMMM month, full name, ucase */
case 'M':
if (cursize == 3)
{
memcpy (dest, month_name [month - 1], 3);
dest [3] = 0;
strupc (dest);
}
else
if (cursize == 4)
{
strcpy (dest, month_name [month - 1]);
strupc (dest);
}
break;
/* d day, 1-31 */
/* dd day, 01-31 */
/* ddd day of week, Sun-Sat */
/* dddd day of week, Sunday-Saturday */
case 'd':
if (cursize == 1)
sprintf (dest, (isdigit (lastch)? "%2d": "%d"), day);
else
if (cursize == 2)
sprintf (dest, "%02d", day);
else
if (cursize == 3)
{
memcpy (dest, day_name [day_of_week (full_date)], 3);
dest [3] = 0;
}
else
if (cursize == 4)
strcpy (dest, day_name [day_of_week (full_date)]);
break;
/* DDD day of week, SUN-SAT */
/* DDDD day of week, SUNDAY-SATURDAY */
case 'D':
if (cursize == 3)
{
memcpy (dest, day_name [day_of_week (full_date)], 3);
dest [3] = 0;
strupc (dest);
}
else
if (cursize == 4)
{
strcpy (dest, day_name [day_of_week (full_date)]);
strupc (dest);
}
break;
/* w day of week, 1-7 (1=Sunday) */
/* ww week of year, 1-53 */
case 'w':
if (cursize == 1)
sprintf (dest, "%d", day_of_week (full_date) + 1);
else
if (cursize == 2)
sprintf (dest, "%d", week_of_year (full_date));
break;
/* q year quarter, 1-4 */
case 'q':
if (cursize == 1)
sprintf (dest, "%d", year_quarter (full_date));
break;
/* \x literal character x */
case '\\':
ch = *picture++;
}
if (*dest) /* If something was output, */
while (*dest) /* skip to end of string */
dest++;
else
while (cursize--) /* Else output ch once or more */
*dest++ = ch; /* and bump dest pointer */
lastch = *(dest - 1); /* Get previous character */
*dest = 0; /* Terminate the string nicely */
}
return (formatted);
}
DESCR__S_M3
/*
** NAME
** datestr2unixtime - converts a date string to unix time
**
** SYNOPSIS
** time_t datestr2unixtime(char *date_str)
**
** DESCRIPTION
** The function datestr2unixtime() converts the string 'date_str'
** to a unix time. It is able to convert the following four time
** strings:
** 1) RFC822 (HTTP/1.1) Fri, 3 Oct 1997 02:15:31 GMT
** 2) RFC850 (pre HTTP/1.1) Friday, 03-Oct-97 02:15:31 GMT
** 3) asctime() Fri Oct 3 02:15:31 1997
** 4) HTML directory list 03-Oct-1997 02:15
**
** Note that in format 2) we do NOT evaluate the year, instead we
** just take the current year.
**
** FIXME: Currently I do not know how to handle the timezone. So we
** ignore it here and hope for the best!
**
** RETURN VALUES
** Returns the unix time when it finds one of the mentioned
** patterns, otherwise -1 is returned.
**
** AUTHOR
** H.Kiehl
**
** HISTORY
** 16.08.2006 H.Kiehl Created
*/
DESCR__E_M3
#include <ctype.h>
#include <time.h>
#ifdef TM_IN_SYS_TIME
# include <sys/time.h>
#endif
#define GET_MONTH() \
{ \
if ((*ptr == 'J') && (*(ptr + 1) == 'a') && (*(ptr + 2) == 'n'))\
{ \
tp->tm_mon = 0; \
} \
else if ((*ptr == 'F') && (*(ptr + 1) == 'e') && (*(ptr + 2) == 'b'))\
{ \
tp->tm_mon = 1; \
} \
else if ((*ptr == 'M') && (*(ptr + 2) == 'r')) \
{ \
tp->tm_mon = 2; \
} \
else if ((*ptr == 'A') && (*(ptr + 1) == 'p') && (*(ptr + 2) == 'r'))\
{ \
tp->tm_mon = 3; \
} \
else if ((*ptr == 'M') && (*(ptr + 1) == 'a') && \
((*(ptr + 2) == 'y') || (*(ptr + 2) == 'i'))) \
{ \
tp->tm_mon = 4; \
} \
else if ((*ptr == 'J') && (*(ptr + 1) == 'u') && (*(ptr + 2) == 'n'))\
{ \
tp->tm_mon = 5; \
} \
else if ((*ptr == 'J') && (*(ptr + 1) == 'u') && (*(ptr + 2) == 'l'))\
{ \
tp->tm_mon = 6; \
} \
else if ((*ptr == 'A') && (*(ptr + 1) == 'u') && (*(ptr + 2) == 'g'))\
{ \
tp->tm_mon = 7; \
} \
else if ((*ptr == 'S') && (*(ptr + 1) == 'e') && (*(ptr + 2) == 'p'))\
{ \
tp->tm_mon = 8; \
} \
else if ((*ptr == 'O') && (*(ptr + 2) == 't') && \
((*(ptr + 1) == 'c') || (*(ptr + 1) == 'k'))) \
{ \
tp->tm_mon = 9; \
} \
else if ((*ptr == 'N') && (*(ptr + 1) == 'o') && (*(ptr + 2) == 'v'))\
{ \
tp->tm_mon = 10; \
} \
else if ((*ptr == 'D') && (*(ptr + 1) == 'e') && \
((*(ptr + 2) == 'c') || (*(ptr + 2) == 'z'))) \
{ \
tp->tm_mon = 11; \
} \
}
/*######################### datestr2unixtime() ##########################*/
time_t
datestr2unixtime(char *date_str)
{
time_t current_time;
char *ptr;
struct tm *tp;
ptr = date_str;
current_time = time(NULL);
tp = gmtime(¤t_time);
/* RFC 822 format: Fri, 3 Oct 1997 02:15:31 GMT */
if ((isalpha((int)(*ptr))) && (isalpha((int)(*(ptr + 1)))) &&
(isalpha((int)(*(ptr + 2)))) && (*(ptr + 3) == ',') &&
(*(ptr + 4) == ' '))
{
ptr += 5;
if (((isdigit((int)(*ptr))) && ((*(ptr + 1) == ' ') ||
((isdigit((int)(*(ptr + 1)))) && (*(ptr + 2) == ' ')))) ||
((*ptr == ' ') && (isdigit((int)(*(ptr + 1)))) &&
(*(ptr + 2) == ' ')))
{
if (*(ptr + 1) == ' ')
{
tp->tm_mday = *ptr - '0';
ptr += 2;
}
else
{
if (*ptr == ' ')
{
tp->tm_mday = *(ptr + 1) - '0';
}
else
{
tp->tm_mday = ((*ptr - '0') * 10) + *(ptr + 1) - '0';
}
ptr += 3;
}
GET_MONTH();
if (*(ptr + 3) == ' ')
{
ptr += 4;
if ((isdigit((int)(*ptr))) && (isdigit((int)(*(ptr + 1)))) &&
(isdigit((int)(*(ptr + 2)))) && (isdigit((int)(*(ptr + 3)))) &&
(*(ptr + 4) == ' '))
{
tp->tm_year = (((*ptr - '0') * 1000) +
((*(ptr + 1) - '0') * 100) +
((*(ptr + 2) - '0') * 10) +
(*(ptr + 3) - '0')) - 1900;
ptr += 5;
if ((isdigit((int)(*ptr))) && (isdigit((int)(*(ptr + 1)))) &&
(*(ptr + 2) == ':'))
{
tp->tm_hour = ((*ptr - '0') * 10) + *(ptr + 1) - '0';
ptr += 3;
if ((isdigit((int)(*ptr))) && (isdigit((int)(*(ptr + 1)))))
{
tp->tm_min = ((*ptr - '0') * 10) + *(ptr + 1) - '0';
ptr += 2;
if ((*ptr == ':') && (isdigit((int)(*(ptr + 1)))) &&
(isdigit((int)(*(ptr + 2)))))
{
tp->tm_sec = ((*(ptr + 1) - '0') * 10) +
*(ptr + 2) - '0';
}
else
{
tp->tm_sec = 0;
}
/*
* FIXME: Currently I do not know how to handle the time
* zone. So we ignore it here and hope for the
* best!
*/
return(mktime(tp));
}
}
}
}
}
}
/* asctime() format : Fri Oct 3 02:15:31 1997 */
else if ((isalpha((int)(*ptr))) && (isalpha((int)(*(ptr + 1)))) &&
(isalpha((int)(*(ptr + 2)))) && (*(ptr + 3) == ' ') &&
(isalpha((int)(*(ptr + 4)))) && (isalpha((int)(*(ptr + 5)))) &&
(isalpha((int)(*(ptr + 6)))) && (*(ptr + 7) == ' '))
{
ptr += 4;
GET_MONTH();
if (*(ptr + 3) == ' ')
{
ptr += 4;
if (((isdigit((int)(*ptr))) && ((*(ptr + 1) == ' ') ||
((isdigit((int)(*(ptr + 1)))) && (*(ptr + 2) == ' ')))) ||
((*ptr == ' ') && (isdigit((int)(*(ptr + 1)))) &&
(*(ptr + 2) == ' ')))
{
if (*(ptr + 1) == ' ')
{
tp->tm_mday = *ptr - '0';
ptr += 2;
}
else
{
if (*ptr == ' ')
{
tp->tm_mday = *(ptr + 1) - '0';
}
else
{
tp->tm_mday = ((*ptr - '0') * 10) + *(ptr + 1) - '0';
}
ptr += 3;
}
if ((isdigit((int)(*ptr))) && (isdigit((int)(*(ptr + 1)))) &&
(*(ptr + 2) == ':'))
{
tp->tm_hour = ((*ptr - '0') * 10) + *(ptr + 1) - '0';
ptr += 3;
if ((isdigit((int)(*ptr))) && (isdigit((int)(*(ptr + 1)))))
{
tp->tm_min = ((*ptr - '0') * 10) + *(ptr + 1) - '0';
ptr += 2;
if ((*ptr == ':') && (isdigit((int)(*(ptr + 1)))) &&
(isdigit((int)(*(ptr + 2)))))
{
tp->tm_sec = ((*(ptr + 1) - '0') * 10) +
*(ptr + 2) - '0';
ptr += 3;
}
else
{
tp->tm_sec = 0;
}
if ((*ptr == ' ') && (isdigit((int)(*(ptr + 1)))) &&
(isdigit((int)(*(ptr + 2)))) &&
(isdigit((int)(*(ptr + 3)))) &&
(isdigit((int)(*(ptr + 4)))))
{
tp->tm_year = (((*(ptr + 1) - '0') * 1000) +
((*(ptr + 2) - '0') * 100) +
((*(ptr + 3) - '0') * 10) +
(*(ptr + 4) - '0')) - 1900;
}
/*
* FIXME: Currently I do not know how to handle the time
* zone. So we ignore it here and hope for the
* best!
*/
return(mktime(tp));
}
}
}
}
}
/* HTML directory list: 03-Oct-1997 02:15 */
else if ((isdigit((int)(*ptr))) && (isdigit((int)(*(ptr + 1)))) &&
(*(ptr + 2) == '-'))
{
tp->tm_mday = ((*ptr - '0') * 10) + *(ptr + 1) - '0';
ptr += 3;
GET_MONTH();
if ((*(ptr + 3) == '-') && (isdigit((int)(*(ptr + 4)))) &&
(isdigit((int)(*(ptr + 5)))) && (isdigit((int)(*(ptr + 6)))) &&
(isdigit((int)(*(ptr + 7)))) && (*(ptr + 8) == ' '))
{
tp->tm_year = (((*(ptr + 4) - '0') * 1000) +
((*(ptr + 5) - '0') * 100) +
((*(ptr + 6) - '0') * 10) +
(*(ptr + 7) - '0')) - 1900;
ptr += 9;
if ((isdigit((int)(*ptr))) && (*(ptr + 2) == ':') &&
(isdigit((int)(*(ptr + 1)))))
{
tp->tm_hour = ((*ptr - '0') * 10) + *(ptr + 1) - '0';
ptr += 3;
if ((isdigit((int)(*ptr))) && (isdigit((int)(*(ptr + 1)))))
{
tp->tm_min = ((*ptr - '0') * 10) + *(ptr + 1) - '0';
ptr += 2;
if ((*ptr == ':') && (isdigit((int)(*(ptr + 1)))) &&
(isdigit((int)(*(ptr + 2)))))
{
tp->tm_sec = ((*(ptr + 1) - '0') * 10) +
*(ptr + 2) - '0';
}
else
{
tp->tm_sec = 0;
}
return(mktime(tp));
}
}
}
}
else
{
int i = 0;
/* Check for RFC850 format: Friday, 03-Oct-97 02:15:31 GMT */
while ((isalpha((int)(*(ptr + i)))) && (i < 9))
{
i++;
}
if ((*(ptr + i) == ',') && (i <= 9) && (i > 0) &&
(*(ptr + i + 1) == ' '))
{
ptr += i + 2;
if ((isdigit((int)(*ptr))) && (isdigit((int)(*(ptr + 1)))) &&
(*(ptr + 2) == '-'))
{
tp->tm_mday = ((*ptr - '0') * 10) + *(ptr + 1) - '0';
ptr += 3;
GET_MONTH();
if ((*(ptr + 3) == '-') && (isdigit((int)(*(ptr + 4)))) &&
(isdigit((int)(*(ptr + 5)))) && (*(ptr + 6) == ' '))
{
/*
* NOTE: We ignore the year since it only has two digits.
* Lets not try to play any guessing games in
* finding the correct centry. So lets just take
* the year from current_time. Lets see how this
* works.
*/
ptr += 7;
if ((isdigit((int)(*ptr))) && (*(ptr + 2) == ':') &&
(isdigit((int)(*(ptr + 1)))))
{
tp->tm_hour = ((*ptr - '0') * 10) + *(ptr + 1) - '0';
ptr += 3;
if ((isdigit((int)(*ptr))) &&
(isdigit((int)(*(ptr + 1)))))
{
tp->tm_min = ((*ptr - '0') * 10) + *(ptr + 1) - '0';
ptr += 2;
if ((*ptr == ':') && (isdigit((int)(*(ptr + 1)))) &&
(isdigit((int)(*(ptr + 2)))))
{
tp->tm_sec = ((*(ptr + 1) - '0') * 10) +
*(ptr + 2) - '0';
}
else
{
tp->tm_sec = 0;
}
/*
* FIXME: Currently I do not know how to handle the
* timezone. So we ignore it here and hope for
* the best!
*/
return(mktime(tp));
}
}
}
}
}
}
return(-1);
}
