]> git.sur5r.net Git - bacula/bacula/blobdiff - bacula/src/dird/ua_prune.c
Apply patch (with some difficulties) from Joao Henrique Freitas
[bacula/bacula] / bacula / src / dird / ua_prune.c
index 2278405d8007e1169ba40b7bb68b577e3a7674a1..2083fc53dc77c0046a6907d70050d1e413906ea1 100644 (file)
@@ -1,94 +1,56 @@
 /*
- *
- *   Bacula Director -- User Agent Database prune Command
- *     Applies retention periods
- *
- *     Kern Sibbald, February MMII
- *
- *   Version $Id$
- */
+   Bacula® - The Network Backup Solution
 
-/*
-   Copyright (C) 2002-2003 Kern Sibbald and John Walker
+   Copyright (C) 2002-2007 Free Software Foundation Europe e.V.
 
-   This program is free software; you can redistribute it and/or
-   modify it under the terms of the GNU General Public License as
-   published by the Free Software Foundation; either version 2 of
-   the License, or (at your option) any later version.
+   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 and included
+   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
+   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., 59 Temple Place - Suite 330, Boston,
-   MA 02111-1307, USA.
+   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.
+*/
+/*
+ *
+ *   Bacula Director -- User Agent Database prune Command
+ *      Applies retention periods
+ *
+ *     Kern Sibbald, February MMII
+ *
+ *   Version $Id$
  */
 
 #include "bacula.h"
 #include "dird.h"
 
 /* Imported functions */
-int mark_media_purged(UAContext *ua, MEDIA_DBR *mr);
 
 /* Forward referenced functions */
 
-
-#define MAX_DEL_LIST_LEN 1000000
-
-/* Imported variables */
-extern char *select_job;
-extern char *drop_deltabs[];
-extern char *create_deltabs[];
-extern char *insert_delcand;
-extern char *select_backup_del;
-extern char *select_verify_del;
-extern char *select_restore_del;
-extern char *cnt_File;
-extern char *del_File;
-extern char *upd_Purged;
-extern char *cnt_DelCand;
-extern char *del_Job;
-extern char *del_JobMedia;
-extern char *cnt_JobMedia;
-extern char *sel_JobMedia;
-
-
-/* In memory list of JobIds */
-struct s_file_del_ctx {
-   JobId_t *JobId;
-   int num_ids;                      /* ids stored */
-   int max_ids;                      /* size of array */
-   int num_del;                      /* number deleted */
-   int tot_ids;                      /* total to process */
-};
-
-struct s_job_del_ctx {
-   JobId_t *JobId;                   /* array of JobIds */
-   char *PurgedFiles;                /* Array of PurgedFile flags */
-   int num_ids;                      /* ids stored */
-   int max_ids;                      /* size of array */
-   int num_del;                      /* number deleted */
-   int tot_ids;                      /* total to process */
-};
-
-struct s_count_ctx {
-   int count;
-};
-
-
 /*
- * Called here to count entries to be deleted 
+ * Called here to count entries to be deleted
  */
-static int count_handler(void *ctx, int num_fields, char **row)
+int del_count_handler(void *ctx, int num_fields, char **row)
 {
    struct s_count_ctx *cnt = (struct s_count_ctx *)ctx;
 
    if (row[0]) {
-      cnt->count = atoi(row[0]);
+      cnt->count = str_to_int64(row[0]);
    } else {
       cnt->count = 0;
    }
@@ -96,17 +58,6 @@ static int count_handler(void *ctx, int num_fields, char **row)
 }
 
 
-/*
- * Called here to count the number of Jobs to be pruned
- */
-static int file_count_handler(void *ctx, int num_fields, char **row)
-{
-   struct s_file_del_ctx *del = (struct s_file_del_ctx *)ctx;
-   del->tot_ids++;
-   return 0;
-}
-
-
 /*
  * Called here to make in memory list of JobIds to be
  *  deleted and the associated PurgedFiles flag.
@@ -115,11 +66,11 @@ static int file_count_handler(void *ctx, int num_fields, char **row)
  *  is allowed to get to MAX_DEL_LIST_LEN to limit the
  *  maximum malloc'ed memory.
  */
