Index: openacs-4/packages/acs-bootstrap-installer/installer/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer/index.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-bootstrap-installer/installer/index.tcl	14 Oct 2003 16:19:59 -0000	1.17
+++ openacs-4/packages/acs-bootstrap-installer/installer/index.tcl	11 Dec 2003 18:02:26 -0000	1.18
@@ -71,7 +71,7 @@
     set acs_application(name) [apm_required_attribute_value $root_node name]
     set acs_application(pretty_name) [apm_attribute_value -default $acs_application(name) $root_node pretty-name]
     set acs_application(home) [apm_attribute_value -default "" $root_node home]
-
+    set acs_application(min_stack_size) [apm_attribute_value -default 128 $root_node min_stack_size]
     append body "<p>
 The installer will automatically install the $acs_application(pretty_name)
 application after the basic OpenACS tookit has been installed.
@@ -83,6 +83,11 @@
 <a href=\"$acs_application(home)\">$acs_application(pretty_name) home page</a>
 "
     }
+} else {
+    set acs_application(name) openacs
+    set acs_application(pretty_name) OpenACS
+    set acs_application(home) ""
+    set acs_application(min_stack_size) 128
 }
 
 set error_p 0
@@ -183,22 +188,20 @@
     set error_p 1
 }   
 
-# AOLserver must have a large stack size (at least 128K)
+# AOLserver must have a large stack size (at least 128K by default, or the value specified
+# in the install.xml file)
+
 set stacksize [ns_config "ns/threads" StackSize]
-if { $stacksize < [expr 128 * 1024] } {
+if { $stacksize < [expr $acs_application(min_stack_size) * 1024] } {
 
-    append errors "<li><p>The configured AOLserver Stacksize is too small ($stacksize).
-OpenACS requires a StackSize parameter of at least 131072 (ie 128K).
-Please add the following to your AOLserver configuration file or 
-see the <a href=\"/doc/install-guide/\">Installation Guide</a> for more information.<p>
+    append errors "<li><p>The configured AOLserver Stacksize is too small
+([expr $stacksize / 1024]K).
+$acs_application(pretty_name) requires a StackSize parameter of at least
+${acs_application(min_stack_size)}K.
+<p>Please add the following line to your .tcl configuration file
 <blockquote><pre>
-\[ns/threads\] 
-stacksize=131072 
-</blockquote></pre>
-<p>If you use a .tcl configuration file, add
-<blockquote><pre>
 ns_section \"ns/threads\"
-        ns_param StackSize [expr 128*1024]
+        ns_param StackSize \[expr ${acs_application(min_stack_size)}*1024\]
 </blockquote></pre>
 After adding support the larger stacksize, please restart your web server.
 </strong></p>"
@@ -275,6 +278,9 @@
         set system_url "http://yourdomain.com"
     }
 
+    set email_input_widget [install_input_widget \
+                                -extra_attributes "onChange=\"updateSystemEmails()\"" \
+                                email]
     append body "
 
 <h2>System Configuration</h2>
@@ -304,27 +310,27 @@
 
 <tr>
   <th align=right>Email:</th>
-  <td><input name=email size=40 onChange=\"updateSystemEmails()\"></td>
+<td>$email_input_widget</td>
 </tr>
 <tr>
   <th align=right>Username:</th>
-  <td><input name=username size=40> <span style=\"color: red;\">\[*\]</span></td>
+  <td>[install_input_widget username]</td>
 </tr>
 <tr>
   <th align=right>First Name:</th>
-  <td><input name=first_names size=40></td>
+  <td>[install_input_widget first_names]</td>
 </tr>
 <tr>
   <th align=right>Last Name:</th>
-  <td><input name=last_name size=40></td>
+  <td>[install_input_widget last_name]</td>
 </tr>
 <tr>
   <th align=right>Password:</th>
-  <td><input type=password name=password size=12></td>
+  <td>[install_input_widget -size 12 -type password password]</td>
 </tr>
 <tr>
   <th align=right>Password (again):</th>
-  <td><input type=password name=password_confirmation size=12></td>
+  <td>[install_input_widget -size 12 -type password password_confirmation]</td>
 </tr>
 
 <tr>
@@ -333,42 +339,43 @@
 
 <tr>
   <th align=right>System URL:</th>
-  <td><input name=system_url size=40 value=\"$system_url\"><br>
-The canonical URL of your system.<br><br>
+  <td>[install_input_widget system_url]<br>
+The canonical URL of your system as visible from the outside world<br>
+Usually it should include the port if your server is not on port 80<br><br>
 </tr>
 <tr>
   <th align=right>System Name:</th>
-  <td><input name=system_name size=40 value=\"yourdomain Network\"><br>
+  <td>[install_input_widget system_name]<br>
 The name of your system.<br><br>
 </tr>
 <tr>
   <th align=right>Publisher Name:</th>
-  <td><input name=publisher_name size=40 value=\"Yourdomain Network, Inc.\"><br>
+  <td>[install_input_widget publisher_name]<br>
 The legal name of the person or corporate entity responsible for the site.<br><br>
 </tr>
 <tr>
   <th align=right>System Owner:</th>
-  <td><input name=system_owner size=40 value=\"\"><br>
+  <td>[install_input_widget system_owner]<br>
 The email address signed at the bottom of user-visible pages.<br><br>
 </tr>
 <tr>
   <th align=right>Admin Owner:</th>
-  <td><input name=admin_owner size=40 value=\"\"><br>
+  <td>[install_input_widget admin_owner]<br>
 The email address signed on administrative pages.<br><br>
 </tr>
 <tr>
   <th align=right>Host Administrator:</th>
-  <td><input name=host_administrator size=40 value=\"\"><br>
+  <td>[install_input_widget host_administrator]<br>
 A person whom people can contact if they experience technical problems.<br><br>
 </tr>
 <tr>
   <th align=right>Outgoing Email Sender:</th>
-  <td><input name=outgoing_sender size=40 value=\"\"><br>
+  <td>[install_input_widget outgoing_sender]<br>
 The email address that will sign outgoing alerts.
 </tr>
 <tr>
   <th align=right>New Registration Email:</th>
-  <td><input name=new_registrations size=40 value=\"\"><br>
+  <td>[install_input_widget new_registrations]<br>
 The email address to send New registration notifications.<br><br>
 </tr>
 </table>
@@ -394,7 +401,7 @@
     } else {
 	append body "<p>The OpenACS data model is already installed. Click <i>Next</i> 
 	to scan the available packages.
-	
+
 	[install_next_button "packages-install"]
 	"
     }