#!/usr/bin/perl -wT

use strict;

use DBI;
use CGI ':standard';
use Date::Calc qw(:all);

use vars qw(@form_elements $login_id);

##################################################################
#
# parse the input form
#
#################################################################

my %query = ();
my %configs = ();
my %meta_configs = ();

my $q = new CGI;

foreach ($q->param) {
    $query{$_} = $q->param("$_");
}

print $q->header;

print $q->start_html(-title=>'XINA Database Editing');

#################################################################
#
#         Let's get the configurations necessary
#
##################################################################

# foreach (keys %query) {print; print":$query{$_}<br>\n";}

# first, the meta_configs:


my $meta_conf;

if (!$query{meta}) {$meta_conf = "xina_meta.conf";}
else {
    $meta_conf = $query{meta};
    if ($meta_conf =~ /^([-\w.]+)$/) {$meta_conf = $1;}
    else {#will log it
          }
}

open (CONFIG, $meta_conf) or &graceful_exit("Can't open meta config file!");

my @meta_configs_file = <CONFIG>;

foreach (@meta_configs_file) {
    chomp;
    if (/^#|^\n/) {
        next;
    } else {
        (my $var, my $val, my @more_vals) = split ('=');
        if($var) {$var =~ s/\ $//;}
        if ($val) {$val =~ s/^\ //;}
        if ($var) {
            if(!$more_vals[0]) {$meta_configs{$var} = $val;}
            else {
                my $more_vals = join('=',@more_vals);
                $meta_configs{$var} = $val."=".$more_vals;}
        }
    }
}

foreach (keys %meta_configs) { print "$_:$meta_configs{$_}<br>\n";}