albertlast / SMF2.1

	// Load all the files in the Sources directory, except this file and the redirect.

	$sources_dir = dir($sourcedir);

	while ($entry = $sources_dir->read())

	{

		if (substr($entry, -4) === '.php' && !is_dir($sourcedir . '/' . $entry) && $entry !== 'index.php')

		{

			// Read the first 4k from the file.... enough for the header.

			$fp = fopen($sourcedir . '/' . $entry, 'rb');

			$header = fread($fp, 4096);

			fclose($fp);

			// Look for the version comment in the file header.

			if (preg_match('~\*\s@version\s+(.+)[\s]{2}~i', $header, $match) == 1)

				$version_info['file_versions'][$entry] = $match[1];

			// It wasn't found, but the file was... show a '??'.

			else

				$version_info['file_versions'][$entry] = '??';

		}

	}

	$sources_dir->close();

	// Load all the files in the tasks directory.

	if (!empty($versionOptions['include_tasks']))

	{

		$tasks_dir = dir($tasksdir);

		while ($entry = $tasks_dir->read())

		{

			if (substr($entry, -4) === '.php' && !is_dir($tasksdir . '/' . $entry) && $entry !== 'index.php')

			{

				// Read the first 4k from the file.... enough for the header.

				$fp = fopen($tasksdir . '/' . $entry, 'rb');

				$header = fread($fp, 4096);

				fclose($fp);

				// Look for the version comment in the file header.

				if (preg_match('~\*\s@version\s+(.+)[\s]{2}~i', $header, $match) == 1)

					$version_info['tasks_versions'][$entry] = $match[1];

				// It wasn't found, but the file was... show a '??'.

				else

					$version_info['tasks_versions'][$entry] = '??';

			}

		}

		$tasks_dir->close();

	}