]> git.sur5r.net Git - bacula/bacula/blobdiff - bacula/src/cats/sql_update.c
Change copyright as per agreement with FSFE
[bacula/bacula] / bacula / src / cats / sql_update.c
index 09ff60c4d4558d3ab7fd5e6564448117f86bc6d7..205a6d3a728db45c940f250118b0b00f3fea83c6 100644 (file)
@@ -1,47 +1,33 @@
+/*
+   Bacula(R) - The Network Backup Solution
+
+   Copyright (C) 2000-2016 Kern Sibbald
+
+   The original author of Bacula is Kern Sibbald, with contributions
+   from many others, a complete list can be found in the file AUTHORS.
+
+   You may use this file and others of this release according to the
+   license defined in the LICENSE file, which includes the Affero General
+   Public License, v3.0 ("AGPLv3") and some additional permissions and
+   terms pursuant to its AGPLv3 Section 7.
+
+   This notice must be preserved when any source code is 
+   conveyed and/or propagated.
+
+   Bacula(R) is a registered trademark of Kern Sibbald.
+*/
 /*
  * Bacula Catalog Database Update record interface routines
  *
- *    Kern Sibbald, March 2000
+ *    Written by Kern Sibbald, March 2000
  *
- *    Version $Id$
- */
-/*
-   Bacula® - The Network Backup Solution
-
-   Copyright (C) 2000-2006 Free Software Foundation Europe e.V.
-
-   The main author of Bacula is Kern Sibbald, with contributions from
-   many others, a complete list can be found in the file AUTHORS.
-   This program is Free Software; you can redistribute it and/or
-   modify it under the terms of version two of the GNU General Public
-   License as published by the Free Software Foundation plus additions
-   that are listed in the file LICENSE.
-
-   This program is distributed in the hope that it will be useful, but
-   WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-   General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-   02110-1301, USA.
-
-   Bacula® is a registered trademark of John Walker.
-   The licensor of Bacula is the Free Software Foundation Europe
-   (FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Zürich,
-   Switzerland, email:ftf@fsfeurope.org.
-*/
-
-/* The following is necessary so that we do not include
- * the dummy external definition of DB.
  */
-#define __SQL_C                       /* indicate that this is sql.c */
 
-#include "bacula.h"
-#include "cats.h"
+#include  "bacula.h"
 
-#if    HAVE_SQLITE3 || HAVE_MYSQL || HAVE_SQLITE || HAVE_POSTGRESQL
+#if HAVE_SQLITE3 || HAVE_MYSQL || HAVE_POSTGRESQL
+#include  "cats.h"
 
 /* -----------------------------------------------------------------------
  *
  * -----------------------------------------------------------------------
  */
 /* Update the attributes record by adding the file digest */
