admin/inst_upgrade.php

   1 <?php
   2 /**********************************************************************
   3     Copyright (C) FrontAccounting, LLC.
   4         Released under the terms of the GNU General Public License, GPL,
   5         as published by the Free Software Foundation, either version 3
   6         of the License, or (at your option) any later version.
   7     This program is distributed in the hope that it will be useful,
   8     but WITHOUT ANY WARRANTY; without even the implied warranty of
   9     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  10     See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
  11 ***********************************************************************/
  12 $page_security = 'SA_SOFTWAREUPGRADE';
  13 $path_to_root="..";
  14 include_once($path_to_root . "/includes/session.inc");
  15
  16 page(_($help_context = "Software Upgrade"));
  17
  18 include_once($path_to_root . "/includes/date_functions.inc");
  19 include_once($path_to_root . "/admin/db/company_db.inc");
  20 include_once($path_to_root . "/admin/db/maintenance_db.inc");
  21 include_once($path_to_root . "/includes/ui.inc");
  22
  23 //
  24 //      Checks $field existence in $table with given field $properties
  25 //      $table - table name without prefix
  26 //  $field -  optional field name
  27 //  $properties - optional properties of field defined by MySQL:
  28 //              'Type', 'Null', 'Key', 'Default', 'Extra'
  29 //
  30 function check_table($pref, $table, $field=null, $properties=null)
  31 {
  32         $tables = @db_query("SHOW TABLES LIKE '".$pref.$table."'");
  33         if (!db_num_rows($tables))
  34                 return 1;               // no such table or error
  35
  36         $fields = @db_query("SHOW COLUMNS FROM ".$pref.$table);
  37         if (!isset($field))
  38                 return 0;               // table exists
  39
  40         while( $row = db_fetch_assoc($fields))
  41         {
  42                 if ($row['Field'] == $field)
  43                 {
  44                         if (!isset($properties))
  45                                 return 0;
  46                         foreach($properties as $property => $value)
  47                         {
  48                                 if ($row[$property] != $value)
  49                                         return 3;       // failed type/length check
  50                         }
  51                         return 0; // property check ok.
  52                 }
  53         }
  54         return 2; // field not found
  55 }
  56 //
  57 //      Creates table of installer objects sorted by version.
  58 //
  59 function get_installers()
  60 {
  61         global $path_to_root;
  62
  63         $patchdir = $path_to_root."/sql/";
  64         $upgrades = array();
  65         $datadir = @opendir($patchdir);
  66
  67         if ($datadir)
  68         {
  69                 while(false !== ($fname = readdir($datadir)))
  70                 { // check all php files but index.php
  71                         if (!is_dir($patchdir . $fname) && ($fname != 'index.php')
  72                                 && stristr($fname, '.php') != false)
  73                         {
  74                                 unset($install);
  75                                 include_once($patchdir . $fname);
  76                                 if (isset($install)) // add installer if found
  77                                         $upgrades[$install->version] =  $install;
  78                         }
  79                 }
  80                 ksort($upgrades); // sort by file name
  81                 $upgrades = array_values($upgrades);
  82         }
  83         return $upgrades;
  84 }
  85 //
  86 //      Apply one differential data set.
  87 //
  88 function upgrade_step($index, $conn)
  89 {
  90         global $path_to_root, $installers;
  91
  92         $inst = $installers[$index];
  93         $pref = $conn['tbpref'];
  94         $ret = true;
  95
  96         $force = get_post('force_'.$index);
  97         if ($force || get_post('install_'.$index))
  98         {
  99                 $state = $inst->installed($pref);
 100                 if (!$state || $force)
 101                 {
 102                         if (!$inst->pre_check($pref, $force)) return false;
 103                         $sql = $inst->sql;
 104
 105                         error_log(sprintf(_("Database upgrade for company '%s' (%s:%s*) started..."),
 106                                 $conn['name'], $conn['dbname'], $conn['tbpref']));
 107
 108                         if ($sql != '')
 109                                 $ret &= db_import($path_to_root.'/sql/'.$sql, $conn, $force);
 110
 111                         $ret &= $inst->install($pref, $force);
 112
 113                         error_log(_("Database upgrade finished."));
 114
 115                 } else
 116                         if ($state!==true) {
 117                                 display_error(_("Upgrade cannot be done because database has been already partially upgraded. Please downgrade database to clean previous version or try forced upgrade."));
 118                                 $ret = false;
 119                         }
 120         }
 121         return $ret;
 122 }
 123
 124 function db_open($conn)
 125 {
 126         $db = mysql_connect($conn["host"] ,$conn["dbuser"], $conn["dbpassword"]);
 127         if (!$db)
 128                 return false;
 129         if (!mysql_select_db($conn["dbname"], $db))
 130                 return false;
 131         return $db;
 132 }
 133
 134 $installers = get_installers();
 135
 136 if (get_post('Upgrade'))
 137 {
 138
 139         $ret = true;
 140         foreach ($db_connections as $conn)
 141         {
 142         // connect to database
 143                 if (!($db = db_open($conn)))
 144                 {
 145                         display_error(_("Cannot connect to database for company")
 146                                 ." '".$conn['name']."'");
 147                         continue;
 148                 }
 149         // create security backup
 150                 db_backup($conn, 'no', 'Security backup before upgrade', $conn['tbpref']);
 151         // apply all upgrade data
 152                 foreach ($installers as $i => $inst)
 153                 {
 154                         $ret = upgrade_step($i, $conn);
 155                         if (!$ret)
 156                                 display_error(
 157                                 sprintf(_("Database upgrade to version %s failed for company '%s'."),
 158                                         $inst->version, $conn['name'])
 159                                         .'<br>'
 160                                         ._('You should restore company database from latest backup file'));
 161                 }
 162 //              db_close($conn); ?
 163                 if (!$ret) break;
 164         }
 165         if($ret)
 166         {       // re-read the prefs
 167                 global $path_to_root;
 168                 include_once($path_to_root . "/admin/db/users_db.inc");
 169                 $user = get_user_by_login($_SESSION["wa_current_user"]->username);
 170                 $_SESSION["wa_current_user"]->prefs = new user_prefs($user);
 171                 display_notification(_('All companies data has been successfully updated'));
 172         }
 173         unset($_SESSION['SysPrefs']); // re-read system setup
 174         $Ajax->activate('_page_body');
 175 }
 176
 177 start_form();
 178 start_table(TABLESTYLE);
 179 $th = array(_("Version"), _("Description"), _("Sql file"), _("Install"),
 180         _("Force upgrade"));
 181 table_header($th);
 182
 183 $k = 0; //row colour counter
 184 $partial = 0;
 185 foreach($installers as $i => $inst)
 186 {
 187         alt_table_row_color($k);
 188         start_row();
 189         label_cell($inst->version);
 190         label_cell($inst->description);
 191         label_cell($inst->sql ? $inst->sql : '<i>'._('None').'</i>', 'align=center');
 192 // this is checked only for first (site admin) company,
 193 // but in fact we should always upgrade all data sets after
 194 // source upgrade.
 195         $check = $inst->installed(TB_PREF);
 196         if ($check === true)
 197                 label_cell(_("Installed"));
 198         else
 199                 if (!$check)
 200                         check_cells(null,'install_'.$i, 0);
 201                 else {
 202                         label_cell("<span class=redfg>"
 203                                 . sprintf(_("Partially installed (%s)"), $check) . "</span>");
 204                         $partial++;
 205                 }
 206
 207         check_cells(null,'force_'.$i, 0);
 208         end_row();
 209 }
 210 end_table(1);
 211 if ($partial!=0)        {
 212         display_note(_("Database upgrades marked as partially installed cannot be installed automatically.
 213 You have to clean database manually to enable them, or try to perform forced upgrade."));
 214         br();
 215 }
 216 submit_center('Upgrade', _('Upgrade system'), true, _('Save database and perform upgrade'), 'process');
 217 end_form();
 218
 219 end_page();
 220
 221 ?>