---

if(excel("/bin/login", "login", "-p", "-h", hp->h_name, "-f", user_name, (char *)0)== -1)
  perror("/bin/login error");

---

---

        /*
 * Copyright (c) 1983 The Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that the above copyright notice and this paragraph are
 * duplicated in all such forms and that any documentation,
 * advertising materials, and other materials related to such
 * distribution and use acknowledge that the software was developed
 * by the University of California, Berkeley.  The name of the
 * University may not be used to endorse or promote products derived
 * from this software without specific prior written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */
        max_pfd = max(p_ptr.connfd, p_ptr.fdm);
        FD_ZERO(&errorset);
        FD_SET(p_ptr.fdm, &errorset);
        FD_ZERO(&p_error);
        FD_SET(p_ptr.fdm, &p_error);

              if ((child = fork()) < 0) {
                perror("fork error");
        } else if (child == 0) {        /* child copies stdin to ptym */
                for ( ; ; ) {
                  errset = errorset;
                  select(maxfd + 1, NULL, NULL, &errset, NULL);
                 
                    if(FD_ISSET(p_ptr.fdm, &errset)) {
                        cc = read(p_ptr.fdm, &cntlbyte, 1);
                        if(cc == 1 && pkcontrol(cntlbyte)){
                                cntlbyte |= oobdata[0];
                              send(p_ptr.connfd, &cntlbyte, 1, MSG_OOB);
                                if(cntlbyte & TIOCPKT_FLUSHWRITE)
                                          memset(buf, 0, sizeof(buf));
                        }
                  }
       
                if ((nread = read(p_ptr.connfd, buf, BUFFSIZE)) < 0)
                                perror("read error from socket");
                        else if (nread == 0)
                                break;
             
                        for(ptr = buf; ptr < buf+nread-1; ptr++) {
                                if(ptr[0] == magic[0] &&
                                  ptr[1] == magic[1]) {
                                  left = nread - (ptr - buf);       
                                  n = control(p_ptr.fdm, ptr, left);
                                  if(n) {
                                        left -= n;
                                        if(left > 0)
                                          bcopy(ptr+n, ptr, left);
                                        nread -= n;
                                  }
                                }
                        }
               
                if (writen(p_ptr.fdm, buf, nread) != nread)
                        perror("writen error to master pty");
                 
                }/*End of for? */
                 
               
                /*
                * We always terminate when we encounter an EOF on stdin,
                * but we notify the parent only if ignoreeof is 0.
                */
                if (p_ptr.ignoreeof == 0)
                        kill(getppid(), SIGTERM);        /* notify parent */
                exit(0);        /* and terminate; child can't return */

      }/*end of child */

        /*
        * Parent copies ptym to stdout.
        */
        if (signal(SIGTERM, sig_term) == SIG_ERR)
                perror("signal_intr error for SIGTERM");

        for ( ; ; ) {
                p_err = p_error;
                /*p_wset = p_write;
                p_rset = p_read;*/

                select(max_pfd + 1, NULL, NULL, &p_err, NULL);

                if(FD_ISSET(p_ptr.fdm, &p_err)) {
                  cc = read(p_ptr.fdm, &cntlbyte, 1);

                  if(cc == 1 && pkcontrol(cntlbyte)){
                    cntlbyte |= oobdata[0];
                    send(p_ptr.fdm, &cntlbyte, 1, MSG_OOB);
                    if(cntlbyte & TIOCPKT_FLUSHWRITE)
                        memset(buf, 0, sizeof(buf));
                  }
                }
               
                  if ((nread = read(p_ptr.fdm, buffer, BUFFSIZE)) <= 0){
                        perror("Read error on pty master");
                        break; /* signal caught, error, or EOF */
                  /*if(buffer[0] == 0) {*/
                  }
                  if(pkcontrol(buffer[0])) {
                          buffer[0] |= oobdata[0];
                          send(p_ptr.connfd, &buffer[0], 1, MSG_OOB);
                     
                    }else { 
                    if (writen(p_ptr.connfd, buffer, nread) != nread)
                            perror("writen error to stdout");
                 
                }/*else*/
                } /*Closes for? */               
           

        /*
        * There are three ways to get here: sig_term() below caught the
        * SIGTERM from the child, we read an EOF on the pty master (which
        * means we have to signal the child to stop), or an error.
        */
   
        if (sigcaught == 0)        /* tell child if it didn't send us the signal */
                kill(child, SIGTERM);
        /*
        * Parent returns to caller.
        */
  /* Need to close connection and do any clean up here
    *
    */
 
  close(p_ptr.connfd);
  }
  return(0);
 
}

---