#!/usr/local/bin/perl

use Tie::File;
use strict;
use warnings;

#Installation des Hypofix-Datenverzeichnisses auf einen File-Server
#Bitte die einzelnen Schritte beachten

#Quellverzeichnis angeben
my $quellverzeichnis = "./Dat";

#Zielverzeichnis angeben
my $zielverzeichnis = "./Ziel";

#Programmverzeichnis angeben
my $progverzeichnis = "./Prg";

######################
#(NICHT AENDERN!)

######################
#Subroutine für Datumsstempel
sub Datumsstempel{
  my ($mday,$mon,$year)=(localtime(time))[3,4,5];
  my $Datum = sprintf("%02d_%02d_%04d",$mday,$mon+1,$year+1900);
  return $Datum
}

######################
#Subroutine für Zeitstempel
sub Zeitstempel{
  my ($sec,$min,$hour)=(localtime(time))[0..2];
  my $zeit = sprintf("%02d:%02d:02d",$hour,$min,$sec);
  return $zeit;
}

######################
#alte Logdatei entfernen
unlink('copy.log') if (-e "copy.log");

######################
#Datenverzeichnis von Windows in Unix-format konvertieren
system ("dos2unix ./$quellverzeichnis/*.*");

######################
#Logdatei öffnen und Eingabedaten übertragen:
open(LOGDATEI,">copy.log") or die $!;
my $zeit = Zeitstempel();
print LOGDATEI "############################\n";
print LOGDATEI "Start des Kopiervorgangs: $zeit \n\n";
print "###############################\n";
print "Start des Kopiervorgangs: $zeit \n\n";
print LOGDATEI "Quellverzeichnis: $quellverzeichnis \n";
print LOGDATEI "Zielverzeichnis: $zielverzeichnis \n";
close LOGDATEI;

######################
#Copyjob

open(LOGDATEI,">>copy.log") or die $!;
my $Zeit = Zeitstempel();
print LOGDATEI "#######################\n";
print LOGDATEI "Start des Kopiervorgangs: $Zeit \n";
print "#############################\n";
print "Start des Kopiervorgangs: $Zeit \n";
system ("cp -f-a $quellverzeichnis $zielverzeichnis");
close LOGDATEI;

#####################
#IBB42.ini Datei anpassen

my $file = "$zielverzeichnis/hypohall/ibb42.ini";
tie my @array,'Tie::File',$file or die $!;
foreach my $line(@array){
   if($line =~ /DatenPfad/){
      chomp $line;
      $line .= "$zielverzeichnis\n";
   }
   elsif($line =~ /ServerDatenPfad/){
      chomp $line;
      $line .= "$zielverzeichnis\n";
   }
}
untie @array;

######################
#Appl.ini Datei anzupassen

$file = "$progverzeichnis/hypofix/appl.ini";
tie my @lines2,'Tie::File',$file or die $!;
foreach my $line(@lines2){
   if($line =~ /Name/){
      chomp $line;
      $line .= "$zielverzeichnis\n";
   } 
   elsif($line =~ /ServerName/){
      chomp $line;
      $line .= "$zielverzeichnis\n";
   }
}
untie @array;