BSD 3 development

[unix-history] / usr / src / cmd / uucp / uucp.c

diff --git a/usr/src/cmd/uucp/uucp.c b/usr/src/cmd/uucp/uucp.c
index 8463592..9680d61 100644 (file)
--- a/usr/src/cmd/uucp/uucp.c
+++ b/usr/src/cmd/uucp/uucp.c
@@ -1,18 +1,23 @@
+       /*  uucp 2.7  5/24/79  19:40:13  */

 #include "uucp.h"
 #include "uucpdefs.h"
 #include <sys/types.h>
 #include <sys/stat.h>
 
 #include "uucp.h"
 #include "uucpdefs.h"
 #include <sys/types.h>
 #include <sys/stat.h>
 

+static char SiD[] = "@(#)uucp  2.7";
+

 /*
  *     uucp
  */
 
 int Uid;
 /*
  *     uucp
  */
 
 int Uid;

-int Startjob = 1;
-char Path[100], Optns[10];
+char *Ropt = " ";
+char Path[100], Optns[10], Ename[8];

 char Grade = 'n';
 int Copy = 1;
 
 char Grade = 'n';
 int Copy = 1;
 

+#define MAXCOUNT 20    /* maximun number of commands per C. file */
+

 main(argc, argv)
 char *argv[];
 {
 main(argc, argv)
 char *argv[];
 {


@@ -21,18 +26,20 @@ char *argv[];
        char file1[MAXFULLNAME], file2[MAXFULLNAME];
        extern char *index();
 
        char file1[MAXFULLNAME], file2[MAXFULLNAME];
        extern char *index();
 

+       uucpname(Myname);

        Optns[0] = '-';
        Optns[0] = '-';

-       Optns[1] = '\0';
+       Ename[0] = Optns[1] = '\0';

        while(argc>1 && argv[1][0] == '-'){
                switch(argv[1][1]){
                case 'c':
                        Copy = 0;
        while(argc>1 && argv[1][0] == '-'){
                switch(argv[1][1]){
                case 'c':
                        Copy = 0;

+                       strcat(Optns, "c");

                        break;
                case 'd':
                        strcat(Optns, "d");
                        break;
                case 'e':
                        break;
                case 'd':
                        strcat(Optns, "d");
                        break;
                case 'e':

-                       fprintf(stderr, "-e option removed\n");
+                       sprintf(Ename, "%.7s", &argv[1][2]);

                        break;
                case 'g':
                        Grade = argv[1][2]; break;
                        break;
                case 'g':
                        Grade = argv[1][2]; break;


@@ -40,7 +47,7 @@ char *argv[];
                        strcat(Optns, "m");
                        break;
                case 'r':
                        strcat(Optns, "m");
                        break;
                case 'r':

-                       Startjob = 0;
+                       Ropt = argv[1];

                        break;
                case 's':
                        Spool = &argv[1][2]; break;
                        break;
                case 's':
                        Spool = &argv[1][2]; break;


@@ -56,7 +63,10 @@ char *argv[];
        }
        DEBUG(4, "\n\n** %s **\n", "START");
        ret = gwd(Wrkdir);
        }
        DEBUG(4, "\n\n** %s **\n", "START");
        ret = gwd(Wrkdir);

-       ASSERT(ret == 0, "GWD FAILED %d", ret);
+       if (ret != 0) {
+               fprintf(stderr, "can't get working directory; will try to continue\n");
+               strcpy(Wrkdir, "/UNKNOWN");
+       }

        chdir(Spool);
 
        Uid = getuid();
        chdir(Spool);
 
        Uid = getuid();


@@ -64,6 +74,7 @@ char *argv[];
        ASSERT(ret == 0, "CAN NOT FIND UID %d\n", Uid);
        DEBUG(4, "UID %d, ", Uid);
        DEBUG(4, "User %s,", User);
        ASSERT(ret == 0, "CAN NOT FIND UID %d\n", Uid);
        DEBUG(4, "UID %d, ", Uid);
        DEBUG(4, "User %s,", User);

+       DEBUG(4, "Ename (%s) ", Ename);

        DEBUG(4, "PATH %s\n", Path);
        if (argc < 3) {
                fprintf(stderr, "usage uucp from ... to\n");
        DEBUG(4, "PATH %s\n", Path);
        if (argc < 3) {
                fprintf(stderr, "usage uucp from ... to\n");


@@ -89,6 +100,8 @@ char *argv[];
                sysfile2 = Myname;
                strcpy(file2, argv[argc - 1]);
        }
                sysfile2 = Myname;
                strcpy(file2, argv[argc - 1]);
        }

+       if (strlen(sysfile2) > 7)
+               *(sysfile2 + 7) = '\0';

 
 
        /*  do each from argument  */
 
 
        /*  do each from argument  */


@@ -96,6 +109,8 @@ char *argv[];
                if ((cp = index(argv[1], '!')) != NULL) {
                        sysfile1 = argv[1];
                        *cp = '\0';
                if ((cp = index(argv[1], '!')) != NULL) {
                        sysfile1 = argv[1];
                        *cp = '\0';

+                       if (strlen(sysfile1) > 7)
+                               *(sysfile1 + 7) = '\0';

                        if (*sysfile1 == '\0')
                                sysfile1 = Myname;
                        else
                        if (*sysfile1 == '\0')
                                sysfile1 = Myname;
                        else


@@ -116,7 +131,8 @@ char *argv[];
                argv++;
        }
 
                argv++;
        }
 

-       if (Startjob)
+       clscfile();
+       if (*Ropt != '-')

                xuucico("");
        cleanup(0);
 }
                xuucico("");
        cleanup(0);
 }


@@ -140,12 +156,13 @@ int code;
 copy(s1, f1, s2, f2)
 char *s1, *f1, *s2, *f2;
 {
 copy(s1, f1, s2, f2)
 char *s1, *f1, *s2, *f2;
 {

-       int ret, type;
-       struct stat stbuf;
-       char cfile[NAMESIZE], dfile[NAMESIZE];
+       int ret, type, statret;
+       struct stat stbuf, stbuf1;
+       char dfile[NAMESIZE];

        char file1[MAXFULLNAME], file2[MAXFULLNAME];
        FILE *cfp;
        extern char *index();
        char file1[MAXFULLNAME], file2[MAXFULLNAME];
        FILE *cfp;
        extern char *index();

+       extern FILE *gtcfile();

 
        type = 0;
        strcpy(file1, f1);
 
        type = 0;
        strcpy(file1, f1);


@@ -159,17 +176,40 @@ char *s1, *f1, *s2, *f2;
                  || index(file1, '?') != NULL
                  || index(file1, '[') != NULL))
                        type = 4;
                  || index(file1, '?') != NULL
                  || index(file1, '[') != NULL))
                        type = 4;

