Subversion Repositories wimsdev

# ListClasses

# liste toutes les classes de ce serveur qui autorisent une connexion avec le serveur distant

#Option contient la liste des attributs a afficher

#l'option "all" est un raccourci pour obtenir la liste complete des infos possibles

!if all iswordof $option

 option=$low_classdefs

!endif

#On restreint la liste des options aux informations affichables dans un niveau "bas" de sŽcuritŽ

options=!listintersect $option and $low_classdefs

cnt_class=!recordcnt wimshome/log/classes/.index

# On parcourt l'index des classes du serveur

!for i = 1 to $cnt_class

  cl=!record $i of wimshome/log/classes/.index

  # lorsqu'une des classes autorise une connexion, on verifie

  !if $(cl[10]) != $empty

	rc=!words2items $(cl[10])

    index=1

    rchain = $ident,$rclass

	# On parcourt toutes les connexions declaree par la classe

	!while $(rc[$index]) != $empty

		# on compare la connexion avec celle demandee

		current= $(rc[$index])

		current=!translate internal +,; to $ $ in $current

		current = !singlespace $current

		current=!translate internal / to , in $current

		!if $(current[1]) = $(rchain[1])

			!if $rclass=ALL or $(current[2]) = $(rchain[2])

				listclasses=!append item $(cl[1]) to $listclasses

				list_rclasses=!append item $(current[2]) to $list_rclasses

			!endif

		!endif

		!increase index

	!endwhile

  !endif

!next

!if $listclasses = $empty

 error= $error \

 		there is no class allowed for this server

!endif

!if $error!=$empty

 !exit

!endif