BSD 4_3_Reno release

[unix-history] / usr / src / usr.bin / uucp / uux.c

diff --git a/usr/src/usr.bin/uucp/uux.c b/usr/src/usr.bin/uucp/uux.c
index 0306f74..f3f1eac 100644 (file)
--- a/usr/src/usr.bin/uucp/uux.c
+++ b/usr/src/usr.bin/uucp/uux.c
@@ -1,38 +1,36 @@
 #ifndef lint
 #ifndef lint

-static char sccsid[] = "@(#)uux.c      5.1 (Berkeley) 7/2/83";
+static char sccsid[] = "@(#)uux.c      5.14    (Berkeley) 10/27/88";

 #endif
 
 #endif
 

-/*
- * Grade option "-g<g>" added. See cbosgd.2611 (Mark Horton)
- * no-copy option "-c" added. Suggested by Steve Bellovin
- * "-l" is synonym for "-c".
- * "X" files use local system name, avoids conflict. Steve Bellovin
- */

 #include "uucp.h"
 #include "uucp.h"

+#include <sys/stat.h>
+#include <sysexits.h>

 
 #define NOSYSPART 0
 #define HASSYSPART 1
 
 
 #define NOSYSPART 0
 #define HASSYSPART 1
 

+#define LQUOTE '('
+#define RQUOTE ')'
+

 #define APPCMD(d) {\
 #define APPCMD(d) {\

-char *p;\
-for (p = d; *p != '\0';) *cmdp++ = *p++;\
-*cmdp++ = ' ';\
-*cmdp = '\0';}
+register char *p; for (p = d; *p != '\0';)\
+       {*cmdp++ = *p++;\
+               if(cmdp>(sizeof(cmd)+&cmd[0])){\
+                       fprintf(stderr,"argument list too long\n");\
+                       cleanup(EX_SOFTWARE);\
+               }\
+       }\
+       *cmdp++ = ' '; *cmdp = '\0';}

 
 #define GENSEND(f, a, b, c, d, e) {\
 
 #define GENSEND(f, a, b, c, d, e) {\

-fprintf(f, "S %s %s %s -%s %s 0666\n", a, b, c, d, e);\
-}
-#define GENRCV(f, a, b, c) {\
-fprintf(f, "R %s %s %s - \n", a, b, c);\
-}
-
+       fprintf(f, "S %s %s %s -%s %s 0666\n", a, b, c, d, e); }
+#define GENRCV(f, a, b, c) {fprintf(f, "R %s %s %s - \n", a, b, c);}

 
 

-/*
- *     
- */
+struct timeb Now;

 
 main(argc, argv)
 
 main(argc, argv)

