Index: openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl	22 Aug 2003 10:55:00 -0000	1.1
+++ openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl	22 Aug 2003 15:10:54 -0000	1.2
@@ -58,7 +58,10 @@
                     Validate this username/password combination, and return the result.
                     Valid auth_status codes are 'ok', 'no_account', 'bad_password', 'auth_error', 'failed_to_connect'. 
                     The last, 'failed_to_connect', is reserved for communications or implementation errors.
+                    auth_message is a human-readable explanation of what went wrong, may contain HTML. 
+                    Only checked if auth_status is not ok.
                     Valid account_status codes are 'ok' and 'closed'.
+                    account_message may be supplied regardless of account_status, and may contain HTML.
                 }
                 input {
                     username:string
@@ -84,11 +87,6 @@
     }
 
     acs_sc::contract::new_from_spec -spec $spec
-
-    # LARS:
-    # If we do the configurator package, this proc should register the parameters as well,
-    # and GetParameters should return parameter_set_id.
-    # Hm. But it'll be up to the specific implementation which parameters it takes ... yeah, above won't work.
 }
 
 ad_proc -private auth::authentication::delete_contract {} {
@@ -134,8 +132,8 @@
                     parameters:string,multiple
                 }
                 output {
-                    successful_p:boolean
-                    message:string
+                    password_status:string
+                    password_message:string
                 }
             }
             CanRetrievePassword {
@@ -162,8 +160,8 @@
                     parameters:string,multiple
                 }
                 output {
-                    successful_p:boolean
-                    message:string
+                    password_status:string
+                    password_message:string
                     password:string
                 }
             }
@@ -176,7 +174,7 @@
                     parameters:string,multiple
                 }
                 output {
-                    retrievable_p:boolean
+                    resettable_p:boolean
                 }
                 iscachable_p "t"
             }
@@ -192,8 +190,8 @@
                     parameters:string,multiple
                 }
                 output {
-                    successful_p:boolean
-                    message:string
+                    password_status:string
+                    password_message:string
                     password:string
                 }
             }
@@ -283,10 +281,6 @@
     }
 
     acs_sc::contract::new_from_spec -spec $spec
-
-    # LARS:
-    # If we do the configurator package, this proc should register the parameters as well,
-    # and GetParameters should return parameter_set_id.
 }