Index: openacs-4/packages/lamsconf/lamsconf.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lamsconf/lamsconf.info,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lamsconf/lamsconf.info	8 Dec 2005 09:20:21 -0000	1.1
@@ -0,0 +1,39 @@
+<?xml version="1.0"?>
+<!-- Generated by the OpenACS Package Manager -->
+
+<package key="lamsconf" url="http://openacs.org/repository/apm/packages/lamsconf" type="apm_service">
+    <package-name>LAMS Integration Configuration</package-name>
+    <pretty-plural>LAMS Integration Configurations</pretty-plural>
+    <initial-install-p>f</initial-install-p>
+    <singleton-p>t</singleton-p>
+    <auto-mount>lamsconf</auto-mount>
+
+    <version name="0.1d" url="http://openacs.org/repository/download/apm/lamsconf-0.1d.apm">
+        <owner url="mailto:ernieg@melcoe.mq.edu.au">Ernie Ghiglione</owner>
+        <summary>This package serves two purposes:
+
+* User data exchange between LAMS and .LRN
+* Configuration setting &quot;holder&quot; for .LRN
+
+See more details in the LAMS Community or LAMS/.LRN integration webpage (http://lamsfoundation.org/integration/dotlrn)</summary>
+        <vendor url="http://lamsfoundation.org">LAMS Foundation</vendor>
+        <description format="text/html">This package serves two purposes:
+
+* User data exchange between LAMS and .LRN
+* Configuration setting &quot;holder&quot; for .LRN
+
+See more details in the LAMS Community or LAMS/.LRN integration webpage (http://lamsfoundation.org/integration/dotlrn)</description>
+
+        <!-- No dependency information -->
+        <maturity>0</maturity>
+
+        <callbacks>
+        </callbacks>
+        <parameters>
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="lams_server_url"  description="LAMS server URL"/>
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="server_id"  description="Server ID provided by the LAMS server"/>
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="server_key"  description="Server key provided by the LAMS server"/>
+        </parameters>
+
+    </version>
+</package>
Index: openacs-4/packages/lamsconf/www/userinfo.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lamsconf/www/userinfo.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lamsconf/www/userinfo.tcl	8 Dec 2005 09:20:21 -0000	1.1
@@ -0,0 +1,50 @@
+# packages/lamsconf/www/userinfo.tcl
+
+ad_page_contract {
+    
+    This page return user info in CSV format to LAMS server. 
+    
+    @author Ernie Ghiglione (ErnieG@melcoe.mq.edu.au)
+    @creation-date 2005-11-23
+    @arch-tag: d96fffd1-bbf0-479e-9fc0-92cd09a63568
+    @cvs-id $Id: userinfo.tcl,v 1.1 2005/12/08 09:20:21 ernieg Exp $
+} {
+    ts
+    un
+    hs
+} -properties {
+} -validate {
+} -errors {
+}
+
+set datetime $ts
+set username $un
+set hash $hs
+
+ns_log Notice "LAMSint: LAMS requests userinfo for user_id $username (datetime: $ts hash: $hs)"
+
+set lams_server_url [parameter::get -parameter lams_server_url -package_id [ad_conn package_id]]
+set server_key [parameter::get -parameter server_key -package_id [ad_conn package_id]]
+set server_id [parameter::get -parameter server_id -package_id [ad_conn package_id]]
+
+
+set plaintext [string tolower [concat $ts$un$server_id$server_key]]
+set hashValue [string tolower [ns_sha1 $plaintext]]
+
+if {![string equal [string tolower $hash] $hashValue]} {
+
+    ns_log Warning "LAMSint: userinfo request hash authentication failed. localhash: $hashValue requesthash: $hs"
+    ns_write "HTTP/1.1 401 Unauthenticated"
+
+}
+
+# get the user info we need to pass to LAMS
+set first_name [acs_user::get_element -user_id $username -element first_names]
+set last_name [acs_user::get_element -user_id $username -element last_name]
+set email [acs_user::get_element -user_id $username -element email]   
+
+ns_log Notice "LAMSint: userinfo transfered to LAMS (user_id $username)"
+
+# send it to LAMS
+ReturnHeaders "text/plain"
+ns_write "$username,$first_name,$last_name,'','','','','','','',$email"
\ No newline at end of file