Index: openacs-4/packages/acs-bootstrap-installer/installer/site-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer/Attic/site-info.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-bootstrap-installer/installer/site-info.tcl	6 Sep 2001 19:32:18 -0000	1.2
+++ openacs-4/packages/acs-bootstrap-installer/installer/site-info.tcl	3 Jul 2002 09:16:25 -0000	1.3
@@ -9,6 +9,15 @@
     email
 }
 
+# Get the default for system_url. First try to get it from the nssock
+# hostname setting - if that is not available then try ns_info
+# hostname, use yourdomain.com if that fails too.
+if { [catch {
+    set system_url "http://[ns_config "ns/server/[ns_info server]/module/nssock" hostname [ns_info hostname]]"
+}] } {
+    set system_url "http://yourdomain.com"
+}
+
 set body "
 
 Please enter some information about your system.
@@ -17,6 +26,11 @@
 <blockquote>
 <table>
 <tr valign=baseline>
+  <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>
+</tr>
+<tr valign=baseline>
   <th align=right>System Name:</th>
   <td><input name=system_name size=40 value=\"yourdomain Network\"><br>
 The name of your system.<br><br>
@@ -46,14 +60,19 @@
   <td><input name=outgoing_sender size=40 value=\"$email\"><br>
 The email address that will sign outgoing alerts.
 </tr>
+<tr valign=baseline>
+  <th align=right>New Registration Email:</th>
+  <td><input name=new_registrations size=40 value=\"$email\"><br>
+The email address to send New registration notifications.<br><br>
+</tr>
 </table>
 
 </blockquote>
 
 <center>
 <input type=submit value=\"Set System Information ->\">
 </center>
-
+</form>
 "
 
 install_return 200 "Set System Information" $body