- V4.0.3.0.0:

  Updated to OpenACS 5.7

acs-authentication.info

@@ -7,20 +7,20 @@
     <initial-install-p>t</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="5.6.0" url="http://openacs.org/repository/download/apm/acs-authentication-5.6.0.apm">
+    <version name="5.7.0" url="http://openacs.org/repository/download/apm/acs-authentication-5.7.0.apm">
         <owner url="mailto:lars@collaboraid.biz">Lars Pind</owner>
         <summary>Authentication, account management, and related functionality.</summary>
-        <release-date>2010-06-17</release-date>
+        <release-date>2011-06-12</release-date>
         <maturity>3</maturity>
         <vendor url="http://www.collaboraid.biz">Collaboraid</vendor>
         <maturity>3</maturity>
         <license url="http://www.gnu.org/copyleft/gpl.html">GPL version 2</license>
         <description format="text/html">Implements authentication-related security functions for OpenACS, including password, account and session management, bulk account creation etc.  Provides a contract based interface for different authentication methods such as PAM or LDAP based authentication.</description>
 
-        <provides url="acs-authentication" version="5.6.0"/>
-        <requires url="acs-kernel" version="5.6.0"/>
-        <requires url="acs-service-contract" version="5.6.0"/>
-        <requires url="acs-mail-lite" version="5.6.0"/>
+        <provides url="acs-authentication" version="5.7.0"/>
+        <requires url="acs-kernel" version="5.7.0"/>
+        <requires url="acs-service-contract" version="5.7.0"/>
+        <requires url="acs-mail-lite" version="5.7.0"/>
 
         <callbacks>
             <callback type="after-install"  proc="auth::package_install"/>

tcl/authentication-procs.tcl

@@ -1415,7 +1415,7 @@ ad_proc -private auth::get_user_secret_token {
 } {
     Get a secret token for the user. Can be used for email verification purposes. 
 } {
-    return [db_string select_secret_token {}]
+    return [ns_sha1 "${user_id}[sec_get_token 1]"]
 }
 
 ad_proc -private auth::send_email_verification_email {

tcl/sync-procs.tcl

@@ -13,6 +13,7 @@ namespace eval auth::sync::get_doc {}
 namespace eval auth::sync::get_doc::http {}
 namespace eval auth::sync::get_doc::ldap {}
 namespace eval auth::sync::get_doc::file {}
+namespace eval auth::sync::get_doc::ldap {}
 namespace eval auth::sync::entry {}
 namespace eval auth::sync::process_doc {}
 namespace eval auth::sync::process_doc::ims {}
@@ -1068,3 +1069,67 @@ ad_proc -public auth::sync::process_doc::ims::GetAcknowledgementDocument {
     
     return $doc
 }
+
+#####
+#
+# auth::sync::get_doc::ldap namespace
+#
+#####
+
+ad_proc -private auth::sync::get_doc::ldap::register_impl {} {
+    Register this implementation
+} {
+    set spec {
+        contract_name "auth_sync_retrieve"
+        owner "acs-authentication"
+        name "LDAPGet"
+        pretty_name "LDAP GET"
+	aliases {
+            GetDocument auth::sync::get_doc::ldap::GetDocument
+            GetParameters auth::sync::get_doc::ldap::GetParameters
+	}
+    }
+    
+    return [acs_sc::impl::new_from_spec -spec $spec]
+    
+}
+
+ad_proc -private auth::sync::get_doc::ldap::unregister_impl {} {
+    Unregister this implementation
+} {
+    acs_sc::impl::delete -contract_name "auth_sync_retrieve" -impl_name "LDAPGet"
+}
+
+ad_proc -private auth::sync::get_doc::ldap::GetParameters {} {
+    Parameters for LDAP GetDocument implementation.
+} {
+    return {}
+}
+
+ad_proc -private auth::sync::get_doc::ldap::GetDocument { parameters } {
+    Retrieve the document by LDAP
+} {
+    ns_log Notice "auth::sync::get_doc::ldap::GetDocument: parameters=$parameters"
+    array set result {
+        doc_status failed_to_conntect
+	doc_message {}
+	document {}
+        snapshot_p f
+    }
+    
+    array set param $parameters
+    
+    # Check 4 call levels upwards for an authority_id
+    upvar 3 authority_id authority_id
+    if {![info exists authority_id]} { set authority_id "" }
+    
+    if {"" == $authority_id} {
+	ad_return_complaint 1 "Internal Error:<br>auth::sync::get_doc::ldap::GetDocument didn't find a valid authority_id.<br>&nbsp;"
+	ad_script_abort
+    }
+    
+    
+    set result(document) "!!!"
+    set result(doc_status) "ok"
+    return [array get result]
+}
\ No newline at end of file