
#-----------------------------------------------------------------------
# CHANGES
#-----------------------------------------------------------------------
#
# 2000-03-04  Jean-Sebastien Morisset <jsmoriss@mvlan.net>
#             Initial module written for v5.1.
#
#-----------------------------------------------------------------------
# MODULE CONFIGURATION
#-----------------------------------------------------------------------
#
#m# 123
#a# accept ignore deny
#i# cluster
#n# auth
#t# servers
#
#   |--------------------------------------------------------------------|
#
#-----------------------------------------------------------------------
# START OF MODULE CODE
#-----------------------------------------------------------------------

module_name="auth"
module_type="servers"
service_name="Auth/Identd"
service_port="113"

for action in ignore deny accept
do
	case $action in
		accept|ignore)
				action_log_msg="$LOG_MSG"; action_log="$LOG";;
		deny)	action_log_msg="(logged)"; action_log="-l"  ;;
	esac
	for host in `Option_Value $action $INTOPT $module_name $module_type`
	do
		case $action in
			ignore|deny)
				echo "Deny $INTOPT $IPADDR $service_name -> $host $action_log_msg"
				[ "$CLUSTER_NAME" ] \
					&& ipchains -A $INCHAIN  -j REJECT -p tcp -s $IPADDR -d $host $service_port $action_log \
					|| ipchains -A $OUTCHAIN -j REJECT -p tcp -s $IPADDR -d $host $service_port $action_log
				;;
			accept)
				Accept_Hostports remote tcp "$service_name" $host $service_port
				;;
		esac
	done
done

unset module_name service_name service_port
unset action action_log_msg action_log host

