installer.php

<?php

/* Copyright 2010-2013 Mo McRoberts.
 *
 *  Licensed under the Apache License, Version 2.0 (the "License");
 *  you may not use this file except in compliance with the License.
 *  You may obtain a copy of the License at
 *
 *      http://www.apache.org/licenses/LICENSE-2.0
 *
 *  Unless required by applicable law or agreed to in writing, software
 *  distributed under the License is distributed on an "AS IS" BASIS,
 *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 *  See the License for the specific language governing permissions and
 *  limitations under the License.
 */

require_once(dirname(__FILE__) . '/module.php');
require_once(dirname(__FILE__) . '/ui.php');

class Installer
{
	public $appname;
	public $appconfig;
	public $appconfigCreated;
	public $config;
	public $configCreated;
	public $instname;
	public $configuredModules = 0;
	
	public $installerName = 'Eregansu Install';
	public $defaultAppName = null;
	public $defaultInstanceName = null;
	
	public $relPlatformPath;
	public $relModulesPath;
	public $relPublicPath;

	public $ui;
	
	public $builtinModules = array('lib', 'db', 'rdf', 'framework', 'auth', 'install', 'setup', 'gendoc', 'testsuite', 'login', 'silk', 'log', 'views');

	public function __construct()
	{
		$this->ui = InstallerUI::getInstance();
		$this->ui->title = $this->installerName;
		if(!strlen($this->defaultInstanceName))
		{
			$hostname = explode('.', php_uname('n'));		
			$this->defaultInstanceName = $hostname[0];
		}
		if(!strlen($this->defaultAppName))
		{
			if(file_exists(CONFIG_ROOT . 'appconfig.php'))
			{
				if(($f = fopen(CONFIG_ROOT . 'appconfig.php', 'r')))
				{
					$str = fread($f, 4096);
					fclose($f);
					$matches = array();
					if(preg_match('/^\s*define\(\s*(\'APP_NAME\'|"APP_NAME")\s*,\s*(\'([^\']+)\'|"([^"]+)")\s*\)\s*;\s*$/m', $str, $matches))
					{
						if(isset($matches[3]))
						{
							$this->defaultAppName = $matches[3];
						}
					}
				}
			}
		}
		if(!strlen($this->defaultAppName))
		{
			$this->defaultAppName = 'default';
		}
	}
	
	public function run()
	{
		$this->init();
		$this->checkConfigRoot();
		$this->checkAppName();		
		$this->checkAppConfig();
		$this->checkAppConfigLink();
		$this->checkInstanceName();
		$this->checkConfig();
		$this->checkConfigLink();
		$this->checkPublicRoot();
		$this->checkIndex();
		$this->checkEregansuLink();
		$this->checkCLILink();
		$this->checkHtAccess();
		$this->checkApache2Config();
		$this->checkLighttpdConfig();
		$this->checkApp();
		$this->checkTemplates();
        $this->checkPlugins();
		$this->scanModules();
		$this->postamble();
		
		/* Once this class has been finished, we should return true to indicate success */
	
		return true;
	}
	
	protected function init()
	{
		umask(022);
		$this->ui->begin();
		echo "This script will generate an initial set of configuration files for your\n";
		echo "application based upon the answers you give below.\n\n";

		echo "Files will be stored in the following locations:\n\n";

		echo " - Instance root:       " . INSTANCE_ROOT . "\n";
		echo " - Public root:         " . PUBLIC_ROOT . "\n";
		echo " - Application modules: " . MODULES_ROOT . "\n";
        echo " - Plug-ins:            " . PLUGINS_ROOT . "\n";
		echo " - Configuration files: " . CONFIG_ROOT . "\n";
		echo " - Eregansu platform:   " . PLATFORM_ROOT . "\n";
		$this->ui->end();
		if(!strncmp(INSTANCE_ROOT, PLATFORM_ROOT, strlen(INSTANCE_ROOT)))
		{
			$this->relPlatformPath = substr(PLATFORM_ROOT, strlen(INSTANCE_ROOT));
		}
		else
		{
			$this->relPlatformPath = PLATFORM_ROOT;
		}
		if(!strncmp(INSTANCE_ROOT, MODULES_ROOT, strlen(INSTANCE_ROOT)))
		{
			$this->relModulesPath = substr(MODULES_ROOT, strlen(INSTANCE_ROOT));
		}
		else
		{
			$this->relModulesPath = MODULES_ROOT;
		}
		if(!strncmp(INSTANCE_ROOT, PUBLIC_ROOT, strlen(INSTANCE_ROOT)))
		{
			$this->relPublicPath = substr(PUBLIC_ROOT, strlen(INSTANCE_ROOT));
		}
		else
		{
			$this->relPublicPath = PUBLIC_ROOT;
		}		
	}
	
