egroupware/setup/sql/default_applications.inc.php

<?php
  /**************************************************************************\
  * phpGroupWare - Setup                                                     *
  * http://www.phpgroupware.org                                              *
  * --------------------------------------------                             *
  *  This program is free software; you can redistribute it and/or modify it *
  *  under the terms of the GNU General Public License as published by the   *
  *  Free Software Foundation; either version 2 of the License, or (at your  *
  *  option) any later version.                                              *
  \**************************************************************************/

  /* $Id$ */

  $reserved_directorys = array('phpgwapi' => True, 'doc' => True, 'setup' => True, '.' => True,
  		'..' => True, 'CVS' => True, 'files' => True);

	$i = 30;
	$dh = opendir(PHPGW_SERVER_ROOT);
	while ($dir = readdir($dh)) {
		if (! $reserved_directorys[$dir] && is_dir(PHPGW_SERVER_ROOT . SEP . $dir)) {
				if (is_file(PHPGW_SERVER_ROOT . SEP . $dir . SEP . 'setup' . SEP . 'tables_new.inc.php')) {
						$new_schema[] = $dir;
				}

				if (is_file(PHPGW_SERVER_ROOT . SEP . $dir . SEP . 'setup' . SEP . 'setup_info.inc.php')) {
						include(PHPGW_SERVER_ROOT . SEP . $dir . SEP . 'setup' . SEP . 'setup_info.inc.php');
				} else {
				    $setup_info[$dir] = array('name' => $dir, 'app_order' => $i++, 'version' => '0.0.0');
				}
		}
	}

	while ($app = each($setup_info)) {
		$phpgw_setup->db->query("insert into phpgw_applications (app_name, app_title, app_enabled, app_order,"
													. " app_tables, app_version) values ('" . $app[0] . "', '" . $app[1]["name"]
													. "',1," . $app[1]['app_order'] . ", '" . $app[1]['app_tables'] . "', '"
													. $app[1]['version'] . "')");
	}

	include(PHPGW_SERVER_ROOT . "/setup/inc/phpgw_schema_current.inc.php");
	include(PHPGW_SERVER_ROOT . "/setup/inc/phpgw_schema_proc.inc.php");

	$o = new phpgw_schema_proc($phpgw_domain[$ConfigDomain]["db_type"]);
	$o->m_odb = $phpgw_setup->db;

	while (list(,$app) = each($new_schema)) {
		include(PHPGW_SERVER_ROOT . SEP . $app . SEP . 'setup' . SEP . 'tables_new.inc.php');
		echo '<br><b>Creating tables for ' . $app . '</b>';
		$o->ExecuteScripts($app_tables, True);
	}
?>