Index: openacs-4/packages/acs-bootstrap-installer/installer/site-info-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer/Attic/site-info-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-bootstrap-installer/installer/site-info-2.tcl	6 Sep 2001 19:32:18 -0000	1.3
+++ openacs-4/packages/acs-bootstrap-installer/installer/site-info-2.tcl	3 Jul 2002 09:16:25 -0000	1.4
@@ -8,12 +8,14 @@
     @author Bryan Quinn (bquinn@arsdigita.com)
     @cvs-id $Id$
 } {
+    system_url:notnull
     system_name:notnull
     publisher_name:notnull
     system_owner:notnull
     admin_owner:notnull
     host_administrator:notnull
-	outgoing_sender:notnull
+    outgoing_sender:notnull
+    new_registrations:notnull
 }
 
 set kernel_id [db_string acs_kernel_id_get {
@@ -22,12 +24,13 @@
 }]
 
 foreach { var param } {
+    system_url SystemURL
     system_name SystemName
     publisher_name PublisherName
     system_owner SystemOwner
     admin_owner AdminOwner
     host_administrator HostAdministrator
-	outgoing_sender OutgoingSender
+    outgoing_sender OutgoingSender
 } {
     ad_parameter -set [set $var] -package_id $kernel_id $param
 }
@@ -40,5 +43,6 @@
 }]
 
 ad_parameter -set "acs-admin/*" -package_id $main_site_id RestrictToSSL
+ad_parameter -set $new_registrations -package_id $main_site_id NewRegistrationEmailAddress
 
 ad_returnredirect "/?done_p=1"
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 -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