	protected function checkConfigRoot()
	{
		if(file_exists(CONFIG_ROOT))
		{
			$this->ui->notice(CONFIG_ROOT . " already exists.");
		}
		else
		{
			$this->ui->notice(CONFIG_ROOT . " does not exist, creating.");
			if(!mkdir(CONFIG_ROOT)) exit(1);
			chmod(CONFIG_ROOT, 0755);
		}
	}

	protected function checkPublicRoot()
	{
		if(!strcmp(INSTANCE_ROOT, PUBLIC_ROOT))
		{
			return;
		}
		if(file_exists(PUBLIC_ROOT))
		{
			$this->ui->notice(PUBLIC_ROOT . " already exists.");
		}
		else
		{
			$this->ui->notice(PUBLIC_ROOT . " does not exist, creating.");
			if(!mkdir(PUBLIC_ROOT)) exit(1);
			chmod(PUBLIC_ROOT, 0755);
		}
	}
	
	protected function checkAppName()
	{
		$this->ui->begin();
		echo "You need to specify a short name for your application. This name will be used\n";
		echo "in the filename of your application configuration file. For example, if you\n";
		echo "set the short name to be 'myapp', the application configuration file will be\n";
		echo "created as appconfig.myapp.php. A symbolic link will be created from this file\n";
		echo "to appconfig.php.\n";
		do
		{
			echo "Please enter a name consisting only of letters, numbers and dashes, 1-16 characters\n";
			$this->appname = $this->ui->prompt('Application name', $this->defaultAppName);
			if((strlen($this->appname) > 1 && strlen($this->appname) <= 16) &&
			   preg_match('/^[A-Za-z0-9-]+$/', $this->appname))
			{
				break;
			}
			$this->ui->begin();
		}
		while(true);
	}
	
	protected function checkAppConfig()
	{
		$this->appconfig = CONFIG_ROOT . 'appconfig.' . $this->appname . '.php';				
		if(file_exists($this->appconfig))
		{
			$this->ui->begin();
			echo "The file appconfig." . $this->appname . ".php already exists. Would you like to delete it\n";
			echo "and create a new one?\n\n";
			do
			{
				$ans = $this->ui->prompt("Delete appconfig." . $this->appname . ".php", 'N', 'Y/N');
				$ans = substr(strtoupper($ans), 0, 1);
				if($ans == 'Y' || $ans == 'N') break;
				$this->ui->begin();
			}
			while(true);
			echo "\n";
			if($ans == 'Y')
			{
				$this->ui->notice("Deleting existing " . $this->appconfig);
				if(!unlink($this->appconfig)) exit(1);
			}
		}
		if(file_exists($this->appconfig))
		{
			$this->ui->notice("Skipping application configuration as appconfig." . $this->appname . ".php already exists");
		}
		else
		{
			$this->appconfigCreated = true;
			$this->ui->notice("Creating " . $this->appconfig);
			if(!($f = fopen($this->appconfig, 'w'))) exit(1);
			fwrite($f, '<?php' . "\n\n");
			fwrite($f, '/* Application configuration for ' . $this->appname . ' - generated by Eregansu Install at ' . strftime('%Y-%m-%d %H:%M:%S') . '*/' . "\n\n");
			fwrite($f, "define('APP_NAME', '" . $this->appname . "');\n\n");
			fclose($f);
			chmod($this->appconfig, 0644);
		}
	}
	
