1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
/*
* unix_time.c
*
* Glue code for pasting Kerberos into the Unix environment.
*
* Originally written by John Gilmore, Cygnus Support, May '94.
* Public Domain.
*
* Required for use by the Cygnus krb.a.
*/
#include "k5-int.h"
#if !defined(_MSDOS) && !defined(_WIN32)
#include <sys/time.h>
krb5_ui_4
unix_time_gmt_unixsec (usecptr)
krb5_ui_4 *usecptr;
{
struct timeval now;
(void) gettimeofday (&now, (struct timezone *)0);
if (usecptr)
*usecptr = now.tv_usec;
return now.tv_sec;
}
#endif /* !_MSDOS && !_WIN32 */
#ifdef _WIN32
#include <time.h>
krb5_ui_4
unix_time_gmt_unixsec (usecptr)
krb5_ui_4 *usecptr;
{
time_t gmt;
time(&gmt);
if (usecptr)
*usecptr = gmt;
return gmt;
}
#endif /* _WIN32 */
#ifdef MSDOS
/*
* Originally written by John Gilmore, Cygnus Support, May '94.
* Public Domain.
*/
#include <time.h>
#include <sys/timeb.h>
#include <dos.h>
#include <string.h>
/*
* Due to the fact that DOS time can be unreliable we have reverted
* to using the AT hardware clock and converting it to Unix time.
*/
static long win_time_get_epoch(void);
krb5_ui_4
unix_time_gmt_unixsec (usecptr)
krb5_ui_4 *usecptr;
{
struct tm tm;
union _REGS inregs; /* For calling BIOS */
union _REGS outregs;
struct _timeb now;
time_t time;
long convert; /* MSC 7.00 bug work around */
krb5_ui_4 retval; /* What we return */
_ftime(&now); /* Daylight savings time */
/* Get time from AT hardware clock INT 0x1A, AH=2 */
memset(&inregs, 0, sizeof(inregs));
inregs.h.ah = 2;
_int86(0x1a, &inregs, &outregs);
/* 0x13 = decimal 13, hence the decoding below */
tm.tm_sec = 10 * ((outregs.h.dh & 0xF0) >> 4) + (outregs.h.dh & 0x0F);
tm.tm_min = 10 * ((outregs.h.cl & 0xF0) >> 4) + (outregs.h.cl & 0x0F);
tm.tm_hour = 10 * ((outregs.h.ch & 0xF0) >> 4) + (outregs.h.ch & 0x0F);
/* Get date from AT hardware clock INT 0x1A, AH=4 */
memset(&inregs, 0, sizeof(inregs));
inregs.h.ah = 4;
_int86(0x1a, &inregs, &outregs);
tm.tm_mday = 10 * ((outregs.h.dl & 0xF0) >> 4) + (outregs.h.dl & 0x0F);
tm.tm_mon = 10 * ((outregs.h.dh & 0xF0) >> 4) + (outregs.h.dh & 0x0F) - 1;
tm.tm_year = 10 * ((outregs.h.cl & 0xF0) >> 4) + (outregs.h.cl & 0x0F);
tm.tm_year += 100 * ((10 * (outregs.h.ch & 0xF0) >> 4)
+ (outregs.h.ch & 0x0F) - 19);
tm.tm_wday = 0;
tm.tm_yday = 0;
tm.tm_isdst = now.dstflag;
time = mktime(&tm);
convert = win_time_get_epoch();
retval = time + convert;
if (usecptr)
*usecptr = retval;
return retval;
}
/*
* This routine figures out the current time epoch and returns the
* conversion factor. It exists because
* Microloss screwed the pooch on the time() and _ftime() calls in
* its release 7.0 libraries. They changed the epoch to Dec 31, 1899!
* Idiots... We try to cope.
*/
static struct tm jan_1_70 = {0, 0, 0, 1, 0, 70};
static long epoch = 0;
static int epoch_set = 0;
static long
win_time_get_epoch()
{
if (!epoch_set) {
epoch = 0 - mktime (&jan_1_70); /* Seconds til 1970 localtime */
epoch += _timezone; /* Seconds til 1970 GMT */
epoch_set = 1;
}
return epoch;
}
#endif
|
