mirror of
https://frontier.innolan.net/rainlance/amiga-tz.git
synced 2025-11-20 22:21:17 +00:00
created
SCCS-file: date.c SCCS-SID: 1.1
This commit is contained in:
Arthur David Olson
committed by
Paul Eggert
Paul Eggert
parent
cb80e49bfc
commit
9a54a5ea97
366
date.c
Normal file
366
date.c
Normal file
@ -0,0 +1,366 @@
|
||||
/*
|
||||
* Copyright (c) 1985, 1987, 1988 The Regents of the University of California.
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms are permitted
|
||||
* provided that the above copyright notice and this paragraph are
|
||||
* duplicated in all such forms and that any documentation,
|
||||
* advertising materials, and other materials related to such
|
||||
* distribution and use acknowledge that the software was developed
|
||||
* by the University of California, Berkeley. The name of the
|
||||
* University may not be used to endorse or promote products derived
|
||||
* from this software without specific prior written permission.
|
||||
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
|
||||
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
|
||||
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
|
||||
*/
|
||||
|
||||
#ifndef lint
|
||||
char copyright[] =
|
||||
"@(#) Copyright (c) 1985, 1987, 1988 The Regents of the University of California.\n\
|
||||
All rights reserved.\n";
|
||||
#endif /* not lint */
|
||||
|
||||
#ifndef lint
|
||||
static char sccsid[] = "@(#)date.c 4.23 (Berkeley) 9/20/88";
|
||||
#endif /* not lint */
|
||||
|
||||
/*
|
||||
* Date - print and set date
|
||||
*/
|
||||
|
||||
#include <sys/param.h>
|
||||
#include <sys/time.h>
|
||||
#include <sys/file.h>
|
||||
#include <errno.h>
|
||||
#include <syslog.h>
|
||||
#include <utmp.h>
|
||||
#include <tzfile.h>
|
||||
#include <stdio.h>
|
||||
#include <ctype.h>
|
||||
#include <strings.h>
|
||||
|
||||
#define ATOI2(ar) (ar[0] - '0') * 10 + (ar[1] - '0'); ar += 2;
|
||||
|
||||
static struct timeval tv;
|
||||
static int retval;
|
||||
|
||||
static int dmsize[] =
|
||||
{ -1, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
|
||||
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char **argv;
|
||||
{
|
||||
extern int optind;
|
||||
extern char *optarg;
|
||||
struct timezone tz;
|
||||
char *ap, *tzn;
|
||||
int ch, uflag, nflag;
|
||||
char *username, *getlogin();
|
||||
time_t time();
|
||||
|
||||
nflag = uflag = 0;
|
||||
tz.tz_dsttime = tz.tz_minuteswest = 0;
|
||||
while ((ch = getopt(argc, argv, "d:nut:")) != EOF)
|
||||
switch((char)ch) {
|
||||
case 'd': /* daylight savings time */
|
||||
tz.tz_dsttime = atoi(optarg) ? 1 : 0;
|
||||
break;
|
||||
case 'n': /* don't set network */
|
||||
nflag = 1;
|
||||
break;
|
||||
case 'u': /* do it in GMT */
|
||||
uflag = 1;
|
||||
break;
|
||||
case 't': /* minutes west of GMT */
|
||||
/* error check; we can't allow "PST" */
|
||||
if (isdigit(*optarg)) {
|
||||
tz.tz_minuteswest = atoi(optarg);
|
||||
break;
|
||||
}
|
||||
/*FALLTHROUGH*/
|
||||
default:
|
||||
usage();
|
||||
exit(1);
|
||||
}
|
||||
argc -= optind;
|
||||
argv += optind;
|
||||
|
||||
if (argc > 1) {
|
||||
usage();
|
||||
exit(1);
|
||||
}
|
||||
|
||||
if ((tz.tz_minuteswest || tz.tz_dsttime) &&
|
||||
settimeofday((struct timeval *)NULL, &tz)) {
|
||||
perror("settimeofday");
|
||||
retval = 1;
|
||||
goto display;
|
||||
}
|
||||
|
||||
if (gettimeofday(&tv, &tz)) {
|
||||
perror("gettimeofday");
|
||||
exit(1);
|
||||
}
|
||||
|
||||
if (!argc)
|
||||
goto display;
|
||||
|
||||
if (gtime(*argv)) {
|
||||
usage();
|
||||
retval = 1;
|
||||
goto display;
|
||||
}
|
||||
|
||||
if (!uflag) { /* convert to GMT assuming local time */
|
||||
tv.tv_sec += (long)tz.tz_minuteswest * SECS_PER_MIN;
|
||||
/* now fix up local daylight time */
|
||||
if (localtime((time_t *)&tv.tv_sec)->tm_isdst)
|
||||
tv.tv_sec -= SECS_PER_HOUR;
|
||||
}
|
||||
if (nflag || !netsettime(tv)) {
|
||||
logwtmp("|", "date", "");
|
||||
if (settimeofday(&tv, (struct timezone *)NULL)) {
|
||||
perror("settimeofday");
|
||||
retval = 1;
|
||||
goto display;
|
||||
}
|
||||
logwtmp("{", "date", "");
|
||||
}
|
||||
|
||||
username = getlogin();
|
||||
if (!username || *username == '\0') /* single-user or no tty */
|
||||
username = "root";
|
||||
syslog(LOG_AUTH | LOG_NOTICE, "date set by %s", username);
|
||||
|
||||
display:
|
||||
if (gettimeofday(&tv, (struct timezone *)NULL)) {
|
||||
perror("gettimeofday");
|
||||
exit(1);
|
||||
}
|
||||
if (uflag) {
|
||||
ap = asctime(gmtime((time_t *)&tv.tv_sec));
|
||||
tzn = "GMT";
|
||||
}
|
||||
else {
|
||||
struct tm *tp;
|
||||
|
||||
tp = localtime((time_t *)&tv.tv_sec);
|
||||
ap = asctime(tp);
|
||||
tzn = tp->tm_zone;
|
||||
}
|
||||
printf("%.20s%s%s", ap, tzn, ap + 19);
|
||||
exit(retval);
|
||||
}
|
||||
|
||||
/*
|
||||
* gtime --
|
||||
* convert user's time into number of seconds
|
||||
*/
|
||||
static
|
||||
gtime(ap)
|
||||
register char *ap;
|
||||
{
|
||||
register int year, month;
|
||||
register char *C;
|
||||
struct tm *L;
|
||||
int day, hour, mins, secs;
|
||||
|
||||
for (secs = 0, C = ap; *C; ++C) {
|
||||
if (*C == '.') { /* seconds provided */
|
||||
if (strlen(C) != 3)
|
||||
return(1);
|
||||
*C = NULL;
|
||||
secs = (C[1] - '0') * 10 + (C[2] - '0');
|
||||
break;
|
||||
}
|
||||
if (!isdigit(*C))
|
||||
return(-1);
|
||||
}
|
||||
|
||||
L = localtime((time_t *)&tv.tv_sec);
|
||||
year = L->tm_year; /* defaults */
|
||||
month = L->tm_mon + 1;
|
||||
day = L->tm_mday;
|
||||
|
||||
switch ((int)(C - ap)) { /* length */
|
||||
case 10: /* yymmddhhmm */
|
||||
year = ATOI2(ap);
|
||||
case 8: /* mmddhhmm */
|
||||
month = ATOI2(ap);
|
||||
case 6: /* ddhhmm */
|
||||
day = ATOI2(ap);
|
||||
case 4: /* hhmm */
|
||||
hour = ATOI2(ap);
|
||||
mins = ATOI2(ap);
|
||||
break;
|
||||
default:
|
||||
return(1);
|
||||
}
|
||||
|
||||
if (*ap || month < 1 || month > 12 || day < 1 || day > 31 ||
|
||||
mins < 0 || mins > 59 || secs < 0 || secs > 59)
|
||||
return(1);
|
||||
if (hour == 24) {
|
||||
++day;
|
||||
hour = 0;
|
||||
}
|
||||
else if (hour < 0 || hour > 23)
|
||||
return(1);
|
||||
|
||||
tv.tv_sec = 0;
|
||||
year += TM_YEAR_BASE;
|
||||
if (isleap(year) && month > 2)
|
||||
++tv.tv_sec;
|
||||
for (--year;year >= EPOCH_YEAR;--year)
|
||||
tv.tv_sec += isleap(year) ? DAYS_PER_LYEAR : DAYS_PER_NYEAR;
|
||||
while (--month)
|
||||
tv.tv_sec += dmsize[month];
|
||||
tv.tv_sec += day - 1;
|
||||
tv.tv_sec = HOURS_PER_DAY * tv.tv_sec + hour;
|
||||
tv.tv_sec = MINS_PER_HOUR * tv.tv_sec + mins;
|
||||
tv.tv_sec = SECS_PER_MIN * tv.tv_sec + secs;
|
||||
return(0);
|
||||
}
|
||||
|
||||
#include <sys/socket.h>
|
||||
#include <netinet/in.h>
|
||||
#include <netdb.h>
|
||||
#define TSPTYPES
|
||||
#include <protocols/timed.h>
|
||||
|
||||
#define WAITACK 2 /* seconds */
|
||||
#define WAITDATEACK 5 /* seconds */
|
||||
|
||||
extern int errno;
|
||||
/*
|
||||
* Set the date in the machines controlled by timedaemons
|
||||
* by communicating the new date to the local timedaemon.
|
||||
* If the timedaemon is in the master state, it performs the
|
||||
* correction on all slaves. If it is in the slave state, it
|
||||
* notifies the master that a correction is needed.
|
||||
* Returns 1 on success, 0 on failure.
|
||||
*/
|
||||
netsettime(ntv)
|
||||
struct timeval ntv;
|
||||
{
|
||||
int s, length, port, timed_ack, found, err;
|
||||
long waittime;
|
||||
fd_set ready;
|
||||
char hostname[MAXHOSTNAMELEN];
|
||||
struct timeval tout;
|
||||
struct servent *sp;
|
||||
struct tsp msg;
|
||||
struct sockaddr_in sin, dest, from;
|
||||
|
||||
sp = getservbyname("timed", "udp");
|
||||
if (sp == 0) {
|
||||
fputs("udp/timed: unknown service\n", stderr);
|
||||
retval = 2;
|
||||
return (0);
|
||||
}
|
||||
dest.sin_port = sp->s_port;
|
||||
dest.sin_family = AF_INET;
|
||||
dest.sin_addr.s_addr = htonl((u_long)INADDR_ANY);
|
||||
s = socket(AF_INET, SOCK_DGRAM, 0);
|
||||
if (s < 0) {
|
||||
if (errno != EPROTONOSUPPORT)
|
||||
perror("date: socket");
|
||||
goto bad;
|
||||
}
|
||||
bzero((char *)&sin, sizeof (sin));
|
||||
sin.sin_family = AF_INET;
|
||||
for (port = IPPORT_RESERVED - 1; port > IPPORT_RESERVED / 2; port--) {
|
||||
sin.sin_port = htons((u_short)port);
|
||||
if (bind(s, (struct sockaddr *)&sin, sizeof (sin)) >= 0)
|
||||
break;
|
||||
if (errno != EADDRINUSE) {
|
||||
if (errno != EADDRNOTAVAIL)
|
||||
perror("date: bind");
|
||||
goto bad;
|
||||
}
|
||||
}
|
||||
if (port == IPPORT_RESERVED / 2) {
|
||||
fputs("date: All ports in use\n", stderr);
|
||||
goto bad;
|
||||
}
|
||||
msg.tsp_type = TSP_SETDATE;
|
||||
msg.tsp_vers = TSPVERSION;
|
||||
if (gethostname(hostname, sizeof (hostname))) {
|
||||
perror("gethostname");
|
||||
goto bad;
|
||||
}
|
||||
(void) strncpy(msg.tsp_name, hostname, sizeof (hostname));
|
||||
msg.tsp_seq = htons((u_short)0);
|
||||
msg.tsp_time.tv_sec = htonl((u_long)ntv.tv_sec);
|
||||
msg.tsp_time.tv_usec = htonl((u_long)ntv.tv_usec);
|
||||
length = sizeof (struct sockaddr_in);
|
||||
if (connect(s, &dest, length) < 0) {
|
||||
perror("date: connect");
|
||||
goto bad;
|
||||
}
|
||||
if (send(s, (char *)&msg, sizeof (struct tsp), 0) < 0) {
|
||||
if (errno != ECONNREFUSED)
|
||||
perror("date: send");
|
||||
goto bad;
|
||||
}
|
||||
timed_ack = -1;
|
||||
waittime = WAITACK;
|
||||
loop:
|
||||
tout.tv_sec = waittime;
|
||||
tout.tv_usec = 0;
|
||||
FD_ZERO(&ready);
|
||||
FD_SET(s, &ready);
|
||||
found = select(FD_SETSIZE, &ready, (fd_set *)0, (fd_set *)0, &tout);
|
||||
length = sizeof(err);
|
||||
if (getsockopt(s, SOL_SOCKET, SO_ERROR, (char *)&err, &length) == 0
|
||||
&& err) {
|
||||
errno = err;
|
||||
if (errno != ECONNREFUSED)
|
||||
perror("date: send (delayed error)");
|
||||
goto bad;
|
||||
}
|
||||
if (found > 0 && FD_ISSET(s, &ready)) {
|
||||
length = sizeof (struct sockaddr_in);
|
||||
if (recvfrom(s, (char *)&msg, sizeof (struct tsp), 0, &from,
|
||||
&length) < 0) {
|
||||
if (errno != ECONNREFUSED)
|
||||
perror("date: recvfrom");
|
||||
goto bad;
|
||||
}
|
||||
msg.tsp_seq = ntohs(msg.tsp_seq);
|
||||
msg.tsp_time.tv_sec = ntohl(msg.tsp_time.tv_sec);
|
||||
msg.tsp_time.tv_usec = ntohl(msg.tsp_time.tv_usec);
|
||||
switch (msg.tsp_type) {
|
||||
|
||||
case TSP_ACK:
|
||||
timed_ack = TSP_ACK;
|
||||
waittime = WAITDATEACK;
|
||||
goto loop;
|
||||
|
||||
case TSP_DATEACK:
|
||||
(void)close(s);
|
||||
return (1);
|
||||
|
||||
default:
|
||||
fprintf(stderr,
|
||||
"date: Wrong ack received from timed: %s\n",
|
||||
tsptype[msg.tsp_type]);
|
||||
timed_ack = -1;
|
||||
break;
|
||||
}
|
||||
}
|
||||
if (timed_ack == -1)
|
||||
fputs("date: Can't reach time daemon, time set locally.\n",
|
||||
stderr);
|
||||
bad:
|
||||
(void)close(s);
|
||||
retval = 2;
|
||||
return (0);
|
||||
}
|
||||
|
||||
usage()
|
||||
{
|
||||
fputs("usage: date [-nu] [-d dst] [-t minutes_west] [yymmddhhmm[.ss]]\n", stderr);
|
||||
}
|
||||
Reference in New Issue
Block a user