1		<?php
			2		/* vim: set expandtab tabstop=4 shiftwidth=4: */
			3		// +----------------------------------------------------------------------+
			4		// | PHP Version 4                                                        |
			5		// +----------------------------------------------------------------------+
			6		// | Copyright (c) 1997-2004 The PHP Group                                |
			7		// +----------------------------------------------------------------------+
			8		// | This source file is subject to version 3.0 of the PHP license,       |
			9		// | that is bundled with this package in the file LICENSE, and is        |
			10		// | available at through the world-wide-web at                           |
			11		// | http://www.php.net/license/3_0.txt.                                  |
			12		// | If you did not receive a copy of the PHP license and are unable to   |
			13		// | obtain it through the world-wide-web, please send a note to          |
			14		// | license@php.net so we can mail you a copy immediately.               |
			15		// +----------------------------------------------------------------------+
			16		// | Authors: Aidan Lister <aidan@php.net>                                |
			17		// +----------------------------------------------------------------------+
			18		//
			19		// $Id: scandir.php,v 1.1 2004-10-26 18:22:16 kostja Exp $
			20		//
			21
			22
			23		/**
			24		* Replace scandir()
			25		*
			26		* @category    PHP
			27		* @package     PHP_Compat
			28		* @link        http://php.net/function.scandir
			29		* @author      Aidan Lister <aidan@php.net>
			30		* @version     $Revision: 1.1 $
			31		* @since       PHP 5
			32		* @require     PHP 4.0.1 (trigger_error)
			33		*/
			34		if (!function_exists('scandir'))
			35		{
			36		function scandir ($directory, $sorting_order = 0)
			37		{
			38		if (!is_string($directory)) {
			39		trigger_error('scandir() expects parameter 1 to be string, ' . gettype($directory) . ' given', E_USER_WARNING);
			40		return null;
			41		}
			42
			43		if (!is_int($sorting_order)) {
			44		trigger_error('scandir() expects parameter 2 to be long, ' . gettype($sorting_order) . ' given', E_USER_WARNING);
			45		return null;
			46		}
			47
			48		if (!is_dir($directory) || (false === $fh = @opendir($directory))) {
			49		trigger_error('scandir() failed to open dir: Invalid argument', E_USER_WARNING);
			50		return false;
			51		}
			52
			53		$files = array ();
			54		while (false !== ($filename = readdir($fh))) {
			55		$files[] = $filename;
			56		}
			57
			58		closedir($fh);
			59
			60		if ($sorting_order == 1) {
			61		rsort($files);
			62		} else {
			63		sort($files);
			64		}
			65
			66		return $files;
			67		}
			68		}
			69
			70		?>