#!/usr/local/bin/tclsh8.6

#
# Index page of MAC module
#
# Parameters (form or url): none
#
# History
#   2010/11/30 : pda/jean : design
#   2010/12/12 : pda      : i18n
#   2010/12/26 : pda      : use cgi-dispatch
#

#
# Template pages used by this script
#

set conf(page)		macindex.html

#
# Netmagis general library
#

source /usr/local/lib/netmagis/libnetmagis.tcl

# ::webapp::cgidebug ; exit

##############################################################################
# Display MAC module index
##############################################################################

d cgi-register {} {} {
    global conf

    #
    # Build URLs
    #

    foreach script {mac ipinact macstat} {
	set up [string toupper $script]
	d urlset "%URL$up%" "$script" {}
    }

    #
    # End of script: output page and close database
    #

    d result $conf(page) {}
}

##############################################################################
# Main procedure
##############################################################################

d cgi-dispatch "mac" "mac"
