Index: openacs-4/packages/acs-subsite/www/register/auto-login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/auto-login.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/register/auto-login.tcl	25 Feb 2004 10:48:48 -0000	1.1
@@ -0,0 +1,23 @@
+ad_page_contract {
+    Log in a user without the timestamp protection of the /register/index page.
+    Useful when you need to log in a user from a different server.
+
+    @author Peter Marklund
+} {
+    email
+    password
+    {return_url "/"}
+}
+
+array set auth_info [auth::authenticate \
+                         -return_url $return_url \
+                         -email [string trim $email] \
+                         -password $password]
+
+if { [string equal $auth_info(auth_status) "ok"] } {
+    ad_returnredirect $return_url
+    ad_script_abort
+} else {
+    # Login problem - redirect to login form
+    ad_returnredirect [export_vars -base /register { email return_url }]    
+}