t3lib/class.t3lib_admin.php

   1 <?php
   2 /***************************************************************
   3 *  Copyright notice
   4 *
   5 *  (c) 1999-2010 Kasper Skårhøj (kasperYYYY@typo3.com)
   6 *  All rights reserved
   7 *
   8 *  This script is part of the TYPO3 project. The TYPO3 project is
   9 *  free software; you can redistribute it and/or modify
  10 *  it under the terms of the GNU General Public License as published by
  11 *  the Free Software Foundation; either version 2 of the License, or
  12 *  (at your option) any later version.
  13 *
  14 *  The GNU General Public License can be found at
  15 *  http://www.gnu.org/copyleft/gpl.html.
  16 *  A copy is found in the textfile GPL.txt and important notices to the license
  17 *  from the author is found in LICENSE.txt distributed with these scripts.
  18 *
  19 *
  20 *  This script is distributed in the hope that it will be useful,
  21 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 *  GNU General Public License for more details.
  24 *
  25 *  This copyright notice MUST APPEAR in all copies of the script!
  26 ***************************************************************/
  27 /**
  28  * Contains a class for evaluation of database integrity according to $TCA
  29  * Most of these functions are considered obsolete!
  30  *
  31  * $Id$
  32  * Revised for TYPO3 3.6 July/2003 by Kasper Skårhøj
  33  * XHTML compliant
  34  *
  35  * @author      Kasper Skårhøj <kasperYYYY@typo3.com>
  36  */
  37 /**
  38  * [CLASS/FUNCTION INDEX of SCRIPT]
  39  *
  40  *
  41  *
  42  *   93: class t3lib_admin
  43  *  128:     function genTree($theID, $depthData, $versions=FALSE)
  44  *  217:     function genTree_records($theID, $depthData, $table='', $versions=FALSE)
  45  *  292:     function genTreeStatus()
  46  *  315:     function lostRecords($pid_list)
  47  *  346:     function fixLostRecord($table,$uid)
  48  *  367:     function countRecords($pid_list)
  49  *  395:     function getGroupFields($mode)
  50  *  429:     function getFileFields($uploadfolder)
  51  *  452:     function getDBFields($theSearchTable)
  52  *  480:     function selectNonEmptyRecordsWithFkeys($fkey_arrays)
  53  *  569:     function testFileRefs ()
  54  *  620:     function testDBRefs($theArray)
  55  *  658:     function whereIsRecordReferenced($searchTable,$id)
  56  *  695:     function whereIsFileReferenced($uploadfolder,$filename)
  57  *
  58  * TOTAL FUNCTIONS: 14
  59  * (This index is automatically created/updated by the extension "extdeveval")
  60  *
  61  */
  62
  63
  64
  65
  66
  67
  68
  69
  70
  71
  72
  73
  74
  75
  76
  77
  78
  79
  80
  81
  82 /**
  83  * This class holds functions used by the TYPO3 backend to check the integrity of the database (The DBint module, 'lowlevel' extension)
  84  *
  85  * Depends on:          Depends on loaddbgroup from t3lib/
  86  *
  87  * @todo        Need to really extend this class when the tcemain library has been updated and the whole API is better defined. There are some known bugs in this library. Further it would be nice with a facility to not only analyze but also clean up!
  88  * @see SC_mod_tools_dbint_index::func_relations(), SC_mod_tools_dbint_index::func_records()
  89  * @author      Kasper Skårhøj <kasperYYYY@typo3.com>
  90  * @package TYPO3
  91  * @subpackage t3lib
  92  */
  93 class t3lib_admin {
  94         var $genTree_includeDeleted = TRUE;             // if set, genTree() includes deleted pages. This is default.
  95         var $genTree_includeVersions = TRUE;            // if set, genTree() includes verisonized pages/records. This is default.
  96         var $genTree_includeRecords = FALSE;            // if set, genTree() includes records from pages.
  97         var $perms_clause = '';                         // extra where-clauses for the tree-selection
  98         var $genTree_makeHTML = 0;                      // if set, genTree() generates HTML, that visualizes the tree.
  99
 100                 // internal
 101         var $page_idArray = Array();            // Will hod id/rec pais from genTree()
 102         var $rec_idArray = Array();
 103         var $getTree_HTML = '';                 // Will hold the HTML-code visualising the tree. genTree()
 104         var $backPath = '';
 105
 106                 // internal
 107         var $checkFileRefs = Array();
 108         var $checkSelectDBRefs = Array();       // From the select-fields
 109         var $checkGroupDBRefs = Array();        // From the group-fields
 110
 111         var $recStats = Array(
 112                 'allValid' => array(),
 113                 'published_versions' => array(),
 114                 'deleted' => array(),
 115         );
 116         var $lRecords = Array();
 117         var $lostPagesList = '';
 118
 119
 120         /**
 121          * Generates a list of Page-uid's that corresponds to the tables in the tree. This list should ideally include all records in the pages-table.
 122          *
 123          * @param       integer         a pid (page-record id) from which to start making the tree
 124          * @param       string          HTML-code (image-tags) used when this function calls itself recursively.
 125          * @param       boolean         Internal variable, don't set from outside!
 126          * @return      void
 127          */
 128         function genTree($theID, $depthData, $versions=FALSE)   {
 129
 130                 if ($versions)  {
 131                         $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
 132                                 'uid,title,doktype,deleted,t3ver_wsid,t3ver_id,t3ver_count,t3ver_swapmode'.(t3lib_extMgm::isLoaded('cms')?',hidden':''),
 133                                 'pages',
 134                                 'pid=-1 AND t3ver_oid='.intval($theID).' '.((!$this->genTree_includeDeleted)?'AND deleted=0':'').$this->perms_clause,
 135                                 '',
 136                                 'sorting'
 137                         );
 138                 } else {
 139                         $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
 140                                 'uid,title,doktype,deleted'.(t3lib_extMgm::isLoaded('cms')?',hidden':''),
 141                                 'pages',
 142                                 'pid='.intval($theID).' '.((!$this->genTree_includeDeleted)?'AND deleted=0':'').$this->perms_clause,
 143                                 '',
 144                                 'sorting'
 145                         );
 146                 }
 147
 148                         // Traverse the records selected:
 149                 $a = 0;
 150                 $c = $GLOBALS['TYPO3_DB']->sql_num_rows($res);
 151                 while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))      {
 152
 153                                 // Prepare the additional label used in the HTML output in case of versions:
 154                         if ($versions)  {
 155                                 $versionLabel = '[v1.'.$row['t3ver_id'].'; WS#'.$row['t3ver_wsid'].']';
 156                         } else $versionLabel='';
 157
 158                         $a++;
 159                         $newID = $row['uid'];
 160
 161                                 // Build HTML output:
 162                         if ($this->genTree_makeHTML)    {
 163                                 $this->genTree_HTML.=LF.'<div><span class="nobr">';
 164                                 $PM = 'join';
 165                                 $LN = ($a==$c)?'blank':'line';
 166                                 $BTM = ($a==$c)?'bottom':'';
 167                                 $this->genTree_HTML.= $depthData.
 168                                         '<img'.t3lib_iconWorks::skinImg($this->backPath,'gfx/ol/'.$PM.$BTM.'.gif','width="18" height="16"').' align="top" alt="" />'.
 169                                         $versionLabel.
 170                                         t3lib_iconWorks::getSpriteIconForRecord('pages', $row) .
 171                                         htmlspecialchars($row['uid'].': '.t3lib_div::fixed_lgd_cs(strip_tags($row['title']),50)).'</span></div>';
 172                         }
 173
 174                                 // Register various data for this item:
 175                         $this->page_idArray[$newID]=$row;
 176
 177                         $this->recStats['all_valid']['pages'][$newID] = $newID;
 178 #                       if ($versions)  $this->recStats['versions']['pages'][$newID] = $newID;
 179                         if ($row['deleted'])    $this->recStats['deleted']['pages'][$newID] = $newID;
 180                         if ($versions && $row['t3ver_count']>=1) {
 181                                 $this->recStats['published_versions']['pages'][$newID] = $newID;
 182                         }
 183
 184                         if ($row['deleted']) {$this->recStat['deleted']++;}
 185                         if ($row['hidden']) {$this->recStat['hidden']++;}
 186                         $this->recStat['doktype'][$row['doktype']]++;
 187
 188                                 // Create the HTML code prefix for recursive call:
 189                         $genHTML =  $depthData.'<img'.t3lib_iconWorks::skinImg($this->backPath,'gfx/ol/'.$LN.'.gif','width="18" height="16"').' align="top" alt="" />'.$versionLabel;
 190
 191                                 // If all records should be shown, do so:
 192                         if ($this->genTree_includeRecords)      {
 193                                 foreach($GLOBALS['TCA'] as $tableName => $cfg)  {
 194                                         if ($tableName!='pages') {
 195                                                 $this->genTree_records($newID, $this->genTree_HTML ? $genHTML : '', $tableName);
 196                                         }
 197                                 }
 198                         }
 199
 200                                 // Add sub pages:
 201                         $this->genTree($newID, $this->genTree_HTML ? $genHTML : '');
 202
 203                                 // If versions are included in the tree, add those now:
 204                         if ($this->genTree_includeVersions)     {
 205                                 $this->genTree($newID, $this->genTree_HTML ? $genHTML : '', TRUE);
 206                         }
 207                 }
 208         }
 209
 210         /**
 211          * @param       [type]          $theID: ...
 212          * @param       [type]          $depthData: ...
 213          * @param       [type]          $table: ...
 214          * @param       [type]          $versions: ...
 215          * @return      [type]          ...
 216          */
 217         function genTree_records($theID, $depthData, $table='', $versions=FALSE)        {
 218                 global $TCA;
 219
 220                 if ($versions)  {
 221                                 // Select all records from table pointing to this page:
 222                         $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
 223                                 t3lib_BEfunc::getCommonSelectFields($table),
 224                                 $table,
 225                                 'pid=-1 AND t3ver_oid='.intval($theID).
 226                                         (!$this->genTree_includeDeleted?t3lib_BEfunc::deleteClause($table):'')
 227                         );
 228                 } else {
 229                                 // Select all records from table pointing to this page:
 230                         $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
 231                                 t3lib_BEfunc::getCommonSelectFields($table),
 232                                 $table,
 233                                 'pid='.intval($theID).
 234                                         (!$this->genTree_includeDeleted?t3lib_BEfunc::deleteClause($table):'')
 235                         );
 236                 }
 237
 238                         // Traverse selected:
 239                 $a = 0;
 240                 $c = $GLOBALS['TYPO3_DB']->sql_num_rows($res);
 241                 while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))      {
 242
 243                                 // Prepare the additional label used in the HTML output in case of versions:
 244                         if ($versions)  {
 245                                 $versionLabel = '[v1.'.$row['t3ver_id'].'; WS#'.$row['t3ver_wsid'].']';
 246                         } else $versionLabel='';
 247
 248                         $a++;
 249                         $newID = $row['uid'];
 250
 251                                 // Build HTML output:
 252                         if ($this->genTree_makeHTML)    {
 253                                 $this->genTree_HTML.=LF.'<div><span class="nobr">';
 254                                 $PM = 'join';
 255                                 $LN = ($a==$c)?'blank':'line';
 256                                 $BTM = ($a==$c)?'bottom':'';
 257                                 $this->genTree_HTML.= $depthData.
 258                                         '<img'.t3lib_iconWorks::skinImg($this->backPath,'gfx/ol/'.$PM.$BTM.'.gif','width="18" height="16"').' align="top" alt="" />'.
 259                                         $versionLabel.
 260                                         t3lib_iconWorks::getSpriteIconForRecord($table, $row, array('title'=> $table)) . htmlspecialchars($row['uid'] . ': ' . t3lib_BEfunc::getRecordTitle($table,$row)) . '</span></div>';
 261                         }
 262
 263                                 // Register various data for this item:
 264                         $this->rec_idArray[$table][$newID]=$row;
 265
 266                         $this->recStats['all_valid'][$table][$newID] = $newID;
 267 #                       $this->recStats[$versions?'versions':'live'][$table][$newID] = $newID;
 268                         if ($row['deleted'])    $this->recStats['deleted'][$table][$newID] = $newID;
 269                         if ($versions && $row['t3ver_count']>=1 && $row['t3ver_wsid']==0) {
 270                                 $this->recStats['published_versions'][$table][$newID] = $newID;
 271                         }
 272
 273 #                       if ($row['deleted']) {$this->recStat['deleted']++;}
 274 #                       if ($row['hidden']) {$this->recStat['hidden']++;}
 275
 276
 277
 278                                 // Select all versions of this record:
 279                         if ($this->genTree_includeVersions && $TCA[$table]['ctrl']['versioningWS']) {
 280                                 $genHTML =  $depthData.'<img'.t3lib_iconWorks::skinImg($this->backPath,'gfx/ol/'.$LN.'.gif','width="18" height="16"').' align="top" alt="" />';
 281
 282                                 $this->genTree_records($newID, $genHTML, $table, TRUE);
 283                         }
 284                 }
 285         }
 286
 287         /**
 288          * [Describe function...]
 289          *
 290          * @return      [type]          ...
 291          */
 292         function genTreeStatus($root=0) {
 293                 $this->genTree_includeDeleted = TRUE;           // if set, genTree() includes deleted pages. This is default.
 294                 $this->genTree_includeVersions = TRUE;          // if set, genTree() includes verisonized pages/records. This is default.
 295                 $this->genTree_includeRecords = TRUE;           // if set, genTree() includes records from pages.
 296                 $this->perms_clause = '';                                       // extra where-clauses for the tree-selection
 297                 $this->genTree_makeHTML = 0;                            // if set, genTree() generates HTML, that visualizes the tree.
 298
 299                 $this->genTree($root,'');
 300
 301                 return $this->recStats;
 302         }
 303
 304
 305
 306
 307
 308
 309         /**
 310          * Fills $this->lRecords with the records from all tc-tables that are not attached to a PID in the pid-list.
 311          *
 312          * @param       string          list of pid's (page-record uid's). This list is probably made by genTree()
 313          * @return      void
 314          */
 315         function lostRecords($pid_list) {
 316                 global $TCA;
 317                 $this->lostPagesList='';
 318                 if ($pid_list)  {
 319                         foreach ($TCA as $table => $tableConf) {
 320                                 t3lib_div::loadTCA($table);
 321
 322                                 $pid_list_tmp = $pid_list;
 323                                 if (!isset($TCA[$table]['ctrl']['versioningWS']) || !$TCA[$table]['ctrl']['versioningWS'])      {
 324                                                 // Remove preceding "-1," for non-versioned tables
 325                                         $pid_list_tmp = preg_replace('/^\-1,/','',$pid_list_tmp);
 326                                 }
 327
 328                                 $garbage = $GLOBALS['TYPO3_DB']->exec_SELECTquery (
 329                                                                 'uid,pid,'.$TCA[$table]['ctrl']['label'],
 330                                                                 $table,
 331                                                                 'pid NOT IN ('.$pid_list_tmp.')'
 332                                                         );
 333                                 $lostIdList = array();
 334                                 while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($garbage))  {
 335                                         $this->lRecords[$table][$row['uid']]=Array('uid'=>$row['uid'], 'pid'=>$row['pid'], 'title'=> strip_tags($row[$TCA[$table]['ctrl']['label']]) );
 336                                         $lostIdList[]=$row['uid'];
 337                                 }
 338                                 if ($table=='pages')    {
 339                                         $this->lostPagesList=implode(',',$lostIdList);
 340                                 }
 341                         }
 342                 }
 343         }
 344
 345         /**
 346          * Fixes lost record from $table with uid $uid by setting the PID to zero. If there is a disabled column for the record that will be set as well.
 347          *
 348          * @param       string          Database tablename
 349          * @param       integer         The uid of the record which will have the PID value set to 0 (zero)
 350          * @return      boolean         True if done.
 351          */
 352         function fixLostRecord($table,$uid)     {
 353                 if ($table && $GLOBALS['TCA'][$table] && $uid && is_array($this->lRecords[$table][$uid]) && $GLOBALS['BE_USER']->user['admin']) {
 354
 355                         $updateFields = array();
 356                         $updateFields['pid'] = 0;
 357                         if ($GLOBALS['TCA'][$table]['ctrl']['enablecolumns']['disabled'])       {       // If possible a lost record restored is hidden as default
 358                                 $updateFields[$GLOBALS['TCA'][$table]['ctrl']['enablecolumns']['disabled']] = 1;
 359                         }
 360
 361                         $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table, 'uid='.intval($uid), $updateFields);
 362
 363                         return TRUE;
 364                 } else return FALSE;
 365         }
 366
 367         /**
 368          * Counts records from $TCA-tables that ARE attached to an existing page.
 369          *
 370          * @param       string          list of pid's (page-record uid's). This list is probably made by genTree()
 371          * @return      array           an array with the number of records from all $TCA-tables that are attached to a PID in the pid-list.
 372          */
 373         function countRecords($pid_list)        {
 374                 global $TCA;
 375                 $list=Array();
 376                 $list_n=Array();
 377                 if ($pid_list)  {
 378                         foreach ($TCA as $table => $tableConf) {
 379                                 t3lib_div::loadTCA($table);
 380
 381                                 $pid_list_tmp = $pid_list;
 382                                 if (!isset($TCA[$table]['ctrl']['versioningWS']) || !$TCA[$table]['ctrl']['versioningWS'])      {
 383                                                 // Remove preceding "-1," for non-versioned tables
 384                                         $pid_list_tmp = preg_replace('/^\-1,/','',$pid_list_tmp);
 385                                 }
 386
 387                                 $count = $GLOBALS['TYPO3_DB']->exec_SELECTcountRows('uid', $table, 'pid IN ('.$pid_list_tmp.')');
 388                                 if ($count) {
 389                                         $list[$table] = $count;
 390                                 }
 391
 392                                 $count = $GLOBALS['TYPO3_DB']->exec_SELECTcountRows('uid', $table, 'pid IN ('.$pid_list_tmp.')' . t3lib_BEfunc::deleteClause($table));
 393                                 if ($count) {
 394                                         $list_n[$table] = $count;
 395                                 }
 396                         }
 397                 }
 398                 return array('all' => $list, 'non_deleted' => $list_n);
 399         }
 400
 401         /**
 402          * Finding relations in database based on type 'group' (files or database-uid's in a list)
 403          *
 404          * @param       string          $mode = file, $mode = db, $mode = '' (all...)
 405          * @return      array           An array with all fields listed that somehow are references to other records (foreign-keys) or files
 406          */
 407         function getGroupFields($mode)  {
 408                 global $TCA;
 409                 $result = Array();
 410                 foreach ($TCA as $table => $tableConf) {
 411                         t3lib_div::loadTCA($table);
 412                         $cols = $TCA[$table]['columns'];
 413                         foreach ($cols as $field => $config) {
 414                                 if ($config['config']['type']=='group') {
 415                                         if (
 416                                                 ((!$mode||$mode=='file') && $config['config']['internal_type']=='file') ||
 417                                                 ((!$mode||$mode=='db') && $config['config']['internal_type']=='db')
 418                                                 )       {
 419                                                 $result[$table][]=$field;
 420                                         }
 421                                 }
 422                                 if ( (!$mode||$mode=='db') && $config['config']['type']=='select' && $config['config']['foreign_table'])        {
 423                                         $result[$table][]=$field;
 424                                 }
 425                         }
 426                         if ($result[$table])    {
 427                                 $result[$table] = implode(',',$result[$table]);
 428                         }
 429                 }
 430                 return $result;
 431         }
 432
 433         /**
 434          * Finds all fields that hold filenames from uploadfolder
 435          *
 436          * @param       string          Path to uploadfolder
 437          * @return      array           An array with all fields listed that have references to files in the $uploadfolder
 438          */
 439         function getFileFields($uploadfolder)   {
 440                 global $TCA;
 441                 $result = Array();
 442                 foreach ($TCA as $table => $tableConf) {
 443                         t3lib_div::loadTCA($table);
 444                         $cols = $TCA[$table]['columns'];
 445                         foreach ($cols as $field => $config) {
 446                                 if ($config['config']['type']=='group' && $config['config']['internal_type']=='file' && $config['config']['uploadfolder']==$uploadfolder)       {
 447                                         $result[]=Array($table,$field);
 448                                 }
 449                         }
 450                 }
 451                 return $result;
 452         }
 453
 454         /**
 455          * Returns an array with arrays of table/field pairs which are allowed to hold references to the input table name - according to $TCA
 456          *
 457          * @param       string          Table name
 458          * @return      array
 459          */
 460         function getDBFields($theSearchTable)   {
 461                 global $TCA;
 462                 $result = Array();
 463                 reset ($TCA);
 464                 foreach ($TCA as $table => $tableConf) {
 465                         t3lib_div::loadTCA($table);
 466                         $cols = $TCA[$table]['columns'];
 467                         foreach ($cols as $field => $config) {
 468                                 if ($config['config']['type']=='group' && $config['config']['internal_type']=='db')     {
 469                                         if (trim($config['config']['allowed'])=='*' || strstr($config['config']['allowed'],$theSearchTable))    {
 470                                                 $result[]=Array($table,$field);
 471                                         }
 472                                 } else if ($config['config']['type']=='select' && $config['config']['foreign_table']==$theSearchTable)  {
 473                                         $result[]=Array($table,$field);
 474                                 }
 475                         }
 476                 }
 477                 return $result;
 478         }
 479
 480         /**
 481          * This selects non-empty-records from the tables/fields in the fkey_array generated by getGroupFields()
 482          *
 483          * @param       array           Array with tables/fields generated by getGroupFields()
 484          * @return      void
 485          * @see getGroupFields()
 486          */
 487         function selectNonEmptyRecordsWithFkeys($fkey_arrays)   {
 488                 global $TCA;
 489                 if (is_array($fkey_arrays))     {
 490                         foreach ($fkey_arrays as $table => $field_list) {
 491                                 if ($TCA[$table] && trim($field_list))  {
 492                                         t3lib_div::loadTCA($table);
 493                                         $fieldArr = explode(',',$field_list);
 494
 495                                         if(t3lib_extMgm::isLoaded('dbal')) {
 496                                                 $fields = $GLOBALS['TYPO3_DB']->admin_get_fields($table);
 497                                                 $field = array_shift($fieldArr);
 498                                                 $cl_fl = ($GLOBALS['TYPO3_DB']->MetaType($fields[$field]['type'],$table) == 'I' || $GLOBALS['TYPO3_DB']->MetaType($fields[$field]['type'],$table) == 'N' || $GLOBALS['TYPO3_DB']->MetaType($fields[$field]['type'],$table) == 'R') ?
 499                                                 $field.'!=0' : $field.'!=\'\'';
 500                                                 foreach ($fieldArr as $field) {
 501                                                         $cl_fl .= ($GLOBALS['TYPO3_DB']->MetaType($fields[$field]['type'],$table) == 'I' || $GLOBALS['TYPO3_DB']->MetaType($fields[$field]['type'],$table) == 'N' || $GLOBALS['TYPO3_DB']->MetaType($fields[$field]['type'],$table) == 'R') ?
 502                                                         ' OR '.$field.'!=0' : ' OR '.$field.'!=\'\'';
 503                                                 }
 504                                                 unset($fields);
 505                                         }
 506                                         else {
 507                                                 $cl_fl = implode ('!=\'\' OR ',$fieldArr). '!=\'\'';
 508                                         }
 509
 510                                         $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid,'.$field_list, $table, $cl_fl);
 511                                         while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))     {
 512                                                 foreach ($fieldArr as $field) {
 513                                                         if (trim($row[$field]))         {
 514                                                                 $fieldConf = $TCA[$table]['columns'][$field]['config'];
 515                                                                 if ($fieldConf['type']=='group')        {
 516                                                                         if ($fieldConf['internal_type']=='file')        {
 517                                                                                 // files...
 518                                                                                 if ($fieldConf['MM'])   {
 519                                                                                         $tempArr=array();
 520                                                                                         $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
 521                                                                                         $dbAnalysis->start('','files',$fieldConf['MM'],$row['uid']);
 522                                                                                         foreach ($dbAnalysis->itemArray as $somekey => $someval) {
 523                                                                                                 if ($someval['id'])     {
 524                                                                                                         $tempArr[]=$someval['id'];
 525                                                                                                 }
 526                                                                                         }
 527                                                                                 } else {
 528                                                                                         $tempArr = explode(',',trim($row[$field]));
 529                                                                                 }
 530                                                                                 foreach ($tempArr as $file) {
 531                                                                                         $file = trim($file);
 532                                                                                         if ($file)      {
 533                                                                                                 $this->checkFileRefs[$fieldConf['uploadfolder']][$file]+=1;
 534                                                                                         }
 535                                                                                 }
 536                                                                         }
 537                                                                         if ($fieldConf['internal_type']=='db')  {
 538                                                                                 // dbs - group
 539                                                                                 $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
 540                                                                                 $dbAnalysis->start($row[$field],$fieldConf['allowed'],$fieldConf['MM'],$row['uid'], $table, $fieldConf);
 541                                                                                 foreach ($dbAnalysis->itemArray as $tempArr) {
 542                                                                                         $this->checkGroupDBRefs[$tempArr['table']][$tempArr['id']]+=1;
 543                                                                                 }
 544                                                                         }
 545                                                                 }
 546                                                                 if ($fieldConf['type']=='select' && $fieldConf['foreign_table'])        {
 547                                                                         // dbs - select
 548                                                                         $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
 549                                                                         $dbAnalysis->start($row[$field],$fieldConf['foreign_table'],$fieldConf['MM'],$row['uid'], $table, $fieldConf);
 550                                                                         foreach ($dbAnalysis->itemArray as $tempArr) {
 551                                                                                 if ($tempArr['id']>0)   {
 552                                                                                         $this->checkGroupDBRefs[$fieldConf['foreign_table']][$tempArr['id']]+=1;
 553                                                                                 }
 554                                                                         }
 555                                                                 }
 556                                                         }
 557                                                 }
 558                                         }
 559                                         $GLOBALS['TYPO3_DB']->sql_free_result($mres);
 560                                 }
 561                         }
 562                 }
 563         }
 564
 565         /**
 566          * Depends on selectNonEmpty.... to be executed first!!
 567          *
 568          * @return      array           Report over files; keys are "moreReferences", "noReferences", "noFile", "error"
 569          */
 570         function testFileRefs ()        {
 571                 $output=Array();
 572                         // handle direct references with upload folder setting (workaround)
 573                 $newCheckFileRefs = array();
 574                 foreach ($this->checkFileRefs as $folder => $files) {
 575                                 // only direct references without a folder setting
 576                         if ($folder !== '') {
 577                                 $newCheckFileRefs[$folder] = $files;
 578                                 continue;
 579                         }
 580
 581                         foreach ($files as $file => $references) {
 582
 583                                         // direct file references have often many references (removes occurences in the moreReferences section of the result array)
 584                                 if ($references > 1) {
 585                                         $references = 1;
 586                                 }
 587
 588                                         // the directory must be empty (prevents checking of the root directory)
 589                                 $directory = dirname($file);
 590                                 if ($directory !== '') {
 591                                         $newCheckFileRefs[$directory][basename($file)] = $references;
 592                                 }
 593                         }
 594                 }
 595                 $this->checkFileRefs = $newCheckFileRefs;
 596
 597                 foreach ($this->checkFileRefs as $folder => $fileArr) {
 598                         $path = PATH_site.$folder;
 599                         if (@is_dir($path))     {
 600                                 $d = dir($path);
 601                                 while($entry=$d->read()) {
 602                                         if (@is_file($path.'/'.$entry)) {
 603                                                 if (isset($fileArr[$entry]))    {
 604                                                         if ($fileArr[$entry] > 1)       {
 605                                                                 $temp = $this->whereIsFileReferenced($folder,$entry);
 606                                                                 $tempList = '';
 607                                                                 foreach ($temp as $inf) {
 608                                                                         $tempList.='['.$inf['table'].']['.$inf['uid'].']['.$inf['field'].'] (pid:'.$inf['pid'].') - ';
 609                                                                 }
 610                                                                 $output['moreReferences'][] = Array($path,$entry,$fileArr[$entry],$tempList);
 611                                                         }
 612                                                         unset($fileArr[$entry]);
 613                                                 } else {
 614                                                                 // contains workaround for direct references
 615                                                         if (!strstr($entry, 'index.htm') && !preg_match('/^' . preg_quote($GLOBALS['TYPO3_CONF_VARS']['BE']['fileadminDir'], '/') . '/', $folder)) {
 616                                                                 $output['noReferences'][] = Array($path,$entry);
 617                                                         }
 618                                                 }
 619                                         }
 620                                 }
 621                                 $d->close();
 622                                 $tempCounter=0;
 623                                 foreach ($fileArr as $file => $value) {
 624                                                 // workaround for direct file references
 625                                         if (preg_match('/^' . preg_quote($GLOBALS['TYPO3_CONF_VARS']['BE']['fileadminDir'], '/') . '/', $folder)) {
 626                                                 $file = $folder . '/' . $file;
 627                                                 $folder = '';
 628                                                 $path = substr(PATH_site, 0, - 1);
 629                                         }
 630                                         $temp = $this->whereIsFileReferenced($folder,$file);
 631                                         $tempList = '';
 632                                         foreach ($temp as $inf) {
 633                                                 $tempList.='['.$inf['table'].']['.$inf['uid'].']['.$inf['field'].'] (pid:'.$inf['pid'].') - ';
 634                                         }
 635                                         $tempCounter++;
 636                                         $output['noFile'][substr($path,-3).'_'.substr($file,0,3).'_'.$tempCounter] = Array($path,$file,$tempList);
 637                                 }
 638                         } else {
 639                                 $output['error'][] = Array($path);
 640                         }
 641                 }
 642                 return $output;
 643         }
 644
 645         /**
 646          * Depends on selectNonEmpty.... to be executed first!!
 647          *
 648          * @param       array           Table with key/value pairs being table names and arrays with uid numbers
 649          * @return      string          HTML Error message
 650          */
 651         function testDBRefs($theArray)  {
 652                 global $TCA;
 653                 foreach ($theArray as $table => $dbArr) {
 654                         if ($TCA[$table])       {
 655                                 $idlist = array_keys($dbArr);
 656
 657                                 $theList = implode(',',$idlist);
 658                                 if ($theList)   {
 659                                         $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid', $table, 'uid IN ('.$theList.')'.t3lib_BEfunc::deleteClause($table));
 660                                         while($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))      {
 661                                                 if (isset($dbArr[$row['uid']])) {
 662                                                         unset ($dbArr[$row['uid']]);
 663                                                 } else {
 664                                                         $result.='Strange Error. ...<br />';
 665                                                 }
 666                                         }
 667                                         foreach ($dbArr as $theId => $theC) {
 668                                                 $result.='There are '.$theC.' records pointing to this missing or deleted record; ['.$table.']['.$theId.']<br />';
 669                                         }
 670                                 }
 671                         } else {
 672                                 $result.='Codeerror. Table is not a table...<br />';
 673                         }
 674                 }
 675                 return $result;
 676         }
 677
 678         /**
 679          * Finding all references to record based on table/uid
 680          *
 681          * @param       string          Table name
 682          * @param       integer         Uid of database record
 683          * @return      array           Array with other arrays containing information about where references was found
 684          */
 685         function whereIsRecordReferenced($searchTable,$id)      {
 686                 global $TCA;
 687                 $fileFields = $this->getDBFields($searchTable); // Gets tables / Fields that reference to files...
 688                 $theRecordList=Array();
 689                 foreach ($fileFields as $info) {
 690                         $table=$info[0];        $field=$info[1];
 691                         t3lib_div::loadTCA($table);
 692                         $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
 693                                                         'uid,pid,'.$TCA[$table]['ctrl']['label'].','.$field,
 694                                                         $table,
 695                                                         $field.' LIKE \'%'.$GLOBALS['TYPO3_DB']->quoteStr($id, $table).'%\''
 696                                                 );
 697                         while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))     {
 698                                         // Now this is the field, where the reference COULD come from. But we're not garanteed, so we must carefully examine the data.
 699                                 $fieldConf = $TCA[$table]['columns'][$field]['config'];
 700                                 $allowedTables = ($fieldConf['type']=='group') ? $fieldConf['allowed'] : $fieldConf['foreign_table'];
 701
 702                                 $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
 703                                 $dbAnalysis->start($row[$field],$allowedTables,$fieldConf['MM'],$row['uid'], $table, $fieldConf);
 704                                 foreach ($dbAnalysis->itemArray as $tempArr) {
 705                                         if ($tempArr['table']==$searchTable && $tempArr['id']==$id)     {
 706                                                 $theRecordList[]=Array('table'=>$table,'uid'=>$row['uid'],'field'=>$field,'pid'=>$row['pid']);
 707                                         }
 708                                 }
 709                         }
 710                         $GLOBALS['TYPO3_DB']->sql_free_result($mres);
 711                 }
 712                 return $theRecordList;
 713         }
 714
 715         /**
 716          * Finding all references to file based on uploadfolder / filename
 717          *
 718          * @param       string          Upload folder where file is found
 719          * @param       string          Filename to search for
 720          * @return      array           Array with other arrays containing information about where references was found
 721          */
 722         function whereIsFileReferenced($uploadfolder,$filename) {
 723                 global $TCA;
 724                 $fileFields = $this->getFileFields($uploadfolder);      // Gets tables / Fields that reference to files...
 725                 $theRecordList=Array();
 726                 foreach ($fileFields as $info) {
 727                         $table=$info[0];        $field=$info[1];
 728                         $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
 729                                                         'uid,pid,'.$TCA[$table]['ctrl']['label'].','.$field,
 730                                                         $table,
 731                                                         $field.' LIKE \'%'.$GLOBALS['TYPO3_DB']->quoteStr($filename, $table).'%\''
 732                                                 );
 733                         while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))     {
 734                                 // Now this is the field, where the reference COULD come from. But we're not garanteed, so we must carefully examine the data.
 735                                 $tempArr = explode(',',trim($row[$field]));
 736                                 foreach ($tempArr as $file) {
 737                                         $file = trim($file);
 738                                         if ($file==$filename)   {
 739                                                 $theRecordList[]=Array('table'=>$table,'uid'=>$row['uid'],'field'=>$field,'pid'=>$row['pid']);
 740                                         }
 741                                 }
 742                         }
 743                 }
 744                 return $theRecordList;
 745         }
 746 }
 747
 748
 749 if (defined('TYPO3_MODE') && $TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['t3lib/class.t3lib_admin.php'])     {
 750         include_once($TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['t3lib/class.t3lib_admin.php']);
 751 }
 752 ?>