Index: openacs-4/packages/acs-developer-support/acs-developer-support.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/acs-developer-support.info,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/acs-developer-support/acs-developer-support.info	26 Sep 2003 08:12:39 -0000	1.9
+++ openacs-4/packages/acs-developer-support/acs-developer-support.info	3 Nov 2003 11:08:09 -0000	1.10
@@ -8,7 +8,7 @@
     <singleton-p>t</singleton-p>
     <auto-mount>ds</auto-mount>
 
-    <version name="5.0d1" url="http://www.arsdigita.com/acs-repository/download/apm/acs-developer-support-5.0d1.apm">
+    <version name="5.0d2" url="http://www.arsdigita.com/acs-repository/download/apm/acs-developer-support-5.0d2.apm">
     <database-support>
         <database>oracle</database>
         <database>postgresql</database>
@@ -19,7 +19,7 @@
         <release-date>2001-01-24</release-date>
         <vendor url="http://www.arsdigita.com/">ArsDigita Corporation</vendor>
 
-        <provides url="acs-developer-support" version="5.0d1"/>
+        <provides url="acs-developer-support" version="5.0d2"/>
         <requires url="acs-kernel" version="4.6.2"/>
 
         <parameters>
Index: openacs-4/packages/acs-developer-support/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/index.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-developer-support/www/index.tcl	28 Oct 2003 08:47:42 -0000	1.6
+++ openacs-4/packages/acs-developer-support/www/index.tcl	3 Nov 2003 11:08:10 -0000	1.7
@@ -25,6 +25,7 @@
 <hr>
 
 <ul>
+<li><a href=\"shell.tcl\">OpenACS Shell</a>
 <li>Developer support information is currently
 [ad_decode $enabled_p 1 \
     "on (<a href=\"set-enabled?enabled_p=0\">turn it off</a>)" \
Index: openacs-4/packages/acs-developer-support/www/shell.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/shell.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-developer-support/www/shell.adp	3 Nov 2003 11:08:10 -0000	1.1
@@ -0,0 +1,7 @@
+<master>
+  <property name="title">@page_title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+<formtemplate id="shell"></formtemplate>
+<h3>Result</h3>
+<pre style="border: 1px solid black; padding: 4px">@result@</pre>
Index: openacs-4/packages/acs-developer-support/www/shell.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/shell.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-developer-support/www/shell.tcl	3 Nov 2003 11:08:10 -0000	1.1
@@ -0,0 +1,31 @@
+ad_page_contract {
+  @Author Nis Jorgensen
+} {
+  {script:optional {}}
+  } -properties {
+  result
+}
+
+ds_require_permission [ad_conn package_id] "admin"
+
+set page_title "OpenACS Shell"
+set context $page_title
+
+if { ![acs_user::site_wide_admin_p] } {
+  ad_script_abort
+}
+
+set result ""
+
+ad_form -name shell -form {
+    {
+      script:text(textarea)
+      {label {Input tcl_script}}
+      {html {cols 80 rows 10}}
+    }
+  } -on_submit {
+    if {[catch {set result [uplevel $script]}]} {
+      global errorInfo
+      set result "ERROR:\n$errorInfo"
+    }
+  }