3 * Bacula Director -- Automatic Pruning
4 * Applies retention periods
6 * Kern Sibbald, May MMII
12 Copyright (C) 2002 Kern Sibbald and John Walker
14 This program is free software; you can redistribute it and/or
15 modify it under the terms of the GNU General Public License as
16 published by the Free Software Foundation; either version 2 of
17 the License, or (at your option) any later version.
19 This program is distributed in the hope that it will be useful,
20 but WITHOUT ANY WARRANTY; without even the implied warranty of
21 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
22 General Public License for more details.
24 You should have received a copy of the GNU General Public
25 License along with this program; if not, write to the Free
26 Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
35 /* Forward referenced functions */
37 void create_ua_context(JCR *jcr, UAContext *ua)
39 memset(ua, 0, sizeof(UAContext));
42 ua->cmd = get_pool_memory(PM_FNAME);
43 ua->args = get_pool_memory(PM_FNAME);
47 void free_ua_context(UAContext *ua)
50 free_pool_memory(ua->cmd);
53 free_pool_memory(ua->args);
58 * Auto Prune Jobs and Files
59 * Volumes are done separately
61 int do_autoprune(JCR *jcr)
67 if (!jcr->client) { /* temp -- remove me */
71 create_ua_context(jcr, &ua);
75 if (jcr->job->PruneJobs || jcr->client->AutoPrune) {
76 Jmsg(jcr, M_INFO, 0, _("Begin pruning Jobs.\n"));
77 prune_jobs(&ua, client, jcr->JobType);
83 if (jcr->job->PruneFiles || jcr->client->AutoPrune) {
84 Jmsg(jcr, M_INFO, 0, _("Begin pruning Files.\n"));
85 prune_files(&ua, client);
89 Jmsg(jcr, M_INFO, 0, _("End auto prune.\n\n"));
97 * Prune all volumes in current Pool.
100 * number of Volumes Purged
102 int prune_volumes(JCR *jcr)
106 uint32_t *ids = NULL;
112 if (!jcr->job->PruneVolumes && !jcr->pool->AutoPrune) {
113 Dmsg0(100, "AutoPrune not set in Pool.\n");
116 memset(&mr, 0, sizeof(mr));
117 memset(&pr, 0, sizeof(pr));
118 create_ua_context(jcr, &ua);
122 pr.PoolId = jcr->PoolId;
123 if (!db_get_pool_record(jcr->db, &pr) || !db_get_media_ids(jcr->db, &num_ids, &ids)) {
124 Jmsg(jcr, M_ERROR, 0, "%s", db_strerror(jcr->db));
129 for (i=0; i<num_ids; i++) {
131 if (!db_get_media_record(jcr->db, &mr)) {
132 Jmsg(jcr, M_ERROR, 0, "%s", db_strerror(jcr->db));
135 /* Prune only Volumes from current Pool */
136 if (pr.PoolId != mr.PoolId) {
139 /* Prune only Volumes with status "Full" or "Used" */
140 if (strcmp(mr.VolStatus, "Full") == 0 || strcmp(mr.VolStatus, "Used") == 0) {
141 Dmsg1(200, "Prune Volume %s\n", mr.VolumeName);
142 stat += prune_volume(&ua, &pr, &mr);
143 Dmsg1(200, "Num pruned = %d\n", stat);
149 free_ua_context(&ua);