#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;

my $cgi = new CGI;

print $cgi->header(-type => 'text/html'); #header für HTML

##########################################################
####UPLOAD
my $filehandle_de=$cgi->upload("pdf_de");
my $filehandle_en=$cgi->upload("pdf_en");
my $filehandle_fr=$cgi->upload("pdf_fr");
my $zielVerzeichnis_de = "/home/lidos/lidos_zusdok/D/SI";
#my $zielVerzeichnis_en = "/home/lidos/lidos_zusdok/GB/SI";
#my $zielVerzeichnis_fr = "/home/lidos/lidos_zusdok/F/SI";
my $pdf_de=$cgi->param("pdf_de");
my $pdf_en=$cgi->param("pdf_en");
my $pdf_fr=$cgi->param("pdf_fr");

$pdf_de =~ s/[^A-Za-z0-9_\.\-]//g;   #nur die zeichen im [] sind im dateinamen erlaubt
#$pdf_en =~ s/[^A-Za-z0-9_\.\-]//g;
#$pdf_fr =~ s/[^A-Za-z0-9_\.\-]//g;

such_eintr();

if ($eintr) {
        upload_file($pdf_de,$filehandle_de,$zielVerzeichnis_de);
}


sub upload_file {
        my ($pdf_de,$filehandle_de,$zielVerzeichnis_de) = @_;
        my $local_file = (split (/[\\\/]/,$pdf_de)) [-1];
        my $target = $zielVerzeichnis_de.'/'.$local_file;
        if (-e $target) {
                print "Zieldatei existiert bereits!";
                exit (0);
        }
        else {
                binmode $filehandle_de;
                open(TARGET, ">$target") or die $!;
                binmode TARGET;
                my ($buffer);
                while (read $filehandle_de,$buffer,1024)  {
                        print TARGET $buffer;
                }
                close TARGET;
                print "Ihre datei wurde unter $target gespeichert";
        }
}