#!%TCLSH%


#
# Script pour demander le rseau pour lequel il faut prsenter la page
# d'dition des paramtres DHCP.
#
# Appel par : index.htgt
#
# Paramtres (formulaire ou URL) : aucun
#
# Historique
#   2004/10/05 : pda/jean : cration
#

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)/dhcpsel.html

#
# Quelques paramtres du script
#

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

set conf(script-edit)	%DESTDIR%/bin/dhcpedit

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

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

#
# 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)

    #
    # Rcupration des rseaux auxquels a droit le correspondant
    #

    set lres [liste-reseaux $dbfd $tabcor(idgrp) "dhcp"]
    set taille [llength $lres]
    switch $taille {
	0 {
	    ::webapp::error-exit $conf(err) \
			"Vous n'avez accs  aucun rseau avec le droit DHCP"
	}
	1 {
	    set idreseau [lindex [lindex $lres 0] 0]
	    set ftab(idreseau) [list $idreseau]
	    puts stdout [::webapp::call-cgi $conf(script-edit) ftab]
	}
	default {
	    set menureseau [::webapp::form-menu "idreseau" 1 0 $lres {}]
	    ::webapp::send html [::webapp::file-subst $conf(page) \
					[list \
					    [list %MENURESEAU% $menureseau] \
					    ] \
				    ]
	}
    }


    #
    # Dconnexion de la base
    #

    fermer-base $dbfd
}

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