1 # include <time.h>
2 
3 static char SccsId[] = "@(#)arpadate.c	1.2	07/25/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 **	Requires:
22 **		time (sys)
23 **		ctime (sys)
24 **		strcpy (sys)
25 **		strcat (sys)
26 **		localtime (sys)
27 **
28 **	History:
29 **		1/15/80 -- written.
30 */
31 
32 arpadate()
33 {
34 	register char *ud;	/* the unix date */
35 	long t;
36 	extern struct tm *localtime();
37 	register char *p;
38 	static char b[40];
39 
40 	time(&t);
41 	ud = ctime(&t);
42 
43 	ud[3] = ud[7] = ud[10] = ud[19] = ud[24] = '\0';
44 	p = &ud[8];		/* 16 */
45 	if (*p == ' ')
46 		p++;
47 	strcpy(b, p);
48 	strcat(b, " ");
49 	strcat(b, &ud[4]);	/* Sep */
50 	strcat(b, " ");
51 	strcat(b, &ud[20]);	/* 1979 */
52 	strcat(b, " ");
53 	strcat(b, &ud[11]);	/* 01:03:52 */
54 	if (localtime(&t)->tm_isdst)
55 		strcat(b, "-PDT");
56 	else
57 		strcat(b, "-PST");
58 	return (b);
59 }
60