Return to imp.c CVS log

Up to [Research Unix] / researchv10no / games

Annotation of researchv10no/games/imp.c, revision 1.1

1.1     ! root        1: #include <stdio.h>
        !             2: FILE *fin;
        !             3: int redir;
        !             4: main(){
        !             5:        char cline[200], fline[200], dline[30], ndline[30], tuid[12], tm[12];
        !             6:        char fid[100], rid[100], rline[113], *gets(), fname[100], buf[200],
        !             7:                *fgets();
        !             8:        FILE *f, *fopen(), *popen();
        !             9: 
        !            10:        f = popen("date", "r");
        !            11:        fgets(dline, 30, f);
        !            12:        dline[28] = '\0';
        !            13:        pclose(f);
        !            14: 
        !            15:        printf("Target uid: ");
        !            16:        gets(tuid);
        !            17:        printf("Target machine: ");
        !            18:        gets(tm);
        !            19:        printf("Sender: ");
        !            20:        gets(fid);
        !            21:        printf("Sending machine: ");
        !            22:        gets(rid);
        !            23: 
        !            24:        strcpy(cline, "uux - ");
        !            25:        strcat(cline, tm);
        !            26:        strcat(cline, "!rmail '(");
        !            27:        strcat(cline, tuid);
        !            28:        strcat(cline, ")'");
        !            29: 
        !            30:        strcpy(fline, "From ");
        !            31:        strcat(fline, fid);
        !            32:        strcat(fline, " ");
        !            33: 
        !            34:        strcpy(dline+16, dline+19);
        !            35: 
        !            36:        *rline = '\0';
        !            37:        if(*rid){
        !            38:           strcpy(rline, " remote from ");
        !            39:           strcat(rline, rid);
        !            40:        }
        !            41: 
        !            42:        printf("%s\n", cline);
        !            43:        printf("%s%s%s\n", fline, dline, rline);
        !            44:        printf("CR or new date stamp: ");
        !            45:        *ndline = '\0';
        !            46:        gets(ndline);
        !            47:        if(*ndline) strcpy(dline, ndline);
        !            48:        strcat(fline, dline);
        !            49:        strcat(fline, rline);
        !            50:        if(*ndline) printf("%s\n", fline);
        !            51: 
        !            52:        puts("Last chance to abort.  Type message or <filename");
        !            53:        redir = getchar();
        !            54:        if(redir == '<'){
        !            55:           gets(fname);
        !            56:           if((fin = fopen(fname, "r")) == NULL){
        !            57:              printf("Can't open %s\n", fname);
        !            58:              exit(1);
        !            59:           }
        !            60:           redir = 1;
        !            61:        }
        !            62:        else{
        !            63:           ungetc(redir, stdin);
        !            64:           redir = 0;
        !            65:        }
        !            66: 
        !            67:        f = popen(cline, "w");
        !            68:        fprintf(f, "%s\n", fline);
        !            69: 
        !            70:        while(next(buf) != EOF) fprintf(f, "%s\n", buf);
        !            71: 
        !            72:        pclose(f);
        !            73: }
        !            74: next(buf)
        !            75: char *buf;
        !            76: {
        !            77:        if(redir){
        !            78:           if(fgets(buf, 200, fin) == NULL) goto quit;
        !            79:           buf[strlen(buf)-1] = '\0';
        !            80:        }
        !            81:        else if(gets(buf) == NULL) goto quit;
        !            82:        if(*buf == '.' && *(buf+1) == '\0') goto quit;
        !            83:        return 0;
        !            84: quit:  return EOF;
        !            85: }

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