	protected function checkAppConfigLink()
	{
		if(file_exists(CONFIG_ROOT . 'appconfig.php'))
		{
			if(is_link(CONFIG_ROOT . 'appconfig.php'))
			{
				$this->ui->notice("appconfig.php already exists and is a symbolic link, re-creating");
				if(!unlink(CONFIG_ROOT . 'appconfig.php')) exit(1);
			}
			else
			{
				$this->ui->begin();
				echo "The file appconfig.php already exists but is not a symbolic link. Do you\n";
				echo "wish to keep this file as-is, or move it out of the way and create the symbolic\n";
				echo "link to appconfig." . $this->appname . ".php?\n\n";
				do
				{
					$ans = $this->ui->prompt("Keep appconfig.php as-is", 'N', 'Y/N');
					$ans = substr(strtoupper($ans), 0, 1);
					if($ans == 'Y' || $ans == 'N') break;
					$this->ui->begin();
				}
				while(true);
				if($ans == 'N')
				{
					$newname = "appconfig.old-" . getmypid() . ".php";
					$this->ui->notice("Renaming appconfig.php to $newname");
					if(!rename(CONFIG_ROOT . 'appconfig.php', CONFIG_ROOT . $newname)) exit(1);
				}
			}
		}
		if(!file_exists(CONFIG_ROOT . 'appconfig.php'))
		{
			chdir(CONFIG_ROOT);
			$this->ui->notice("Symbolically linking appconfig." . $this->appname . ".php to appconfig.php");
			symlink('appconfig.' . $this->appname . '.php', 'appconfig.php');
		}
	}
	
	public function checkInstanceName()
	{
		$this->ui->begin();
		echo "Every copy of each Eregansu application requires an instance name which should be\n";
		echo "unique to that copy of the application. Usually, you would set the instance name\n";
		echo "to the local part of the host's hostname, but if you are going to run multiple\n";
		echo "copies of the application on the same host, then only one of them can use this\n";
		echo "default.\n";
		echo "\n";
		echo "For example, you might run two copies of an application: a development copy and a\n";
		echo "live copy. If the hostname was 'lily', then you might set the instance name of\n";
		echo "one copy to be 'lily' and the other to be 'lily-dev'.\n";
		echo "\n";
		echo "If you’re just experimenting with Eregansu and want to get set up quickly, the\n";
		echo "default value should be fine.\n\n";
		do
		{			
			echo "Please enter a name consisting only of letters, numbers and dashes, 1-32 characters\n";
			$ans = $this->ui->prompt("Instance name", $this->defaultInstanceName);
			$ans = trim(strtolower($ans));
			if(strlen($ans) >= 1 && strlen($ans) <= 32)
			{
				break;
			}
			$this->ui->begin();
		}
		while(true);
		$this->instname = $ans;
	}
	
	public function checkConfig()
	{
		$this->config = CONFIG_ROOT . 'config.' . $this->instname . '.php';				
		if(file_exists($this->config))
		{
			$this->ui->begin();
			echo "The file config." . $this->instname . ".php already exists. Would you like to delete it\n";
			echo "and create a new one?\n\n";
			do
			{
				$ans = $this->ui->prompt("Delete config." . $this->instname . ".php", 'N', 'Y/N');
				$ans = substr(strtoupper($ans), 0, 1);
				if($ans == 'Y' || $ans == 'N') break;
				$this->ui->begin();
			}
			while(true);
			if($ans == 'Y')
			{
				$this->ui->notice("Deleting existing " . $this->config);
				if(!unlink($this->config)) exit(1);
			}
		}
		if(file_exists($this->config))
		{
			$this->ui->notice("Skipping instance configuration as config." . $this->instname . ".php already exists");
		}
		else
		{
			$this->configCreated = true;
			$this->ui->notice("Creating " . $this->config);
			if(!($f = fopen($this->config, 'w'))) exit(1);
			fwrite($f, '<?php' . "\n\n");
			fwrite($f, '/* Instance configuration for ' . $this->instname . ' - generated by Eregansu Install at ' . strftime('%Y-%m-%d %H:%M:%S') . '*/' . "\n\n");

			fwrite($f, '/* Each copy of an application must have a unique INSTANCE_NAME' . "\n");
			fwrite($f, ' * If you use (either directly or directly) the "cluster" module,' . "\n");
			fwrite($f, ' * then INSTANCE_NAME is used to determine which cluster this' . "\n");
			fwrite($f, ' * is part of.' . "\n");
			fwrite($f, ' */' . "\n");
			fwrite($f, 'define(\'INSTANCE_NAME\', \'' . $this->instname . '\');' . "\n\n");

			fwrite($f, '/* The "heartbeat" module will use HOST_NAME in preference to INSTANCE_NAME if' . "\n");
			fwrite($f, ' * defined.' . "\n");
			fwrite($f, ' */' . "\n");
			fwrite($f, '/* define(\'HOST_NAME\', \'' . $this->instname . '\'); */' . "\n\n");

			fclose($f);
			chmod($this->config, 0644);
		}	
	}
	
