chiark / gitweb /
debugging for thing that crashed
[innduct.git] / expire / convdate.c
1 /*  $Id: convdate.c 6372 2003-05-31 19:48:28Z rra $
2 **
3 **  Convert date strings and numbers to numbers and strings.
4 */
5
6 #include "config.h"
7 #include "clibrary.h"
8 #include <ctype.h>
9 #include <time.h>
10
11 #include "inn/messages.h"
12 #include "libinn.h"
13
14 static const char usage[] = "\
15 Usage: convdate -n [date ...]\n\
16        convdate [-dl] -c [time ...]\n\
17        convdate [-dl] [-s] [date ...]\n\
18 \n\
19 convdate -n converts a date (in any format parseable by parsedate) to the\n\
20 number of seconds since epoch.  convdate -s does the same, but converts\n\
21 to a date string.  convdate -c converts seconds since epoch to a date\n\
22 string.  The default output is the output of ctime (normally the same format\n\
23 as returned by the date command).  If -d is given, the output is formatted\n\
24 as a valid Usenet article Date header.  If -l is given with -d, format the\n\
25 time in local time rather than UTC.  If no options are given, the -s\n\
26 behavior is the default; if no dates are given, the current time is used.\n";
27
28 /* Whether to format the output as a Date header. */
29 static bool date_format = false;
30
31 /* Whether to use local time instead of UTC. */
32 static bool date_local = false;
33
34
35 /*
36 **  Return true if the given string is entirely digits.
37 */
38 static bool
39 isdigits(const char *p)
40 {
41     for (; *p; p++)
42         if (!CTYPE(isdigit, *p))
43             return false;
44     return true;
45 }
46
47
48 /*
49 **  Print date corresponding to the provided time_t.  By default, the output
50 **  of ctime is printed, but if date_format is true, makedate is used
51 **  instead.  If date_local is true, format in local time; otherwise, use
52 **  UTC.  Returns success.
53 */
54 static bool
55 print_date(time_t date)
56 {
57     char date_buffer[128];
58     char *result;
59
60     if (date_format) {
61         if (!makedate(date, date_local, date_buffer, sizeof(date_buffer))) {
62             warn("can't format %ld", (long) date);
63             return false;
64         } else {
65             printf("%s\n", date_buffer);
66         }
67     } else {
68         result = ctime(&date);
69         if (result == NULL) {
70             warn("can't format %ld", (long) date);
71             return false;
72         } else {
73             printf("%s", result);
74         }
75     }
76     return true;
77 }
78
79
80 /*
81 **  The core function.  Given a string representing a date (in some format
82 **  given by the mode) and a mode ('s', 'n', or 'c', corresponding to the
83 **  basic three options to the program), convert the date and print the
84 **  output.  date may be NULL, in which case the current date is used.
85 **  Returns true if conversion was successful, false otherwise.
86 */
87 static bool
88 convdate(const char *date, char mode)
89 {
90     time_t seconds;
91
92     /* Convert the given date to seconds or obtain the current time. */
93     if (date == NULL) {
94         seconds = time(NULL);
95     } else if (mode == 'c') {
96         if (!isdigits(date)) {
97             warn("\"%s\" doesn't look like a number", date);
98             return false;
99         } else {
100             seconds = (time_t) atol(date);
101         }
102     } else {
103         seconds = parsedate((char *) date, NULL);
104         if (seconds == (time_t) -1) {
105             warn("can't convert \"%s\"", date);
106             return false;
107         }
108     }
109
110     /* Output the resulting date. */
111     if (mode == 'n') {
112         printf("%ld\n", (long) seconds);
113         return true;
114     } else {
115         return print_date(seconds);
116     }
117 }
118
119
120 int
121 main(int argc, char *argv[])
122 {
123     int option, status;
124     char *date;
125     char mode = '\0';
126
127     message_program_name = "convdate";
128
129     /* Parse options. */
130     while ((option = getopt(argc, argv, "cdhlns")) != EOF) {
131         switch (option) {
132         case 'h':
133             printf("%s\n", usage);
134             exit(0);
135             break;
136         case 'd':
137             date_format = true;
138             break;
139         case 'l':
140             date_local = true;
141             break;
142         case 'c':
143         case 'n':
144         case 's':
145             if (mode != 0) die("only one of -c, -n, or -s is allowed");
146             mode = option;
147             break;
148         default:
149             fprintf(stderr, "%s", usage);
150             exit(1);
151             break;
152         }
153     }
154     if (mode == '\0')
155         mode = 's';
156     argc -= optind;
157     argv += optind;
158
159     /* Perform the desired action for each provided argument. */
160     if (argc == 0) {
161         exit(convdate(NULL, mode) ? 0 : 1);
162     } else {
163         for (date = *argv, status = 0; date != NULL; date = *++argv)
164             status += (convdate(date, mode) ? 0 : 1);
165         exit(status);
166     }
167 }