Return to arpadate.c CVS log

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

Annotation of 40BSD/cmd/delivermail/arpadate.c, revision 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.