#!/usr/bin/perl
########################################################################

# ...

use strict;

my $quell_path  = $ARGV[ 0 ];
my $quell_file  = $ARGV[ 1 ];
my $prj_dir     = $ARGV[ 2 ];     $prj_dir =~ tr/[a-z]/[A-Z]/;
my $lang_frm    = $ARGV[ 3 ];
my $lang_to     = $ARGV[ 4 ];
my $languages   = $ARGV[ 5 ];
my $datum       = $ARGV[ 6 ];


########################################################################
# Funktionsaufruf zum Einlesen und Schreiben der package-Quell-Datei 
#    ueber eine do-until-Schleife.
#
sub f_read_write_file
   {
   my ( $qpath, $qfile, $prj, $lfrm, $lto, $lang, $ref_a_packagedatei ) = @_;
   
   # --- 8< ---  schnipp
   
   open( RF, "<$qpath/$qfile" ) || die "create_projekt_import.pl::ERROR 1.0: Kann die Datei zum Lesen nicht oeffnen: <$qpath/$qfile>\n";
   while( <RF> )
      {
      chomp( $_ );
      $Zeile = $_;
      
      # --- 8< ---  schnipp
      
      if( $transtxt eq "letzteZeile"  &&  $key_zeil eq "ja" )
         {
         push( @a_TranslateText, $Zeile; . "\n" );
         
         my $trans_file = $prj . "_" . $lfrm . "_" . $Dia_Key . "_" . $Nummer . "_" . $datum . ".txt";
         $trans_file =~ tr/A-Z/a-z/;
         
         open( WF_2, ">$qpath/TRANSLATE/$trans_file" ) || die "change_language.pl::FATAL 1.1: Kann die Datei zum Schreiben nicht oeffnen: <$qpath/TRANSLATE/$trans_file>\n";
         print WF_2 @a_TranslateText;
         close( WF_2 );
         
         print "trans_file = $trans_file\n";
         print @a_TranslateText;
         print "#--------------------------------------------------------------#\n\n";
         
         while( @a_TranslateText ) { shift( @a_TranslateText ); }
         $Status   = "suchen";
         $transtxt = "-";
         $key_zeil = "nein";
         } # if transtxt eq letzteZeile   (:EOT)
      } #EO while <RF>
   close( RF ) 
   } #EO f_read_write_file



my @a_packagedatei;
do
   {
   print "create_projekt_import.pl::f_read_write_file( <$quell_path>, <$quell_file>, <$prj_dir>, <$lang_frm>, <$lang_to>, \\a_packagedatei );\n"; 
   f_read_write_file( $quell_path, $quell_file, $prj_dir, $lang_frm, $lang_to, $languages, \@a_packagedatei );
   $quell_file = shift( @a_packagedatei );
   print "##############################################################################################\n";
   } until( length( $quell_file ) == 0 );

#EOF