-int
-db_add_digest_to_file_record(JCR *jcr, B_DB *mdb, FileId_t FileId, char *digest,
+int BDB::bdb_add_digest_to_file_record(JCR *jcr, FileId_t FileId, char *digest,
                           int type)
 {
-   int stat;
+   int ret;
    char ed1[50];
-
-   db_lock(mdb);
-   Mmsg(mdb->cmd, "UPDATE File SET MD5='%s' WHERE FileId=%s", digest, 
-      edit_int64(FileId, ed1));
-   stat = UPDATE_DB(jcr, mdb, mdb->cmd);
-   db_unlock(mdb);
-   return stat;
+   int len = strlen(digest);
+
+   bdb_lock();
+   esc_name = check_pool_memory_size(esc_name, len*2+1);
+   bdb_escape_string(jcr, esc_name, digest, len);
+   Mmsg(cmd, "UPDATE File SET MD5='%s' WHERE FileId=%s", esc_name,
+        edit_int64(FileId, ed1));
+   ret = UpdateDB(jcr, cmd);
+   bdb_unlock();
+   return ret;
 }
 
 /* Mark the file record as being visited during database
  * verify compare. Stuff JobId into the MarkId field
  */
-int db_mark_file_record(JCR *jcr, B_DB *mdb, FileId_t FileId, JobId_t JobId)
+int BDB::bdb_mark_file_record(JCR *jcr, FileId_t FileId, JobId_t JobId)
 {
    int stat;
    char ed1[50], ed2[50];
 
-   db_lock(mdb);
-   Mmsg(mdb->cmd, "UPDATE File SET MarkId=%s WHERE FileId=%s", 
+   bdb_lock();
+   Mmsg(cmd, "UPDATE File SET MarkId=%s WHERE FileId=%s",
       edit_int64(JobId, ed1), edit_int64(FileId, ed2));
-   stat = UPDATE_DB(jcr, mdb, mdb->cmd);
-   db_unlock(mdb);
+   stat = UpdateDB(jcr, cmd);
+   bdb_unlock();
    return stat;
 }
 
@@ -94,46 +82,59 @@ int db_mark_file_record(JCR *jcr, B_DB *mdb, FileId_t FileId, JobId_t JobId)
  *  Returns: false on failure
  *           true  on success
  */
-bool
-db_update_job_start_record(JCR *jcr, B_DB *mdb, JOB_DBR *jr)
+bool BDB::bdb_update_job_start_record(JCR *jcr, JOB_DBR *jr)
 {
    char dt[MAX_TIME_LENGTH];
    time_t stime;
    struct tm tm;
    btime_t JobTDate;
    int stat;
-   char ed1[50], ed2[50], ed3[50], ed4[50];
+   char ed1[50], ed2[50], ed3[50], ed4[50], ed5[50];
 
    stime = jr->StartTime;
    (void)localtime_r(&stime, &tm);
    strftime(dt, sizeof(dt), "%Y-%m-%d %H:%M:%S", &tm);
    JobTDate = (btime_t)stime;
 
-   db_lock(mdb);
-   Mmsg(mdb->cmd, "UPDATE Job SET JobStatus='%c',Level='%c',StartTime='%s',"
-"ClientId=%s,JobTDate=%s,PoolId=%s WHERE JobId=%s",
+   bdb_lock();
+   Mmsg(cmd, "UPDATE Job SET JobStatus='%c',Level='%c',StartTime='%s',"
+"ClientId=%s,JobTDate=%s,PoolId=%s,FileSetId=%s WHERE JobId=%s",
       (char)(jcr->JobStatus),
-      (char)(jr->JobLevel), dt, 
+      (char)(jr->JobLevel), dt,
       edit_int64(jr->ClientId, ed1),
-      edit_uint64(JobTDate, ed2), 
+      edit_uint64(JobTDate, ed2),
       edit_int64(jr->PoolId, ed3),
-      edit_int64(jr->JobId, ed4));
+      edit_int64(jr->FileSetId, ed4),
+      edit_int64(jr->JobId, ed5));
 
-   stat = UPDATE_DB(jcr, mdb, mdb->cmd);
-   mdb->changes = 0;
-   db_unlock(mdb);
+   stat = UpdateDB(jcr, cmd);
+   changes = 0;
+   bdb_unlock();
    return stat;
 }
 
 /*
- * Given an incoming integer, set the string buffer to either NULL or the value
- *
+ * Update Long term statistics with all jobs that were run before
+ * age seconds
  */
-static void edit_num_or_null(char *s, size_t n, uint64_t id) {
-   char ed1[50];
-   bsnprintf(s, n, id ? "%s" : "NULL", edit_int64(id, ed1));
-}
+int BDB::bdb_update_stats(JCR *jcr, utime_t age)
+{
+   char ed1[30];
+   int rows;
+
+   utime_t now = (utime_t)time(NULL);
+   edit_uint64(now - age, ed1);
+
+   bdb_lock();
+
+   Mmsg(cmd, fill_jobhisto, ed1);
+   QueryDB(jcr, cmd); /* TODO: get a message ? */
+   rows = sql_affected_rows();
+
+   bdb_unlock();
 
+   return rows;
+}
 
 /*
  * Update the Job record at end of Job
@@ -141,23 +142,16 @@ static void edit_num_or_null(char *s, size_t n, uint64_t id) {
  *  Returns: 0 on failure
  *           1 on success
  */
-int
-db_update_job_end_record(JCR *jcr, B_DB *mdb, JOB_DBR *jr)
+int BDB::bdb_update_job_end_record(JCR *jcr, JOB_DBR *jr)
 {
    char dt[MAX_TIME_LENGTH];
    char rdt[MAX_TIME_LENGTH];
    time_t ttime;
    struct tm tm;
    int stat;
-   char ed1[30], ed2[30], ed3[50];
+   char ed1[30], ed2[30], ed3[50], ed4[50];
    btime_t JobTDate;
-   char PoolId[50], FileSetId[50], ClientId[50], PriorJobId[50];
-
-
-   /* some values are set to zero, which translates to NULL in SQL */
-   edit_num_or_null(PoolId,    sizeof(PoolId),    jr->PoolId);
-   edit_num_or_null(FileSetId, sizeof(FileSetId), jr->FileSetId);
-   edit_num_or_null(ClientId,  sizeof(ClientId),  jr->ClientId);
+   char PriorJobId[50];
 
    if (jr->PriorJobId) {
       bstrncpy(PriorJobId, edit_int64(jr->PriorJobId, ed1), sizeof(PriorJobId));
@@ -169,7 +163,7 @@ db_update_job_end_record(JCR *jcr, B_DB *mdb, JOB_DBR *jr)
    (void)localtime_r(&ttime, &tm);
    strftime(dt, sizeof(dt), "%Y-%m-%d %H:%M:%S", &tm);
 
-   if (jr->RealEndTime == 0) {
+   if (jr->RealEndTime == 0 || jr->RealEndTime < jr->EndTime) {
       jr->RealEndTime = jr->EndTime;
    }
    ttime = jr->RealEndTime;
@@ -178,54 +172,57 @@ db_update_job_end_record(JCR *jcr, B_DB *mdb, JOB_DBR *jr)
 
    JobTDate = ttime;
 
-   db_lock(mdb);
-   Mmsg(mdb->cmd,
+   bdb_lock();
+   Mmsg(cmd,
       "UPDATE Job SET JobStatus='%c',EndTime='%s',"
-"ClientId=%s,JobBytes=%s,JobFiles=%u,JobErrors=%u,VolSessionId=%u,"
-"VolSessionTime=%u,PoolId=%s,FileSetId=%s,JobTDate=%s,"
-"RealEndTime='%s',PriorJobId=%s WHERE JobId=%s",
-      (char)(jr->JobStatus), dt, ClientId, edit_uint64(jr->JobBytes, ed1),
+"ClientId=%u,JobBytes=%s,ReadBytes=%s,JobFiles=%u,JobErrors=%u,VolSessionId=%u,"
+"VolSessionTime=%u,PoolId=%u,FileSetId=%u,JobTDate=%s,"
+"RealEndTime='%s',PriorJobId=%s,HasBase=%u,PurgedFiles=%u WHERE JobId=%s",
+      (char)(jr->JobStatus), dt, jr->ClientId, edit_uint64(jr->JobBytes, ed1),
+      edit_uint64(jr->ReadBytes, ed4),
       jr->JobFiles, jr->JobErrors, jr->VolSessionId, jr->VolSessionTime,
-      PoolId, FileSetId, edit_uint64(JobTDate, ed2), 
-      rdt,
-      PriorJobId,
+      jr->PoolId, jr->FileSetId, edit_uint64(JobTDate, ed2),
+      rdt, PriorJobId, jr->HasBase, jr->PurgedFiles,
       edit_int64(jr->JobId, ed3));
 
-   stat = UPDATE_DB(jcr, mdb, mdb->cmd);
-   db_unlock(mdb);
+   stat = UpdateDB(jcr, cmd);
+
+   bdb_unlock();
    return stat;
 }
 
-
 /*
  * Update Client record
  *   Returns: 0 on failure
  *            1 on success
  */
-int
-db_update_client_record(JCR *jcr, B_DB *mdb, CLIENT_DBR *cr)
+int BDB::bdb_update_client_record(JCR *jcr, CLIENT_DBR *cr)
 {
    int stat;
    char ed1[50], ed2[50];
+   char esc_name[MAX_ESCAPE_NAME_LENGTH];
+   char esc_uname[MAX_ESCAPE_NAME_LENGTH];
    CLIENT_DBR tcr;
 
-   db_lock(mdb);
+   bdb_lock();
    memcpy(&tcr, cr, sizeof(tcr));
-   if (!db_create_client_record(jcr, mdb, &tcr)) {
-      db_unlock(mdb);
+   if (!bdb_create_client_record(jcr, &tcr)) {
+      bdb_unlock();
       return 0;
    }
 
-   Mmsg(mdb->cmd,
+   bdb_escape_string(jcr, esc_name, cr->Name, strlen(cr->Name));
+   bdb_escape_string(jcr, esc_uname, cr->Uname, strlen(cr->Uname));
+   Mmsg(cmd,
 "UPDATE Client SET AutoPrune=%d,FileRetention=%s,JobRetention=%s,"
 "Uname='%s' WHERE Name='%s'",
       cr->AutoPrune,
       edit_uint64(cr->FileRetention, ed1),
       edit_uint64(cr->JobRetention, ed2),
-      cr->Uname, cr->Name);
+      esc_uname, esc_name);
 
-   stat = UPDATE_DB(jcr, mdb, mdb->cmd);
-   db_unlock(mdb);
+   stat = UpdateDB(jcr, cmd);
+   bdb_unlock();
    return stat;
 }
 
@@ -235,65 +232,68 @@ db_update_client_record(JCR *jcr, B_DB *mdb, CLIENT_DBR *cr)
  *   Returns: 0 on failure
  *            1 on success
  */
-int db_update_counter_record(JCR *jcr, B_DB *mdb, COUNTER_DBR *cr)
+int BDB::bdb_update_counter_record(JCR *jcr, COUNTER_DBR *cr)
 {
-   db_lock(mdb);
+   char esc[MAX_ESCAPE_NAME_LENGTH];
 
-   Mmsg(mdb->cmd,
-"UPDATE Counters SET MinValue=%d,MaxValue=%d,CurrentValue=%d,"
-"WrapCounter='%s' WHERE Counter='%s'",
+   bdb_lock();
+   bdb_escape_string(jcr, esc, cr->Counter, strlen(cr->Counter));
+   Mmsg(cmd, update_counter_values[bdb_get_type_index()],
       cr->MinValue, cr->MaxValue, cr->CurrentValue,
-      cr->WrapCounter, cr->Counter);
+      cr->WrapCounter, esc);
 
-   int stat = UPDATE_DB(jcr, mdb, mdb->cmd);
-   db_unlock(mdb);
+   int stat = UpdateDB(jcr, cmd);
+   bdb_unlock();
    return stat;
 }
 
 
-int
-db_update_pool_record(JCR *jcr, B_DB *mdb, POOL_DBR *pr)
+int BDB::bdb_update_pool_record(JCR *jcr, POOL_DBR *pr)
 {
    int stat;
-   char ed1[50], ed2[50], ed3[50], ed4[50], ed5[50];
+   char ed1[50], ed2[50], ed3[50], ed4[50], ed5[50], ed6[50];
+   char esc[MAX_ESCAPE_NAME_LENGTH];
 
-   db_lock(mdb);
-   Mmsg(mdb->cmd, "SELECT count(*) from Media WHERE PoolId=%s",
+   bdb_lock();
+   bdb_escape_string(jcr, esc, pr->LabelFormat, strlen(pr->LabelFormat));
+
+   Mmsg(cmd, "SELECT count(*) from Media WHERE PoolId=%s",
       edit_int64(pr->PoolId, ed4));
-   pr->NumVols = get_sql_record_max(jcr, mdb);
+   pr->NumVols = get_sql_record_max(jcr, this);
    Dmsg1(400, "NumVols=%d\n", pr->NumVols);
 
-   Mmsg(mdb->cmd,
+   Mmsg(cmd,
 "UPDATE Pool SET NumVols=%u,MaxVols=%u,UseOnce=%d,UseCatalog=%d,"
 "AcceptAnyVolume=%d,VolRetention='%s',VolUseDuration='%s',"
 "MaxVolJobs=%u,MaxVolFiles=%u,MaxVolBytes=%s,Recycle=%d,"
-"AutoPrune=%d,LabelType=%d,LabelFormat='%s',RecyclePoolId=%s WHERE PoolId=%s",
+"AutoPrune=%d,LabelType=%d,LabelFormat='%s',RecyclePoolId=%s,"
+"ScratchPoolId=%s,ActionOnPurge=%d WHERE PoolId=%s",
       pr->NumVols, pr->MaxVols, pr->UseOnce, pr->UseCatalog,
       pr->AcceptAnyVolume, edit_uint64(pr->VolRetention, ed1),
       edit_uint64(pr->VolUseDuration, ed2),
       pr->MaxVolJobs, pr->MaxVolFiles,
       edit_uint64(pr->MaxVolBytes, ed3),
       pr->Recycle, pr->AutoPrune, pr->LabelType,
-      pr->LabelFormat, edit_int64(pr->RecyclePoolId,ed5),
+      esc, edit_int64(pr->RecyclePoolId,ed5),
+      edit_int64(pr->ScratchPoolId,ed6),
+      pr->ActionOnPurge,
       ed4);
-
-   stat = UPDATE_DB(jcr, mdb, mdb->cmd);
-   db_unlock(mdb);
+   stat = UpdateDB(jcr, cmd);
+   bdb_unlock();
    return stat;
 }
 
-bool
-db_update_storage_record(JCR *jcr, B_DB *mdb, STORAGE_DBR *sr)
+bool BDB::bdb_update_storage_record(JCR *jcr, STORAGE_DBR *sr)
 {
    int stat;
    char ed1[50];
 
-   db_lock(mdb);
-   Mmsg(mdb->cmd, "UPDATE Storage SET AutoChanger=%d WHERE StorageId=%s", 
+   bdb_lock();
+   Mmsg(cmd, "UPDATE Storage SET AutoChanger=%d WHERE StorageId=%s",
       sr->AutoChanger, edit_int64(sr->StorageId, ed1));
 
-   stat = UPDATE_DB(jcr, mdb, mdb->cmd);
-   db_unlock(mdb);
+   stat = UpdateDB(jcr, cmd);
+   bdb_unlock();
    return stat;
 }
 
@@ -304,28 +304,32 @@ db_update_storage_record(JCR *jcr, B_DB *mdb, STORAGE_DBR *sr)
  * Returns: 0 on failure
  *          numrows on success
  */
-int
-db_update_media_record(JCR *jcr, B_DB *mdb, MEDIA_DBR *mr)
+int BDB::bdb_update_media_record(JCR *jcr, MEDIA_DBR *mr)
 {
    char dt[MAX_TIME_LENGTH];
    time_t ttime;
    struct tm tm;
    int stat;
-   char ed1[50], ed2[50],  ed3[50],  ed4[50]; 
+   char ed1[50], ed2[50],  ed3[50],  ed4[50];
    char ed5[50], ed6[50],  ed7[50],  ed8[50];
-   char ed9[50], ed10[50], ed11[50];
-
+   char ed9[50], ed10[50], ed11[50], ed12[50];
+   char ed13[50], ed14[50];
+   char esc_name[MAX_ESCAPE_NAME_LENGTH];
+   char esc_status[MAX_ESCAPE_NAME_LENGTH];
 
    Dmsg1(100, "update_media: FirstWritten=%d\n", mr->FirstWritten);
-   db_lock(mdb);
+   bdb_lock();
+   bdb_escape_string(jcr, esc_name, mr->VolumeName, strlen(mr->VolumeName));
+   bdb_escape_string(jcr, esc_status, mr->VolStatus, strlen(mr->VolStatus));
+
    if (mr->set_first_written) {
       Dmsg1(400, "Set FirstWritten Vol=%s\n", mr->VolumeName);
       ttime = mr->FirstWritten;
       (void)localtime_r(&ttime, &tm);
       strftime(dt, sizeof(dt), "%Y-%m-%d %H:%M:%S", &tm);
-      Mmsg(mdb->cmd, "UPDATE Media SET FirstWritten='%s'"
-           " WHERE VolumeName='%s'", dt, mr->VolumeName);
-      stat = UPDATE_DB(jcr, mdb, mdb->cmd);
+      Mmsg(cmd, "UPDATE Media SET FirstWritten='%s'"
+           " WHERE VolumeName='%s'", dt, esc_name);
+      stat = UpdateDB(jcr, cmd);
       Dmsg1(400, "Firstwritten=%d\n", mr->FirstWritten);
    }
 
@@ -337,55 +341,69 @@ db_update_media_record(JCR *jcr, B_DB *mdb, MEDIA_DBR *mr)
       }
       (void)localtime_r(&ttime, &tm);
       strftime(dt, sizeof(dt), "%Y-%m-%d %H:%M:%S", &tm);
-      Mmsg(mdb->cmd, "UPDATE Media SET LabelDate='%s' "
-           "WHERE VolumeName='%s'", dt, mr->VolumeName);
-      UPDATE_DB(jcr, mdb, mdb->cmd);
+      Mmsg(cmd, "UPDATE Media SET LabelDate='%s' "
+           "WHERE VolumeName='%s'", dt, esc_name);
+      UpdateDB(jcr, cmd);
    }
 
    if (mr->LastWritten != 0) {
       ttime = mr->LastWritten;
       (void)localtime_r(&ttime, &tm);
       strftime(dt, sizeof(dt), "%Y-%m-%d %H:%M:%S", &tm);
-      Mmsg(mdb->cmd, "UPDATE Media Set LastWritten='%s' "
-           "WHERE VolumeName='%s'", dt, mr->VolumeName);
-      UPDATE_DB(jcr, mdb, mdb->cmd);
+      Mmsg(cmd, "UPDATE Media Set LastWritten='%s' "
+           "WHERE VolumeName='%s'", dt, esc_name);
+      UpdateDB(jcr, cmd);
    }
 
-   Mmsg(mdb->cmd, "UPDATE Media SET VolJobs=%u,"
-        "VolFiles=%u,VolBlocks=%u,VolBytes=%s,VolMounts=%u,VolErrors=%u,"
-        "VolWrites=%u,MaxVolBytes=%s,VolStatus='%s',"
+   /* sanity checks for #1066 */
+   if (mr->VolReadTime < 0) {
+      mr->VolReadTime = 0;
+   }
+   if (mr->VolWriteTime < 0) {
+      mr->VolWriteTime = 0;
+   }
+
+   Mmsg(cmd, "UPDATE Media SET VolJobs=%u,"
+        "VolFiles=%u,VolBlocks=%u,VolBytes=%s,VolABytes=%s,"
+        "VolHoleBytes=%s,VolHoles=%u,VolMounts=%u,VolErrors=%u,"
+        "VolWrites=%s,MaxVolBytes=%s,VolStatus='%s',"
         "Slot=%d,InChanger=%d,VolReadTime=%s,VolWriteTime=%s,VolParts=%d,"
         "LabelType=%d,StorageId=%s,PoolId=%s,VolRetention=%s,VolUseDuration=%s,"
         "MaxVolJobs=%d,MaxVolFiles=%d,Enabled=%d,LocationId=%s,"
-        "ScratchPoolId=%s,RecyclePoolId=%s,RecycleCount=%d"
+        "ScratchPoolId=%s,RecyclePoolId=%s,RecycleCount=%d,Recycle=%d,"
+        "ActionOnPurge=%d"
         " WHERE VolumeName='%s'",
-        mr->VolJobs, mr->VolFiles, mr->VolBlocks, edit_uint64(mr->VolBytes, ed1),
-        mr->VolMounts, mr->VolErrors, mr->VolWrites,
-        edit_uint64(mr->MaxVolBytes, ed2),
-        mr->VolStatus, mr->Slot, mr->InChanger,
-        edit_int64(mr->VolReadTime, ed3),
-        edit_int64(mr->VolWriteTime, ed4),
-        mr->VolParts,
+        mr->VolJobs, mr->VolFiles, mr->VolBlocks,
+        edit_uint64(mr->VolBytes, ed1),
+        edit_uint64(mr->VolABytes, ed2),
+        edit_uint64(mr->VolHoleBytes, ed3),
+        mr->VolHoles, mr->VolMounts, mr->VolErrors,
+        edit_uint64(mr->VolWrites, ed4),
+        edit_uint64(mr->MaxVolBytes, ed5),
+        esc_status, mr->Slot, mr->InChanger,
+        edit_int64(mr->VolReadTime, ed6),
+        edit_int64(mr->VolWriteTime, ed7),
+        mr->VolType,  /* formerly VolParts */
         mr->LabelType,
-        edit_int64(mr->StorageId, ed5),
-        edit_int64(mr->PoolId, ed6),
-        edit_uint64(mr->VolRetention, ed7),
-        edit_uint64(mr->VolUseDuration, ed8),
+        edit_int64(mr->StorageId, ed8),
+        edit_int64(mr->PoolId, ed9),
+        edit_uint64(mr->VolRetention, ed10),
+        edit_uint64(mr->VolUseDuration, ed11),
         mr->MaxVolJobs, mr->MaxVolFiles,
-        mr->Enabled, edit_uint64(mr->LocationId, ed9),
-        edit_uint64(mr->ScratchPoolId, ed10),
-        edit_uint64(mr->RecyclePoolId, ed11),
-        mr->RecycleCount,
-        mr->VolumeName);
+        mr->Enabled, edit_uint64(mr->LocationId, ed12),
+        edit_uint64(mr->ScratchPoolId, ed13),
+        edit_uint64(mr->RecyclePoolId, ed14),
+        mr->RecycleCount,mr->Recycle, mr->ActionOnPurge,
+        esc_name);
 
-   Dmsg1(400, "%s\n", mdb->cmd);
+   Dmsg1(400, "%s\n", cmd);
 
-   stat = UPDATE_DB(jcr, mdb, mdb->cmd);
+   stat = UpdateDB(jcr, cmd);
 
    /* Make sure InChanger is 0 for any record having the same Slot */
-   db_make_inchanger_unique(jcr, mdb, mr);
+   db_make_inchanger_unique(jcr, this, mr);
 
-   db_unlock(mdb);
+   bdb_unlock();
    return stat;
 }
 
@@ -395,31 +413,31 @@ db_update_media_record(JCR *jcr, B_DB *mdb, MEDIA_DBR *mr)
  * Returns: 0 on failure
  *          numrows on success
  */
-int
-db_update_media_defaults(JCR *jcr, B_DB *mdb, MEDIA_DBR *mr)
+int BDB::bdb_update_media_defaults(JCR *jcr, MEDIA_DBR *mr)
 {
    int stat;
    char ed1[50], ed2[50], ed3[50], ed4[50], ed5[50];
+   char esc[MAX_ESCAPE_NAME_LENGTH];
 
-
-   db_lock(mdb);
+   bdb_lock();
    if (mr->VolumeName[0]) {
-      Mmsg(mdb->cmd, "UPDATE Media SET "
-           "Recycle=%d,VolRetention=%s,VolUseDuration=%s,"
+      bdb_escape_string(jcr, esc, mr->VolumeName, strlen(mr->VolumeName));
+      Mmsg(cmd, "UPDATE Media SET "
+           "ActionOnPurge=%d, Recycle=%d,VolRetention=%s,VolUseDuration=%s,"
            "MaxVolJobs=%u,MaxVolFiles=%u,MaxVolBytes=%s,RecyclePoolId=%s"
            " WHERE VolumeName='%s'",
-           mr->Recycle,edit_uint64(mr->VolRetention, ed1),
+           mr->ActionOnPurge, mr->Recycle,edit_uint64(mr->VolRetention, ed1),
            edit_uint64(mr->VolUseDuration, ed2),
            mr->MaxVolJobs, mr->MaxVolFiles,
            edit_uint64(mr->MaxVolBytes, ed3),
            edit_uint64(mr->RecyclePoolId, ed4),
-           mr->VolumeName);
+           esc);
    } else {
-      Mmsg(mdb->cmd, "UPDATE Media SET "
-           "Recycle=%d,VolRetention=%s,VolUseDuration=%s,"
+      Mmsg(cmd, "UPDATE Media SET "
+           "ActionOnPurge=%d, Recycle=%d,VolRetention=%s,VolUseDuration=%s,"
            "MaxVolJobs=%u,MaxVolFiles=%u,MaxVolBytes=%s,RecyclePoolId=%s"
            " WHERE PoolId=%s",
-           mr->Recycle,edit_uint64(mr->VolRetention, ed1),
+           mr->ActionOnPurge, mr->Recycle,edit_uint64(mr->VolRetention, ed1),
            edit_uint64(mr->VolUseDuration, ed2),
            mr->MaxVolJobs, mr->MaxVolFiles,
            edit_uint64(mr->MaxVolBytes, ed3),
@@ -427,11 +445,11 @@ db_update_media_defaults(JCR *jcr, B_DB *mdb, MEDIA_DBR *mr)
            edit_int64(mr->PoolId, ed5));
    }
 
-   Dmsg1(400, "%s\n", mdb->cmd);
+   Dmsg1(400, "%s\n", cmd);
 
-   stat = UPDATE_DB(jcr, mdb, mdb->cmd);
+   stat = UpdateDB(jcr, cmd);
 
-   db_unlock(mdb);
+   bdb_unlock();
    return stat;
 }
 
@@ -442,18 +460,54 @@ db_update_media_defaults(JCR *jcr, B_DB *mdb, MEDIA_DBR *mr)
  *
  * This routine assumes the database is already locked.
  */
-void
-db_make_inchanger_unique(JCR *jcr, B_DB *mdb, MEDIA_DBR *mr)
+void BDB::bdb_make_inchanger_unique(JCR *jcr, MEDIA_DBR *mr)
 {
    char ed1[50], ed2[50];
-   if (mr->InChanger != 0 && mr->Slot != 0) {
-      Mmsg(mdb->cmd, "UPDATE Media SET InChanger=0 WHERE "
-           "Slot=%d AND StorageId=%s AND MediaId!=%s",
-            mr->Slot, 
-            edit_int64(mr->StorageId, ed1), edit_int64(mr->MediaId, ed2));
-      Dmsg1(400, "%s\n", mdb->cmd);
-      UPDATE_DB(jcr, mdb, mdb->cmd);
+   char esc[MAX_ESCAPE_NAME_LENGTH];
+
+   if (mr->InChanger != 0 && mr->Slot != 0 && mr->StorageId != 0) {
+       if (mr->MediaId != 0) {
+          Mmsg(cmd, "UPDATE Media SET InChanger=0, Slot=0 WHERE "
+               "Slot=%d AND StorageId=%s AND MediaId!=%s",
+               mr->Slot,
+               edit_int64(mr->StorageId, ed1), edit_int64(mr->MediaId, ed2));
+
+       } else if (*mr->VolumeName) {
+          bdb_escape_string(jcr, esc,mr->VolumeName,strlen(mr->VolumeName));
+          Mmsg(cmd, "UPDATE Media SET InChanger=0, Slot=0 WHERE "
+               "Slot=%d AND StorageId=%s AND VolumeName!='%s'",
+               mr->Slot,
+               edit_int64(mr->StorageId, ed1), esc);
+
+       } else {  /* used by ua_label to reset all volume with this slot */
+          Mmsg(cmd, "UPDATE Media SET InChanger=0, Slot=0 WHERE "
+               "Slot=%d AND StorageId=%s",
+               mr->Slot,
+               edit_int64(mr->StorageId, ed1), mr->VolumeName);
+       }
+       Dmsg1(100, "%s\n", cmd);
+       UpdateDB(jcr, cmd);
    }
 }
 
-#endif /* HAVE_SQLITE3 || HAVE_MYSQL || HAVE_SQLITE || HAVE_POSTGRESQL*/
+/* Update only Retention */
+bool BDB::bdb_update_snapshot_record(JCR *jcr, SNAPSHOT_DBR *sr)
+{
+   int stat, len;
+   char ed1[50], ed2[50];
+
+   len = strlen(sr->Comment);
+   bdb_lock();
+
+   esc_name = check_pool_memory_size(esc_name, len*2+1);
+   bdb_escape_string(jcr, esc_name, sr->Comment, len);
+
+   Mmsg(cmd, "UPDATE Snapshot SET Retention=%s, Comment='%s' WHERE SnapshotId=%s",
+        edit_int64(sr->Retention, ed2), sr->Comment, edit_int64(sr->SnapshotId, ed1));
+
+   stat = UpdateDB(jcr, cmd);
+   bdb_unlock();
+   return stat;
+}
+
+#endif /* HAVE_SQLITE3 || HAVE_MYSQL || HAVE_POSTGRESQL */