	protected function checkConfigLink()
	{
		if(file_exists(CONFIG_ROOT . 'config.php'))
		{
			if(is_link(CONFIG_ROOT . 'config.php'))
			{
				$this->ui->notice("config.php already exists and is a symbolic link, re-creating");
				if(!unlink(CONFIG_ROOT . 'config.php')) exit(1);
			}
			else
			{
				$this->ui->begin();
				echo "The file config.php already exists but is not a symbolic link. Do you\n";
				echo "wish to keep this file as-is, or move it out of the way and create the symbolic\n";
				echo "link to config." . $this->instname . ".php?\n\n";
				do
				{
					$ans = $this->ui->prompt("Keep config.php as-is", 'N', 'Y/N');
					$ans = substr(strtoupper($ans), 0, 1);
					if($ans == 'Y' || $ans == 'N') break;
					$this->ui->begin();
				}
				while(true);
				if($ans == 'N')
				{
					$newname = "config.old-" . getmypid() . ".php";
					$this->ui->notice("Renaming config.php to $newname");
					if(!rename(CONFIG_ROOT . 'config.php', CONFIG_ROOT . $newname)) exit(1);
				}
			}
		}
		if(!file_exists(CONFIG_ROOT . 'config.php'))
		{
			chdir(CONFIG_ROOT);
			$this->ui->notice("Symbolically linking config." . $this->instname . ".php to instconfig.php");
			symlink('config.' . $this->instname . '.php', 'config.php');
		}
	}
	
	protected function checkIndex()
	{
		if(file_exists(PUBLIC_ROOT . 'index.php'))
		{
			$this->ui->notice("index.php already exists, leaving untouched");
		}
		else
		{
			$this->ui->notice("Creating index.php");
			$f = fopen(PUBLIC_ROOT . 'index.php', 'w');
			fwrite($f, '<?php' . "\n\n");
			fwrite($f, '/* Generated by Eregansu Install at ' . strftime('%Y-%m-%d %H:%M:%S') . ' */' . "\n\n");
			fwrite($f, '/* You can safely modify this file if you need to -- it will not be overwritten by the installer */' . "\n\n");
			fwrite($f, "\$EREGANSU_START_TIME = microtime(true);\n\n");
			fwrite($f, "define('INSTANCE_ROOT', realpath(dirname(__FILE__) . '/..') . '/');\n");
			fwrite($f, "define('PUBLIC_ROOT', realpath(dirname(__FILE__)) . '/');\n\n");

			fwrite($f, 'require(INSTANCE_ROOT . \'eregansu/framework/platform.php\');' . "\n\n");

			fwrite($f, '$app->process($request);' . "\n");
			fclose($f);
			chmod(PUBLIC_ROOT . 'index.php', 0644);
		}
	}
		
