###############################################################
#
# Adjust qmailadmin-1.0.6 so that the entries on the 
# forwards/aliases screen are shown in alphabetical order
#
# Written for qmailadmin-1.0.2 by Tim Janes <t.janes@2020speech.com>
# and applied to qmailadmin-1.0.6 by Michael Bowe <mbowe@pipeline.com.au>
#
###############################################################
 
--- alias.c.orig	Wed Aug  7 08:04:59 2002
+++ alias.c	Sat Nov 30 11:35:24 2002
@@ -53,6 +53,8 @@
  char alias_name[MAX_FILE_NAME];
  char *alias_name_from_command;
  int i,j,stop,k,startnumber;
+ int m,n;
+ struct dirent **namelist;
 
   if ( AdminType!=DOMAIN_ADMIN ) {
     sprintf(StatusMessage,"%s", get_html_text("142"));
@@ -74,7 +76,10 @@
     return(0);
   }
 
-  while ((mydirent=readdir(mydir)) != NULL) {
+  n = scandir(".", &namelist, 0, alphasort);
+  
+  for (m=0; m<n; m++) {
+    mydirent=namelist[m];
     /*
      *  don't read files that are really ezmlm-idx listowners,
      *  i.e. .qmail-user-owner
@@ -159,9 +164,11 @@
       fclose(fs);
       k++;
     }
+    free(namelist[m]);
   }
     
   closedir(mydir);
+  free(namelist);
 
   if (AdminType == DOMAIN_ADMIN) {
     fprintf(actout, "<tr><td align=\"right\" colspan=\"4\">");