#!/usr/bin/perl
use strict;
do_dir('/var/mail/');
exit;

sub do_dir {
    my $dir = shift;
    opendir(D, $dir);
    my @f = readdir(D);
    closedir(D);
    foreach my $file (@f) {
        if ($file ne '.' && $file ne '..') {
            if (!-e "/var/mail/$file/Maildir") {
                open (EXEC,"|/usr/bin/maildirmake /var/mail/$file/Maildir");
                close (EXEC);
                open (EXEC,"|/usr/bin/maildirmake -f Gesendet /var/mail/$file/Maildir");
                close (EXEC);
                open (EXEC,"|/usr/bin/maildirmake -f Papierkorb /var/mail/$file/Maildir");
                close (EXEC);
                open (EXEC,"|/usr/bin/maildirmake -f Vorlagen /var/mail/$file/Maildir");
                close (EXEC);
                open (EXEC,"|/usr/bin/maildirmake -f Werbung /var/mail/$file/Maildir");
                close (EXEC);
                open (EXEC,"|chown -R $file.poponly /var/mail/$file/Maildir/");
                close (EXEC);
            }
        }
    }
}