<?PHP
/************************************************************************/
/* DUNE by NPDS                                                         */
/* ===========================                                          */
/*                                                                      */
/* Based on PhpNuke 4.x source code                                     */
/*                                                                      */
/* NPDS Copyright (c) 2002-2007 by Philippe Brunier                     */
/*                                                                      */
/* This program is free software. You can redistribute it and/or modify */
/* it under the terms of the GNU General Public License as published by */
/* the Free Software Foundation; either version 2 of the License.       */
/************************************************************************/
   $handle=opendir('themes');
   while ($file = readdir($handle)) {
      if ( (!ereg("[.]",$file)) and (!ereg("themes-dynamic",$file)) and (!ereg("documentations",$file)) and (!ereg("default",$file))) {
         $themelist[] = "$file";
      }
   }
   natcasesort($themelist);
   $themelist=implode(" ",$themelist);
   closedir($handle);
?>