[naviserver-commits] modules/nssys tclsys.c,1.6,1.7

[Vlad S. <ser...@us...>]

Update of /cvsroot/naviserver/modules/nssys
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17056

Modified Files:
	tclsys.c 
Log Message:


Index: tclsys.c
===================================================================
RCS file: /cvsroot/naviserver/modules/nssys/tclsys.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** tclsys.c	8 Aug 2005 18:56:59 -0000	1.6
--- tclsys.c	8 Aug 2005 18:58:15 -0000	1.7
***************
*** 1817,1828 ****
      int sock, len, timeout = 5, retries = 1, noreply = 0;
  
!     if (objc < 5) {
          Tcl_WrongNumArgs(interp, 1, objv, "ipaddr port data ?-timeout N? ?-retries N? ?-noreply 1|0?");
          return TCL_ERROR;
      }
!     address = Tcl_GetString(objv[2]);
!     port = Tcl_GetString(objv[3]);
!     data = Tcl_GetStringFromObj(objv[4],&len);
!     for (i = 5; i < objc-1; i += 2) {
          if (!strcmp(Tcl_GetString(objv[i]),"-timeout")) {
              timeout = atoi(Tcl_GetString(objv[i+1]));
--- 1817,1828 ----
      int sock, len, timeout = 5, retries = 1, noreply = 0;
  
!     if (objc < 4) {
          Tcl_WrongNumArgs(interp, 1, objv, "ipaddr port data ?-timeout N? ?-retries N? ?-noreply 1|0?");
          return TCL_ERROR;
      }
!     address = Tcl_GetString(objv[1]);
!     port = Tcl_GetString(objv[2]);
!     data = Tcl_GetStringFromObj(objv[3],&len);
!     for (i = 4; i < objc-1; i += 2) {
          if (!strcmp(Tcl_GetString(objv[i]),"-timeout")) {
              timeout = atoi(Tcl_GetString(objv[i+1]));