#FILLVAR copy textfiles and fill @@var@@
#USAGE fillvar srcdir destdir file1 file2 file3
use strict;

die "Usage: $0 configfile src [dest] " if ($#ARGV <1 );

my $configfile=$ARGV[0];
my $src=$ARGV[1];
my $dest="";
$dest = $ARGV[2] if ($#ARGV =3 );
my %config;

open (FILE, "<$configfile") or die "Cant open config file $configfile .\n";
my @content=<FILE>;
foreach my $line (@content) {
 chomp ($line);
 my ($key, $value) = split (/\=/,$line,2);
 $config {$key} = $value;
}
close FILE;


 #print "Extract $src\n";
 open (FILE, "<$src") or die "Cant open file $src.\n";
 @content = <FILE>;
 close FILE;

 if (! $dest) {
  #try convert to default name
  $dest = $src;
  $dest =~ s/\.\w+$//;
  $dest = 'a.out' if ($dest eq $src);
 }
 open (FILE, ">$dest") or die "Cant create file $dest .\n";
 foreach my $line (@content) {
 if ($line =~ /\@\@\w+\@\@/ ) {
  while ($line =~ /\@\@(\w+)\@\@/g) {
  #change value
  my $name = $1;
  if (defined ($config{$name})) {
   $line =~ s/\@\@$name\@\@/$config{$name}/;
  } else {  print "NOT found TAG $name \n"; }
  }
 }
 print FILE $line;
 } #end foreach
 close FILE;