	protected function checkCLILink()
	{
		if(file_exists(INSTANCE_ROOT . 'cli'))
		{
			$this->ui->notice("Re-creating command-line script symbolic link");
			unlink(INSTANCE_ROOT . 'cli');
		}
		else
		{
			$this->ui->notice("Creating command-line script symbolic link");
		}
		chdir(INSTANCE_ROOT);
		symlink($this->relPlatformPath . 'cli', 'cli');
	}

	protected function checkEregansuLink()
	{
		if(file_exists(INSTANCE_ROOT . 'eregansu'))
		{
			if(!is_link(INSTANCE_ROOT . 'eregansu') && is_dir(INSTANCE_ROOT . 'eregansu'))
			{
				$this->ui->notice(INSTANCE_ROOT . "eregansu/ is a directory, leaving untouched");
				return;
			}
			$this->ui->notice("Re-creating Eregansu platform symbolic link");
			unlink(INSTANCE_ROOT . 'eregansu');
		}
		else
		{
			$this->ui->notice("Creating Eregansu platform symbolic link");
		}
		chdir(INSTANCE_ROOT);
		symlink($this->relPlatformPath, 'eregansu');
	}
	
	protected function checkHtAccess()
	{
		if(file_exists(PUBLIC_ROOT . '.htaccess'))
		{
			$this->ui->notice(".htaccess already exists, leaving untouched");
		}
		else
		{
			$this->ui->notice("Generating .htaccess");
			$f = fopen(PUBLIC_ROOT . '.htaccess', 'w');
			fwrite($f, "RewriteEngine On\n");
			fwrite($f, "RewriteBase /\n");
			fwrite($f, "RewriteCond %{REQUEST_FILENAME} -f\n");
			fwrite($f, "RewriteRule . - [L]\n");
			fwrite($f, "RewriteRule  ^([_0-9a-zA-Z-]+/)?(.*\.php)$ $2 [L]\n");
			fwrite($f, "RewriteRule . index.php [L]\n");
			fclose($f);
			chmod(PUBLIC_ROOT . '.htaccess', 0644);
		}
	}

	protected function checkApache2Config()
	{
		if(file_exists(CONFIG_ROOT . 'apache2.' . $this->instname . '.conf'))
		{
			$this->ui->notice(CONFIG_ROOT . "apache2.conf already exists, leaving untouched");
		}
		else
		{
			$this->ui->notice("Generating sample Apache 2.x virtual host configuration apache2." . $this->instname . ".conf");
			$f = fopen(CONFIG_ROOT . 'apache2.' . $this->instname . '.conf', 'w');
			fwrite($f, "<VirtualHost *:80>\n" .
				   "\tServerName " . $this->appname . "\n" .
				   "\tDocumentRoot " . PUBLIC_ROOT . "\n" .
				   "\tDirectoryIndex index.php\n" .
				   "</VirtualHost>\n\n" .

				   "<Directory " . PUBLIC_ROOT . ">\n" .
				   "\tOrder allow,deny\n" .
				   "\tAllow from all\n" .
				   "\tOptions +FollowSymLinks\n" .
				   "\tAllowOverride all\n" .
				   "</Directory>\n\n"
				);
			fclose($f);
		}
		if(file_exists(CONFIG_ROOT . 'apache2.conf') && !is_link(CONFIG_ROOT . 'apache2.conf'))
		{
			$this->ui->notice(CONFIG_ROOT . "apache2.conf already exists, leaving untouched");
		}
		else
		{
			@unlink(CONFIG_ROOT . 'apache2.conf');
			chdir(CONFIG_ROOT);
			symlink('apache2.' . $this->instname . '.conf', 'apache2.conf');
		}
	}

