mirror of
https://github.com/postfixadmin/postfixadmin.git
synced 2024-09-19 19:22:14 +02:00
cleanupdirs.pl:
- allow usage of external config file (/etc/mail/postfixadmin/cleanupdirs.conf) - skip everything that is not a directory (instead of bailing out with an error) git-svn-id: https://svn.code.sf.net/p/postfixadmin/code/trunk@649 a1433add-5e2c-0410-b055-b7f2511e0802
This commit is contained in:
parent
5ec73b7044
commit
4e69d49089
@ -42,13 +42,21 @@ use File::Path;
|
|||||||
use Getopt::Long;
|
use Getopt::Long;
|
||||||
|
|
||||||
### change settings as needed, see notes above #################################
|
### change settings as needed, see notes above #################################
|
||||||
my $root_path = "/home/vmail";
|
our $root_path = "/home/vmail";
|
||||||
my $logfile = "/var/log/removed_maildirs.log";
|
our $logfile = "/var/log/removed_maildirs.log";
|
||||||
my $db_hostname = "localhost";
|
our $db_hostname = "localhost";
|
||||||
my $db_port = "3306";
|
our $db_port = "3306"; # this script currently supports MySQL only
|
||||||
my $db_database = "postfix";
|
our $db_database = "postfix";
|
||||||
my $db_username = "someuser";
|
our $db_username = "someuser";
|
||||||
my $db_password = "somepass";
|
our $db_password = "somepass";
|
||||||
|
|
||||||
|
# instead of changing this script, you can put your settings to /etc/mail/postfixadmin/cleanupdirs.conf
|
||||||
|
# just use perl syntax there to fill the variables listed above (without the "our" keyword). Example:
|
||||||
|
# $db_username = 'mail';
|
||||||
|
if (-f "/etc/mail/postfixadmin/cleanupdirs.conf") {
|
||||||
|
require "/etc/mail/postfixadmin/cleanupdirs.conf";
|
||||||
|
}
|
||||||
|
|
||||||
################################################################################
|
################################################################################
|
||||||
|
|
||||||
### begin program ##############################################################
|
### begin program ##############################################################
|
||||||
@ -63,6 +71,7 @@ opendir DOMAINDIR, $root_path
|
|||||||
or die "Unable to access directory '$root_path' ($!)";
|
or die "Unable to access directory '$root_path' ($!)";
|
||||||
foreach my $domain_dir (sort readdir DOMAINDIR) {
|
foreach my $domain_dir (sort readdir DOMAINDIR) {
|
||||||
next if $domain_dir =~ /^\./; # skip dotted dirs
|
next if $domain_dir =~ /^\./; # skip dotted dirs
|
||||||
|
next if (! -d "$root_path/$domain_dir"); # skip everything that is not a directory
|
||||||
my $full_domain_dir = "$root_path/$domain_dir";
|
my $full_domain_dir = "$root_path/$domain_dir";
|
||||||
opendir USERDIR, $full_domain_dir
|
opendir USERDIR, $full_domain_dir
|
||||||
or die "Unable to access directory '$full_domain_dir' ($!)";
|
or die "Unable to access directory '$full_domain_dir' ($!)";
|
||||||
|
Loading…
Reference in New Issue
Block a user