#!%TCLSH%


#
# Script pour demander les paramtres de consultation des rseaux.
#
# Appel par : admin.htgt
#
# Paramtres (formulaire ou URL) : aucun
#
# Historique
#   2002/10/24 : pda      : cration
#   2003/05/13 : pda/jean : utilisation de la base d'authentification
#   2004/01/20 : pda/jean : conversion ipv6
#

set conf(homeurl)	%HOMEURL%

#
# Chemins utiliss par les scripts
#

set conf(pkg)		%PKGTCL%
set conf(lib)		%DESTDIR%/lib
set conf(libdns)	$conf(lib)/libdns.tcl

#
# Dfinition des noms des pages " trous"
#

set conf(err)		$conf(lib)/erreur.html
set conf(page)		$conf(lib)/consultnet.html

#
# Quelques paramtres du script
#

set conf(auth)		%AUTH%
set conf(base)		%BASE%
set conf(nologin)	%NOLOGIN%
set conf(log)		%LOG%

#
# Les outils du parfait concepteur de pages Web dynamiques...
#

lappend auto_path $conf(pkg)
package require webapp
package require pgsql

#
# On y va !
#

# ::webapp::cgidebug ; exit

source $conf(libdns)

##############################################################################
# Programme principal
##############################################################################

proc main {} {
    global conf

    #
    # Initialisation
    #

    init-dns $conf(nologin) $conf(auth) $conf(base) $conf(err) "" \
			{} ftab dbfd login tabcor $conf(log)

    #
    # Extraire la liste des tablissements et des communauts
    # et en faire des listes  choix multiples.
    #

    set le [::pgsql::getcols $dbfd etablissement "" "nom ASC" {idetabl nom}]
    set h [llength $le]
    set listeetabl [::webapp::form-menu etabl $h 1 $le {}]

    set lc [::pgsql::getcols $dbfd communaute "" "nom ASC" {idcommu nom}]
    set h [llength $le]
    set listecommu [::webapp::form-menu commu $h 1 $lc {}]

    #
    # Liste des critres de tri
    #

    set tri {
		{adr4		{Adresse IPv4}}
		{adr6		{Adresse IPv6}}
		{nom		Intitul}
		{etablissement	tablissement}
		{communaute	Communaut}
		{localisation	Localisation}
		{commentaire	Commentaire}
	    }
    set menutri1 [::webapp::form-menu tri1 1 0 $tri 0]
    set menutri2 [::webapp::form-menu tri2 1 0 $tri 1]

    #
    # Sortie du rsultat
    #

    ::webapp::send html [::webapp::file-subst $conf(page) \
				[list \
					[list %LISTEETABL% $listeetabl] \
					[list %LISTECOMMU% $listecommu] \
					[list %MENUTRI1%   $menutri1] \
					[list %MENUTRI2%   $menutri2] \
				    ] \
			    ]

    #
    # Dconnexion de la base
    #

    fermer-base $dbfd
}

::webapp::cgi-exec main %DEBUG%
