#!/usr/bin/perl -w 
# Skript loescht saemtliche Dateien im Ordner, den wir hier eingeben und wenn der Ordner leer ist loescht es den leeren Ordner
# Symlinks werden nicht gelöscht
use strict;
my $sammel_pfad = "/home/uli/logs";
my $log_datei = ">$sammel_pfad/loesch_logfile.txt";

print "In welchen Ordner soll ich alle Dateien loeschen?\n";
my $ordner = <STDIN>;
chomp $ordner;
print "Danke soll ich dann wirklich alle Dateien in $ordner loeschen?\n";

my $entscheidung = <STDIN>;
chomp($entscheidung);

if($entscheidung eq 'j') {
        print "#\n#ALLE Dateien in $ordner  werden gelöscht\n#\n";
} else {
        print "#\n#Breche das Programm ab \n#\n";
        die;
}
open(LOGFILE, $log_datei) or die "Kann LOG_Datei $log_datei nicht oeffnen: $!\n";


&loesche($ordner);

print "#\n#\n# Schreibe ab jetzt in Log Datei $log_datei !\n#\n#\n";
#open(LOGFILE, ">$log_datei") or die "Kann LOG_Datei $log_datei nicht oeffnen: $!\n";
close LOGFILE;

# Funktion loescht nacheinander mittels foreach Schleife datei fuer datei im Ordner 
sub loesche {
 opendir(DIR, $ordner)or die "$!";
        my @remove = readdir(DIR);
        close(DIR);
        my ($ordner) = @_;    # Funktion loesche wird mit Argument $ordner aufgerufen

        foreach my $datei (@remove){
                if ("$datei" eq "." or "$datei" eq "..") {      # . und .. sollen nicht geloescht werden
                        next;
                }
                if (-l "$ordner/$datei")  {
                        print "Habe einen Link $datei  gefunden loesche diesen nicht\n";
                        next;   # überspinge  rest der schleife überspringen
                } else {
                        unlink("$ordner/$datei"); # unlink löscht dateien im Ordner


                        print LOGFILE "Hallo\n";
                        print LOGFILE "#\n#\n#\n";
                        print LOGFILE  "Habe die Datei $datei geloescht!\n";

                }


                         rmdir($ordner) or die $!; # rmdir löscht leere Verzeichnisse also den leeren Ordner

        }

 opendir(DIR, $ordner)or die "$!";