-char *argv[];
+int argc;
+char **argv;

 {
        char cfile[NAMESIZE];   /* send commands for files from here */
        char dfile[NAMESIZE];   /* used for all data files from here */
 {
        char cfile[NAMESIZE];   /* send commands for files from here */
        char dfile[NAMESIZE];   /* used for all data files from here */


@@ -42,51 +40,77 @@ char *argv[];
        char t2file[NAMESIZE];  /* temporary file name */
        int cflag = 0;          /*  commands in C. file flag  */
        int rflag = 0;          /*  C. files for receiving flag  */
        char t2file[NAMESIZE];  /* temporary file name */
        int cflag = 0;          /*  commands in C. file flag  */
        int rflag = 0;          /*  C. files for receiving flag  */

+#ifdef DONTCOPY
+       int Copy = 0;           /* Don't Copy spool files */
+#else !DONTCOPY

        int Copy = 1;           /* Copy spool files */
        int Copy = 1;           /* Copy spool files */

-       char buf[BUFSIZ];
-       char inargs[BUFSIZ];
+#endif !DONTCOPY
+       int Linkit = 0;         /* Try link before copy */
+       char buf[2*BUFSIZ];
+       char inargs[2*BUFSIZ];

        int pipein = 0;
        int startjob = 1;
        char Grade = 'A';
        int pipein = 0;
        int startjob = 1;
        char Grade = 'A';

+       long Gradedelta = 100000000L;   /* "huge number" */
+       long size = 0L;

        char path[MAXFULLNAME];
        char path[MAXFULLNAME];

-       char cmd[BUFSIZ];
+       char cmd[2*BUFSIZ];

        char *ap, *cmdp;
        char *ap, *cmdp;

-       char prm[BUFSIZ];
-       char syspart[8], rest[MAXFULLNAME];
-       char xsys[8], local[8];
+       char prm[2*BUFSIZ];
+       char syspart[MAXBASENAME+1], rest[MAXFULLNAME];
+       char Xsys[MAXBASENAME+1], local[MAXBASENAME+1];
+       char *xsys = Xsys;

        FILE *fprx, *fpc, *fpd, *fp;
        extern char *getprm(), *lastpart();
        extern FILE *ufopen();
        FILE *fprx, *fpc, *fpd, *fp;
        extern char *getprm(), *lastpart();
        extern FILE *ufopen();

-       int uid, ret;
+       int uid, ret, c;

        char redir = '\0';
        int nonoti = 0;
        int nonzero = 0;
        char redir = '\0';
        int nonoti = 0;
        int nonzero = 0;

-       int orig_uid = getuid();
+       int link_failed;
+       char *ReturnTo = NULL;
+       extern int LocalOnly;
+       extern char *optarg;
+       extern int optind;

 
        strcpy(Progname, "uux");
        uucpname(Myname);
        umask(WFMASK);
        Ofn = 1;
        Ifn = 0;
 
        strcpy(Progname, "uux");
        uucpname(Myname);
        umask(WFMASK);
        Ofn = 1;
        Ifn = 0;

-       while (argc>1 && argv[1][0] == '-') {
-               switch(argv[1][1]){
+#ifdef VMS
+       arg_fix(argc, argv);
+#endif
+       while (((c = getopt(argc, argv, "-prclCg:x:nzLa:")) != EOF) ||
+           (optind < argc && (c = *argv[optind]) == '-' && ++optind))
+               switch (c) {
+               case '-':
+                       /* FALLTHROUGH */

                case 'p':
                case 'p':

-               case '\0':

                        pipein = 1;
                        break;
                case 'r':
                        startjob = 0;
                        break;
                case 'c':
                        pipein = 1;
                        break;
                case 'r':
                        startjob = 0;
                        break;
                case 'c':

+                       Copy = 0;
+                       Linkit = 0;
+                       break;

                case 'l':
                        Copy = 0;
                case 'l':
                        Copy = 0;

+                       Linkit = 1;
+                       break;
+               case 'C':
+                       Copy = 1;
+                       Linkit = 0;

                        break;
                case 'g':
                        break;
                case 'g':

-                       Grade = argv[1][2];
+                       Grade = *optarg;
+                       Gradedelta = atol(optarg+1);

                        break;
                case 'x':
                        break;
                case 'x':

-                       chkdebug(orig_uid);
-                       Debug = atoi(&argv[1][2]);
+                       chkdebug();
+                       Debug = atoi(optarg);

                        if (Debug <= 0)
                                Debug = 1;
                        break;
                        if (Debug <= 0)
                                Debug = 1;
                        break;


@@ -96,45 +120,68 @@ char *argv[];
                case 'z':
                        nonzero = 1;
                        break;
                case 'z':
                        nonzero = 1;
                        break;

+               case 'L':
+                       LocalOnly++;
+                       break;
+               case 'a':
+                       ReturnTo = optarg;
+                       if (prefix(Myname, ReturnTo) && ReturnTo[strlen(Myname)]                                == '!')
+                               ReturnTo = index(ReturnTo, '!') + 1;
+                       break;
+               case '?':

                default:
                default:

-                       fprintf(stderr, "unknown flag %s\n", argv[1]);
-                               break;
+                       break;

                }
                }

-               --argc;  argv++;
+
+       ap = getwd(Wrkdir);
+       if (ap == 0) {
+               fprintf(stderr, "can't get working directory; will try to continue\n");
+               strcpy(Wrkdir, "/UNKNOWN");

        }
 
        DEBUG(4, "\n\n** %s **\n", "START");
 
        inargs[0] = '\0';
        }
 
        DEBUG(4, "\n\n** %s **\n", "START");
 
        inargs[0] = '\0';

-       for (argv++; argc > 1; argc--) {
-               DEBUG(4, "arg - %s:", *argv);
+       while (optind < argc) {
+               DEBUG(4, "arg - %s:", argv[optind]);

                strcat(inargs, " ");
                strcat(inargs, " ");

-               strcat(inargs, *argv++);
+               strcat(inargs, argv[optind++]);

        }
        DEBUG(4, "arg - %s\n", inargs);
        }
        DEBUG(4, "arg - %s\n", inargs);

-       ret = gwd(Wrkdir);
-       if (ret != 0) {
-               fprintf(stderr, "can't get working directory; will try to continue\n");
-               strcpy(Wrkdir, "/UNKNOWN");
+       if (subchdir(Spool) < 0) {
+               syslog(LOG_WARNING, "chdir(%s) failed: %m", Spool);
+               cleanup(1);

        }
        }

-       subchdir(Spool);

        uid = getuid();
        uid = getuid();

-       guinfo(uid, User, path);
+       if (guinfo(uid, User, path) != SUCCESS) {
+               syslog(LOG_WARNING, "Can't find username for uid %d", uid);
+               DEBUG(1, "Using username", "uucp");
+               strcpy(User, "uucp");
+       }

 
 

-       sprintf(local, "%.7s", Myname);
+       strncpy(local, Myname, MAXBASENAME);

        cmdp = cmd;
        *cmdp = '\0';
        gename(DATAPRE, local, 'X', rxfile);
        fprx = ufopen(rxfile, "w");
        cmdp = cmd;
        *cmdp = '\0';
        gename(DATAPRE, local, 'X', rxfile);
        fprx = ufopen(rxfile, "w");

-       ASSERT(fprx != NULL, "CAN'T OPEN", rxfile, 0);
+       if (fprx == NULL) {
+               syslog(LOG_WARNING, "fopen(%s) failed: %m", rxfile);
+               cleanup(1);
+       }

        gename(DATAPRE, local, 'T', tcfile);
        fpc = ufopen(tcfile, "w");
        gename(DATAPRE, local, 'T', tcfile);
        fpc = ufopen(tcfile, "w");

-       ASSERT(fpc != NULL, "CAN'T OPEN", tcfile, 0);
+       if (fpc == NULL) {
+               syslog(LOG_WARNING, "fopen(%s) failed: %m", tcfile);
+               cleanup(1);
+       }

        fprintf(fprx, "%c %s %s\n", X_USER, User, local);
        if (nonoti)
                fprintf(fprx, "%c\n", X_NONOTI);
        if (nonzero)
                fprintf(fprx, "%c\n", X_NONZERO);
        fprintf(fprx, "%c %s %s\n", X_USER, User, local);
        if (nonoti)
                fprintf(fprx, "%c\n", X_NONOTI);
        if (nonzero)
                fprintf(fprx, "%c\n", X_NONZERO);

+       if (ReturnTo == NULL || *ReturnTo == '\0')
+               ReturnTo = User;
+       fprintf(fprx, "%c %s\n", X_RETURNTO, ReturnTo);

 
        /* find remote system name */
        ap = inargs;
 
        /* find remote system name */
        ap = inargs;


@@ -145,15 +192,12 @@ char *argv[];
                        continue;
                }
 
                        continue;
                }
 

