Index: openacs-4/packages/acs-automated-testing/www/admin/install/server.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/install/Attic/server.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-automated-testing/www/admin/install/server.adp	24 Feb 2004 10:22:30 -0000	1.3
+++ openacs-4/packages/acs-automated-testing/www/admin/install/server.adp	24 Feb 2004 10:52:53 -0000	1.4
@@ -8,6 +8,11 @@
       <li>URL: <a href="@service.url@">@service.url@</a>
     </ul>
   </li>
+  <li>Login:
+    <ul>
+      <li><a href="@admin_login_url@">Admin user</a>
+    </ul>
+  </li>
   <li>Installation: 
     <ul>
       <li>Installation completed at: @service.install_end_timestamp@
Index: openacs-4/packages/acs-automated-testing/www/admin/install/server.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/install/Attic/server.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-automated-testing/www/admin/install/server.tcl	24 Feb 2004 10:22:30 -0000	1.3
+++ openacs-4/packages/acs-automated-testing/www/admin/install/server.tcl	24 Feb 2004 10:52:53 -0000	1.4
@@ -22,3 +22,10 @@
 
 set page_title "Control Page For $service(name)"
 set context [list $page_title]
+
+set time [ns_time]
+set token_id [sec_get_random_cached_token_id]
+set token [sec_get_token $token_id]
+set hash [ns_sha1 "$time$token_id$token"]
+
+set admin_login_url "[export_vars -base "$service(url)/register" {{email {$service(adminemail)}} {password {$service(adminpassword)}} {__confirmed_p 1} time hash token_id {return_url /admin}}]&form:id=login"