bobs-cvs Mailing List for Browseable Online Backup System (Page 4)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/bobs/bobs/inc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21371/inc

Modified Files:
	class_db.php class_server.php 
Added Files:
	class_cleanup.php 
Log Message:
Remove old incremental files and directories during daily backup.

--- NEW FILE: class_cleanup.php ---
<?php
/*

description: cleanup functions

Remove incremental files as specified in server configuration.

See doc/fileformat for the format of the databases.

*/

/////////////////////////////////////////////////////////////////////
// class cleanup variables
/////////////////////////////////////////////////////////////////////
class cleanup extends database {

  var $old_days = '';                         // Days to retain incremental files
  var $old_date = '';                         // Retention date: yyyy.ddd

////////////////////////////////////////////////////////////////////
// class cleanup constructor
////////////////////////////////////////////////////////////////////
function cleanup ($backup_config, $old_days) {

  parent::database($backup_config);

  // Calculate retention date
  $this->old_days = $old_days;
  $day_sec = 60 * 60 * 24;                    // Seconds in day
  $old_seconds = $old_days * $day_sec;        // Seconds to retain files
  $today_stamp = date("U");                   // Today's time stamp
  $old_stamp = $today_stamp - $old_seconds;   // Timestamp of retention date
  $this->old_date = date("Y", $old_stamp) . '.' . date("z", $old_stamp);
}

////////////////////////////////////////////////////////////////////
// Delete old incremental files
////////////////////////////////////////////////////////////////////
function delete_files()
{
  // Zero retention days means to not delete old incremental files

  if ($this->old_days <= 0) return(0);

  print "Removing incremental files older than (YYYY.DDD): $this->old_date\n";

  // CRUD! Keys are NOT in order in db cause they are treated like strings
  // and they're not padded with zeroes.
  // Create array to hold keys of files to delete so I can delete them in
  // alphabetical order so they will show in order in the log.

  $keys = array();

  // Get db file name for current incremental

  $dbfile = $this->db_location("incremental", "file");

  // Open file db

  if (! $handle = dba_open($dbfile, "w", $this->db_type)){
    print("Error: Unable to open database file $dbfile\n");
    return(1);
  }

  // Read through the entire database and save into an array
  // the database keys of files to be deleted.

  // if (($key = dba_firstkey($handle)) == FALSE) return(0);
  // Can't test first key because first key in db is actually 0 (false)
  $key = dba_firstkey($handle);

  do {
    // Record type is determined by last digit of key
    // Get file name (key ends in '1')

    if(substr($key, -1 , 1) == '1'){            // This is a file name
      $file =  dba_fetch($key, $handle);
      if(substr($file, -8) < $this->old_date){  // File is old
        $keys[] = intval($key) - 1;             // Save '0' key
      }
    }
  } while(($key = dba_nextkey($handle)) != FALSE);

  // Sort and itterate through the array,
  // deleting files along the way.

  asort($keys, SORT_NUMERIC);
  reset($keys);                                 // rewind array
  while (list($key, $val) = each($keys)) {
    $path =  dba_fetch($val, $handle);          // Get '0' key (path)
    $file =  dba_fetch($val + 1, $handle);      // Get '1' key (filename)
    $fullpath = $this->incrementdir . '/' . $this->server
      . '/' . $this->share . '/' . $path . '/' . $file;
                                                // combine base dir + path + filename
    if(unlink($fullpath) == TRUE){              // unlink file verbosely
      print("Removed $fullpath\n");
      for($i = 0; $i<6; $i++)                   // Delete keys '0' - '5'
        dba_delete($val + $i, $handle);
    }
    else {
      print("Unable to remove $fullpath\n");
    }
  }


  dba_close($handle);

}
////////////////////////////////////////////////////////////////////
// Delete empty incremental directories
////////////////////////////////////////////////////////////////////
function delete_dirs()
{
  // Zero retention days means to not delete old incremental dirs

  if ($this->old_days <=0) return(0);

  // Open dir db

  $dbfile = $this->db_location("incremental", "dir");
  if (! $handle = dba_open($dbfile, "w", $this->db_type)){
    print("Error: Unable to open database file $dbfile\n");
    return(1);
  }

  // If dir is empty, unlink it verbosely and remove the dir db record

  if (($key = dba_firstkey($handle)) == FALSE) return(0);

  do {
    $fullpath = $this->incrementdir . '/' . $this->server
      . '/' . $this->share . '/' . $key;
    if ($this->dir_is_empty($fullpath) == TRUE){
      if(rmdir($fullpath) == TRUE){             // Delete dir
        print("Removed empty directory $fullpath\n");
        dba_delete($key, $handle);
      }
      else {
        print("Unable to remove directory $fullpath\n");
      }
    }
  } while(($key = dba_nextkey($handle)) != FALSE);

  // Close dir db

  dba_close($handle);

}
////////////////////////////////////////////////////////////////////
// Private function dir_is_empty
// Returns TRUE if directory is empty
////////////////////////////////////////////////////////////////////

