1 # include <time.h>
2 
3 static char SccsId[] = "@(#)arpadate.c	1.3	08/02/80";
4 
5 /*
6 **  ARPADATE -- Create date in ARPANET format
7 **
8 **	Parameters:
9 **		none
10 **
11 **	Returns:
12 **		pointer to an ARPANET date field
13 **
14 **	Side Effects:
15 **		none
16 **
17 **	WARNING:
18 **		date is stored in a local buffer -- subsequent
19 **		calls will overwrite.
20 */
21 
22 arpadate()
23 {
24 	register char *ud;	/* the unix date */
25 	long t;
26 	extern struct tm *localtime();
27 	register char *p;
28 	static char b[40];
29 
30 	time(&t);
31 	ud = ctime(&t);
32 
33 	ud[3] = ud[7] = ud[10] = ud[19] = ud[24] = '\0';
34 	p = &ud[8];		/* 16 */
35 	if (*p == ' ')
36 		p++;
37 	strcpy(b, p);
38 	strcat(b, " ");
39 	strcat(b, &ud[4]);	/* Sep */
40 	strcat(b, " ");
41 	strcat(b, &ud[20]);	/* 1979 */
42 	strcat(b, " ");
43 	strcat(b, &ud[11]);	/* 01:03:52 */
44 	if (localtime(&t)->tm_isdst)
45 		strcat(b, "-PDT");
46 	else
47 		strcat(b, "-PST");
48 	return (b);
49 }
50