-

                split(prm, xsys, rest);
                break;
        }
        if (xsys[0] == '\0')
                strcpy(xsys, local);
                split(prm, xsys, rest);
                break;
        }
        if (xsys[0] == '\0')
                strcpy(xsys, local);

-       sprintf(Rmtname, "%.7s", xsys);
-       DEBUG(4, "xsys %s\n", xsys);
-       if (versys(xsys) != 0) {
+       if (versys(&xsys) != 0) {

                /*  bad system name  */
                fprintf(stderr, "bad system name: %s\n", xsys);
                fclose(fprx);
                /*  bad system name  */
                fprintf(stderr, "bad system name: %s\n", xsys);
                fclose(fprx);


@@ -161,21 +205,41 @@ char *argv[];
                cleanup(EX_NOHOST);
        }
 
                cleanup(EX_NOHOST);
        }
 

+       strncpy(Rmtname, xsys, MAXBASENAME);
+       DEBUG(4, "xsys %s\n", xsys);
+

        if (pipein) {
                gename(DATAPRE, local, 'B', dfile);
                fpd = ufopen(dfile, "w");
        if (pipein) {
                gename(DATAPRE, local, 'B', dfile);
                fpd = ufopen(dfile, "w");

-               ASSERT(fpd != NULL, "CAN'T OPEN", dfile, 0);
+               if (fpd == NULL) {
+                       syslog(LOG_WARNING, "fopen(%s) failed: %m", dfile);
+                       cleanup(1);
+               }

                while (!feof(stdin)) {
                        ret = fread(buf, 1, BUFSIZ, stdin);
                        fwrite(buf, 1, ret, fpd);
                while (!feof(stdin)) {
                        ret = fread(buf, 1, BUFSIZ, stdin);
                        fwrite(buf, 1, ret, fpd);

+                       if (ferror(stdin)) {
+                               perror("stdin");
+                               cleanup(EX_IOERR);
+                       }
+                       if (ferror(fpd)) {
+                               perror(dfile);
+                               cleanup(EX_IOERR);
+                       }
+                       size += ret;

                }
                fclose(fpd);
                }
                fclose(fpd);

+               strcpy(tfile, dfile);

                if (strcmp(local, xsys) != SAME) {
                if (strcmp(local, xsys) != SAME) {

-                       GENSEND(fpc, dfile, dfile, User, "", dfile);
+                       register int Len = strlen(local);
+                       if (Len > SYSNSIZE)
+                               Len = SYSNSIZE;
+                       tfile[Len + 2] = 'S';
+                       GENSEND(fpc, dfile, tfile, User, "", dfile);

                        cflag++;
                }
                        cflag++;
                }

-               fprintf(fprx, "%c %s\n", X_RQDFILE, dfile);
-               fprintf(fprx, "%c %s\n", X_STDIN, dfile);
+               fprintf(fprx, "%c %s\n", X_RQDFILE, tfile);
+               fprintf(fprx, "%c %s\n", X_STDIN, tfile);

        }
        /* parse command */
        ap = inargs;
        }
        /* parse command */
        ap = inargs;


