Index: openacs-4/packages/acs-authentication/acs-authentication.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/acs-authentication.info,v
diff -u -N -r1.28 -r1.29
--- openacs-4/packages/acs-authentication/acs-authentication.info 6 Jul 2008 15:46:14 -0000 1.28
+++ openacs-4/packages/acs-authentication/acs-authentication.info 9 Sep 2008 14:50:05 -0000 1.29
@@ -7,7 +7,7 @@
t
t
-
+
Lars Pind
Authentication, account management, and related functionality.
2008-05-31
@@ -17,8 +17,8 @@
GPL version 2
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.
-
-
+
+
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.17 -r1.18
--- openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl 8 Sep 2008 20:14:58 -0000 1.17
+++ openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl 9 Sep 2008 14:50:05 -0000 1.18
@@ -166,6 +166,9 @@
}
}
+ 5.5.0d1-5.5.0d2 {
+ auth::search::create_contract
+ }
}
}
Index: openacs-4/packages/acs-authentication/tcl/local-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/local-procs.tcl,v
diff -u -N -r1.34 -r1.35
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl 8 Sep 2008 20:14:58 -0000 1.34
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl 9 Sep 2008 14:50:05 -0000 1.35
@@ -29,7 +29,6 @@
set row(auth_impl_id) [auth::local::authentication::register_impl]
set row(pwd_impl_id) [auth::local::password::register_impl]
set row(register_impl_id) [auth::local::registration::register_impl]
- set row(search_impl_id) [auth::local::search::register_impl]
set row(user_info_impl_id) [auth::local::user_info::register_impl]
# Set the authority pretty-name to be the system name
@@ -609,57 +608,3 @@
return [list]
}
-#####
-#
-# The 'auth_search' service contract implementation
-#
-
-ad_proc -private auth::local::search::register_impl {} {
- Register the 'local' implementation of the 'auth_search' service contract. Returns
- a list of user_ids suitable for user with the 'local' 'user_info' implementation.
-
- @return impl_id of the newly created implementation.
-} {
- set spec {
- contract_name "auth_search"
- owner "acs-authentication"
- name "local"
- pretty_name "Local"
- aliases {
- Search auth::local::search::Search
- GetParameters auth::local::search::GetParameters
- }
- }
- return [acs_sc::impl::new_from_spec -spec $spec]
-}
-
-ad_proc -private auth::local::search::unregister_impl {} {
- Unregister the 'local' implementation of the 'auth_search' service contract.
-} {
- acs_sc::impl::delete -contract_name "auth_search" -impl_name "local"
-}
-
-ad_proc -private auth::local::search::Search {
- search_text
- {parameters ""}
-} {
- Implements the Search operation of the auth_search
- service contract for the local account implementation.
-} {
-
- set results [list]
- db_foreach user_search {} {
- lappend results $user_id
- }
-
- return $results
-
-}
-
-ad_proc -private auth::local::search::GetParameters {} {
- Implements the GetParameters operation of the auth_search
- service contract for the local account implementation.
-} {
- # No parameters
- return [list]
-}