  function dir_is_empty($dir){

    if (is_dir($dir)){
      if (($dirhandle = opendir($dir)) == FALSE)
        return(FALSE);                    // Error
      while(($file = readdir($dirhandle)) !== FALSE){
        if (($file != ".") && ($file != "..")){
          closedir($dirhandle);
          return(FALSE);                  // Directory not empty
        }
      }
    }
    closedir($dirhandle);
    return(TRUE);                         // Directory is empty
  }

} // end class
?>

Index: class_db.php
===================================================================
RCS file: /cvsroot/bobs/bobs/inc/class_db.php,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- class_db.php	26 Mar 2004 21:33:50 -0000	1.5
+++ class_db.php	23 May 2004 21:25:38 -0000	1.6
@@ -42,9 +42,9 @@
 
 		// check what dba type we should use
 		$tmpfile = tempnam("/tmp", "BOBS");
-		$dbcheck = @dba_open($tmpfile, "c", "db3");
+		$dbcheck = @dba_open($tmpfile, "n", "db3");
 		if ( $dbcheck === FALSE ) {
-			$dbcheck = @dba_open($tmpfile, "c", "db4");
+			$dbcheck = @dba_open($tmpfile, "n", "db4");
 			if ( $dbcheck === FALSE ) {
 				echo "Could not create a database of type db3 or db4 (tried both)\n";
 			} else {
@@ -56,6 +56,7 @@
 			$this->db_type = "db3";
 		}
 
+		unlink($tmpfile);
 		return;
 	}
 
@@ -79,7 +80,7 @@
 					$this->db[$where][$type] = dba_open($db, "r", $this->db_type);
 				}
 			} else {
-				$this->db[$where][$type] = dba_open($db, "c", $this->db_type);
+				$this->db[$where][$type] = dba_open($db, "n", $this->db_type);
 			}
 		}
 		return;

Index: class_server.php
===================================================================
RCS file: /cvsroot/bobs/bobs/inc/class_server.php,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- class_server.php	7 Apr 2004 22:38:25 -0000	1.9
+++ class_server.php	23 May 2004 21:25:38 -0000	1.10
@@ -287,6 +287,25 @@
 }
 
 // ---------------------------------------------------------
+// get_incrementals - Get number of days to keep incremental backups
+// Used by: backup.php
+// Parms:   none
+// Returns: Number of days to keep incremental backups. 0 = forever.
+// Note: set_config() should have been previously called.
+// ---------------------------------------------------------
+function get_incrementals(){
+    
+    $days = intval($this->config['incrementals']);
+    $days_per_week = strlen($this->config['run_days']);
+    if (($days > 0) && ($days_per_week > 0)){
+        $retention_days = intval(round($days / $days_per_week * 7));
+    } else {
+        $retention_days = 0;
+    }
+    return $retention_days;
+}
+
+// ---------------------------------------------------------
 } // Class end bracket
 
 ?>





2002	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct (9)	Nov	Dec (26)
2003	Jan (3)	Feb (38)	Mar (11)	Apr (38)	May (21)	Jun (4)	Jul (1)	Aug	Sep	Oct	Nov	Dec (5)
2004	Jan (8)	Feb (1)	Mar (21)	Apr (16)	May (9)	Jun (20)	Jul	Aug (19)	Sep	Oct (1)	Nov (2)	Dec
2005	Jan (3)	Feb	Mar	Apr	May (7)	Jun	Jul	Aug	Sep	Oct	Nov	Dec
2006	Jan	Feb	Mar (1)	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec
2007	Jan	Feb	Mar	Apr	May	Jun (1)	Jul (4)	Aug	Sep	Oct	Nov	Dec
2010	Jan	Feb (14)	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec

bobs-cvs Mailing List for Browseable Online Backup System (Page 4)

bobs-cvs — CVS commit messages