SF.net SVN: postfixadmin:[649] trunk/ADDITIONS/cleanupdirs.pl

[<chr...@us...>]

Revision: 649
          http://postfixadmin.svn.sourceforge.net/postfixadmin/?rev=649&view=rev
Author:   christian_boltz
Date:     2009-05-03 16:14:14 +0000 (Sun, 03 May 2009)

Log Message:
-----------
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)

Modified Paths:
--------------
    trunk/ADDITIONS/cleanupdirs.pl

Modified: trunk/ADDITIONS/cleanupdirs.pl
===================================================================
--- trunk/ADDITIONS/cleanupdirs.pl	2009-05-02 20:24:58 UTC (rev 648)
+++ trunk/ADDITIONS/cleanupdirs.pl	2009-05-03 16:14:14 UTC (rev 649)
@@ -42,13 +42,21 @@
 use Getopt::Long;
 
 ### change settings as needed, see notes above #################################
-my $root_path = "/home/vmail";
-my $logfile = "/var/log/removed_maildirs.log";
-my $db_hostname = "localhost";
-my $db_port = "3306";
-my $db_database = "postfix";
-my $db_username = "someuser";
-my $db_password = "somepass";
+our $root_path = "/home/vmail";
+our $logfile = "/var/log/removed_maildirs.log";
+our $db_hostname = "localhost";
+our $db_port = "3306"; # this script currently supports MySQL only
+our $db_database = "postfix";
+our $db_username = "someuser";
+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 ##############################################################
@@ -63,6 +71,7 @@
   or die "Unable to access directory '$root_path' ($!)";
 foreach my $domain_dir (sort readdir DOMAINDIR) {
   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";
   opendir USERDIR, $full_domain_dir
     or die "Unable to access directory '$full_domain_dir' ($!)";


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.