#include <sys/types.h>
#include <sys/socket.h>
#include <sys/time.h>
#include <sys/signal.h>
#include <sys/errno.h>

#include <unistd.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>

#include "local.h"void    rcvurg(int);

#define    BUFSIZE        2048    /* read buffer size    */struct termios    oldtty;

int    connectTCP(constchar *host, constchar *service);
int    ttysetup(void);

/*------------------------------------------------------------------------ * telnet - do the TELNET protocol to the given host and port *------------------------------------------------------------------------ */int
telnet(constchar *host, constchar *service)
{
    int    s, nfds;    /* socket and # file descriptors */
    u_char    buf[BUFSIZE];
    int    cc;
    int    on = 1;
    fd_set    arfds, awfds, rfds, wfds;
    FILE    *sfp;

    s = connectTCP(host, service);

    ttysetup();

    fsmbuild();    /* set up FSM's */

    (void) signal(SIGURG, rcvurg);
    (void) setsockopt(s, SOL_SOCKET, SO_OOBINLINE, (char *)&on,
            sizeof(on));

    nfds = getdtablesize();
    FD_ZERO(&arfds);
    FD_ZERO(&awfds);
    FD_SET(s, &arfds);    /* the socket            */
    FD_SET(0, &arfds);    /* standard input        */

    sfp = fdopen(s, "w");    /* to get buffered output    */while (1) {
        memcpy(&rfds, &arfds, sizeof(rfds));
        memcpy(&wfds, &awfds, sizeof(rfds));

        if (select(nfds, &rfds, &wfds, (fd_set *)0,
                (struct timeval *)0) < 0) {
            if (errno == EINTR)
                continue;    /* just a signal    */
            cerrexit("select: %s\n", strerror(errno));
        }
        if (FD_ISSET(s, &rfds)) {
            cc = read(s, (char *)buf, sizeof(buf));
            if (cc < 0)
                cerrexit("socket read: %s\n",
                        strerror(errno));
            elseif (cc == 0) {
                printf("\nconnection closed.\n");
                if (tcsetattr(0, TCSADRAIN, &oldtty) < 0)
                    errexit("tcsetattr: %s\n",
                        strerror(errno));
                exit(0);
            } else
                ttwrite(sfp, stdout, buf, cc);
        }
        if (FD_ISSET(0, &rfds)) {
            cc = read(0, (char *)buf, sizeof(buf));
            if (cc < 0)
                cerrexit("tty read: %s\n",
                        strerror(errno));
            elseif (cc == 0) {
                FD_CLR(0, &arfds);
                (void) shutdown(s, 1);
            } else
                sowrite(sfp, stdout, buf, cc);
        }
        (void) fflush(sfp);
        (void) fflush(stdout);
    }
}