/*
*
- * Bacula Director -- Automatic Pruning
- * Applies retention periods
+ * Bacula Director -- Automatic Pruning
+ * Applies retention periods
*
* Kern Sibbald, May MMII
*
* Version $Id$
*/
-
/*
- Copyright (C) 2002 Kern Sibbald and John Walker
+ Bacula® - The Network Backup Solution
+
+ Copyright (C) 2002-2006 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 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
+ 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.
+*/
#include "bacula.h"
#include "dird.h"
* Auto Prune Jobs and Files. This is called at the end of every
* Job. We do not prune volumes here.
*/
-int do_autoprune(JCR *jcr)
+void do_autoprune(JCR *jcr)
{
UAContext *ua;
CLIENT *client;
bool pruned;
- if (!jcr->client) { /* temp -- remove me */
- return 1;
+ if (!jcr->client) { /* temp -- remove me */
+ return;
}
ua = new_ua_context(jcr);
} else {
pruned = false;
}
-
+
if (jcr->job->PruneFiles || jcr->client->AutoPrune) {
Jmsg(jcr, M_INFO, 0, _("Begin pruning Files.\n"));
prune_files(ua, client);
}
free_ua_context(ua);
- return 1;
+ return;
}
/*
- * Prune all volumes in current Pool. This is called from
+ * Prune at least on Volume in current Pool. This is called from
* catreq.c when the Storage daemon is asking for another
* volume and no appendable volumes are available.
*
- * Return 0: on error
- * number of Volumes Purged
+ * Return: false if nothing pruned
+ * true if pruned, and mr is set to pruned volume
*/
-int prune_volumes(JCR *jcr)
+bool prune_volumes(JCR *jcr, MEDIA_DBR *mr)
{
- int stat = 0;
+ int count;
int i;
uint32_t *ids = NULL;
int num_ids = 0;
- MEDIA_DBR mr;
- POOL_DBR pr;
+ struct del_ctx del;
UAContext *ua;
+ bool ok = false;
+ Dmsg1(050, "Prune volumes PoolId=%d\n", jcr->jr.PoolId);
if (!jcr->job->PruneVolumes && !jcr->pool->AutoPrune) {
Dmsg0(100, "AutoPrune not set in Pool.\n");
return 0;
}
- memset(&mr, 0, sizeof(mr));
- memset(&pr, 0, sizeof(pr));
+ memset(&del, 0, sizeof(del));
+ del.max_ids = 1000;
+ del.JobId = (JobId_t *)malloc(sizeof(JobId_t) * del.max_ids);
+
ua = new_ua_context(jcr);
db_lock(jcr->db);
- /* Get the Pool Record and a list of Media Id's in the Pool */
- pr.PoolId = jcr->PoolId;
- if (!db_get_pool_record(jcr, jcr->db, &pr) || !db_get_media_ids(jcr, jcr->db, &num_ids, &ids)) {
+ /* Get the List of all media ids in the current Pool */
+ if (!db_get_media_ids(jcr, jcr->db, mr, &num_ids, &ids)) {
Jmsg(jcr, M_ERROR, 0, "%s", db_strerror(jcr->db));
goto bail_out;
}
/* Visit each Volume and Prune it */
for (i=0; i<num_ids; i++) {
- mr.MediaId = ids[i];
- if (!db_get_media_record(jcr, jcr->db, &mr)) {
+ MEDIA_DBR lmr;
+ memset(&lmr, 0, sizeof(lmr));
+ lmr.MediaId = ids[i];
+ Dmsg1(150, "Get record MediaId=%d\n", (int)lmr.MediaId);
+ if (!db_get_media_record(jcr, jcr->db, &lmr)) {
Jmsg(jcr, M_ERROR, 0, "%s", db_strerror(jcr->db));
- continue;
+ continue;
}
/* Prune only Volumes from current Pool */
- if (pr.PoolId != mr.PoolId) {
- continue;
+ if (mr->PoolId != lmr.PoolId) {
+ continue;
+ }
+ /* Don't prune archived volumes */
+ if (lmr.Enabled == 2) {
+ continue;
}
- /* Prune only Volumes with status "Full", "Used", or "Append" */
- if (strcmp(mr.VolStatus, "Full") == 0 ||
- strcmp(mr.VolStatus, "Append") == 0 ||
- strcmp(mr.VolStatus, "Used") == 0) {
- Dmsg1(200, "Prune Volume %s\n", mr.VolumeName);
- stat += prune_volume(ua, &pr, &mr);
- Dmsg1(200, "Num pruned = %d\n", stat);
+ /* Prune only Volumes with status "Full", or "Used" */
+ if (strcmp(lmr.VolStatus, "Full") == 0 ||
+ strcmp(lmr.VolStatus, "Used") == 0) {
+ Dmsg2(050, "Add prune list MediaId=%d Volume %s\n", (int)lmr.MediaId, lmr.VolumeName);
+ count = get_prune_list_for_volume(ua, &lmr, &del);
+ Dmsg1(050, "Num pruned = %d\n", count);
+ if (count != 0) {
+ purge_job_list_from_catalog(ua, del);
+ del.num_ids = 0; /* reset count */
+ }
+ ok = is_volume_purged(ua, &lmr);
+ if (ok) {
+ Dmsg2(050, "Vol=%s MediaId=%d purged.\n", lmr.VolumeName, (int)lmr.MediaId);
+ mr = &lmr; /* struct copy */
+ break;
+ }
}
- }
+ }
bail_out:
db_unlock(jcr->db);
if (ids) {
free(ids);
}
- return stat;
+ if (del.JobId) {
+ free(del.JobId);
+ }
+ return ok;
}