[BACK]Return to mytcpio.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / plugin

Diff for /OpenXM/src/kan96xx/plugin/mytcpio.c between version 1.4.2.3 and 1.17

version 1.4.2.3, 2000/11/11 07:01:19 version 1.17, 2020/10/06 11:33:47
Line 1 
Line 1 
 /*  $OpenXM: OpenXM/src/kan96xx/plugin/mytcpio.c,v 1.4.2.2 2000/11/11 04:44:30 maekawa Exp $ */  /*  $OpenXM: OpenXM/src/kan96xx/plugin/mytcpio.c,v 1.16 2005/07/03 11:08:54 ohara Exp $ */
 #include <stdio.h>  #include <stdio.h>
   #include <string.h>
 #include <sys/types.h>  #include <sys/types.h>
 #include <sys/socket.h>  #include <sys/socket.h>
 #include <sys/time.h>  #include <sys/time.h>
 #include <netinet/in.h>  #include <netinet/in.h>
 #include <netdb.h>  #include <netdb.h>
 #include <setjmp.h>  #include <setjmp.h>
   #include <errno.h>
   #include <unistd.h>
 /* -lnsl -lsocket /usr/ucblib/libucb.a */  /* -lnsl -lsocket /usr/ucblib/libucb.a */
 #include "ox_kan.h"  #include "ox_kan.h"
 /*  /*
Line 15 
Line 18 
 #if defined(sun)  #if defined(sun)
 int MyEnv_oxmisc[2000];  int MyEnv_oxmisc[2000];
 #else  #else
   #if defined(__CYGWIN__)
   sigjmp_buf MyEnv_oxmisc; /* may cause a trouble in Solaris. */
   #else
 jmp_buf MyEnv_oxmisc; /* may cause a trouble in Solaris. */  jmp_buf MyEnv_oxmisc; /* may cause a trouble in Solaris. */
 #endif  #endif
   #endif
   
 #define READBUFSIZE 10000  #define READBUFSIZE 10000
   #define MAX_LISTEN_QUEUE 3
 static void errorMsg1s(char *s) {  static void errorMsg1s(char *s) {
   fprintf(stderr,"%s\n",s);    fprintf(stderr,"%s\n",s);
 }  }
