You are viewing a plain text version of this content. The canonical link for it is here.
Posted to websh-cvs@tcl.apache.org by da...@apache.org on 2002/02/15 12:28:14 UTC
cvs commit: tcl-websh/src/tests log.test
davidw 02/02/15 03:28:14
Modified: src ChangeLog
src/generic cfg.c checksum.c checksum.h paramlist.c
src/tests log.test
Log:
Various whitespace changes (emacs21 has a 'delete-trailing-whitespace'
command).
My sources should now be synced with CVS - ChangeLog caught up, as
well.
Revision Changes Path
1.7 +43 -0 tcl-websh/src/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /home/cvs/tcl-websh/src/ChangeLog,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- ChangeLog 30 Nov 2001 16:54:26 -0000 1.6
+++ ChangeLog 15 Feb 2002 11:28:14 -0000 1.7
@@ -1,3 +1,46 @@
+2002-02-14 David N. Welton <da...@dedasys.com>
+
+ * generic/weboutint.c (webout_eval_tag): Workaround to avoid
+ printing headers if the very first thing in putx is an opening
+ tag, starting a block of Tcl code.
+
+2002-02-12 David N. Welton <da...@dedasys.com>
+
+ * generic/url.c (Web_CmdUrlCfg): Change to use two variables for
+ 'scheme' - one as a config, and one to hold the actual value.
+
+2002-02-05 David N. Welton <da...@dedasys.com>
+
+ * websh.spec: Fix-ups to make websh.spec work better - generates
+ RPM's now on my system.
+
+ * unix/Makefile.in (install-doc): Moved install doc to be near
+ other 'install' targets. Make install-doc use DESTDIR instead
+ of prefix variable.
+
+2001-12-28 David N. Welton <da...@dedasys.com>
+
+ * generic/uricode.c (uriDecode): Fixed comparisons to work with
+ 'char *' instead of specifying signed/unsigned.
+
+2001-12-12 David N. Welton <da...@dedasys.com>
+
+ * generic/webout.c (Web_Response): Add web::response -select
+ default to get set channel for both web and CGI.
+
+ * generic/request.h: Add requestGetDefaultOutChannelName.
+
+ * tests/webout.test: Add test for web::response -select default.
+
+2001-12-03 David N. Welton <da...@dedasys.com>
+
+ * generic/cfg.c (Web_Cfg): Create a "web::config reset" command,
+ which resets cmdurltimestamp, uploadfilesize, timeparam and
+ cmdparam.
+
+ * generic/request.c (resetRequestData): #if out resetting of
+ variables configured via web::config.
+
2001-11-30 David N. Welton <da...@dedasys.com>
* webshinspect.ws3 (web): Added -path to filecontext.
1.7 +20 -19 tcl-websh/src/generic/cfg.c
Index: cfg.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/cfg.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- cfg.c 3 Dec 2001 15:43:39 -0000 1.6
+++ cfg.c 15 Feb 2002 11:28:14 -0000 1.7
@@ -1,7 +1,7 @@
/* ----------------------------------------------------------------------------
* cfg.c -- websh configuration
* nca-073-9
- *
+ *
* Copyright (c) 1996-2000 by Netcetera AG.
* Copyright (c) 2001 by Apache Software Foundation.
* All rights reserved.
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and
* redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * @(#) $Id: cfg.c,v 1.6 2001/12/03 15:43:39 davidw Exp $
+ * @(#) $Id: cfg.c,v 1.7 2002/02/15 11:28:14 davidw Exp $
* ------------------------------------------------------------------------- */
#include <tcl.h>
@@ -124,22 +124,23 @@
NULL
};
- static char *subCmd1[] = { "uploadfilesize",
- "encryptchain",
- "decryptchain",
- "cmdparam",
- "timeparam",
- "putxmarkup",
- "logsubst",
- "version",
- "copyright",
- "cmdurltimestamp",
- "reset",
- NULL
+ static char *subCmd1[] = {
+ "uploadfilesize",
+ "encryptchain",
+ "decryptchain",
+ "cmdparam",
+ "timeparam",
+ "putxmarkup",
+ "logsubst",
+ "version",
+ "copyright",
+ "cmdurltimestamp",
+ "reset",
+ NULL
};
enum subCmd1
- {
+ {
UPLOADFILESIZE,
ENCRYPTCHAIN,
DECRYPTCHAIN,
@@ -412,7 +413,7 @@
int tmpbool = 1;
WebAssertData(interp, cfgData->requestData,
"web::config cmdurltimestamp", TCL_ERROR);
-
+
WebAssertData(interp, cfgData->requestData->cmdUrlTimestamp,
"web::config cmdurltimestamp", TCL_ERROR);
Tcl_SetObjResult(interp,
@@ -448,13 +449,13 @@
WebDecrRefCountIfNotNullAndSetNull(cfgData->requestData->upLoadFileSize);
cfgData->requestData->upLoadFileSize = Tcl_NewLongObj(0);
-
+
WebDecrRefCountIfNotNullAndSetNull(cfgData->requestData->timeTag);
WebNewStringObjFromStringIncr(cfgData->requestData->timeTag, "t");
-
+
WebDecrRefCountIfNotNullAndSetNull(cfgData->requestData->cmdTag);
WebNewStringObjFromStringIncr(cfgData->requestData->cmdTag, "cmd");
-
+
Tcl_SetBooleanObj(cfgData->requestData->cmdUrlTimestamp, 1);
return TCL_OK;
1.4 +2 -2 tcl-websh/src/generic/checksum.c
Index: checksum.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/checksum.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- checksum.c 25 Oct 2001 17:50:13 -0000 1.3
+++ checksum.c 15 Feb 2002 11:28:14 -0000 1.4
@@ -1,7 +1,7 @@
/* ----------------------------------------------------------------------------
* checksum.c --- Checksum generator functions
* nca-073-9
- *
+ *
* Copyright (c) 1996-2000 by Netcetera AG.
* Copyright (c) 2001 by Apache Software Foundation.
* All rights reserved.
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and
* redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * @(#) $Id: checksum.c,v 1.3 2001/10/25 17:50:13 davidw Exp $
+ * @(#) $Id: checksum.c,v 1.4 2002/02/15 11:28:14 davidw Exp $
* ------------------------------------------------------------------------- */
#include <tcl.h>
#include "checksum.h"
1.4 +2 -2 tcl-websh/src/generic/checksum.h
Index: checksum.h
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/checksum.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- checksum.h 25 Oct 2001 17:50:13 -0000 1.3
+++ checksum.h 15 Feb 2002 11:28:14 -0000 1.4
@@ -1,7 +1,7 @@
/*
* checksum.h -- utils to add Cyclic-Redundancy-Checksums to Tcl_Obj
* nca-073-9
- *
+ *
* Copyright (c) 1996-2000 by Netcetera AG.
* Copyright (c) 2001 by Apache Software Foundation.
* All rights reserved.
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and
* redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * @(#) $Id: checksum.h,v 1.3 2001/10/25 17:50:13 davidw Exp $
+ * @(#) $Id: checksum.h,v 1.4 2002/02/15 11:28:14 davidw Exp $
*
*/
1.5 +2 -2 tcl-websh/src/generic/paramlist.c
Index: paramlist.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/paramlist.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- paramlist.c 11 Feb 2002 12:46:32 -0000 1.4
+++ paramlist.c 15 Feb 2002 11:28:14 -0000 1.5
@@ -1,7 +1,7 @@
/*
* paramlist.c -- key-value pairs, where value is a Tcl list Obj
* nca-073-9
- *
+ *
* Copyright (c) 1996-2000 by Netcetera AG.
* Copyright (c) 2001 by Apache Software Foundation.
* All rights reserved.
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and
* redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * @(#) $Id: paramlist.c,v 1.4 2002/02/11 12:46:32 hefti Exp $
+ * @(#) $Id: paramlist.c,v 1.5 2002/02/15 11:28:14 davidw Exp $
*
*/
1.4 +7 -1 tcl-websh/src/tests/log.test
Index: log.test
===================================================================
RCS file: /home/cvs/tcl-websh/src/tests/log.test,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- log.test 21 Nov 2001 23:20:00 -0000 1.3
+++ log.test 15 Feb 2002 11:28:14 -0000 1.4
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and
# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# @(#) $Id: log.test,v 1.3 2001/11/21 23:20:00 davidw Exp $
+# @(#) $Id: log.test,v 1.4 2002/02/15 11:28:14 davidw Exp $
#
# -----------------------------------------------------------------------------
@@ -165,6 +165,12 @@
} msg
set msg
} {no such log filter "filter10"}
+
+test log-1.12 {web::logfilter bad format} {
+ catch {web::logfilter add test.} msg
+ set msg
+} {wrong log level "test."}
+
# -----------------------------------------------------------------------------
# manage logdests (or "rules" or "destinations")
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org