root/modules/branches/2.7/music/functions.inc.php

<?php

function music_list($path=null) {
  if ($path === null) {
    global $amp_conf;
    // to get through possible upgrade gltiches, check if set
    if (!isset($amp_conf['MOHDIR'])) {
      $amp_conf['MOHDIR'] = '/mohmp3';
    }
    $path = $amp_conf['ASTVARLIBDIR'].'/'.$amp_conf['MOHDIR'];
  }
    $i = 1;
    $arraycount = 0;
    $filearray = Array("default");

    if (is_dir($path)){
        if ($handle = opendir($path)){
            while (false !== ($file = readdir($handle))){ 
                if ( ($file != ".") && ($file != "..") && ($file != "CVS") && ($file != ".svn") && ($file != ".nomusic_reserved" ) )
                {
                    if (is_dir("$path/$file"))
                        $filearray[($i++)] = "$file";
                }
            }
        closedir($handle); 
        }
    }
    if (isset($filearray)) {
        sort($filearray);
        // add a none categoy for no music
        if (!in_array("none",$filearray)) {
            $filearray[($i++)] = "none";
        }
        return ($filearray);
    } else {
        return null;
    }
}

function music_rmdirr($dirname)
{
    // Sanity check
    if (!file_exists($dirname)) {
        print "$dirname Doesn't exist\n";
        return false;
    }
 
    // Simple delete for a file
    if (is_file($dirname)) {
        return unlink($dirname);
    }
 
    // Loop through the folder
    $dir = dir($dirname);
    while (false !== $entry = $dir->read()) {
        // Skip pointers
        if ($entry == '.' || $entry == '..') {
            continue;
        }
 
        // Recurse
        music_rmdirr("$dirname/$entry");
    }
 
    // Clean up
    $dir->close();
    return rmdir($dirname);
}

?>