#!/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();