*** backup\00.ftpd-1.2.4.tm	Mon Dec 14 14:25:05 2009
--- ftpd-1.2.4.tm	Tue Jan 19 19:41:26 2010
***************
*** 173,190 ****
  proc ::ftpd::config {args} {
  
      # Processing of global configuration changes.
  
      package require cmdline
  
      variable cfg
  
      array set cfg [cmdline::getoptions args [list \
! 	{closeCmd.arg {} {Callback when a connection is closed.}} \
! 	{authIpCmd.arg  {} {Callback to authenticate new connections based on the ip-address of the peer. Optional}} \
! 	{authUsrCmd.arg {::ftpd::anonAuth} {Callback to authenticate new connections based on the user logging in.}} \
! 	{authFileCmd.arg {::ftpd::fileAuth} {Callback to accept or deny a users access to read and write to a specific path or file.}} \
! 	{logCmd.arg {::ftpd::logStderr} {Callback for log information generated by the FTP engine.}} \
! 	{xferDoneCmd.arg {} {Callback for transfer completion notification. Optional}} \
! 	{fsCmd.arg {::ftpd::fsFile::fs} {Callback to connect the engine to the filesystem it operates on.}}]]
      return
  }
--- 173,192 ----
  proc ::ftpd::config {args} {
  
      # Processing of global configuration changes.
  
      package require cmdline
  
      variable cfg
  
+     # make default value be the current value so we can call config
+     # multiple times without resetting already set values
      array set cfg [cmdline::getoptions args [list \
!         [list closeCmd.arg $cfg(closeCmd) {Callback when a connection is closed.}] \
!         [list authIpCmd.arg  $cfg(authIpCmd) {Callback to authenticate new connections based on the ip-address of the peer. Optional}] \
!         [list authUsrCmd.arg $cfg(authUsrCmd) {Callback to authenticate new connections based on the user logging in.}] \
!         [list authFileCmd.arg $cfg(authFileCmd) {Callback to accept or deny a users access to read and write to a specific path or file.}] \
!         [list logCmd.arg $cfg(logCmd) {Callback for log information generated by the FTP engine.}] \
!         [list xferDoneCmd.arg $cfg(xferDoneCmd) {Callback for transfer completion notification. Optional}] \
!         [list fsCmd.arg $cfg(fsCmd) {Callback to connect the engine to the filesystem it operates on.}]]]
      return
  }
