<?php if (!defined('PmWiki')) exit;
/*
  Script maintained by Petko Yotov www.pmwiki.org/petko
  This version is PHP 4 - PHP 7.4 compatible and requires
  PmWiki version 2.2.56 or newer (latest recommended).
*/
$RecipeInfo['SkinList']['Version'] = '20190903';
function SkinList() {
  global $FarmD, $PageSkinList;

  $skinlist = (array)$PageSkinList;
  foreach (array("pub/skins", "$FarmD/pub/skins") as $skindir) {
     $dp = @opendir($skindir);
     if (!$dp) continue;
     while (($skin = readdir($dp)) !== false) {
       if ($skin[0] == '.') continue;
       if (is_dir("$skindir/$skin")) $skinlist[$skin]++;
     }
     closedir($dp);
  }
  ksort($skinlist);
  $out = "* [[{\$FullName}?setskin= | default skin]]\n";
  foreach($skinlist as $skin => $c) 
    if ($c > 0) $out .= "* [[{\$FullName}?setskin=$skin | $skin]]\n";
  return $out;
}

Markup('skinlist', 'fulltext', '/\\(:skinlist:\\)/i', "SkinList");