	protected function checkLighttpdConfig()
	{
		if(file_exists(CONFIG_ROOT . 'lighttpd.' . $this->instname . '.conf'))
		{
			$this->ui->notice(CONFIG_ROOT . "lighttpd.conf already exists, leaving untouched");
		}
		else
		{
			$this->ui->notice("Generating sample Lighttpd virtual host configuration lighttpd." . $this->instname . ".conf");
			$f = fopen(CONFIG_ROOT . 'lighttpd.' . $this->instname . '.conf', 'w');
			fwrite($f, "\$HTTP[\"host\"] =~ \"^" . str_replace('.', '\.', $this->appname) . "$\" {\n" .
				   "\tserver.document-root = \"" . PUBLIC_ROOT . "\"\n" .
				   "\turl.rewrite-once = (\n" .
				   "\t\t\"^(?!/((templates|media|data|content)/.*|favicon.ico|slate.manifest))\" => \"/index.php\"\n" .
				   "\t)\n" .
				   "}\n");
			fclose($f);
		}
		if(file_exists(CONFIG_ROOT . 'lighttpd.conf') && !is_link(CONFIG_ROOT . 'lighttpd.conf'))
		{
			$this->ui->notice(CONFIG_ROOT . "lighttpd.conf already exists, leaving untouched");
		}
		else
		{
			@unlink(CONFIG_ROOT . 'lighttpd.conf');
			chdir(CONFIG_ROOT);
			symlink('lighttpd.' . $this->instname . '.conf', 'lighttpd.conf');
		}
	}
	
	protected function checkApp()
	{
		if(!file_exists(MODULES_ROOT))
		{
			$this->ui->notice(MODULES_ROOT . " does not exist, creating");
			mkdir(MODULES_ROOT);
			chmod(MODULES_ROOT, 0755);
			if(!file_exists(MODULES_ROOT . $this->appname))
			{
				$this->ui->notice(MODULES_ROOT . $this->appname . " does not exist, creating");
				mkdir(MODULES_ROOT . $this->appname);
				chmod(MODULES_ROOT . $this->appname, 0755);				
			}
		}
		else
		{
			$this->ui->notice(MODULES_ROOT . " already exists, leaving untouched");
		}
	}

	protected function checkPlugins()
	{
		if(!file_exists(PLUGINS_ROOT))
		{
			$this->ui->notice(PLUGINS_ROOT . " does not exist, creating");
			mkdir(PLUGINS_ROOT);
			chmod(PLUGINS_ROOT, 0755);
		}
		else
		{
			$this->ui->notice(PLUGINS_ROOT . " already exists, leaving untouched");
		}
	}
	
	protected function checkTemplates()
	{
		$path = PUBLIC_ROOT . (defined('TEMPLATES_PATH') ? TEMPLATES_PATH : 'templates') . '/';
		if(!file_exists($path))
		{
			$this->ui->notice($path . " does not exist, creating");
			mkdir($path, true);
			chmod($path, 0755);
		}
		else
		{
			$this->ui->notice($path . " already exists, leaving untouched");
		}
	}
	
