#!/usr/local/bin/perl -w
use strict;
use HTML::Template;

###################################
## includes
###################################
use XCGI;
require "config.pl";

###################################
## MAIN
###################################
my $cgi = new XCGI; # my version of CGI (with a few subs added/redefined).
print $cgi->header();

my $template = new HTML::Template(filename => "$CONFIG::template_root/main.tmpl",
                                  die_on_bad_params => 0);
$template->param(
                 select_box_datasource =>
                 $cgi->select_list(-name=>'s_dns',
                                   -values=>[keys(%CONFIG::ds_info)],
                                   -labels=>{sh=>\%CONFIG::ds_info, source_key=>'info'},
                                   -default=>['webdb'],
                                   -size=>1),
                 );

print $template->output();