Commit 739e85f4 authored by Shane Hathaway's avatar Shane Hathaway

Added SOFTWARE_HOME, INSTANCE_HOME, and CLIENT_HOME to the control panel

to make it easer to tell what configuration of Zope is running.
parent 08632161
......@@ -83,7 +83,7 @@
#
##############################################################################
__doc__="""System management components"""
__version__='$Revision: 1.74 $'[11:-2]
__version__='$Revision: 1.75 $'[11:-2]
import sys,os,time,string,Globals, Acquisition, os, Undo
......@@ -257,6 +257,9 @@ class DebugManager(Fake, SimpleItem.Item, Acquisition.Implicit):
sys.stdout=stdout
return output.getvalue()
def manage_getSysPath(self):
return list(sys.path)
Globals.default__class_init__(DebugManager)
......@@ -480,3 +483,11 @@ class ApplicationManager(Folder,CacheManager):
if REQUEST is not None:
REQUEST['RESPONSE'].redirect(REQUEST['URL1']+'/manage_main')
def getSOFTWARE_HOME(self):
return SOFTWARE_HOME
def getINSTANCE_HOME(self):
return INSTANCE_HOME
def getCLIENT_HOME(self):
return CLIENT_HOME
......@@ -44,6 +44,42 @@ functions such as database and product management.
</div>
</td>
</tr>
<tr>
<td align="left" valign="top">
<div class="form-label">
SOFTWARE_HOME
</div>
</td>
<td align="left" valign="top">
<div class="form-text">
<dtml-var getSOFTWARE_HOME>
</div>
</td>
</tr>
<tr>
<td align="left" valign="top">
<div class="form-label">
INSTANCE_HOME
</div>
</td>
<td align="left" valign="top">
<div class="form-text">
<dtml-var getINSTANCE_HOME>
</div>
</td>
</tr>
<tr>
<td align="left" valign="top">
<div class="form-label">
CLIENT_HOME
</div>
</td>
<td align="left" valign="top">
<div class="form-text">
<dtml-var getCLIENT_HOME>
</div>
</td>
</tr>
<tr>
<td align="left" valign="top">
<div class="form-label">
......
......@@ -41,8 +41,14 @@ font-size: 10pt;
<li>Zope version: <dtml-var version_txt>
<li>Python version: <dtml-var sys_version>
<li>System Platform: <dtml-var sys_platform>
<li>SOFTWARE_HOME: <dtml-var getSOFTWARE_HOME>
<li>INSTANCE_HOME: <dtml-var getINSTANCE_HOME>
<li>CLIENT_HOME: <dtml-var getCLIENT_HOME>
<li>Process ID: <dtml-var process_id> (<dtml-var thread_get_ident>)
<li>Running for: <dtml-var process_time>
<li>sys.path: <dtml-in manage_getSysPath><br />&nbsp;
&dtml-sequence-item;
</dtml-in>
<li>Top Refcounts:<br><select name="foo" size="5"><dtml-in
"refcount(100)"><option><dtml-var
sequence-item>: <dtml-var sequence-key></option></dtml-in
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment