/*
*
- * Bacula Director -- Automatic Pruning
- * Applies retention periods
+ * Bacula Director -- Automatic Pruning
+ * Applies retention periods
*
* Kern Sibbald, May MMII
*
*/
/*
- Copyright (C) 2002 Kern Sibbald and John Walker
+ Copyright (C) 2002-2004 Kern Sibbald and John Walker
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
/* Forward referenced functions */
-void create_ua_context(JCR *jcr, UAContext *ua)
-{
- memset(ua, 0, sizeof(UAContext));
- ua->jcr = jcr;
- ua->db = jcr->db;
- ua->cmd = get_pool_memory(PM_FNAME);
- ua->args = get_pool_memory(PM_FNAME);
- ua->verbose = 1;
-}
-
-void free_ua_context(UAContext *ua)
-{
- if (ua->cmd) {
- free_pool_memory(ua->cmd);
- }
- if (ua->args) {
- free_pool_memory(ua->args);
- }
-}
/*
- * Auto Prune Jobs and Files
- * Volumes are done separately
+ * 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;
+ UAContext *ua;
CLIENT *client;
- int pruned;
+ bool pruned;
- if (!jcr->client) { /* temp -- remove me */
- return 1;
+ if (!jcr->client) { /* temp -- remove me */
+ return;
}
- create_ua_context(jcr, &ua);
+ ua = new_ua_context(jcr);
client = jcr->client;
if (jcr->job->PruneJobs || jcr->client->AutoPrune) {
Jmsg(jcr, M_INFO, 0, _("Begin pruning Jobs.\n"));
- prune_jobs(&ua, client);
- pruned = TRUE;
+ prune_jobs(ua, client, jcr->JobType);
+ pruned = true;
} else {
- pruned = FALSE;
+ pruned = false;
}
-
+
if (jcr->job->PruneFiles || jcr->client->AutoPrune) {
Jmsg(jcr, M_INFO, 0, _("Begin pruning Files.\n"));
- prune_files(&ua, client);
- pruned = TRUE;
+ prune_files(ua, client);
+ pruned = true;
}
if (pruned) {
Jmsg(jcr, M_INFO, 0, _("End auto prune.\n\n"));
}
- free_ua_context(&ua);
- return 1;
+ free_ua_context(ua);
+ return;
}
/*
- * Prune all volumes in current Pool.
+ * Prune all volumes 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
+ * number of Volumes Purged
*/
int prune_volumes(JCR *jcr)
{
uint32_t *ids = NULL;
int num_ids = 0;
MEDIA_DBR mr;
- POOL_DBR pr;
- UAContext ua;
+ UAContext *ua;
if (!jcr->job->PruneVolumes && !jcr->pool->AutoPrune) {
- Dmsg0(200, "AutoPrune not set in Pool.\n");
- return stat;
+ Dmsg0(100, "AutoPrune not set in Pool.\n");
+ return 0;
}
memset(&mr, 0, sizeof(mr));
- memset(&pr, 0, sizeof(pr));
- create_ua_context(jcr, &ua);
+ ua = new_ua_context(jcr);
db_lock(jcr->db);
- pr.PoolId = jcr->PoolId;
- if (!db_get_pool_record(jcr->db, &pr) || !db_get_media_ids(jcr->db, &num_ids, &ids)) {
+ /* Get the List of all media ids in the current Pool */
+ if (!db_get_media_ids(jcr, jcr->db, jcr->jr.PoolId, &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->db, &mr)) {
+ if (!db_get_media_record(jcr, jcr->db, &mr)) {
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 (jcr->jr.PoolId != mr.PoolId) {
+ continue;
}
- /* Prune only Volumes with status "Full" */
- if (strcmp(mr.VolStatus, "Full") != 0) {
- continue;
+ /* Don't prune archived volumes */
+ if (mr.Enabled == 2) {
+ continue;
}
- 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(mr.VolStatus, "Full") == 0 ||
+ strcmp(mr.VolStatus, "Used") == 0) {
+ Dmsg1(200, "Prune Volume %s\n", mr.VolumeName);
+ stat += prune_volume(ua, &mr);
+ Dmsg1(200, "Num pruned = %d\n", stat);
+ }
+ }
bail_out:
db_unlock(jcr->db);
- free_ua_context(&ua);
+ free_ua_context(ua);
if (ids) {
free(ids);
}