	protected function scanModules()
	{
		$this->ui->notice("Scanning for modules...");
		$modules = array();
		$c = 0;
		foreach($this->builtinModules as $de)
		{
			if(file_exists(PLATFORM_ROOT . $de . '/install.php'))
			{
					$result = include_once(PLATFORM_ROOT . $de . '/install.php');
					
					$className = 'Builtin' . $de . 'ModuleInstall';
					if(is_string($result))
					{
						$className = $result;
					}					
					if(!class_exists($className))
					{
						$this->ui->warning(PLATFORM_ROOT . $de . '/install.php exists but does not define a class named ' . $className . '; skipping');
						continue;
					}
					$inst = new $className($this, $de, PLATFORM_ROOT . $de . '/');
					$k = sprintf('%04d-%04d', $inst->moduleOrder, $c);
					$this->ui->progress("Found built-in module " . $inst->name);
					$modules[$k] = $inst;
			}
			$c++;
		}		
		$d = opendir(MODULES_ROOT);
		while(($de = readdir($d)))
		{
			if(substr($de, 0, 1) == '.') continue;
			if(is_dir(MODULES_ROOT . $de))
			{
				if(file_exists(MODULES_ROOT . $de . '/install.php'))
				{
					$result = include_once(MODULES_ROOT . $de . '/install.php');
					
					$className = $de . 'ModuleInstall';
					if(is_string($result))
					{
						$className = $result;
					}					
					if(!class_exists($className))
					{
						$this->ui->error(MODULES_ROOT . $de . '/install.php exists but does not define a class named ' . $className . '; skipping');
						continue;
					}
					$inst = new $className($this, $de, MODULES_ROOT . $de . '/');
					$k = sprintf('%04d-%04d', $inst->moduleOrder, $c);
					$this->ui->progress("Found module " . $inst->name);
					$modules[$k] = $inst;
				}
			}
			$c++;
		}
		ksort($modules);
		if($this->appconfigCreated)
		{
			$appConfig = fopen($this->appconfig, 'a');
		}
		else
		{
			$appConfig = null;
		}
		if($this->configCreated)
		{
			$config = fopen($this->config, 'a');
		}
		else
		{
			$config = null;
		}
		$soleWebModule = null;
		foreach($modules as $inst)
		{			
			if($soleWebModule === null)
			{
				if($inst->canBeSoleWebModule())
				{
					/* This module will be the sole web module until we know otherwise */
					$soleWebModule = $inst;
					$this->ui->progress($inst->name . ' can be sole web module');
				}
				else if($inst->canCoexistWithSoleWebModule())
				{
					/* This module won't be the sole web module, but can coexist with
					 * another that is, so we don't need to do anything special.
					 */
					continue;
				}
				else
				{
					/* This module can't be the sole web module, but can't coexist with
					 * another which is, so we stop looping immediately.
					 */
					$this->ui->progress($inst->name . ' cannot be sole web module nor coexist');
					break;
				}
			}
			else if($inst->canCoexistWithSoleWebModule())
			{
				/* There's an existing web module selected, but this
				 * one can coexist with it, proceed peacefully.
				 */
				continue;
			}
			else
			{
				/* Multiple non-coexisting web modules */
				$this->ui->progress($soleWebModule->name . ' will not be sole web module because ' . $inst->name . ' cannot coexist with it');
				$soleWebModule = null;
				break;
			}
		}
		if($soleWebModule)
		{
			$this->ui->notice('Configured with ' . $soleWebModule->name . ' as sole web module');
		}
		foreach($modules as $inst)
		{
			if($this->appconfigCreated)
			{
				fwrite($appConfig, "/* Application configuration for the '" . $inst->name. "' module */\n");
				$inst->writeAppConfig($appConfig, ($soleWebModule === $inst), ($soleWebModule === null ? null : $soleWebModule->name));
				fwrite($appConfig, "\n");
			}
			if($this->configCreated)
			{
				$inst->writeInstanceConfig($config);
			}
			$inst->createLinks();
			$this->configuredModules++;
		}
		if($appConfig)
		{
			fclose($appConfig);
		}
		if($config)
		{
			fclose($config);
		}
	}
	
	protected function postamble()
	{
		if(!$this->configuredModules && $this->appconfigCreated)
		{
			$f = fopen($this->appconfig, 'a');
			fwrite($f, '$HTTP_ROUTES = array(' . "\n");
			fwrite($f, "\t'__NONE__' => array('class' => 'Page', 'templateName' => 'home.phtml', 'title' => 'Sample homepage'),\n");
			fwrite($f, "\t'test' => array('class' => 'Page', 'templateName' => 'test.phtml', 'title' => 'Another sample page'),\n");
			fwrite($f, ");\n");
			fclose($f);
		}
		echo "*** Configuration complete ***\n\n";
		echo "Apache 2.x users: See " . CONFIG_ROOT . "apache2." . $this->instname . ".conf for a sample virtual host configuration.\n";
		echo "\n";
		echo ">>> Installation complete\n";
	}
}

/* An application can have a custom installer by placing an install.php in
 * the root and having it put an instance of a class which supports the
 * run() method in a variable named $installer.
 */
if(file_exists(INSTANCE_ROOT . '/install.php'))
{
	require_once(INSTANCE_ROOT . '/install.php');
	if(!is_object($installer))
	{
		trigger_error(INSTANCE_ROOT . '/install.php does not initialise $installer to be an installer class instance', E_USER_ERROR);
		exit(1);
	}
}
else
{
	$installer = new Installer();
}

if(!$installer->run())
{
	exit(1);
}