-static int job_delete_handler(void *ctx, int num_fields, char **row)
+int job_delete_handler(void *ctx, int num_fields, char **row)
 {
-   struct s_job_del_ctx *del = (struct s_job_del_ctx *)ctx;
+   struct del_ctx *del = (struct del_ctx *)ctx;
 
-   if (del->num_ids == MAX_DEL_LIST_LEN) {  
+   if (del->num_ids == MAX_DEL_LIST_LEN) {
       return 1;
    }
    if (del->num_ids == del->max_ids) {
@@ -128,23 +79,25 @@ static int job_delete_handler(void *ctx, int num_fields, char **row)
       del->PurgedFiles = (char *)brealloc(del->PurgedFiles, del->max_ids);
    }
    del->JobId[del->num_ids] = (JobId_t)str_to_int64(row[0]);
-   del->PurgedFiles[del->num_ids++] = (char)str_to_int64(row[0]);
+// Dmsg2(60, "row=%d val=%d\n", del->num_ids, del->JobId[del->num_ids]);
+   del->PurgedFiles[del->num_ids++] = (char)str_to_int64(row[1]);
    return 0;
 }
 
-static int file_delete_handler(void *ctx, int num_fields, char **row)
+int file_delete_handler(void *ctx, int num_fields, char **row)
 {
-   struct s_file_del_ctx *del = (struct s_file_del_ctx *)ctx;
+   struct del_ctx *del = (struct del_ctx *)ctx;
 
-   if (del->num_ids == MAX_DEL_LIST_LEN) {  
+   if (del->num_ids == MAX_DEL_LIST_LEN) {
       return 1;
    }
    if (del->num_ids == del->max_ids) {
       del->max_ids = (del->max_ids * 3) / 2;
       del->JobId = (JobId_t *)brealloc(del->JobId, sizeof(JobId_t) *
-        del->max_ids);
+         del->max_ids);
    }
    del->JobId[del->num_ids++] = (JobId_t)str_to_int64(row[0]);
+// Dmsg2(150, "row=%d val=%d\n", del->num_ids-1, del->JobId[del->num_ids-1]);
    return 0;
 }
 
@@ -153,62 +106,67 @@ static int file_delete_handler(void *ctx, int num_fields, char **row)
  *
  *    prune files (from) client=xxx
  *    prune jobs (from) client=xxx
- *    prune volume=xxx 
+ *    prune volume=xxx
  */
-int prunecmd(UAContext *ua, char *cmd)
+int prunecmd(UAContext *ua, const char *cmd)
 {
    CLIENT *client;
    POOL_DBR pr;
    MEDIA_DBR mr;
    int kw;
 
-   static char *keywords[] = {
-      N_("Files"),
-      N_("Jobs"),
-      N_("Volume"),
+   static const char *keywords[] = {
+      NT_("Files"),
+      NT_("Jobs"),
+      NT_("Volume"),
       NULL};
 
-   if (!open_db(ua)) {
-      return 01;
+   if (!open_client_db(ua)) {
+      return false;
    }
 
    /* First search args */
-   kw = find_arg_keyword(ua, keywords);  
+   kw = find_arg_keyword(ua, keywords);
    if (kw < 0 || kw > 2) {
       /* no args, so ask user */
-      kw = do_keyword_prompt(ua, _("Choose item to prune"), keywords);  
-   }      
-    
+      kw = do_keyword_prompt(ua, _("Choose item to prune"), keywords);
+   }
+
    switch (kw) {
    case 0:  /* prune files */
       client = get_client_resource(ua);
       if (!client || !confirm_retention(ua, &client->FileRetention, "File")) {
-        return 0;
+         return false;
       }
       prune_files(ua, client);
-      return 1;
+      return true;
    case 1:  /* prune jobs */
       client = get_client_resource(ua);
       if (!client || !confirm_retention(ua, &client->JobRetention, "Job")) {
-        return 0;
+         return false;
       }
       /* ****FIXME**** allow user to select JobType */
       prune_jobs(ua, client, JT_BACKUP);
       return 1;
    case 2:  /* prune volume */
       if (!select_pool_and_media_dbr(ua, &pr, &mr)) {
-        return 0;
+         return false;
+      }
+      if (mr.Enabled == 2) {
+         ua->error_msg(_("Cannot prune Volume \"%s\" because it is archived.\n"),
+            mr.VolumeName);
+         return false;
       }
       if (!confirm_retention(ua, &mr.VolRetention, "Volume")) {
-        return 0;
+         return false;
       }
       prune_volume(ua, &mr);
-      return 1;
+      return true;
    default:
       break;
    }
 
-   return 1;
+   return true;
 }
 
 /*
@@ -224,9 +182,9 @@ int prunecmd(UAContext *ua, char *cmd)
  */
 int prune_files(UAContext *ua, CLIENT *client)
 {
-   struct s_file_del_ctx del;
-   POOLMEM *query = get_pool_memory(PM_MESSAGE);
-   int i;
+   struct del_ctx del;
+   struct s_count_ctx cnt;
+   POOL_MEM query(PM_MESSAGE);
    utime_t now, period;
    CLIENT_DBR cr;
    char ed1[50], ed2[50];
@@ -242,72 +200,56 @@ int prune_files(UAContext *ua, CLIENT *client)
 
    period = client->FileRetention;
    now = (utime_t)time(NULL);
-       
+
    /* Select Jobs -- for counting */
-   Mmsg(&query, select_job, edit_uint64(now - period, ed1), cr.ClientId);
-   Dmsg1(050, "select sql=%s\n", query);
-   if (!db_sql_query(ua->db, query, file_count_handler, (void *)&del)) {
-      if (ua->verbose) {
-         bsendmsg(ua, "%s", db_strerror(ua->db));
-      }
+   Mmsg(query, count_select_job, edit_uint64(now - period, ed1), 
+        edit_int64(cr.ClientId, ed2));
+   Dmsg3(050, "select now=%u period=%u sql=%s\n", (uint32_t)now, 
+               (uint32_t)period, query.c_str());
+   cnt.count = 0;
+   if (!db_sql_query(ua->db, query.c_str(), del_count_handler, (void *)&cnt)) {
+      ua->error_msg("%s", db_strerror(ua->db));
       Dmsg0(050, "Count failed\n");
       goto bail_out;
    }
-      
-   if (del.tot_ids == 0) {
+
+   if (cnt.count == 0) {
       if (ua->verbose) {
-         bsendmsg(ua, _("No Files found to prune.\n"));
+         ua->warning_msg(_("No Files found to prune.\n"));
       }
       goto bail_out;
    }
 
-   if (del.tot_ids < MAX_DEL_LIST_LEN) {
-      del.max_ids = del.tot_ids + 1;
+   if (cnt.count < MAX_DEL_LIST_LEN) {
+      del.max_ids = cnt.count + 1;
    } else {
-      del.max_ids = MAX_DEL_LIST_LEN; 
+      del.max_ids = MAX_DEL_LIST_LEN;
    }
    del.tot_ids = 0;
 
    del.JobId = (JobId_t *)malloc(sizeof(JobId_t) * del.max_ids);
 
    /* Now process same set but making a delete list */
-   db_sql_query(ua->db, query, file_delete_handler, (void *)&del);
-
-   for (i=0; i < del.num_ids; i++) {
-      struct s_count_ctx cnt;
-      Dmsg1(050, "Delete JobId=%d\n", del.JobId[i]);
-      Mmsg(&query, cnt_File, del.JobId[i]);
-      cnt.count = 0;
-      db_sql_query(ua->db, query, count_handler, (void *)&cnt);
-      del.tot_ids += cnt.count;
-      Mmsg(&query, del_File, del.JobId[i]);
-      db_sql_query(ua->db, query, NULL, (void *)NULL);
-      /* 
-       * Now mark Job as having files purged. This is necessary to
-       * avoid having too many Jobs to process in future prunings. If
-       * we don't do this, the number of JobId's in our in memory list
-       * could grow very large.
-       */
-      Mmsg(&query, upd_Purged, del.JobId[i]);
-      db_sql_query(ua->db, query, NULL, (void *)NULL);
-      Dmsg1(050, "Del sql=%s\n", query);
-   }
-   edit_uint64_with_commas(del.tot_ids, ed1);
-   edit_uint64_with_commas(del.num_ids, ed2);
-   bsendmsg(ua, _("Pruned %s Files from %s Jobs for client %s from catalog.\n"), 
-      ed1, ed2, client->hdr.name);
-   
+   Mmsg(query, select_job, edit_uint64(now - period, ed1), 
+        edit_int64(cr.ClientId, ed2));
+   db_sql_query(ua->db, query.c_str(), file_delete_handler, (void *)&del);
+
+   purge_files_from_job_list(ua, del);
+
+   edit_uint64_with_commas(del.num_del, ed1);
+   ua->info_msg(_("Pruned Files from %s Jobs for client %s from catalog.\n"),
+      ed1, client->name());
+
 bail_out:
    db_unlock(ua->db);
    if (del.JobId) {
       free(del.JobId);
    }
-   free_pool_memory(query);
    return 1;
 }
 
 
-static void drop_temp_tables(UAContext *ua) 
+static void drop_temp_tables(UAContext *ua)
 {
    int i;
    for (i=0; drop_deltabs[i]; i++) {
@@ -315,24 +257,26 @@ static void drop_temp_tables(UAContext *ua)
    }
 }
 
-static int create_temp_tables(UAContext *ua) 
+static bool create_temp_tables(UAContext *ua)
 {
-   int i;
    /* Create temp tables and indicies */
-   for (i=0; create_deltabs[i]; i++) {
-      if (!db_sql_query(ua->db, create_deltabs[i], NULL, (void *)NULL)) {
-         bsendmsg(ua, "%s", db_strerror(ua->db));
-         Dmsg0(050, "create DelTables table failed\n");
-        return 0;
-      }
+   if (!db_sql_query(ua->db, create_deltabs[db_type], NULL, (void *)NULL)) {
+      ua->error_msg("%s", db_strerror(ua->db));
+      Dmsg0(050, "create DelTables table failed\n");
+      return false;
    }
-   return 1;
+   if (!db_sql_query(ua->db, create_delindex, NULL, (void *)NULL)) {
+       ua->error_msg("%s", db_strerror(ua->db));
+       Dmsg0(050, "create DelInx1 index failed\n");
+       return false;
+   }
+   return true;
 }
 
 
 
 /*
- * Purging Jobs is a bit more complicated than purging Files
+ * Pruning Jobs is a bit more complicated than purging Files
  * because we delete Job records only if there is a more current
  * backup of the FileSet. Otherwise, we keep the Job record.
  * In other words, we never delete the only Job record that
@@ -345,18 +289,17 @@ static int create_temp_tables(UAContext *ua)
  */
 int prune_jobs(UAContext *ua, CLIENT *client, int JobType)
 {
-   struct s_job_del_ctx del;
-   struct s_count_ctx cnt;
-   char *query = (char *)get_pool_memory(PM_MESSAGE);
-   int i;
+   struct del_ctx del;
+   POOL_MEM query(PM_MESSAGE);
    utime_t now, period;
    CLIENT_DBR cr;
-   char ed1[50];
+   char ed1[50], ed2[50];
 
    db_lock(ua->db);
    memset(&cr, 0, sizeof(cr));
    memset(&del, 0, sizeof(del));
-   bstrncpy(cr.Name, client->hdr.name, sizeof(cr.Name));
+
+   bstrncpy(cr.Name, client->name(), sizeof(cr.Name));
    if (!db_create_client_record(ua->jcr, ua->db, &cr)) {
       db_unlock(ua->db);
       return 0;
@@ -373,91 +316,59 @@ int prune_jobs(UAContext *ua, CLIENT *client, int JobType)
       goto bail_out;
    }
 
-   /* 
+   /*
     * Select all files that are older than the JobRetention period
     *  and stuff them into the "DeletionCandidates" table.
     */
    edit_uint64(now - period, ed1);
-   Mmsg(&query, insert_delcand, (char)JobType, ed1, cr.ClientId);
-   if (!db_sql_query(ua->db, query, NULL, (void *)NULL)) {
+   Mmsg(query, insert_delcand, (char)JobType, ed1, 
+        edit_int64(cr.ClientId, ed2));
+   if (!db_sql_query(ua->db, query.c_str(), NULL, (void *)NULL)) {
       if (ua->verbose) {
-         bsendmsg(ua, "%s", db_strerror(ua->db));
+         ua->error_msg("%s", db_strerror(ua->db));
       }
       Dmsg0(050, "insert delcand failed\n");
       goto bail_out;
    }
 
-   /* Count Files to be deleted */
-   pm_strcpy(&query, cnt_DelCand);
-   Dmsg1(100, "select sql=%s\n", query);
-   cnt.count = 0;
-   if (!db_sql_query(ua->db, query, count_handler, (void *)&cnt)) {
-      bsendmsg(ua, "%s", db_strerror(ua->db));
-      Dmsg0(050, "Count failed\n");
-      goto bail_out;
-   }
-      
-   if (cnt.count == 0) {
-      if (ua->verbose) {
-         bsendmsg(ua, _("No Jobs found to prune.\n"));
-      }
-      goto bail_out;
-   }
-
-   if (cnt.count < MAX_DEL_LIST_LEN) {
-      del.max_ids = cnt.count + 1;
-   } else {
-      del.max_ids = MAX_DEL_LIST_LEN; 
-   }
+   del.max_ids = 100;
    del.JobId = (JobId_t *)malloc(sizeof(JobId_t) * del.max_ids);
    del.PurgedFiles = (char *)malloc(del.max_ids);
 
+   /* ed1 = JobTDate */
+   edit_int64(cr.ClientId, ed2);
    switch (JobType) {
-   case JT_ADMIN:
    case JT_BACKUP:
-      Mmsg(&query, select_backup_del, ed1, ed1, cr.ClientId);
+      Mmsg(query, select_backup_del, ed1, ed2);
       break;
    case JT_RESTORE:
-      Mmsg(&query, select_restore_del, ed1, cr.ClientId);
+      Mmsg(query, select_restore_del, ed1, ed2);
       break;
    case JT_VERIFY:
-      Mmsg(&query, select_verify_del, ed1, cr.ClientId);
+      Mmsg(query, select_verify_del, ed1, ed2);
+      break;
+   case JT_ADMIN:
+      Mmsg(query, select_admin_del, ed1, ed2);
+      break;
+   case JT_MIGRATE:
+      Mmsg(query, select_migrate_del, ed1, ed2);
       break;
    }
-   if (!db_sql_query(ua->db, query, job_delete_handler, (void *)&del)) {
-      bsendmsg(ua, "%s", db_strerror(ua->db));
+
+   Dmsg1(150, "Query=%s\n", query.c_str());
+   if (!db_sql_query(ua->db, query.c_str(), job_delete_handler, (void *)&del)) {
+      ua->error_msg("%s", db_strerror(ua->db));
    }
 
-   /* 
-    * OK, now we have the list of JobId's to be pruned, first check
-    * if the Files have been purged, if not, purge (delete) them.
-    * Then delete the Job entry, and finally and JobMedia records.
-    */
-   for (i=0; i < del.num_ids; i++) {
-      Dmsg1(050, "Delete JobId=%d\n", del.JobId[i]);
-      if (!del.PurgedFiles[i]) {
-        Mmsg(&query, del_File, del.JobId[i]);
-        if (!db_sql_query(ua->db, query, NULL, (void *)NULL)) {
-            bsendmsg(ua, "%s", db_strerror(ua->db));
-        }
-         Dmsg1(050, "Del sql=%s\n", query);
-      }
+   purge_job_list_from_catalog(ua, del);
 
-      Mmsg(&query, del_Job, del.JobId[i]);
-      if (!db_sql_query(ua->db, query, NULL, (void *)NULL)) {
-         bsendmsg(ua, "%s", db_strerror(ua->db));
-      }
-      Dmsg1(050, "Del sql=%s\n", query);
+   if (del.num_del > 0) {
+      ua->info_msg(_("Pruned %d %s for client %s from catalog.\n"), del.num_del,
+         del.num_del==1?_("Job"):_("Jobs"), client->name());
+    } else if (ua->verbose) {
+       ua->info_msg(_("No Jobs found to prune.\n"));
+    }
 
-      Mmsg(&query, del_JobMedia, del.JobId[i]);
-      if (!db_sql_query(ua->db, query, NULL, (void *)NULL)) {
-         bsendmsg(ua, "%s", db_strerror(ua->db));
-      }
-      Dmsg1(050, "Del sql=%s\n", query);
-   }
-   bsendmsg(ua, _("Pruned %d %s for client %s from catalog.\n"), del.num_ids,
-      del.num_ids==1?_("Job"):_("Jobs"), client->hdr.name);
-   
 bail_out:
    drop_temp_tables(ua);
    db_unlock(ua->db);
@@ -467,109 +378,96 @@ bail_out:
    if (del.PurgedFiles) {
       free(del.PurgedFiles);
    }
-   free_pool_memory(query);
    return 1;
 }
 
 /*
  * Prune a given Volume
  */
-int prune_volume(UAContext *ua, MEDIA_DBR *mr)
+bool prune_volume(UAContext *ua, MEDIA_DBR *mr)
 {
-   char *query = (char *)get_pool_memory(PM_MESSAGE);
-   struct s_count_ctx cnt;
-   struct s_file_del_ctx del;
-   int i, stat = 0;
-   JOB_DBR jr;
-   utime_t now, period;
+   POOL_MEM query(PM_MESSAGE);
+   struct del_ctx del;
+   bool ok = false;
+   int count;
+
+   if (mr->Enabled == 2) {
+      return false;                   /* Cannot prune archived volumes */
+   }
 
-   db_lock(ua->db);
-   memset(&jr, 0, sizeof(jr));
    memset(&del, 0, sizeof(del));
+   del.max_ids = 10000;
+   del.JobId = (JobId_t *)malloc(sizeof(JobId_t) * del.max_ids);
 
-   /*
-    * Find out how many Jobs remain on this Volume by 
-    *  counting the JobMedia records.
-    */
-   cnt.count = 0;
-   Mmsg(&query, cnt_JobMedia, mr->MediaId);
-   if (!db_sql_query(ua->db, query, count_handler, (void *)&cnt)) {
-      bsendmsg(ua, "%s", db_strerror(ua->db));
-      Dmsg0(050, "Count failed\n");
-      goto bail_out;
-   }
-      
-   if (cnt.count == 0) {
-      if (ua->verbose) {
-         bsendmsg(ua, "There are no Jobs associated with Volume %s. Marking it purged.\n",
-           mr->VolumeName);
+   db_lock(ua->db);
+
+   /* Prune only Volumes with status "Full", or "Used" */
+   if (strcmp(mr->VolStatus, "Full")   == 0 ||
+       strcmp(mr->VolStatus, "Used")   == 0) {
+      Dmsg2(050, "get prune list MediaId=%d Volume %s\n", (int)mr->MediaId, mr->VolumeName);
+      count = get_prune_list_for_volume(ua, mr, &del);
+      Dmsg1(050, "Num pruned = %d\n", count);
+      if (count != 0) {
+         purge_job_list_from_catalog(ua, del);
       }
-      stat = mark_media_purged(ua, mr);
-      goto bail_out;
+      ok = is_volume_purged(ua, mr);
    }
 
-   if (cnt.count < MAX_DEL_LIST_LEN) {
-      del.max_ids = cnt.count + 1;
-   } else {
-      del.max_ids = MAX_DEL_LIST_LEN; 
+   db_unlock(ua->db);
+   if (del.JobId) {
+      free(del.JobId);
    }
+   return ok;
+}
 
-   /* 
-    * Now get a list of JobIds for Jobs written to this Volume
-    *  Could optimize here by adding JobTDate > (now - period).
-    */
-   del.JobId = (JobId_t *)malloc(sizeof(JobId_t) * del.max_ids);
-   Mmsg(&query, sel_JobMedia, mr->MediaId);
-   if (!db_sql_query(ua->db, query, file_delete_handler, (void *)&del)) {
-      if (ua->verbose) {
-         bsendmsg(ua, "%s", db_strerror(ua->db));
-      }
-      Dmsg0(050, "Count failed\n");
-      goto bail_out;
+/*
+ * Get prune list for a volume
+ */
+int get_prune_list_for_volume(UAContext *ua, MEDIA_DBR *mr, del_ctx *del)
+{
+   POOL_MEM query(PM_MESSAGE);
+   int count = 0;
+   int i;          
+   utime_t now, period;
+   char ed1[50], ed2[50];
+
+   if (mr->Enabled == 2) {
+      return 0;                    /* cannot prune Archived volumes */
    }
 
-   /* Use Volume Retention to prune Jobs and their Files */
+   db_lock(ua->db);
+
+   /*
+    * Now add to the  list of JobIds for Jobs written to this Volume
+    */
+   edit_int64(mr->MediaId, ed1); 
    period = mr->VolRetention;
    now = (utime_t)time(NULL);
-
-   Dmsg3(200, "Now=%d period=%d now-period=%d\n", (int)now, (int)period,
+   edit_uint64(now-period, ed2);
+   Mmsg(query, sel_JobMedia, ed1, ed2);
+   Dmsg3(250, "Now=%d period=%d now-period=%d\n", (int)now, (int)period,
       (int)(now-period));
 
-   for (i=0; i < del.num_ids; i++) {
-      jr.JobId = del.JobId[i];
-      if (!db_get_job_record(ua->jcr, ua->db, &jr)) {
-        continue;
-      }
-      Dmsg2(200, "Looking at %s JobTdate=%d\n", jr.Job, (int)jr.JobTDate);
-      if (jr.JobTDate >= (now - period)) {
-        continue;
+   Dmsg1(050, "Query=%s\n", query.c_str());
+   if (!db_sql_query(ua->db, query.c_str(), file_delete_handler, (void *)del)) {
+      if (ua->verbose) {
+         ua->error_msg("%s", db_strerror(ua->db));
       }
-      Dmsg2(200, "Delete JobId=%d Job=%s\n", del.JobId[i], jr.Job);
-      Mmsg(&query, del_File, del.JobId[i]);
-      db_sql_query(ua->db, query, NULL, (void *)NULL);
-      Mmsg(&query, del_Job, del.JobId[i]);
-      db_sql_query(ua->db, query, NULL, (void *)NULL);
-      Mmsg(&query, del_JobMedia, del.JobId[i]);
-      db_sql_query(ua->db, query, NULL, (void *)NULL);
-      Dmsg1(050, "Del sql=%s\n", query);
-      del.num_del++;
-   }
-   if (del.JobId) {
-      free(del.JobId);
-   }
-   if (ua->verbose && del.num_del != 0) {
-      bsendmsg(ua, _("Pruned %d %s on Volume %s from catalog.\n"), del.num_del,
-         del.num_del == 1 ? "Job" : "Jobs", mr->VolumeName);
+      Dmsg0(050, "Count failed\n");
+      goto bail_out;
    }
 
-   /* If purged, mark it so */
-   if (del.num_ids == del.num_del) {
-      Dmsg0(200, "Volume is purged.\n");
-      stat = mark_media_purged(ua, mr);
+   for (i=0; i < del->num_ids; i++) {
+      if (ua->jcr->JobId == del->JobId[i]) {
+         Dmsg2(150, "skip same job JobId[%d]=%d\n", i, (int)del->JobId[i]);
+         del->JobId[i] = 0;
+         continue;
+      }
+      Dmsg2(150, "accept JobId[%d]=%d\n", i, (int)del->JobId[i]);
+      count++;
    }
 
 bail_out:
    db_unlock(ua->db);
-   free_pool_memory(query);
-   return stat;
+   return count;
 }