#!/usr/bin/perl -w
# $Id$
# Dieses Script (ps-diag) wurde von Rdiger Beck erstellt
# Es ist freie Software
# Bei Fehlern wenden Sie sich bitte an mich.
# jeffbeck@web.de  oder  jeffbeck@gmx.de


# Bibliotheken
use strict;
use DBI;
use Getopt::Long;
Getopt::Long::Configure ("bundling");
use File::Find;
use coldformix;
# ==========================================================================

# Choose the Language: de, en
my $lang="de";

# Choose the Unit-System: si_symbol,
my $unit_system = "si_symbol";


# ===========================================================================
# Optionen verarbeiten
# ==========================================================================
# Parsen der Optionen
my $testopt=GetOptions(
           "lang|l=s" => \$lang,
           "unit_system|u=s" => \$unit_system
          );


print "Language: $lang \n";
print "Unit_System: $unit_system \n";

# Prfen, ob Optionen erkannt wurden, sonst Abbruch
&coldformix::check_options($testopt);


#
if (not -e "../coldformix-generated/$lang/eps") {
    system("install -d ../coldformix-generated/$lang/eps");
}


#my %translations = &get_replace_names();

my %translations = ();

print "Trans: $translations{Enthalpy}\n";

my $ps_dir="../coldformix-source/data/logph/";

my @filelist=();


opendir(DIR, $ps_dir) || die "Kann $ps_dir nicht ffnen: $!";
while (defined (my $file = readdir(DIR))) {
    # Eintrag verarbeiten
    if (not $file eq "." and
        not $file eq ".." and
        not $file eq "CVS" and
        not $file=~/~/) {
        push (@filelist, $file);
       }
     }

print "@filelist \n";

foreach my $filename (@filelist) {
    my ($epsfilename)=split(/\./,$filename);
    $epsfilename=$epsfilename.".eps";
    my $command="cd ../coldformix-generated/$lang/eps/ ;ps2epsi $filename $epsfilename";
   open(PSOUT,">../coldformix-generated/$lang/eps/$filename");
   open(PSIN,"<../coldformix-source/data/logph/$filename");

   while(<PSIN>){
       while (my ($k,$v) = each %translations){
          # s/Pressure/Druck/g;
          s/$k/$v/g;
       }
       # Make some correction in the PostScript data
       if(/\[LastPage\]/ or
          /\[Page: 1\]/  or
          /ProductName:/
         ){
          # drop this line entirely
       } else {
          print PSOUT "$_";
       }
   }
   close(PSOUT);
   close(PSIN);
   # convert to epsi
#   print $command,"\n",
#   system ("$command");
#   system ("rm ../coldformix-generated/$lang/eps/$filename")
}









sub get_replace_names{
    # read all entrys of the table refrigerants
    my %translation=();
    my $row;
    my $name;
    my $newname;
    my $ps_replace;

    my $dbh = DBI->connect("dbi:mysql:coldformix", "coldformix", "coldformix",
                   { RaiseError => 1, AutoCommit => 1 });

    my $sth = $dbh->prepare("SELECT * FROM vocabulary");
       $sth->execute();
    
    while ($row = $sth->fetchrow_hashref()) {
         $name=$row->{'en'};
         $ps_replace=$row->{'ps_diag'};
	 print "Name $name \n ";
	 print "PS $ps_replace \n ";

         $newname=$row->{$lang};
         if ($name ne $newname && $ps_replace eq "1") {
             $translation{$name} = $newname;
         }
    }

    $dbh->disconnect;
    return %translation;
}
