Return to fsend.c CVS log

Up to [Research Unix] / researchv10no / cmd / spool

Annotation of researchv10no/cmd/spool/fsend.c, revision 1.1

1.1     ! root        1: #include       <stdio.h>
        !             2: 
        !             3: /*
        !             4:  *  fsend -- spooler to send file to GCOS
        !             5:  */
        !             6: 
        !             7: 
        !             8: #define        DPR     0
        !             9: #define        FGET    0
        !            10: #define        FSEND   1
        !            11: #define        GCAT    0
        !            12: #define        LPR     0
        !            13: 
        !            14: #define        NAME    "fsend"
        !            15: #define        BF      'B'
        !            16: #define        MAXCOPY 204800L
        !            17: #define FIRSTCHAR 'N'-1
        !            18: 
        !            19: char   cfname[]        = "/usr/spool/dpd/cfMXXXXX";
        !            20: char   dfname[]        = "/usr/spool/dpd/dfMXXXXX";
        !            21: char   lfname[]        = "/usr/spool/dpd/lfMXXXXX";
        !            22: char   tfname[]        = "/usr/spool/dpd/tfMXXXXX";
        !            23: char   zfname[]        = "/usr/spool/dpd/zfMXXXXX";
        !            24: 
        !            25: int    namef   = 0;
        !            26: char   fname[13] = "pipe.end"  /* gcos file name */;
        !            27: char   *fmode;
        !            28: char   *fzf;
        !            29: 
        !            30: #include       "spool.c"
        !            31: 
        !            32: main(agc, agv)
        !            33: int agc;
        !            34: char *agv[];
        !            35: {
        !            36:        int i;
        !            37: 
        !            38:        argc = agc;    argv = agv;
        !            39:        pidfn();
        !            40:        remotsw = TOSS;         /*default is toss out online output*/
        !            41:        wantmail = 1;           /*default is send mail.*/
        !            42:        grade = '1';
        !            43:        fmode = "a";
        !            44: 
        !            45:        while (argc>1 && (arg = argv[1])[0]=='-') {
        !            46:            if(!comopt(arg[1]))
        !            47:                switch (arg[1]) {
        !            48: 
        !            49:                case 'a':
        !            50:                        fmode = "a";
        !            51:                        break;
        !            52: 
        !            53:                case 'b':
        !            54:                        fmode = "b";
        !            55:                        break;
        !            56: 
        !            57:                case 'f':
        !            58:                        arg = getarg('f');
        !            59:                        i = 0;
        !            60:                        while((fname[i] = arg[i]))
        !            61:                                if(++i > 12) {
        !            62:                                        fname[i] = '\0';
        !            63:                                        break;
        !            64:                                }
        !            65:                        mailfile = fname;
        !            66:                        namef = 1;
        !            67:                        break;
        !            68: 
        !            69:                case 'u':
        !            70:                        arg = getarg('u');
        !            71:                        i = 0;
        !            72:                        while((gcosid[i] = arg[i]))
        !            73:                                if(++i > 12) {
        !            74:                                        gcosid[i] = '\0';
        !            75:                                        break;
        !            76:                                }
        !            77:                        uidf = 1;
        !            78:                        break;
        !            79: 
        !            80:                case 'x':
        !            81:                        archsw++;
        !            82:                        break;
        !            83: 
        !            84:                default:
        !            85:                        fprintf(stderr, "%s: Unrecognized option: %s\n", NAME, arg);
        !            86:                        break;
        !            87:                }
        !            88:                argc--;
        !            89:                argv++;
        !            90:        }
        !            91: 
        !            92:        spool1();               /*setup initial GCOS cards.*/
        !            93:        card('L',"$     select  cc/unixsupport/access");
        !            94: 
        !            95:        filargs();              /*process file arguments.*/
        !            96: 
        !            97:        spool2();               /*put out final cards, and spool job.*/
        !            98:        out();
        !            99: }
        !           100: 
        !           101: nuact(file)
        !           102: char file[];
        !           103: {
        !           104:        int c, i, j;
        !           105: 
        !           106:        if(namef)
        !           107:                namef = 0;
        !           108:        else {
        !           109:                i = 0;
        !           110:                j = 0;
        !           111:                while((c = file[i++]) != '\0') {
        !           112:                        if(c == '/') { j = 0; continue; }
        !           113:                        if(j >= 12) break;
        !           114:                        fname[j++] = c;
        !           115:                }
        !           116:                fname[j++] = '\0';
        !           117:        }
        !           118:        if(gcdebug)
        !           119:                card('L', "$    select  cc/test/fsend.1");
        !           120:        else
        !           121:                card('L', "$    select  cc/unixsupport/fsend.1");
        !           122:        card('L', " ignore errs");
        !           123:        card('L', sprintf(buf, "fcreat %s/%s,blocks/%d,unlimited/,read,modify/%s/",
        !           124:                        gcosid, fname, gsize, gcosid) );
        !           125:        card('L', sprintf(buf, "fcreat %s/%s,blocks/1,unlimited/,read,modify/%s/",
        !           126:                        gcosid, fname, gcosid) );
        !           127:        if(gcdebug)
        !           128:                card('L', "$    select  cc/test/fsend.2");
        !           129:        else
        !           130:                card('L', "$    select  cc/unixsupport/fsend.2");
        !           131:        card('L', sprintf(buf, "%s %s/%s %ld", fmode, gcosid, fname, usize) );
        !           132:        card('L', "$    data    i*,ncksum");
        !           133: }
        !           134: 
        !           135: archive()
        !           136: {
        !           137:        card('L', "$      select  cc/unixsupport/arch" );
        !           138:        card('L', sprintf(buf, "s   %-12s %-12s", gcosid, fname) );
        !           139: }

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