Location: PHPKode > projects > Saurus CMS > editor/append_headers.php
<?php
/**
 * This source file is is part of Saurus CMS content management software.
 * It is licensed under MPL 1.1 (http://www.opensource.org/licenses/mozilla1.1.php).
 * Copyright (C) 2000-2010 Saurused Ltd (http://www.saurus.info/).
 * Redistribution of this file must retain the above copyright notice.
 * 
 * Please note that the original authors never thought this would turn out
 * such a great piece of software when the work started using Perl in year 2000.
 * Due to organic growth, you may find parts of the software being
 * a bit (well maybe more than a bit) old fashioned and here's where you can help.
 * Good luck and keep your open source minds open!
 * 
 * @package		SaurusCMS
 * @copyright	2000-2010 Saurused Ltd (http://www.saurus.info/)
 * @license		Mozilla Public License 1.1 (http://www.opensource.org/licenses/mozilla1.1.php)
 * 
 */



function dirrec($path)
{
	global $append;

	//using the opendir function
	$handle = @opendir($path) or die("Unable to open $path");

	//running the while loop
    while (false !== ($file = readdir($handle)))
	{
        if ($file != "." && $file != "..")
		{
            if(is_dir($file))
			{
				dirrec($file);
			}
			else if(preg_match('#\.php$#', $file))
			{
				echo "$file\n";
				$content = file_get_contents($path.'/'.$file);
				if(strpos($content, '<?php') === 0)
				{
					$content = preg_replace('#^<\?php#', $append, $content);
				}
				else
				{
					$content = preg_replace('#^<\?#', $append, $content);
				}

				file_put_contents($path.'/'.$file, $content);
			}
        }
    }
    closedir($handle);
}

$append = "<?php
/**
 * This source file is is part of Saurus CMS content management software.
 * It is licensed under MPL 1.1 (http://www.opensource.org/licenses/mozilla1.1.php).
 * Copyright (C) 2000-2010 Saurused Ltd (http://www.saurus.info/).
 * Redistribution of this file must retain the above copyright notice.
 * 
 * Please note that the original authors never thought this would turn out
 * such a great piece of software when the work started using Perl in year 2000.
 * Due to organic growth, you may find parts of the software being
 * a bit (well maybe more than a bit) old fashioned and here's where you can help.
 * Good luck and keep your open source minds open!
 * 
 * @package		SaurusCMS
 * @copyright	2000-2010 Saurused Ltd (http://www.saurus.info/)
 * @license		Mozilla Public License 1.1 (http://www.opensource.org/licenses/mozilla1.1.php)
 * 
 */

";

dirrec(getcwd());
Return current item: Saurus CMS