BSD 3 development

[unix-history] / usr / src / cmd / net / netcp.c

# include "defs.h"

/* used by parser to parse filenames, e.g. mach:file */
struct fd {
       char mach;
       char *fn;
       };


/* netcp - copy with remote machines */
main(argc,argv)
 char **argv;
       {
       register struct fd *ff, *tf, ffile, tfile;
       char tomachstr[BUFSIZ], rcmd[BUFSIZ], acmd[BUFSIZ], *sn;
       argv[argc] = 0;
       if(argc < 3)goto usage;
       argv++, argc--;
       while(argv[0][0] == '-'){
               switch(argv[0][1]){
               case 'b':       status.nonotify++; break;
               case 'f':       status.force++; break;
               case 'l':       harg(status.login,&argc,&argv); break;
               case 'n':       status.nowrite++; break;
               case 'p':       harg(status.mpasswd,&argc,&argv); break;
               case 'q':       status.quiet++; break;
               default:        fprintf(stderr,"Unknown option %s\n",argv[0]);
                               break;
               }
               argc--;argv++;
               }
       if(argc > 2)goto usage;
       ff = &ffile;
       tf = &tfile;
       sprintf(rcmd,"netcp %s %s",argv[0],argv[1]);
       analyze(argv[0],ff);
       analyze(argv[1],tf);
       if(ff->mach  == 0 || tf->mach  == 0){
               fprintf(stderr,"Unknown machine\n");
               exit(1);
       }
       if(ff->fn[0] == 0 || tf->fn[0] == 0){
               fprintf(stderr,"Must specify both file names\n");
               exit(1);
       }
       sprintf(tomachstr,"-m%c",tf->mach);
       if(ff->mach == local && tf->mach == local){
               fprintf(stderr,"Error: both files are on this machine\n");
               exit(1);
               }
       else if(ff->mach == local)
               kexecl(netcmd,"net",tomachstr, "-o",tf->fn,"-s",ff->fn,
                       "-c",rcmd,CATCMD,0);
       else if(tf->mach == local){
               tomachstr[2] = ff->mach;
               kexecl(netcmd,"net",tomachstr, "-r",tf->fn,"-i",ff->fn,
                       "-c",rcmd,CATCMD,0);
               }
       /* remote for both */
       else if(tf->mach == ff->mach)
               kexecl(netcmd,"net",tomachstr,"-c",rcmd,"cp",ff->fn,tf->fn,0);
       else {
               /* experimental - still needs debugging */
               fprintf(stderr,
                       "Experimental - Machines normally must be the same\n");

               /* collect info on the "To Machine" */
               remote = tf->mach;
               /* get status.login and passwd from .netrc if poss. */
               commandfile();
               if(status.login[0] == 0 || status.mpasswd[0] == 0){
                       sn = SnCurrent();
                       if(sn == NULL){
                               fprintf(stderr,"Unknown user\n");
                               exit(1);
                       }
                       strcpy(status.localname,sn);
                       /* prompt on terminal */
                       promptlogin(remote);
               }
               /* should use -q option */
               sprintf(acmd,"%s -l %s -p %s %s %s",
                       NETCPCMD,status.login,status.mpasswd,argv[0],argv[1]);

               /* send the netcp command to the "From" machine */
               remote = tomachstr[2] = ff->mach;
               status.login[0] = status.mpasswd[0] = 0;
               mexecl(netcmd,"net",tomachstr,"-c",rcmd,acmd,0);
               }
       fprintf(stderr,"Network is down\n");
       exit(1);
usage:
       printf("Usage: netcp [-l ...] [-p ...] [-f] [-n] fromfile tofile\n");
       exit(1);
       }

analyze(S,f)
 char *S;
 register struct fd *f; {
       register char *file;
       char work[FNS], *s, c0,c1,c2,c3,c,colon=0;
       s = work;
       strcpy(s,S);
       f->mach = local;
       file = s;
       while(*s){
               if(*s == '/')break;
               if(*s == ':'){
                       colon = 1;
                       *s++ = 0;
                       break;
               }
               s++;
       }
       if(colon){ /* name specified */
               f->mach = lookup(file);
               if(f->mach == 0){
                       return;
                       }
               file = s;
               }
       else {
               s  = file;
               c0 = *s++;
               c1 = *s++;
               c2 = *s++;
               c3 = *s++;
               if(c0 == '/' && c1 != '/' && islower(c1))
                       if(c2 == '/')f->mach = 'y';             /* Cory name */
                       else if(c3 == '/')f->mach = c1;         /* CC name */
               }
       f->fn = calloc(strlen(file)+1,1);
       strcpy(f->fn,file);
       s = f->fn;
       /* check for bad chars in file name */
       while(c = *s++)
               if(c == ' ' || c == '\n' || c == '\r' || c == '\t' || c == '\b')
                       err("Invalid character '%c'\n",c);
       }