#!/usr/bin/perl

use Getopt::Long;
use version; our $VERSION = qv('0.01');
use lib qw'lib/ ../lib';
use warnings;
use strict;

use X10::Config;
use X10::Zone;
use X10::Item;

use Data::Dumper;

my $configfile = "/home/mora/Projects/X10/NEWX10/X10/Config";

my $house = X10::Config->new();

if ( not -e $configfile ) {
    my $master = X10::Config::defaultConfig(X10::Config::defaultConfig,$house);
    X10::Config::printConfig($configfile, $master);
}