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 -r1.9 -r1.10 --- openacs-4/packages/acs-authentication/acs-authentication.info 10 Nov 2003 14:28:55 -0000 1.9 +++ openacs-4/packages/acs-authentication/acs-authentication.info 11 Nov 2003 10:34:47 -0000 1.10 @@ -7,23 +7,23 @@ t t - + Lars Pind Authentication and related functionality. - 2003-11-07 Collaboraid Implements authentication-related security functions for OpenACS, including authentication, password maangement, account management, session management, etc. - - - + + + - + + Index: openacs-4/packages/acs-authentication/tcl/authority-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.tcl,v diff -u -r1.19 -r1.20 --- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl 24 Oct 2003 16:44:19 -0000 1.19 +++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl 11 Nov 2003 10:34:47 -0000 1.20 @@ -347,9 +347,25 @@ -job_id $job_id \ -document $doc_result(document)] - template::util::write_file \ - "[acs_root_dir]/batch-sync-acknolwedgement.xml" \ - $ack_doc + set ack_file_name [parameter::get_from_package_key \ + -parameter AcknowledgementFileName \ + -package_key acs-authentication \ + -default {}] + + if { ![empty_string_p $ack_file_name] } { + # Interpolate + set pairs [list \ + acs_root_dir [acs_root_dir] \ + ansi_date [clock format [clock seconds] -format %Y-%m-%d] \ + authority $authority(short_name)] + foreach { var value } $pairs { + regsub -all "{$var}" $ack_file_name $value ack_file_name + } + + template::util::write_file \ + $ack_file_name \ + $ack_doc + } } { global errorInfo ns_log Error "Error processing sync document:\n$errorInfo"