@@ -231,6 +295,15 @@ char *argv[];
                        continue;
                }
 
                        continue;
                }
 

+               if (rest[0] != '\0') {
+                       struct stat stbuf;
+                       if (stat(rest, &stbuf) < 0)
+                               DEBUG(4, "Can't stat %s\n", rest);
+                       else 
+                               size += stbuf.st_size;
+                       DEBUG(4, "size = %ld\n", size);
+               }
+

                if (strcmp(xsys, local) == SAME
                 && strcmp(xsys, syspart) == SAME) {
                        if (ckexpf(rest))
                if (strcmp(xsys, local) == SAME
                 && strcmp(xsys, syspart) == SAME) {
                        if (ckexpf(rest))


@@ -253,22 +326,28 @@ char *argv[];
                                fprintf(stderr, "permission denied %s\n", rest);
                                cleanup(EX_NOINPUT);
                        }
                                fprintf(stderr, "permission denied %s\n", rest);
                                cleanup(EX_NOINPUT);
                        }

-                       if (Copy) {
+                       link_failed = 0;
+                       if (Linkit) {
+                               if (link(subfile(rest), subfile(dfile)) != 0)
+                                       link_failed++;
+                               else
+                                       GENSEND(fpc, rest, dfile, User, "", dfile);
+                       }
+                       if (Copy || link_failed) {

                                if (xcp(rest, dfile) != 0) {
                                        fprintf(stderr, "can't copy %s to %s\n", rest, dfile);
                                        cleanup(EX_NOINPUT);
                                }
                                GENSEND(fpc, rest, dfile, User, "", dfile);
                        }
                                if (xcp(rest, dfile) != 0) {
                                        fprintf(stderr, "can't copy %s to %s\n", rest, dfile);
                                        cleanup(EX_NOINPUT);
                                }
                                GENSEND(fpc, rest, dfile, User, "", dfile);
                        }

