#!/usr/bin/env perl

use XML::Simple;
use Carp;

my @fields = (server_name, server_port, log_file, msg_interval);
my $conf     = ">/etc/HelloOscar.conf";
my $xml_data = "$ENV{OSCAR_PACKAGE_HOME}/.configurator.values";


my $ref = XMLin($xml_data) or croak("Error: unable to open ($xml_data)");
open(CONF, $conf) or croak("Error: unable to open ($conf)\n");

print CONF "# HelloOscar configuration file\n# Generated by OSCAR\n\n";
foreach $key  (@fields) {
	if( defined($ref->{"$key"}) ) {
		print CONF $key, "=", $ref->{$key}, "\n";
	}
}
print CONF "\n";

close(CONF);