[qmailadmin-cvs] qmailadmin/contrib alias2forward.pl,1.1.1.1,1.1.1.1.2.1

[Tom C. <tom...@us...>]

Update of /cvsroot/qmailadmin/qmailadmin/contrib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2459/contrib

Modified Files:
      Tag: stable-1_2
	alias2forward.pl 
Log Message:
Modify contrib/alias2forward.pl to work with '/Maildir' or '/.maildir' directory names.

Index: alias2forward.pl
===================================================================
RCS file: /cvsroot/qmailadmin/qmailadmin/contrib/alias2forward.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.1.1.1.2.1
diff -u -d -r1.1.1.1 -r1.1.1.1.2.1
--- alias2forward.pl	10 Sep 2003 21:38:45 -0000	1.1.1.1
+++ alias2forward.pl	19 Oct 2004 15:42:36 -0000	1.1.1.1.2.1
@@ -93,7 +93,7 @@
 		$changed = 0;
 		open (DOTQMAIL, "$path/$fn");
 		while ($line = <DOTQMAIL>) {
-			if ($line =~ /\/.*\/([^\/]{2,})\/(.\/)?([^\/]+)\/Maildir(\/)?$/) {
+			if ($line =~ /\/.*\/([^\/]{2,})\/(.\/)?([^\/]+)\/(Maildir|\.maildir)(\/)?$/) {
 				chop $line;
 				($user, $domain) = ($3, $1);
 				print "    converting '$line' to '&$user\@$domain'\n";