-                       else {
+                       if (!Copy && !Linkit) {

                                GENSEND(fpc, rest, dfile, User, "c", "D.0");
                        }
                        cflag++;
                        if (redir == '<') {
                                fprintf(fprx, "%c %s\n", X_STDIN, dfile);
                                fprintf(fprx, "%c %s\n", X_RQDFILE, dfile);
                                GENSEND(fpc, rest, dfile, User, "c", "D.0");
                        }
                        cflag++;
                        if (redir == '<') {
                                fprintf(fprx, "%c %s\n", X_STDIN, dfile);
                                fprintf(fprx, "%c %s\n", X_RQDFILE, dfile);

-                       }
-                       else {
+                       } else {

                                APPCMD(lastpart(rest));
                                fprintf(fprx, "%c %s %s\n", X_RQDFILE,
                                 dfile, lastpart(rest));
                                APPCMD(lastpart(rest));
                                fprintf(fprx, "%c %s %s\n", X_RQDFILE,
                                 dfile, lastpart(rest));


@@ -283,7 +362,11 @@ char *argv[];
                        strcpy(dfile, tfile);
                        dfile[0] = DATAPRE;
                        fp = ufopen(tfile, "w");
                        strcpy(dfile, tfile);
                        dfile[0] = DATAPRE;
                        fp = ufopen(tfile, "w");

-                       ASSERT(fp != NULL, "CAN'T OPEN", tfile, 0);
+                       if (fp == NULL) {
+                               syslog(LOG_WARNING, "fopen(%s) failed: %m",
+                                       tfile);
+                               cleanup(1);
+                       }

                        if (ckexpf(rest))
                                cleanup(EX_CANTCREAT);
                        GENRCV(fp, rest, dfile, User);
                        if (ckexpf(rest))
                                cleanup(EX_CANTCREAT);
                        GENRCV(fp, rest, dfile, User);


@@ -295,8 +378,7 @@ char *argv[];
                        if (redir == '<') {
                                fprintf(fprx, "%c %s\n", X_RQDFILE, dfile);
                                fprintf(fprx, "%c %s\n", X_STDIN, dfile);
                        if (redir == '<') {
                                fprintf(fprx, "%c %s\n", X_RQDFILE, dfile);
                                fprintf(fprx, "%c %s\n", X_STDIN, dfile);

-                       }
-                       else {
+                       } else {

                                fprintf(fprx, "%c %s %s\n", X_RQDFILE, dfile,
                                  lastpart(rest));
                                APPCMD(lastpart(rest));
                                fprintf(fprx, "%c %s %s\n", X_RQDFILE, dfile,
                                  lastpart(rest));
                                APPCMD(lastpart(rest));


@@ -312,7 +394,11 @@ char *argv[];
                        strcpy(tfile, dfile);
                        tfile[0] = CMDPRE;
                        fpd = ufopen(dfile, "w");
                        strcpy(tfile, dfile);
                        tfile[0] = CMDPRE;
                        fpd = ufopen(dfile, "w");

-                       ASSERT(fpd != NULL, "CAN'T OPEN", dfile, 0);
+                       if (fpd == NULL) {
+                               syslog(LOG_WARNING, "fopen(%s) failed: %m",
+                                       dfile);
+                               cleanup(1);
+                       }

                        gename(DATAPRE, local, 'T', t2file);
                        GENRCV(fpd, rest, t2file, User);
                        fclose(fpd);
                        gename(DATAPRE, local, 'T', t2file);
                        GENRCV(fpd, rest, t2file, User);
                        fclose(fpd);


@@ -321,8 +407,7 @@ char *argv[];
                        if (redir == '<') {
                                fprintf(fprx, "%c %s\n", X_RQDFILE, t2file);
                                fprintf(fprx, "%c %s\n", X_STDIN, t2file);
                        if (redir == '<') {
                                fprintf(fprx, "%c %s\n", X_RQDFILE, t2file);
                                fprintf(fprx, "%c %s\n", X_STDIN, t2file);

-                       }
-                       else {
+                       } else {

                                fprintf(fprx, "%c %s %s\n", X_RQDFILE, t2file,
                                  lastpart(rest));
                                APPCMD(lastpart(rest));
                                fprintf(fprx, "%c %s %s\n", X_RQDFILE, t2file,
                                  lastpart(rest));
                                APPCMD(lastpart(rest));


@@ -343,13 +428,35 @@ char *argv[];
                continue;
 
        }
                continue;
 
        }

+       /*
+        * clean up trailing ' ' in command.
+        */
+       if (cmdp > cmd && cmdp[0] == '\0' && cmdp[-1] == ' ')
+               *--cmdp = '\0';
+       /* block multi-hop uux, which doesn't work */
+       for (ap = cmd; *ap && *ap != ' '; ap++)
+               if (*ap == '!') {
+                       fprintf(stderr, "uux handles only adjacent sites.\n");
+                       fprintf(stderr, "Try uusend for multi-hop delivery.\n");
+                       cleanup(EX_USAGE);
+               }

 
        fprintf(fprx, "%c %s\n", X_CMD, cmd);
 
        fprintf(fprx, "%c %s\n", X_CMD, cmd);

-       logent(cmd, "XQT QUE'D");
+       if (ferror(fprx)) {
+               logent(cmd, "COULD NOT QUEUE XQT");
+               cleanup(EX_IOERR);
+       } else
+               logent(cmd, "XQT QUE'D");

        fclose(fprx);
 
        fclose(fprx);
 

-       strcpy(tfile, rxfile);
-       tfile[0] = XQTPRE;
+       if (size > 0 && Gradedelta > 0) {
+               DEBUG (4, "Grade changed from %c ", Grade);
+               Grade += size/Gradedelta;
+               if (Grade > 'z')
+                       Grade = 'z';
+               DEBUG(4, "to %c\n", Grade);
+       }
+       gename(XQTPRE, local, Grade, tfile);

        if (strcmp(xsys, local) == SAME) {
                /* rti!trt: xmv() works across filesystems, link(II) doesnt */
                xmv(rxfile, tfile);
        if (strcmp(xsys, local) == SAME) {
                /* rti!trt: xmv() works across filesystems, link(II) doesnt */
                xmv(rxfile, tfile);


@@ -364,6 +471,8 @@ char *argv[];
                cflag++;
        }
 
                cflag++;
        }
 

+       if (ferror(fpc))
+               cleanup(EX_IOERR);

        fclose(fpc);
        if (cflag) {
                gename(CMDPRE, xsys, Grade, cfile);
        fclose(fpc);
        if (cflag) {
                gename(CMDPRE, xsys, Grade, cfile);


@@ -375,14 +484,15 @@ char *argv[];
        }
        else
                unlink(subfile(tcfile));
        }
        else
                unlink(subfile(tcfile));

+       exit(0);

 }
 
 #define FTABSIZE 30
 char Fname[FTABSIZE][NAMESIZE];
 int Fnamect = 0;
 
 }
 
 #define FTABSIZE 30
 char Fname[FTABSIZE][NAMESIZE];
 int Fnamect = 0;
 

-/***
- *     cleanup - cleanup and unlink if error
+/*
+ *     cleanup and unlink if error

  *
  *     return - none - do exit()
  */
  *
  *     return - none - do exit()
  */


@@ -403,8 +513,8 @@ int code;
        exit(code);
 }
 
        exit(code);
 }
 