Line 28  FILE *TcpioError = NULL;
Line 36  FILE *TcpioError = NULL;
 int OpenedSocket = 0;  int OpenedSocket = 0;
 extern int Quiet;  extern int Quiet;
   
 socketOpen(char *serverName,int portNumber) {  int socketOpen(char *serverName,int portNumber) {
         struct addrinfo hints, *res, *ai;    static struct hostent *myhost;
         struct sockaddr_storage ss;    static struct sockaddr_in me;
         socklen_t len;    static int s_waiting;
         char pstr[BUFSIZ], *errstr;    static int on;
         int s, p, opt, error;    int tt;
   
         SET_TCPIOERROR;    SET_TCPIOERROR;
         fprintf(TcpioError, "Hello from open. serverName is %s and "    if (!Quiet) fprintf(TcpioError,"Hello from open. serverName is %s and portnumber is %d\n",
                             "portnumber is %d\n", serverName, portNumber);            serverName,portNumber);
     if ((myhost = gethostbyname(serverName)) == NULL) {
       errorMsg1s("Bad server name.");
       return(-1);
     }
     bzero((char *)&me,sizeof(me));
     me.sin_family = AF_INET;
     me.sin_port = htons(portNumber);
     bcopy(myhost->h_addr,
           &me.sin_addr,myhost->h_length);
   
         memset(&hints, 0, sizeof(hints));    if ((s_waiting = socket(AF_INET,SOCK_STREAM,0)) < 0) {
         hints.ai_family = PF_UNSPEC;      errorMsg1s("Socket allocation is failed.");
         hints.ai_socktype = SOCK_STREAM;      return(-1);
     }
   
         memset(pstr, 0, sizeof(pstr));    on=1; setsockopt(s_waiting,SOL_SOCKET,SO_REUSEADDR,&on,sizeof(on));
         snprintf(pstr, sizeof(pstr), "%d", portNumber);    /* important */
     if ((tt = bind(s_waiting,(struct sockaddr *) &me,sizeof(me))) == -1) {
       fprintf(TcpioError,"Bind error. Error no is %d. See /usr/include/sys/errno.h. (asm/errno.h)\n",errno);
       errorMsg1s("cannot bind");
       return(-1);
     }
     /* printf("bind returns %d\n",tt); */
     tt = sizeof(me);
     if (getsockname(s_waiting,(struct sockaddr *)&me,&tt) < 0) {
       fprintf(TcpioError,"getsockname error. Error no is %d. See /usr/include/sys/errno.h (asm/errno.h).\n",errno);
       errorMsg1s("cannot getsockname");
       return(-1);
     }
   
         error = getaddrinfo(serverName, pstr, &hints, &res);    if (listen(s_waiting,MAX_LISTEN_QUEUE) < 0) {
         if (error) {      errorMsg1s("Listen failed");
                 errorMsg1s("Bad server name.");      return(-1);
                 return (-1);    }
         }    if (!Quiet) fprintf(TcpioError,"Done the initialization. port =%d\n",ntohs(me.sin_port));
     OpenedSocket = ntohs(me.sin_port);
         s = -1;    return(s_waiting);
         p = -1;  
         errstr = NULL;  
   
         for (ai = res ; ai != NULL ; ai = ai->ai_next) {  
                 s = socket(ai->ai_family, ai->ai_socktype, ai->ai_protocol);  
                 if (s < 0) {  
                         errstr = "socket";  
                         continue;  
                 }  
   
                 opt = 1;  
                 setsockopt(s, SOL_SOCKET, SO_REUSEADDR, &opt, sizeof(opt));  
   
                 if (bind(s, ai->ai_addr, ai->ai_addrlen) < 0) {  
                         errstr = "bind";  
                         close(s);  
                         s = -1;  
                         continue;  
                 }  
   
                 len = sizeof(ss);  
                 if (getsockname(s, (struct sockaddr *)&ss, &len) < 0) {  
                         errstr = "getsockname";  
                         close(s);  
                         s = -1;  
                         continue;  
                 }  
   
                 switch (ss.ss_family) {  
                 case AF_INET:  
                 {  
                         struct sockaddr_in *sin;  
                         sin = (struct sockaddr_in *)&ss;  
                         p = ntohs(sin->sin_port);  
                         break;  
                 }  
                 case AF_INET6:  
                 {  
                         struct sockaddr_in6 *sin6;  
                         sin6 = (struct sockaddr_in6 *)&ss;  
                         p = ntohs(sin6->sin6_port);  
                         break;  
                 }  
                 default:  
                         p = -1;  
                 }  
                 if (p < 0) {  
                         errstr = "AF";  
                         close(s);  
                         s = -1;  
                         continue;  
                 }  
   
                 if (listen(s, 1) < 0) {  
                         errstr = "listen";  
                         close(s);  
                         s = -1;  
                         continue;  
                 }  
   
                 break;  
         }  
   
         freeaddrinfo(res);  
   
         if (s < 0) {  
                 fprintf(TcpioError, "Error: %s", errstr);  
                 errorMsg1s(errstr);  
         } else {  
                 OpenedSocket = p;  
         }  
   
         return (s);  
 }  }
   
   
 socketAccept(int snum) {  int socketAccept(int snum) {
   int s, news;    int s, news;
   
   SET_TCPIOERROR;    SET_TCPIOERROR;
   s = snum;    s = snum;
   fprintf(TcpioError,"Trying to accept... "); fflush(TcpioError);    if (!Quiet) {fprintf(TcpioError,"Trying to accept... "); fflush(TcpioError);}
   if ((news = accept(s,NULL,NULL)) < 0) {    if ((news = accept(s,NULL,NULL)) < 0) {
     errorMsg1s("Error in accept.");      errorMsg1s("Error in accept. Retrying (socketAccept).");
     return(-1);      /* Code added for strange behavior on cygwin. */
       if ((news = accept(s,NULL,NULL)) < 0) {
         errorMsg1s("Error in accept. Retry failed.");
         return (-1);
       }
   }    }
   fprintf(TcpioError,"Accepted.\n"); fflush(TcpioError);    if (!Quiet) {fprintf(TcpioError,"Accepted.\n"); fflush(TcpioError);}
   if (close(s) < 0) {    if (close(s) < 0) {
     errorMsg1s("Error in closing the old socket.");      errorMsg1s("Error in closing the old socket.");
     return(-1);      return(-1);
Line 147  socketAccept(int snum) {
Line 108  socketAccept(int snum) {
   return(news);    return(news);
 }  }
   
 socketAcceptLocal(int s) {  int socketAcceptLocal(int snum) {
         struct sockaddr_storage ss;    int s, news;
         socklen_t len;    struct sockaddr peer;
         int ps, accepted, error;    int len;
     int i;
   
         SET_TCPIOERROR;    SET_TCPIOERROR;
     s = snum;
     if (!Quiet) {fprintf(TcpioError,"Trying to accept from localhost... "); fflush(TcpioError);}
     len = sizeof(struct sockaddr);
     if ((news = accept(s,&peer,&len)) < 0) {
       errorMsg1s("Error in accept. Retrying");
       /* Code added for strange behavior on cygwin. */
      if ((news = accept(s,&peer,&len)) < 0) {
         errorMsg1s("Error in accept. Retry failed.");
         return (-1);
      }
     }
   
         fprintf(TcpioError,"Trying to accept from localhost... ");    len = sizeof(struct sockaddr);
         fflush(TcpioError);    getpeername(news,&peer,&len);
     if (!Quiet) printf("len= %d\n",len);
     for (i=0; i<len; i++) {
       if (!Quiet) printf(" %x ",peer.sa_data[i]);
     }
     if (!Quiet) printf("\n");
     if (peer.sa_data[2] == 0x7f && peer.sa_data[3] == 0 &&
         peer.sa_data[4] == 0    && peer.sa_data[5] == 1) {
       if (!Quiet) fprintf(stderr,"Authentication: localhost is allowed to be accepted.\n");
     }else{
       errorMsg1s("Authentication: The connection is not from the localhost.");
       close(s);
       fprintf(stderr,"The connection is refused.");
       return(-1);
     }
   
         len = sizeof(ss);    if (!Quiet) {fprintf(TcpioError,"Accepted.\n"); fflush(TcpioError);}
         if ((ps = accept(s, (struct sockaddr *)&ss, &len)) < 0) {    if (close(s) < 0) {
                 errorMsg1s("Error in accept.");      errorMsg1s("Error in closing the old socket.");
                 close(s);      return(-1);
                 return (-1);    }
         }    return(news);
   }
   
         len = sizeof(ss);  /* It does not close the socket for listening. */
         if (getpeername(ps, (struct sockaddr *)&ss, &len) < 0) {  int socketAcceptLocal2(int snum) {
                 close(s);    int s, news;
                 close(ps);    struct sockaddr peer;
                 errorMsg1s("Error in getpeername.");    int len;
                 return (-1);    int i;
         }  
   
         accepted = 0;    SET_TCPIOERROR;
         switch (ss.ss_family) {    s = snum;
         case AF_INET:    if (!Quiet) {fprintf(TcpioError,"Trying to accept from localhost... "); fflush(TcpioError);}
         {    len = sizeof(struct sockaddr);
 #ifndef INADDR_LOOPBACK    if ((news = accept(s,&peer,&len)) < 0) {
 #define INADDR_LOOPBACK         0x7f000001      /* 127.0.0.1 */      errorMsg1s("Error in accept. Retrying (socketAcceptLocal2).");
 #endif /* INADDR_LOOPBACK */      /* Code added for strange behavior on cygwin. */
                 struct sockaddr_in *sin;      if ((news = accept(s,&peer,&len)) < 0) {
                 sin = (struct sockaddr_in *)&ss;        errorMsg1s("Error in accept. Retry failed.");
                 if (sin->sin_addr.s_addr == INADDR_LOOPBACK)        return (-1);
                         accepted = 1;      }
                 break;    }
         }  
         case AF_INET6:  
         {  
                 struct sockaddr_in6 *sin6;  
                 sin6 = (struct sockaddr_in6 *)&ss;  
                 if (IN6_IS_ADDR_LOOPBACK(&sin6->sin6_addr))  
                         accepted = 1;  
                 break;  
         }  
         default:  
                 accepted = 0;  
         }  
   
         if (accepted) {    len = sizeof(struct sockaddr);
                 fprintf(stderr, "Authentication: "    getpeername(news,&peer,&len);
                                 "localhost is allowed to be accepted.\n");    if (!Quiet) printf("len= %d\n",len);
         } else {    for (i=0; i<len; i++) {
                 errorMsg1s("Authentication: "      if (!Quiet) printf(" %x ",peer.sa_data[i]);
                            "The connection is not from the localhost.");    }
                 close(s);    if (!Quiet) printf("\n");
                 close(ps);    if (peer.sa_data[2] == 0x7f && peer.sa_data[3] == 0 &&
                 fprintf(stderr, "The connection is refused.");        peer.sa_data[4] == 0    && peer.sa_data[5] == 1) {
                 return (-1);      if (!Quiet) fprintf(stderr,"Authentication: localhost is allowed to be accepted.\n");
         }    }else{
       errorMsg1s("Authentication: The connection is not from the localhost.");
       fprintf(stderr,"The connection is refused.");
       return(-1);
     }
   
         fprintf(TcpioError, "Accepted.\n");    if (!Quiet) {fprintf(TcpioError,"Accepted.\n"); fflush(TcpioError);}
         fflush(TcpioError);    return(news);
         if (close(s) < 0) {  
                 errorMsg1s("Error in closing the old socket.");  
                 close(ps);  
                 return(-1);  
         }  
   
         return(ps);  
 }  }
   
 int oxSocketSelect0(int fd,int t) {  int oxSocketSelect0(int fd,int t) {
   fd_set readfds;    fd_set readfds;
   struct timeval timeout;    struct timeval timeout;
   int debug = 0;    int debug = 0;
   extern int errno;  
   SET_TCPIOERROR;    SET_TCPIOERROR;
   FD_ZERO(&readfds);    FD_ZERO(&readfds);
   FD_SET(fd,&readfds);    FD_SET(fd,&readfds);
Line 250  int oxSocketSelect0(int fd,int t) {
Line 221  int oxSocketSelect0(int fd,int t) {
   else return(0);    else return(0);
 }  }
   
 oxSocketMultiSelect(int sid[],int size,int t,int result[])  int oxSocketMultiSelect(int sid[],int size,int t,int result[])
 {  {
   int i,fd,p;    int i,fd,p;
   fd_set readfds;    fd_set readfds;
   struct timeval timeout;    struct timeval timeout;
   int isdata = 0;    int isdata = 0;
   extern errno;  
   
   SET_TCPIOERROR;    SET_TCPIOERROR;
   FD_ZERO(&readfds);    FD_ZERO(&readfds);
Line 302  oxSocketMultiSelect(int sid[],int size,int t,int resul
Line 272  oxSocketMultiSelect(int sid[],int size,int t,int resul
 }  }
   
   
 socketConnect(char *serverName,int portNumber) {  int socketConnect(char *serverName,int portNumber) {
         struct addrinfo hints, *res, *ai;    struct hostent *servhost;
         char pstr[BUFSIZ], *errstr;    struct sockaddr_in server;
         int s, error;    int socketid;
     int on;
   
         SET_TCPIOERROR;    SET_TCPIOERROR;
     if ((servhost = gethostbyname(serverName)) == NULL) {
       errorMsg1s("bad server name.\n");
       return(-1);
     }
     bzero((char *)&server,sizeof(server));
     server.sin_family = AF_INET;
     server.sin_port = htons(portNumber);
     bcopy(servhost->h_addr,
           (char *)&server.sin_addr,servhost->h_length);
   
         memset(&hints, 0, sizeof(hints));    if ((socketid = socket(AF_INET,SOCK_STREAM,0)) <0) {
         hints.ai_family = PF_UNSPEC;      errorMsg1s("socket allocation is failed.\n");
         hints.ai_socktype = SOCK_STREAM;      return(-1);
     }
         memset(pstr, 0, sizeof(pstr));    /* on=1; setsockopt(socketid,SOL_SOCKET,SO_REUSEADDR,&on,sizeof(on));  */
         snprintf(pstr, sizeof(pstr), "%d", portNumber);    if (!Quiet) {
       fprintf(TcpioError,"Trying to connect port %d, ip=%lx\n",ntohs(server.sin_port),(long) server.sin_addr.s_addr);
         error = getaddrinfo(serverName, pstr, &hints, &res);    }
         if (error) {    if (connect(socketid,(struct sockaddr *)&server,sizeof(server)) == -1) {
                 errorMsg1s("bad server name.\n");      errorMsg1s("cannot connect");
                 return (-1);      return(-1);
         }    }
     if (!Quiet) fprintf(TcpioError,"connected.\n");
         s = -1;    return(socketid);
         errstr = NULL;  
   
         for (ai = res ; ai != NULL ; ai = ai->ai_next) {  
                 s = socket(ai->ai_family, ai->ai_socktype, ai->ai_protocol);  
                 if (s < 0) {  
                         errstr = "socket";  
                         continue;  
                 }  
   
                 if (!Quiet) {  
                         fprintf(TcpioError, "Trying to connect %s, port %d\n",  
                                             serverName, portNumber);  
                 }  
   
                 if (connect(s, ai->ai_addr, ai->ai_addrlen) < 0) {  
                         errstr = "connect";  
                         close(s);  
                         s = -1;  
                         continue;  
                 }  
         }  
   
         freeaddrinfo(res);  
   
         if (s < 0) {  
                 fprintf(stderr, "Error %s\n", errstr);  
                 return (-1);  
         }  
   
         if (!Quiet)  
                 fprintf(TcpioError,"connected.\n");  
   
         return (s);  
 }  }
   
 socketConnectWithPass(char *servername,int port,char *pass)  int socketConnectWithPass(char *servername,int port,char *pass)
 {  {
   int fd;    int fd;
   int m;    int m;
   SET_TCPIOERROR;    SET_TCPIOERROR;
   fd = socketConnect(servername,port);    fd = socketConnect(servername,port);
     if ((pass == NULL) && (fd >= 0)) return fd;
     if ((pass == NULL) && (fd < 0)) return -1;
   if (fd >= 0) {    if (fd >= 0) {
     m = write(fd,pass,strlen(pass)+1);      m = write(fd,pass,strlen(pass)+1);
     if (m != strlen(pass)+1) {      if (m != strlen(pass)+1) {
Legend:
Removed from v.1.4.2.3  
changed lines
  Added in v.1.17
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>