#!/usr/bin/perl -w

use strict;
use HTML::Template;
use DBI;

##DB CALL##
my (@network_data, @location_data) = get_data();


##Template##
my $template = HTML::Template->new(filename => 'main.tmpl');

$template->param( NETWORK_DATA => \@network_data);
$template->param( LOCATION_DATA => \@location_data);

print "Content-Type: text/html\n\n", $template->output;

##</code><code>##

      IP:
      <select name="network" id="network">
            <option value="None" selected>None</option>
         <TMPL_LOOP NAME="NETWORK_DATA">
            <option value="<TMPL_VAR NAME=NET_ID>"><TMPL_VAR NAME=NET_VALUE></option> <br>
        </TMPL_LOOP>
      </select>

      <select name="location" id="location">
            <option value="None" selected>None</option>
         <TMPL_LOOP NAME="LOCATION_DATA">
            <option value="<TMPL_VAR NAME=LOC_ID>"><TMPL_VAR NAME=LOC_VALUE></option> <br>
        </TMPL_LOOP>

##</code><code>##

while (my $ref = $sth->fetchrow_hashref()) {
        my %row_data;
        $row_data{NET_ID} = $ref->{'id'};
        $row_data{NET_VALUE} = $ref->{'value'};
        push(@network_data, \%row_data);
    }

    while (my $ref2 = $sth2->fetchrow_hashref()) {
        my %row2_data;
        $row2_data{LOC_ID} = $ref2->{'id'};
        $row2_data{LOC_VALUE} = $ref2->{'value'};
        push(@location_data, \%row2_data);
    }