<?php /* tools/unlink-old-versions.php - call like - http://yoursite.com/tools/unlink-old-verions... -  no .php */
/**
 * This legacy concrete5 tools file deletes and UNLINKS all non-active file versions.
 * 
 *    *** MAKE SURE YOU HAVE A BACKUP OF YOUR FILES AND DATABASE *** - You have been warned!!!
 * 
 * @author John Steele <john@steelesoftconsulting.com>
 * @copyright Copyright (c) 2015, John Steele, All rights reserved worldwide.
 * @link http://steelesoftconsulting.com/...   http://steelesoft.net/concrete5...  
 * @version 0.9
 */
defined('C5_EXECUTE') or die('Access Denied');
error_reporting(E_ALL & ~E_NOTICE);   ini_set('display_errors', 'On');
 
$u = new User();
if(!$u->isSuperUser()) { die('You are no Superman!'); }   // cheap security
 
$db = Loader::db();    // load helper for database and get all file IDs
$fIDs = array();
$r = $db->query("SELECT fID FROM Files ORDER BY fID");
while ($row = $r->fetchRow()) {
   $fIDs[] = $row['fID'];
}
 
echo '<h3>Old File Versions</h3>';
/*    // this would show all old file version paths
$files = array();
foreach ($fIDs as $fID) {
      // $path = showFileVersions($fID);         // show all file versions
   $path = showFileVersions($fID, true);   // show the old ones
   if (count($path)) {
      $files[] = $path;
   }
}
foreach ($files as $file) {
   echo $file[0]. '<br />';
}
*/
 
foreach ($fIDs as $fID) {    // here's where you don't get to say you're sorry
   deleteOldVersions($fID);
}
 
// =====
/**
 * This function deletes and UNLINKS all non-active versions of a file!
 * Returns the number of versions deleted (could be used in a batch job)
 */
function deleteOldVersions($fID) {
   $num = 0;
   $f = File::getByID($fID);
   if (is_object($f)) {
      foreach($f->getVersionList() as $key => $fv) {
         if (!$fv->isApproved()) {   // if it's not approved, it's old
            $path = $fv->getPath();
            if (unlink($path)) {
               $num++;
               $fv->delete();
               echo 'Deleted: '. $path. '<br />';
            } else {
               echo '<span style="color:red;">Unable to unlink</span>: '. $path.
                 ' - Not deleted from the c5 database!<br />';
            }
         }
      }
   }
   return $num;
}
 
function showFileVersions($fID, $old=false) {
   $path = array();
   $f = File::getByID($fID);
   if (is_object($f)) {
      foreach($f->getVersionList() as $key => $fv) {
         if (!$old ) {
            $path[] = $fv->getPath();
         } else {
            if (!$fv->isApproved()) {
               $path[] = $fv->getPath();
            }
         }
      }
   }
   return $path;
}