# efg.pl
#
# start of easy file generator
#
# Ralf Peine, 2004-05-26 Tue

$|=1;

use strict;

use Getopt::Long;

use Log;
use CFG;

use Efg;

my $giveVersionInfo;
my @argData;
my $configFile = 'config.pl';

unless (GetOptions("data=s"       => \@argData,
		   "v"            => \$giveVersionInfo,
		   "config=s"     => \$configFile
		    )) {
    print "usage:\n";
    exit 1;
}

if ($giveVersionInfo) {
    print "Easy File Generator Version $Efg::version\n";
    exit 0;
}

print "start at ".localtime()."\n";

&CFG::setEnvVarPattern('^EFG_');
&CFG::addEnv();
&CFG::addArgs(@argData);

$configFile =~ s+\\+/+og;
require "$configFile";

my $incDir = $CFG{INPUT_DIR};
$incDir =~ s+\\+/+og;

require "$incDir/$CFG{prepare_pl}";
require "$incDir/$CFG{genRules_pm}";

my $efg = &buildUpEfg();
$efg->parseAndExecFile($CFG{start_efg});

print "ready at ".localtime()."\n";