+

        switch (type) {
        case 0:
                /* all work here */
                DEBUG(4, "all work here %d\n", type);
                expfile(file1);
                expfile(file2);
        switch (type) {
        case 0:
                /* all work here */
                DEBUG(4, "all work here %d\n", type);
                expfile(file1);
                expfile(file2);

+               if (stat(file1, &stbuf) != 0) {
+                       fprintf(stderr, "can't get file status %s \n copy failed\n",
+                         file1);
+                       return(0);
+               }
+               statret = stat(file2, &stbuf1);
+               if (statret == 0
+                 && stbuf.st_ino == stbuf1.st_ino
+                 && stbuf.st_dev == stbuf1.st_dev) {
+                       fprintf(stderr, "%s %s - same file; can't copy\n", file1, file2);
+                       return(0);
+               }

                if (chkpth(User, "", file1) != 0
                if (chkpth(User, "", file1) != 0

-               || chkpth(User, "", file2) != 0) {
+                 || chkpth(User, "", file2) != 0) {

                        fprintf(stderr, "permission denied\n");
                        cleanup(1);
                }
                        fprintf(stderr, "permission denied\n");
                        cleanup(1);
                }

+               if ((stbuf.st_mode & ANYREAD) == 0) {
+                       fprintf(stderr, "can't read file (%s) mode (%o)\n",
+                         file1, stbuf.st_mode);
+                       return(FAIL);
+               }
+               if (statret == 0 && (stbuf1.st_mode & ANYWRITE) == 0) {
+                       fprintf(stderr, "can't write file (%s) mode (%o)\n",
+                         file2, stbuf.st_mode);
+                       return(FAIL);
+               }

                xcp(file1, file2);
                logent("WORK HERE", "DONE");
                return(0);
                xcp(file1, file2);
                logent("WORK HERE", "DONE");
                return(0);


@@ -183,13 +223,14 @@ char *s1, *f1, *s2, *f2;
                        fprintf(stderr, "permission denied\n");
                        return(FAIL);
                }
                        fprintf(stderr, "permission denied\n");
                        return(FAIL);
                }

