You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by mx...@apache.org on 2014/04/16 18:01:20 UTC
svn commit: r1587953 - in /tcl/rivet/trunk: ChangeLog
src/rivetcmds/rivetInspect.c
Author: mxmanghi
Date: Wed Apr 16 16:01:20 2014
New Revision: 1587953
URL: http://svn.apache.org/r1587953
Log:
* src/rivetcmds/rivetInpect.c: adding is_virtual flag to values returned by '::rivet::inspect server'
Modified:
tcl/rivet/trunk/ChangeLog
tcl/rivet/trunk/src/rivetcmds/rivetInspect.c
Modified: tcl/rivet/trunk/ChangeLog
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/ChangeLog?rev=1587953&r1=1587952&r2=1587953&view=diff
==============================================================================
--- tcl/rivet/trunk/ChangeLog (original)
+++ tcl/rivet/trunk/ChangeLog Wed Apr 16 16:01:20 2014
@@ -1,3 +1,6 @@
+2014-04-16 Massimo Manghi <mx...@apache.org>
+ * src/rivetcmds/rivetInpect.c: adding is_virtual flag to values returned by '::rivet::inspect server'
+
2014-04-11 Massimo Manghi <mx...@apache.org>
* src/rivetcmds/rivetCore.c: misplaced check on request_rec in Rivet_InspectCmd
* tests/failtest.tcl,failtest.test,checkfail.tcl: adding tests for ::rivet::inspect
Modified: tcl/rivet/trunk/src/rivetcmds/rivetInspect.c
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/src/rivetcmds/rivetInspect.c?rev=1587953&r1=1587952&r2=1587953&view=diff
==============================================================================
--- tcl/rivet/trunk/src/rivetcmds/rivetInspect.c (original)
+++ tcl/rivet/trunk/src/rivetcmds/rivetInspect.c Wed Apr 16 16:01:20 2014
@@ -442,7 +442,6 @@ Rivet_CurrentServerRec (Tcl_Interp* inte
Tcl_DecrRefCount(field_value);
Tcl_DecrRefCount(field_name);
-
field_value = Tcl_NewStringObj(s->server_admin,-1);
field_name = Tcl_NewStringObj("admin",-1);
Tcl_IncrRefCount(field_value);
@@ -463,5 +462,14 @@ Rivet_CurrentServerRec (Tcl_Interp* inte
Tcl_DecrRefCount(field_value);
Tcl_DecrRefCount(field_name);
+ field_value = Tcl_NewIntObj(s->is_virtual);
+ field_name = Tcl_NewStringObj("virtual",-1);
+ Tcl_IncrRefCount(field_value);
+ Tcl_IncrRefCount(field_name);
+
+ Tcl_DictObjPut(interp,dictObj,field_name,field_value);
+
+ Tcl_DecrRefCount(field_value);
+ Tcl_DecrRefCount(field_name);
return dictObj;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org