[naviserver-commits] naviserver/nsd tclcmds.c,1.10,1.11 tclresp.c,1.3,1.4

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

Update of /cvsroot/naviserver/naviserver/nsd
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8706/nsd

Modified Files:
	tclcmds.c tclresp.c 
Log Message:
added ns_returnbinary command which returns binary data without conversion/encoding


Index: tclcmds.c
===================================================================
RCS file: /cvsroot/naviserver/naviserver/nsd/tclcmds.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** tclcmds.c	18 Apr 2005 13:04:14 -0000	1.10
--- tclcmds.c	8 Jun 2005 20:13:12 -0000	1.11
***************
*** 142,145 ****
--- 142,146 ----
      NsTclReturnNoticeObjCmd,
      NsTclReturnObjCmd,
+     NsTclReturnBinaryObjCmd,
      NsTclReturnRedirectObjCmd,
      NsTclReturnUnauthorizedObjCmd,
***************
*** 480,483 ****
--- 481,485 ----
      {"ns_returnunauthorized", NULL, NsTclReturnUnauthorizedObjCmd},
      {"ns_returnnotfound", NULL, NsTclReturnNotFoundObjCmd},
+     {"ns_returnbinary", NULL, NsTclReturnBinaryObjCmd},
  
      /*

Index: tclresp.c
===================================================================
RCS file: /cvsroot/naviserver/naviserver/nsd/tclresp.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** tclresp.c	27 Apr 2005 00:20:20 -0000	1.3
--- tclresp.c	8 Jun 2005 20:13:12 -0000	1.4
***************
*** 192,195 ****
--- 192,236 ----
   *----------------------------------------------------------------------
   *
+  * NsTclReturnBinaryObjCmd --
+  *
+  *      Implements ns_returnbinary.  Send complete response to client with
+  *      given string as body.
+  *
+  * Results:
+  *      Tcl result.
+  *
+  * Side effects:
+  *      Connection will be closed.
+  *
+  *----------------------------------------------------------------------
+  */
+ 
+ int
+ NsTclReturnBinaryObjCmd(ClientData arg, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
+ {
+     Ns_Conn *conn;
+     unsigned char *data;
+     int len, status, result;
+ 
+     if (objc != 4) {
+         Tcl_WrongNumArgs(interp, 1, objv, "status type data");
+         return TCL_ERROR;
+     }
+     if (GetConn(arg, interp, &conn) != TCL_OK) {
+         return TCL_ERROR;
+     }
+     if (Tcl_GetIntFromObj(interp, objv[1], &status) != TCL_OK) {
+         return TCL_ERROR;
+     }
+     data = Tcl_GetByteArrayFromObj(objv[3], &len);
+     result = Ns_ConnReturnData(conn, status, data, len, Tcl_GetString(objv[2]));
+ 
+     return Result(interp, result);
+ }
+ 
+ 
+ /*
+  *----------------------------------------------------------------------
+  *
   * NsTclRespondObjCmd --
   *