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"