More patches by Bill

diff --git a/exim/exim-lib.pl b/exim/exim-lib.pl
index 1014cd6..9e56f19 100644 (file)
--- a/exim/exim-lib.pl
+++ b/exim/exim-lib.pl
@@ -158,6 +158,20 @@ sub delete_alias
        }
 }
 
+# list_domains
+# List all domains from the exim alias file dir
+sub list_domains
+{
+       opendir(DIR, $exim_virt_dir);
+       @files = readdir(DIR);
+       closedir(DIR);
+
+       for my $file (@files)
+       { $file =~ s/$config{'exim_aliasfileextre'}$//g; }
+
+       return @files;
+}
+
 # list_virtusers
 # Go through exim alias files and build list of users.
 sub list_virtusers