Return to arpadate.c CVS log

Up to [CSRG BSD Unix] / 41BSD / cmd / delivermail

Annotation of 41BSD/cmd/delivermail/arpadate.c, revision 1.1.1.1

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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.