1 /*-
2 * SPDX-License-Identifier: BSD-3-Clause
3 *
4 * Copyright (c) 1989, 1993, 1994
5 * The Regents of the University of California. All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32 #ifndef lint
33 static const char copyright[] =
34 "@(#) Copyright (c) 1989, 1993\n\
35 The Regents of the University of California. All rights reserved.\n";
36 #endif
37
38 #if 0
39 #ifndef lint
40 static char sccsid[] = "@(#)calendar.c 8.3 (Berkeley) 3/25/94";
41 #endif
42 #endif
43
44 #include <sys/cdefs.h>
45 #include <sys/types.h>
46 #include <err.h>
47 #include <errno.h>
48 #include <locale.h>
49 #include <login_cap.h>
50 #include <langinfo.h>
51 #include <pwd.h>
52 #include <stdio.h>
53 #include <stdlib.h>
54 #include <string.h>
55 #include <time.h>
56 #include <unistd.h>
57
58 #include "calendar.h"
59
60 #define UTCOFFSET_NOTSET 100 /* Expected between -24 and +24 */
61 #define LONGITUDE_NOTSET 1000 /* Expected between -360 and +360 */
62
63 struct passwd *pw;
64 int doall = 0;
65 int debug = 0;
66 static char *DEBUG = NULL;
67 static time_t f_time = 0;
68 double UTCOffset = UTCOFFSET_NOTSET;
69 int EastLongitude = LONGITUDE_NOTSET;
70 #ifdef WITH_ICONV
71 const char *outputEncoding = NULL;
72 #endif
73
74 static void usage(void) __dead2;
75
76 int
main(int argc,char * argv[])77 main(int argc, char *argv[])
78 {
79 int f_dayAfter = 0; /* days after current date */
80 int f_dayBefore = 0; /* days before current date */
81 int Friday = 5; /* day before weekend */
82
83 int ch;
84 struct tm tp1, tp2;
85
86 (void)setlocale(LC_ALL, "");
87
88 while ((ch = getopt(argc, argv, "-A:aB:D:dF:f:l:t:U:W:?")) != -1)
89 switch (ch) {
90 case '-': /* backward contemptible */
91 case 'a':
92 if (getuid()) {
93 errno = EPERM;
94 err(1, NULL);
95 }
96 doall = 1;
97 break;
98
99 case 'W': /* we don't need no steenking Fridays */
100 Friday = -1;
101 /* FALLTHROUGH */
102
103 case 'A': /* days after current date */
104 f_dayAfter = atoi(optarg);
105 if (f_dayAfter < 0)
106 errx(1, "number of days must be positive");
107 break;
108
109 case 'B': /* days before current date */
110 f_dayBefore = atoi(optarg);
111 if (f_dayBefore < 0)
112 errx(1, "number of days must be positive");
113 break;
114
115 case 'D': /* debug output of sun and moon info */
116 DEBUG = optarg;
117 break;
118
119 case 'd': /* debug output of current date */
120 debug = 1;
121 break;
122
123 case 'F': /* Change the time: When does weekend start? */
124 Friday = atoi(optarg);
125 break;
126
127 case 'f': /* other calendar file */
128 calendarFile = optarg;
129 break;
130
131 case 'l': /* Change longitudal position */
132 EastLongitude = strtol(optarg, NULL, 10);
133 break;
134
135 case 't': /* other date, for tests */
136 f_time = Mktime(optarg);
137 break;
138
139 case 'U': /* Change UTC offset */
140 UTCOffset = strtod(optarg, NULL);
141 break;
142
143 case '?':
144 default:
145 usage();
146 }
147
148 argc -= optind;
149 argv += optind;
150
151 if (argc)
152 usage();
153
154 /* use current time */
155 if (f_time <= 0)
156 (void)time(&f_time);
157
158 /* if not set, determine where I could be */
159 {
160 if (UTCOffset == UTCOFFSET_NOTSET &&
161 EastLongitude == LONGITUDE_NOTSET) {
162 /* Calculate on difference between here and UTC */
163 time_t t;
164 struct tm tm;
165 long utcoffset, hh, mm, ss;
166 double uo;
167
168 time(&t);
169 localtime_r(&t, &tm);
170 utcoffset = tm.tm_gmtoff;
171 /* seconds -> hh:mm:ss */
172 hh = utcoffset / SECSPERHOUR;
173 utcoffset %= SECSPERHOUR;
174 mm = utcoffset / SECSPERMINUTE;
175 utcoffset %= SECSPERMINUTE;
176 ss = utcoffset;
177
178 /* hh:mm:ss -> hh.mmss */
179 uo = mm + (100.0 * (ss / 60.0));
180 uo /= 60.0 / 100.0;
181 uo = hh + uo / 100;
182
183 UTCOffset = uo;
184 EastLongitude = UTCOffset * 15;
185 } else if (UTCOffset == UTCOFFSET_NOTSET) {
186 /* Base on information given */
187 UTCOffset = EastLongitude / 15;
188 } else if (EastLongitude == LONGITUDE_NOTSET) {
189 /* Base on information given */
190 EastLongitude = UTCOffset * 15;
191 }
192 }
193
194 settimes(f_time, f_dayBefore, f_dayAfter, Friday, &tp1, &tp2);
195 generatedates(&tp1, &tp2);
196
197 /*
198 * FROM now on, we are working in UTC.
199 * This will only affect moon and sun related events anyway.
200 */
201 if (setenv("TZ", "UTC", 1) != 0)
202 errx(1, "setenv: %s", strerror(errno));
203 tzset();
204
205 if (debug)
206 dumpdates();
207
208 if (DEBUG != NULL) {
209 dodebug(DEBUG);
210 exit(0);
211 }
212
213 if (doall)
214 while ((pw = getpwent()) != NULL) {
215 pid_t pid;
216
217 if (chdir(pw->pw_dir) == -1)
218 continue;
219 pid = fork();
220 if (pid < 0)
221 err(1, "fork");
222 if (pid == 0) {
223 login_cap_t *lc;
224
225 lc = login_getpwclass(pw);
226 if (setusercontext(lc, pw, pw->pw_uid,
227 LOGIN_SETALL & ~LOGIN_SETLOGIN) != 0)
228 errx(1, "setusercontext");
229 setenv("HOME", pw->pw_dir, 1);
230 cal();
231 exit(0);
232 }
233 }
234 else {
235 #ifdef WITH_ICONV
236 /* Save the information about the encoding used in the terminal. */
237 outputEncoding = strdup(nl_langinfo(CODESET));
238 if (outputEncoding == NULL)
239 errx(1, "cannot allocate memory");
240 #endif
241 cal();
242 }
243 exit(0);
244 }
245
246
247 static void __dead2
usage(void)248 usage(void)
249 {
250
251 fprintf(stderr, "%s\n%s\n%s\n",
252 "usage: calendar [-A days] [-a] [-B days] [-D sun|moon] [-d]",
253 " [-F friday] [-f calendarfile] [-l longitude]",
254 " [-t dd[.mm[.year]]] [-U utcoffset] [-W days]"
255 );
256 exit(1);
257 }
258