# COPYRIGHT POLICY
# ----------------
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to Free Software Foundation, Inc.
# 675 Mass Ave, Cambridge, MA 02139, USA.
#
# Copyright (C) 1998 Luc Deschenaux <lcd@gkb.com>
#
# DISCLAIMER
# ----------
# Use it at your own risk. You're sole responsible for anything that could
# happend before, while, after or without using this program.

proc vftpd_ReadConfigFiles {} {
  set config [open /etc/vftpd.users r]
  eval [gets $config]
  set username $login
  while {[eof $config]==0} {
 	eval [gets $config]
	if {($login!=$username) || ([eof $config]!=0)} then {
		vftpd_RegisterUser $username $pass $port $maxCon $maxIdle $address $server_port $server_login $server_pass $path $chroot $down_perm $up_perm $chg_perm $ratio_enable $ratio $ratio_ul $ratio_dl $cache_enable $cache_dir
		set username $login
	}
  }
  close $config
  
    if {[file exists /etc/vftpd.autoban]} then {
	source /etc/vftpd.autoban
	vftpd_DieAutoBan $ban $hamCount $hamTime $hostsdeny
  }
	
  return TCL_OK
}

return TCL_OK
