Index: openacs-4/packages/acs-automated-testing/www/server.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/server.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-automated-testing/www/server.adp	24 Feb 2004 14:15:01 -0000	1.1
+++ openacs-4/packages/acs-automated-testing/www/server.adp	24 Feb 2004 15:35:09 -0000	1.2
@@ -13,7 +13,7 @@
   <if @admin_p@>
     <li>Login:
       <ul>
-        <li><a href="@admin_login_url@">Admin user</a>
+        <li><a href="@admin_login_url@">Admin user</a> (pwd: @service.adminpassword@)
       </ul>
     </li>
   </if>
@@ -32,12 +32,6 @@
       <li>Openacs flag: @service.openacs_cvs_flag@
     </ul>
   </li>
-  <li>Logs
-    <ul>
-      <li><a href="@service.auto_test_url@">Automated testing</a>
-      <li>Install Log (TODO)
-    </ul>
-  </li>
   <li>Test failures
     <if @has_test_report_p@>
       <if @testcase_failures:rowcount@ eq 0>
Index: openacs-4/packages/acs-automated-testing/www/server.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/server.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-automated-testing/www/server.tcl	24 Feb 2004 14:15:01 -0000	1.1
+++ openacs-4/packages/acs-automated-testing/www/server.tcl	24 Feb 2004 15:35:09 -0000	1.2
@@ -25,9 +25,4 @@
 set page_title "Control Page for Server $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"
+set admin_login_url [export_vars -base "$service(url)/register" {{email {$service(adminemail)}} {password {$service(adminpassword)}}}]