source: trunk/spip/esqueleto-redcta/themes/alternatives/plugins/sktheme/1_9_1/inc/sktheme_list.php @ 30

<?php
  // ---------------------------------------------------------------------
  //
  // Sktheme : manage themes under SPIP (squelettes + habillages)
  //
  // Copyright (c) 2006 - Skedus
  //
  // 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, or
  // (at your option) any later version.
  //
  // You should have received a copy of the GNU General Public License
  // along with this program; 
  //
  // ---------------------------------------------------------------------
  
  // Create theme list
function sktheme_list() {
    
  include_spip('inc/sktheme_xml');

  $original = _T('sktheme:original');
  $sktheme_list = array();
  
  $s_dir = _DIR_RACINE.$GLOBALS['meta']['sktheme_squelettes_public_dir'];
  $squelettes_list = array('dist' => '' );
  if (is_dir($s_dir)) {
    if ($dh = opendir($s_dir)) {
      while (($dir = readdir($dh)) !== false) {
        if ( (is_dir($s_dir."/".$dir)) AND ($dir[0]!=".") ) {
          // Check if a theme.xml exists and if the type is squelettes
          if (is_file($s_dir."/".$dir."/theme.xml")) {
            $s_info = sktheme_xml_get_infos($s_dir."/".$dir,"theme");
            $type = (isset($s_info['type'])) ? propre($s_info['type']) : "";
            if ($type == 'squelettes') {
              $squelettes_list[$dir]=$s_dir."/".$dir;
            }
          }
        }
      }
      closedir($dh);
    }
  } else {
    // no extra directory for squelette
    array_push($sktheme_list,"dist::".$original);
    return $sktheme_list;
  }

  $h_dir = _DIR_RACINE.$GLOBALS['meta']['sktheme_habillages_public_dir'];
  $habillages_list = array($original => '');
  if (is_dir($h_dir)) {
    if ($dh = opendir($h_dir)) {
      while (($dir = readdir($dh)) !== false) {
        if ( (is_dir($h_dir."/".$dir)) AND ($dir[0]!=".") ) {
          // Check if a theme.xml exists and if the type is themes
          if (is_file($h_dir."/".$dir."/theme.xml")) {
            $h_info = sktheme_xml_get_infos($h_dir."/".$dir,"theme");
            $type = (isset($h_info['type'])) ? propre($h_info['type']) : "";
            if ($type == 'themes') {
              $habillages_list[$dir] = sktheme_xml_get_infos($h_dir."/".$dir,"theme");
            }
          }
        }
      }
      closedir($dh);
    } 
  } else {
    // no habillage directory
    foreach( $squelettes_list as $s_key => $s_value) {
      array_push($sktheme_list,$s_key."::".$original);
      return $sktheme_list;
    }
  }

  // Look for matching theme
  foreach( $squelettes_list as $s_key => $s_value) {
    
    foreach( $habillages_list as $h_key => $h_info) {
      if ($h_key == $original) {
        array_push($sktheme_list,$s_key."::".$h_key);
      } else {
        $squelette_ok = false;
        if (is_array($h_info['squelettes'])) {
          foreach ($h_info['squelettes'] as $sq){
            $sq = trim($sq);
            if ($sq == $s_key) {
              $squelette_ok = true;
            }
          }
        } else {
          if ($h_info['squelettes'] == $s_key) {
            $squelette_ok = true;
          }
        }
        if ($squelette_ok) {
          array_push($sktheme_list,$s_key."::".$h_key);
        }
      }
    }
  }
  return $sktheme_list;
}



function sktheme_habillage_list() {
    
  include_spip('inc/sktheme_xml');

  $original = _T('sktheme:original');
  $sktheme_habillage_list = array();
  
  $squelette_name = $GLOBALS['meta']['sktheme_squelette_public_name'];
  
  $h_dir = _DIR_RACINE.$GLOBALS['meta']['sktheme_habillages_public_dir'];
  $habillages_list = array($original => '');
  if (is_dir($h_dir)) {
    if ($dh = opendir($h_dir)) {
      while (($file = readdir($dh)) !== false) {
        if ( (is_dir($h_dir."/".$file)) AND ($file[0]!=".") ) {
          $habillages_list[$file] = sktheme_xml_get_infos($h_dir."/".$file,"theme");
        }
      }
      closedir($dh);
    } 
  } else {
    // no habillage directory
    array_push($sktheme_habillage_list,$original);
    return $sktheme_habillage_list;
  }

  // Look for matching theme
    
  foreach( $habillages_list as $h_key => $h_info) {
    if ($h_key == $original) {
      array_push($sktheme_habillage_list,$h_key);
    } else {
      $squelette_ok = false;
      if (is_array($h_info['squelettes'])) {
        foreach ($h_info['squelettes'] as $sq){
          $sq = trim($sq);
          if ($sq == $squelette_name) {
            $squelette_ok = true;
          }
        }
      } else {
        if ($h_info['squelettes'] == $squelette_name) {
          $squelette_ok = true;
        }
      }
      if ($squelette_ok) {
        array_push($sktheme_habillage_list,$h_key);
      }
    }
  }
  return $sktheme_habillage_list;
}
?>