-               gename(CMDPRE, s1, Grade, cfile);
-               strcpy(dfile, cfile);
-               dfile[0] = DATAPRE;
-               cfp = fopen(cfile, "w");
-               ASSERT(cfp != NULL, "CAN NOT OPEN %s", cfile);
+               if (Ename[0] != '\0') {
+                       /* execute uux - remote uucp */
+                       xuux(Ename, s1, file1, s2, file2);
+                       return(0);
+               }
+
+               cfp = gtcfile(s1);

                fprintf(cfp, "R %s %s %s %s\n", file1, file2, User, Optns);
                fprintf(cfp, "R %s %s %s %s\n", file1, file2, User, Optns);

-               fclose(cfp);

                break;
        case 2:
                /* send file */
                break;
        case 2:
                /* send file */


@@ -198,20 +239,31 @@ char *s1, *f1, *s2, *f2;
                        expfile(file2);
                DEBUG(4, "send file - %d\n", type);
 
                        expfile(file2);
                DEBUG(4, "send file - %d\n", type);
 

-               gename(CMDPRE, s2, Grade, cfile);
-               strcpy(dfile, cfile);
-               dfile[0] = DATAPRE;

                if (chkpth(User, "", file1) != 0) {
                        fprintf(stderr, "permission denied %s\n", file1);
                        return(FAIL);
                }
                if (chkpth(User, "", file1) != 0) {
                        fprintf(stderr, "permission denied %s\n", file1);
                        return(FAIL);
                }

-               ret = stat(file1, &stbuf);
+               if (stat(file1, &stbuf) != 0) {
+                       fprintf(stderr, "can't get status for file %s\n", file1);
+                       return(FAIL);
+               }

                if ((stbuf.st_mode & S_IFMT) == S_IFDIR) {
                        fprintf(stderr, "directory name illegal - %s\n",
                          file1);
                        return(FAIL);
                }
                if ((stbuf.st_mode & S_IFMT) == S_IFDIR) {
                        fprintf(stderr, "directory name illegal - %s\n",
                          file1);
                        return(FAIL);
                }

+               if ((stbuf.st_mode & ANYREAD) == 0) {
+                       fprintf(stderr, "can't read file (%s) mode (%o)\n",
+                         file1, stbuf.st_mode);
+                       return(FAIL);
+               }
+               if (Ename[0] != '\0') {
+                       /* execute uux - remote uucp */
+                       xuux(Ename, s1, file1, s2, file2);
+                       return(0);
+               }

                if (Copy) {
                if (Copy) {

+                       gename(DATAPRE, s2, Grade, dfile);

                        if (xcp(file1, dfile) != 0) {
                                fprintf(stderr, "can't copy %s\n", file1);
                                return(FAIL);
                        if (xcp(file1, dfile) != 0) {
                                fprintf(stderr, "can't copy %s\n", file1);
                                return(FAIL);


@@ -219,22 +271,17 @@ char *s1, *f1, *s2, *f2;
                        chmod(dfile, 0666);
                }
                else {
                        chmod(dfile, 0666);
                }
                else {

-                       if ((stbuf.st_mode & 04) == 0) {
-                               fprintf(stderr, "uucico can't access %s (-c specified)\n", file1);
-                               return(FAIL);
-                       }
+                       /* make a dummy D. name */
+                       /* cntrl.c knows names < 6 chars are dummy D. files */
+                       strcpy(dfile, "D.0");

                }
                }

-               cfp = fopen(cfile, "w");
-               ASSERT(cfp != NULL, "CAN NOT OPEN %s", cfile);
-               chmod(cfile, 0200);
+               cfp = gtcfile(s2);

                fprintf(cfp, "S %s %s %s %s %s %o\n", file1, file2,
                        User, Optns, dfile, stbuf.st_mode & 0777);
                fprintf(cfp, "S %s %s %s %s %s %o\n", file1, file2,
                        User, Optns, dfile, stbuf.st_mode & 0777);

-               fclose(cfp);
-               chmod(cfile, 0666);

                break;
        case 3:
        case 4:
                break;
        case 3:
        case 4:

-               /*  send uucp command for execution on s2  */
+               /*  send uucp command for execution on s1  */

                DEBUG(4, "send uucp command - %d\n", type);
                if (strcmp(s2,  Myname) == SAME) {
                        expfile(file2);
                DEBUG(4, "send uucp command - %d\n", type);
                if (strcmp(s2,  Myname) == SAME) {
                        expfile(file2);


@@ -243,13 +290,87 @@ char *s1, *f1, *s2, *f2;
                                return(FAIL);
                        }
                }
                                return(FAIL);
                        }
                }

