#!/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;
}
############################################################################################################################
opendir(DIR, $ordner)or die "Fehler: Kann Ordner '$ordner' kann nicht oeffnen: $!\n";
my @remove = readdir(DIR);
close(DIR);
############################################################################################################################
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 {
        my ($ordner) = @_;    # Funktion loesche wird mit Argument $ordner aufgerufen
        opendir(DIR, $ordner)or die "Fehler: Kann Ordner '$ordner' kann nicht oeffnen: $!\n";
        my @remove = readdir(DIR);
        close(DIR);

        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

                } if (-d "$ordner/$datei") {
                        print "Habe ein Unterverzeichnis $ordner/$datei gefunden rufe die Funktion rekursiv auf \n";
                        print "Befinde mich im Unterverzeichnis $ordner/$datei \n";
                        &loesche($ordner);
                        print "Funktion rekursiv aufgerufen lösche alle Dateien im Unterverzeichnis $ordner/$datei \n";

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

                } else {
                        print "Lösche jetzt die Datei $ordner/$datei  \n";
                        # unlink löscht dateien im Ordner
                                                                                    
#       rmdir($ordner) or die $!; # rmdir löscht leere Verzeichnisse also den leeren Ordner

                }

        }

}