t3lib/class.t3lib_admin.php

   1 <?php
   2 /***************************************************************
   3 *  Copyright notice
   4 *
   5 *  (c) 1999-2006 Kasper Skaarhoj (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 Skaarhoj
  33  * XHTML compliant
  34  *
  35  * @author      Kasper Skaarhoj <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 Skaarhoj <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.=chr(10).'<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::getIconImage('pages',$row,$this->backPath,'align="top"').
 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.=chr(10).'<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::getIconImage($table,$row,$this->backPath,'align="top" 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                 reset($TCA);
 318                 $this->lostPagesList='';
 319                 if ($pid_list)  {
 320                         while (list($table)=each($TCA)) {
 321                                 t3lib_div::loadTCA($table);
 322
 323                                 $pid_list_tmp = $pid_list;
 324                                 if (!isset($TCA[$table]['ctrl']['versioningWS']) || !$TCA[$table]['ctrl']['versioningWS'])      {
 325                                                 // Remove preceding "-1," for non-versioned tables
 326                                         $pid_list_tmp = preg_replace('/^\-1,/','',$pid_list_tmp);
 327                                 }
 328
 329                                 $garbage = $GLOBALS['TYPO3_DB']->exec_SELECTquery (
 330                                                                 'uid,pid,'.$TCA[$table]['ctrl']['label'],
 331                                                                 $table,
 332                                                                 'pid NOT IN ('.$pid_list_tmp.')'
 333                                                         );
 334                                 $lostIdList = array();
 335                                 while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($garbage))  {
 336                                         $this->lRecords[$table][$row['uid']]=Array('uid'=>$row['uid'], 'pid'=>$row['pid'], 'title'=> strip_tags($row[$TCA[$table]['ctrl']['label']]) );
 337                                         $lostIdList[]=$row['uid'];
 338                                 }
 339                                 if ($table=='pages')    {
 340                                         $this->lostPagesList=implode(',',$lostIdList);
 341                                 }
 342                         }
 343                 }
 344         }
 345
 346         /**
 347          * 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.
 348          *
 349          * @param       string          Database tablename
 350          * @param       integer         The uid of the record which will have the PID value set to 0 (zero)
 351          * @return      boolean         True if done.
 352          */
 353         function fixLostRecord($table,$uid)     {
 354                 if ($table && $GLOBALS['TCA'][$table] && $uid && is_array($this->lRecords[$table][$uid]) && $GLOBALS['BE_USER']->user['admin']) {
 355
 356                         $updateFields = array();
 357                         $updateFields['pid'] = 0;
 358                         if ($GLOBALS['TCA'][$table]['ctrl']['enablecolumns']['disabled'])       {       // If possible a lost record restored is hidden as default
 359                                 $updateFields[$GLOBALS['TCA'][$table]['ctrl']['enablecolumns']['disabled']] = 1;
 360                         }
 361
 362                         $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table, 'uid='.intval($uid), $updateFields);
 363
 364                         return TRUE;
 365                 } else return FALSE;
 366         }
 367
 368         /**
 369          * Counts records from $TCA-tables that ARE attached to an existing page.
 370          *
 371          * @param       string          list of pid's (page-record uid's). This list is probably made by genTree()
 372          * @return      array           an array with the number of records from all $TCA-tables that are attached to a PID in the pid-list.
 373          */
 374         function countRecords($pid_list)        {
 375                 global $TCA;
 376                 reset($TCA);
 377                 $list=Array();
 378                 $list_n=Array();
 379                 if ($pid_list)  {
 380                         while (list($table)=each($TCA)) {
 381                                 t3lib_div::loadTCA($table);
 382
 383                                 $pid_list_tmp = $pid_list;
 384                                 if (!isset($TCA[$table]['ctrl']['versioningWS']) || !$TCA[$table]['ctrl']['versioningWS'])      {
 385                                                 // Remove preceding "-1," for non-versioned tables
 386                                         $pid_list_tmp = preg_replace('/^\-1,/','',$pid_list_tmp);
 387                                 }
 388
 389                                 $count = $GLOBALS['TYPO3_DB']->exec_SELECTquery('count(*)', $table, 'pid IN ('.$pid_list_tmp.')');
 390                                 if ($row = $GLOBALS['TYPO3_DB']->sql_fetch_row($count)) {
 391                                         $list[$table]=$row[0];
 392                                 }
 393
 394                                 $count = $GLOBALS['TYPO3_DB']->exec_SELECTquery('count(*)', $table, 'pid IN ('.$pid_list_tmp.')'.t3lib_BEfunc::deleteClause($table));
 395                                 if ($row = $GLOBALS['TYPO3_DB']->sql_fetch_row($count)) {
 396                                         $list_n[$table]=$row[0];
 397                                 }
 398                         }
 399                 }
 400                 return array('all' => $list, 'non_deleted' => $list_n);
 401         }
 402
 403         /**
 404          * Finding relations in database based on type 'group' (files or database-uid's in a list)
 405          *
 406          * @param       string          $mode = file, $mode = db, $mode = '' (all...)
 407          * @return      array           An array with all fields listed that somehow are references to other records (foreign-keys) or files
 408          */
 409         function getGroupFields($mode)  {
 410                 global $TCA;
 411                 reset ($TCA);
 412                 $result = Array();
 413                 while (list($table)=each($TCA)) {
 414                         t3lib_div::loadTCA($table);
 415                         $cols = $TCA[$table]['columns'];
 416                         reset ($cols);
 417                         while (list($field,$config)=each($cols))        {
 418                                 if ($config['config']['type']=='group') {
 419                                         if (
 420                                                 ((!$mode||$mode=='file') && $config['config']['internal_type']=='file') ||
 421                                                 ((!$mode||$mode=='db') && $config['config']['internal_type']=='db')
 422                                                 )       {
 423                                                 $result[$table][]=$field;
 424                                         }
 425                                 }
 426                                 if ( (!$mode||$mode=='db') && $config['config']['type']=='select' && $config['config']['foreign_table'])        {
 427                                         $result[$table][]=$field;
 428                                 }
 429                         }
 430                         if ($result[$table])    {
 431                                 $result[$table] = implode(',',$result[$table]);
 432                         }
 433                 }
 434                 return $result;
 435         }
 436
 437         /**
 438          * Finds all fields that hold filenames from uploadfolder
 439          *
 440          * @param       string          Path to uploadfolder
 441          * @return      array           An array with all fields listed that have references to files in the $uploadfolder
 442          */
 443         function getFileFields($uploadfolder)   {
 444                 global $TCA;
 445                 reset ($TCA);
 446                 $result = Array();
 447                 while (list($table)=each($TCA)) {
 448                         t3lib_div::loadTCA($table);
 449                         $cols = $TCA[$table]['columns'];
 450                         reset ($cols);
 451                         while (list($field,$config)=each($cols))        {
 452                                 if ($config['config']['type']=='group' && $config['config']['internal_type']=='file' && $config['config']['uploadfolder']==$uploadfolder)       {
 453                                         $result[]=Array($table,$field);
 454                                 }
 455                         }
 456                 }
 457                 return $result;
 458         }
 459
 460         /**
 461          * Returns an array with arrays of table/field pairs which are allowed to hold references to the input table name - according to $TCA
 462          *
 463          * @param       string          Table name
 464          * @return      array
 465          */
 466         function getDBFields($theSearchTable)   {
 467                 global $TCA;
 468                 $result = Array();
 469                 reset ($TCA);
 470                 while (list($table)=each($TCA)) {
 471                         t3lib_div::loadTCA($table);
 472                         $cols = $TCA[$table]['columns'];
 473                         reset ($cols);
 474                         while (list($field,$config)=each($cols))        {
 475                                 if ($config['config']['type']=='group' && $config['config']['internal_type']=='db')     {
 476                                         if (trim($config['config']['allowed'])=='*' || strstr($config['config']['allowed'],$theSearchTable))    {
 477                                                 $result[]=Array($table,$field);
 478                                         }
 479                                 } else if ($config['config']['type']=='select' && $config['config']['foreign_table']==$theSearchTable)  {
 480                                         $result[]=Array($table,$field);
 481                                 }
 482                         }
 483                 }
 484                 return $result;
 485         }
 486
 487         /**
 488          * This selects non-empty-records from the tables/fields in the fkey_array generated by getGroupFields()
 489          *
 490          * @param       array           Array with tables/fields generated by getGroupFields()
 491          * @return      void
 492          * @see getGroupFields()
 493          */
 494         function selectNonEmptyRecordsWithFkeys($fkey_arrays)   {
 495                 global $TCA;
 496                 if (is_array($fkey_arrays))     {
 497                         reset($fkey_arrays);
 498                         while (list($table,$field_list)=each($fkey_arrays))     {
 499                                 if ($TCA[$table] && trim($field_list))  {
 500                                         t3lib_div::loadTCA($table);
 501                                         $fieldArr = explode(',',$field_list);
 502
 503                                         if(t3lib_extMgm::isLoaded('dbal')) {
 504                                                 $fields = $GLOBALS['TYPO3_DB']->admin_get_fields($table);
 505                                                 reset($fields);
 506                                                 list(,$field)=each($fieldArr);
 507                                                 $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') ?
 508                                                 $field.'!=0' : $field.'!=\'\'';
 509                                                 while (list(,$field)=each($fieldArr))   {
 510                                                         $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') ?
 511                                                         ' OR '.$field.'!=0' : ' OR '.$field.'!=\'\'';
 512                                                 }
 513                                                 unset($fields);
 514                                         }
 515                                         else {
 516                                         $cl_fl = implode ('!="" OR ',$fieldArr). '!=""';
 517                                         }
 518
 519                                         $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid,'.$field_list, $table, $cl_fl);
 520                                         while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))     {
 521                                                 reset($fieldArr);
 522                                                 while (list(,$field)=each($fieldArr))   {
 523                                                         if (trim($row[$field]))         {
 524                                                                 $fieldConf = $TCA[$table]['columns'][$field]['config'];
 525                                                                 if ($fieldConf['type']=='group')        {
 526                                                                         if ($fieldConf['internal_type']=='file')        {
 527                                                                                 // files...
 528                                                                                 if ($fieldConf['MM'])   {
 529                                                                                         $tempArr=array();
 530                                                                                         $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
 531                                                                                         $dbAnalysis->start('','files',$fieldConf['MM'],$row['uid']);
 532                                                                                         reset($dbAnalysis->itemArray);
 533                                                                                         while (list($somekey,$someval)=each($dbAnalysis->itemArray))    {
 534                                                                                                 if ($someval['id'])     {
 535                                                                                                         $tempArr[]=$someval['id'];
 536                                                                                                 }
 537                                                                                         }
 538                                                                                 } else {
 539                                                                                         $tempArr = explode(',',trim($row[$field]));
 540                                                                                 }
 541                                                                                 reset($tempArr);
 542                                                                                 while (list(,$file)=each($tempArr))     {
 543                                                                                         $file = trim($file);
 544                                                                                         if ($file)      {
 545                                                                                                 $this->checkFileRefs[$fieldConf['uploadfolder']][$file]+=1;
 546                                                                                         }
 547                                                                                 }
 548                                                                         }
 549                                                                         if ($fieldConf['internal_type']=='db')  {
 550                                                                                 // dbs - group
 551                                                                                 $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
 552                                                                                 $dbAnalysis->start($row[$field],$fieldConf['allowed'],$fieldConf['MM'],$row['uid'], $table, $fieldConf);
 553                                                                                 reset($dbAnalysis->itemArray);
 554                                                                                 while (list(,$tempArr)=each($dbAnalysis->itemArray))    {
 555                                                                                         $this->checkGroupDBRefs[$tempArr['table']][$tempArr['id']]+=1;
 556                                                                                 }
 557                                                                         }
 558                                                                 }
 559                                                                 if ($fieldConf['type']=='select' && $fieldConf['foreign_table'])        {
 560                                                                         // dbs - select
 561                                                                         $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
 562                                                                         $dbAnalysis->start($row[$field],$fieldConf['foreign_table'],$fieldConf['MM'],$row['uid'], $table, $fieldConf);
 563                                                                         reset($dbAnalysis->itemArray);
 564                                                                         while (list(,$tempArr)=each($dbAnalysis->itemArray))    {
 565                                                                                 if ($tempArr['id']>0)   {
 566                                                                                         $this->checkGroupDBRefs[$fieldConf['foreign_table']][$tempArr['id']]+=1;
 567                                                                                 }
 568                                                                         }
 569                                                                 }
 570                                                         }
 571                                                 }
 572                                         }
 573                                 }
 574                         }
 575                 }
 576         }
 577
 578         /**
 579          * Depends on selectNonEmpty.... to be executed first!!
 580          *
 581          * @return      array           Report over files; keys are "moreReferences", "noReferences", "noFile", "error"
 582          */
 583         function testFileRefs ()        {
 584                 $output=Array();
 585                 reset($this->checkFileRefs);
 586                 while(list($folder,$fileArr)=each($this->checkFileRefs))        {
 587                         $path = PATH_site.$folder;
 588                         if (@is_dir($path))     {
 589                                 $d = dir($path);
 590                                 while($entry=$d->read()) {
 591                                         if (@is_file($path.'/'.$entry)) {
 592                                                 if (isset($fileArr[$entry]))    {
 593                                                         if ($fileArr[$entry] > 1)       {
 594                                                                 $temp = $this->whereIsFileReferenced($folder,$entry);
 595                                                                 $tempList = '';
 596                                                                 while(list(,$inf)=each($temp))  {
 597                                                                         $tempList.='['.$inf['table'].']['.$inf['uid'].']['.$inf['field'].'] (pid:'.$inf['pid'].') - ';
 598                                                                 }
 599                                                                 $output['moreReferences'][] = Array($path,$entry,$fileArr[$entry],$tempList);
 600                                                         }
 601                                                         unset($fileArr[$entry]);
 602                                                 } else {
 603                                                         if (!strstr($entry,'index.htm'))        {
 604                                                                 $output['noReferences'][] = Array($path,$entry);
 605                                                         }
 606                                                 }
 607                                         }
 608                                 }
 609                                 $d->close();
 610                                 reset($fileArr);
 611                                 $tempCounter=0;
 612                                 while(list($file,)=each($fileArr))      {
 613                                         $temp = $this->whereIsFileReferenced($folder,$file);
 614                                         $tempList = '';
 615                                         while(list(,$inf)=each($temp))  {
 616                                                 $tempList.='['.$inf['table'].']['.$inf['uid'].']['.$inf['field'].'] (pid:'.$inf['pid'].') - ';
 617                                         }
 618                                         $tempCounter++;
 619                                         $output['noFile'][substr($path,-3).'_'.substr($file,0,3).'_'.$tempCounter] = Array($path,$file,$tempList);
 620                                 }
 621                         } else {
 622                                 $output['error'][] = Array($path);
 623                         }
 624                 }
 625                 return $output;
 626         }
 627
 628         /**
 629          * Depends on selectNonEmpty.... to be executed first!!
 630          *
 631          * @param       array           Table with key/value pairs being table names and arrays with uid numbers
 632          * @return      string          HTML Error message
 633          */
 634         function testDBRefs($theArray)  {
 635                 global $TCA;
 636                 reset($theArray);
 637                 while(list($table,$dbArr)=each($theArray))      {
 638                         if ($TCA[$table])       {
 639                                 $idlist = Array();
 640                                 while(list($id,)=each($dbArr))  {
 641                                         $idlist[]=$id;
 642                                 }
 643                                 $theList = implode(',',$idlist);
 644                                 if ($theList)   {
 645                                         $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid', $table, 'uid IN ('.$theList.')'.t3lib_BEfunc::deleteClause($table));
 646                                         while($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))      {
 647                                                 if (isset($dbArr[$row['uid']])) {
 648                                                         unset ($dbArr[$row['uid']]);
 649                                                 } else {
 650                                                         $result.='Strange Error. ...<br />';
 651                                                 }
 652                                         }
 653                                         reset($dbArr);
 654                                         while (list($theId,$theC)=each($dbArr)) {
 655                                                 $result.='There are '.$theC.' records pointing to this missing or deleted record; ['.$table.']['.$theId.']<br />';
 656                                         }
 657                                 }
 658                         } else {
 659                                 $result.='Codeerror. Table is not a table...<br />';
 660                         }
 661                 }
 662                 return $result;
 663         }
 664
 665         /**
 666          * Finding all references to record based on table/uid
 667          *
 668          * @param       string          Table name
 669          * @param       integer         Uid of database record
 670          * @return      array           Array with other arrays containing information about where references was found
 671          */
 672         function whereIsRecordReferenced($searchTable,$id)      {
 673                 global $TCA;
 674                 $fileFields = $this->getDBFields($searchTable); // Gets tables / Fields that reference to files...
 675                 $theRecordList=Array();
 676                 while (list(,$info)=each($fileFields))  {
 677                         $table=$info[0];        $field=$info[1];
 678                         t3lib_div::loadTCA($table);
 679                         $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
 680                                                         'uid,pid,'.$TCA[$table]['ctrl']['label'].','.$field,
 681                                                         $table,
 682                                                         $field.' LIKE \'%'.$GLOBALS['TYPO3_DB']->quoteStr($id, $table).'%\''
 683                                                 );
 684                         while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))     {
 685                                         // Now this is the field, where the reference COULD come from. But we're not garanteed, so we must carefully examine the data.
 686                                 $fieldConf = $TCA[$table]['columns'][$field]['config'];
 687                                 $allowedTables = ($fieldConf['type']=='group') ? $fieldConf['allowed'] : $fieldConf['foreign_table'];
 688
 689                                 $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
 690                                 $dbAnalysis->start($row[$field],$allowedTables,$fieldConf['MM'],$row['uid'], $table, $fieldConf);
 691                                 reset($dbAnalysis->itemArray);
 692                                 while (list(,$tempArr)=each($dbAnalysis->itemArray))    {
 693                                         if ($tempArr['table']==$searchTable && $tempArr['id']==$id)     {
 694                                                 $theRecordList[]=Array('table'=>$table,'uid'=>$row['uid'],'field'=>$field,'pid'=>$row['pid']);
 695                                         }
 696                                 }
 697                         }
 698                 }
 699                 return $theRecordList;
 700         }
 701
 702         /**
 703          * Finding all references to file based on uploadfolder / filename
 704          *
 705          * @param       string          Upload folder where file is found
 706          * @param       string          Filename to search for
 707          * @return      array           Array with other arrays containing information about where references was found
 708          */
 709         function whereIsFileReferenced($uploadfolder,$filename) {
 710                 global $TCA;
 711                 $fileFields = $this->getFileFields($uploadfolder);      // Gets tables / Fields that reference to files...
 712                 $theRecordList=Array();
 713                 while (list(,$info)=each($fileFields))  {
 714                         $table=$info[0];        $field=$info[1];
 715                         $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
 716                                                         'uid,pid,'.$TCA[$table]['ctrl']['label'].','.$field,
 717                                                         $table,
 718                                                         $field.' LIKE \'%'.$GLOBALS['TYPO3_DB']->quoteStr($filename, $table).'%\''
 719                                                 );
 720                         while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))     {
 721                                 // Now this is the field, where the reference COULD come from. But we're not garanteed, so we must carefully examine the data.
 722                                 $tempArr = explode(',',trim($row[$field]));
 723                                 while (list(,$file)=each($tempArr))     {
 724                                         $file = trim($file);
 725                                         if ($file==$filename)   {
 726                                                 $theRecordList[]=Array('table'=>$table,'uid'=>$row['uid'],'field'=>$field,'pid'=>$row['pid']);
 727                                         }
 728                                 }
 729                         }
 730                 }
 731                 return $theRecordList;
 732         }
 733 }
 734
 735
 736 if (defined('TYPO3_MODE') && $TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['t3lib/class.t3lib_admin.php'])     {
 737         include_once($TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['t3lib/class.t3lib_admin.php']);
 738 }
 739 ?>