-               gename(CMDPRE, s1, Grade, cfile);
-               cfp = fopen(cfile, "w");
-               ASSERT(cfp != NULL, "CAN NOT OPEN %s", cfile);
+               if (Ename[0] != '\0') {
+                       /* execute uux - remote uucp */
+                       xuux(Ename, s1, file1, s2, file2);
+                       return(0);
+               }
+               cfp = gtcfile(s1);

                fprintf(cfp, "X %s %s!%s\n", file1, s2, file2);
                fprintf(cfp, "X %s %s!%s\n", file1, s2, file2);

-               fclose(cfp);

                break;
        }
                break;
        }

-       logent(cfile, "QUEUED");

        return(0);
 }
        return(0);
 }

+
+/***
+ *     xuux(ename, s1, s2, f1, f2)     execute uux for remote uucp
+ *
+ *     return code - none
+ */
+
+xuux(ename, s1, f1, s2, f2)
+char *ename, *s1, *s2, *f1, *f2;
+{
+       char cmd[200];
+
+       DEBUG(4, "Ropt(%s) ", Ropt);
+       DEBUG(4, "ename(%s) ", ename);
+       DEBUG(4, "s1(%s) ", s1);
+       DEBUG(4, "f1(%s) ", f1);
+       DEBUG(4, "s2(%s) ", s2);
+       DEBUG(4, "f2(%s)\n", f2);
+       sprintf(cmd, "uux %s  %s!uucp %s!%s \\(%s!%s\\)",
+         Ropt, ename, s1, f1, s2, f2);
+       DEBUG(4, "cmd (%s)\n", cmd);
+       system(cmd);
+       return;
+}
+
+FILE *Cfp = NULL;
+char Cfile[NAMESIZE];
+
+/***
+ *     gtcfile(sys)    - get a Cfile descriptor
+ *
+ *     return an open file descriptor
+ */
+
+FILE *
+gtcfile(sys)
+char *sys;
+{
+       static char presys[8] = "";
+       static int cmdcount = 0;
+
+       if (strcmp(presys, sys) != SAME  /* this is !SAME on first call */
+         || ++cmdcount > MAXCOUNT) {
+
+               cmdcount = 1;
+               if (presys[0] != '\0') {
+                       clscfile();
+               }
+               gename(CMDPRE, sys, Grade, Cfile);
+               Cfp = fopen(Cfile, "w");
+               ASSERT(Cfp != NULL, "CAN'T OPEN %s", Cfile);
+               chmod(0200, Cfile);
+               strcpy(presys, sys);
+       }
+       return(Cfp);
+}
+
+/***
+ *     clscfile()      - close cfile
+ *
+ *     return code - none
+ */
+
+clscfile()
+{
+       if (Cfp == NULL)
+               return;
+       fclose(Cfp);
+       chmod(0666, Cfile);
+       logent(Cfile, "QUE'D");
+       Cfp = NULL;
+       return;
+}