Stuff

#!/usr/bin/perl -w

#

# Suche nach Mitgliedsverzeichnissen, deren idH nicht mehr in der user-Datenbank enthalten ist.

# Diese werden nach members/backup verschoben.

#



use strict;

use DBI;

use FileHandle;

use File::Path;

use File::Copy;



my $dirOnDisk;

my @memberDirectoriesOnDisk=();

opendir(DH,"/var/export/members") || die "Das Memberverzeichnis ist ungültig";

foreach (readdir(DH)) {

        if (-d $_ && $_ !~ /^\./) {

                push (@memberDirectoriesOnDisk,$_);

        } else {
        		print "Kein dir: $_\n";
        }

}

closedir (DH);



# Vergleich zwischen beiden Arrays und ablegen der Differenz in @onDiskOnly.



foreach (@memberDirectoriesOnDisk) {

        print "dirOnDisk: $_\n";

}