Index: openacs-4/packages/auth-pam/auth-pam.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/auth-pam/auth-pam.info,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/auth-pam/auth-pam.info	17 Sep 2003 11:30:08 -0000	1.1
@@ -0,0 +1,27 @@
+<?xml version="1.0"?>
+<!-- Generated by the OpenACS Package Manager -->
+
+<package key="auth-pam" url="http://openacs.org/repository/apm/packages/auth-pam" type="apm_service">
+    <package-name>PAM Authentication Drivers</package-name>
+    <pretty-plural>PAM Authentication Drivers</pretty-plural>
+    <initial-install-p>f</initial-install-p>
+    <singleton-p>t</singleton-p>
+    
+    <version name="1.0d1" url="http://openacs.org/repository/download/apm/auth-pam-1.0d1.apm">
+        <owner url="mailto:lars@collaboraid.biz">Lars Pind</owner>
+        <summary>Authentication and password management drivers for PAM.</summary>
+        <vendor url="http://www.collaboraid.biz">Collaboraid</vendor>
+        <description format="text/plain">Provides authentication and password management drivers for authenticating through PAM on the host operating system. Requires the nspam module for AOLserver.</description>
+
+        <!-- No dependency information -->
+
+        <callbacks>
+            <callback type="after-install"  proc="auth::pam::after_install"/>
+            <callback type="before-uninstall"  proc="auth::pam::before_uninstall"/>
+        </callbacks>
+        <parameters>
+        <!-- No version parameters -->
+        </parameters>
+
+    </version>
+</package>
Index: openacs-4/packages/auth-pam/tcl/auth-pam-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/auth-pam/tcl/auth-pam-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/auth-pam/tcl/auth-pam-procs.tcl	17 Sep 2003 11:30:08 -0000	1.1
@@ -0,0 +1,165 @@
+ad_library {
+    Installation procs for authentication, account management, and password management,
+
+    @author Lars Pind (lars@collaobraid.biz)
+    @creation-date 2003-05-13
+    @cvs-id $Id: auth-pam-procs.tcl,v 1.1 2003/09/17 11:30:08 lars Exp $
+}
+
+namespace eval auth {}
+namespace eval auth::pam {}
+namespace eval auth::pam::authentication {}
+namespace eval auth::pam::password {}
+
+
+ad_proc -private auth::pam::after_install {} {} {
+    set spec {
+        contract_name "auth_authentication"
+        owner "auth-pam"
+        name "PAM"
+        pretty_name "PAM"
+        aliases {
+            Authenticate auth::pam::authentication::Authenticate
+            GetParameters auth::pam::authentication::GetParameters
+        }
+    }
+
+    set auth_impl_id [acs_sc::impl::new_from_spec -spec $spec]
+
+    set spec {
+        contract_name "auth_password"
+        owner "pam-auth"
+        name "PAM"
+        pretty_name "PAM"
+        aliases {
+            CanChangePassword auth::pam::password::CanChangePassword
+            ChangePassword auth::pam::password::ChangePassword
+            CanRetrievePassword auth::pam::password::CanRetrievePassword
+            RetrievePassword auth::pam::password::RetrievePassword
+            CanResetPassword auth::pam::password::CanResetPassword
+            ResetPassword auth::pam::password::ResetPassword
+            GetParameters auth::pam::password::GetParameters
+        }
+    }
+
+    set pwd_impl_id [acs_sc::impl::new_from_spec -spec $spec]
+}
+
+ad_proc -private auth::pam::before_uninstall {} {} {
+
+    acs_sc::impl::delete -contract_name "auth_authentication" -impl_name "PAM"
+
+    acs_sc::impl::delete -contract_name "auth_password" -impl_name "PAM"
+
+}
+
+
+#####
+#
+# PAM Authentication Driver
+#
+#####
+
+
+ad_proc -private auth::pam::authentication::Authenticate {
+    username
+    password
+    {parameters {}}
+} {
+    Implements the Authenticate operation of the auth_authentication 
+    service contract for PAM.
+} {
+    if { [ns_pam auth $username $password] } {
+        set result(auth_status) ok
+    } else {
+        set result(auth_status) auth_error
+    }
+
+    set result(account_status) ok
+    
+    return [array get result]
+}
+
+ad_proc -private auth::pam::authentication::GetParameters {} {
+    Implements the GetParameters operation of the auth_authentication 
+    service contract for PAM.
+} {
+    return [list]
+}
+
+
+#####
+#
+# Password Driver
+#
+#####
+
+ad_proc -private auth::pam::password::CanChangePassword {
+    {parameters ""}
+} {
+    Implements the CanChangePassword operation of the auth_password 
+    service contract for PAM.
+} {
+    return 1
+}
+
+ad_proc -private auth::pam::password::CanRetrievePassword {
+    {parameters ""}
+} {
+    Implements the CanRetrievePassword operation of the auth_password 
+    service contract for PAM.
+} {
+    return 0
+}
+
+ad_proc -private auth::pam::password::CanResetPassword {
+    {parameters ""}
+} {
+    Implements the CanResetPassword operation of the auth_password 
+    service contract for PAM.
+} {
+    return 0
+}
+
+ad_proc -private auth::pam::password::ChangePassword {
+    username
+    old_password
+    new_password
+    {parameters {}}
+} {
+    Implements the ChangePassword operation of the auth_password 
+    service contract for PAM.
+} {
+    if { [ns_pam chpass $username $old_password $new_passwd] } {
+        set result(password_status) ok
+    } else {
+        set result(password_status) auth_error
+    }
+
+    return [array get result]
+}
+
+ad_proc -private auth::pam::password::RetrievePassword {
+    username
+    parameters
+} {
+    Implements the RetrievePassword operation of the auth_password 
+    service contract for PAM.
+} {
+}
+
+ad_proc -private auth::pam::password::ResetPassword {
+    username
+    parameters
+} {
+    Implements the ResetPassword operation of the auth_password 
+    service contract for PAM.
+} {
+}
+
+ad_proc -private auth::pam::password::GetParameters {} {
+    Implements the GetParameters operation of the auth_password
+    service contract for PAM.
+} {
+    return [list]
+}