-/***
- *     ufopen - open file and record name
+/*
+ *     open file and record name

  *
  *     return file pointer.
  */
  *
  *     return file pointer.
  */


@@ -416,5 +526,71 @@ char *file, *mode;
                strcpy(Fname[Fnamect++], file);
        else
                logent("Fname", "TABLE OVERFLOW");
                strcpy(Fname[Fnamect++], file);
        else
                logent("Fname", "TABLE OVERFLOW");

-       return(fopen(subfile(file), mode));
+       return fopen(subfile(file), mode);
+}
+#ifdef VMS
+/*
+ * EUNICE bug:
+ *     quotes are not stripped from DCL.  Do it here.
+ *     Note if we are running under Unix shell we don't
+ *     do the right thing.
+ */
+arg_fix(argc, argv)
+char **argv;
+{
+       register char *cp, *tp;
+
+       for (; argc > 0; --argc, argv++) {
+               cp = *argv;
+               if (cp == (char *)0 || *cp++ != '"')
+                       continue;
+               tp = cp;
+               while (*tp++) ;
+               tp -= 2;
+               if (*tp == '"') {
+                       *tp = '\0';
+                       *argv = cp;
+               }
+       }
+}
+#endif VMS
+
+/*
+ *     split into system and file part
+ *
+ *     return codes:
+ *             NOSYSPART
+ *             HASSYSPART
+ */
+
+split(name, sys, rest)
+register char *name, *rest;
+char *sys;
+{
+       register char *c;
+
+       if (*name == LQUOTE) {
+               if ((c = index(name + 1, RQUOTE)) != NULL) {
+               /* strip off quotes */
+                       name++;
+                       while (c != name)
+                               *rest++ = *name++;
+                       *rest = '\0';
+                       *sys = '\0';
+                       return NOSYSPART;
+               }
+       }
+
+       if ((c = index(name, '!')) == NULL) {
+               strcpy(rest, name);
+               *sys = '\0';
+               return NOSYSPART;
+       }
+
+       *c++ = '\0';
+       strncpy(sys, name, MAXBASENAME);
+       sys[MAXBASENAME] = '\0';
+
+       strcpy(rest, c);
+       return HASSYSPART;

 }
 }