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 */
39 * Auto Prune Jobs and Files. This is called at the end of every
40 * Job. We do not prune volumes here.
42 int do_autoprune(JCR *jcr)
48 if (!jcr->client) { /* temp -- remove me */
52 ua = new_ua_context(jcr);
56 if (jcr->job->PruneJobs || jcr->client->AutoPrune) {
57 Jmsg(jcr, M_INFO, 0, _("Begin pruning Jobs.\n"));
58 prune_jobs(ua, client, jcr->JobType);
64 if (jcr->job->PruneFiles || jcr->client->AutoPrune) {
65 Jmsg(jcr, M_INFO, 0, _("Begin pruning Files.\n"));
66 prune_files(ua, client);
70 Jmsg(jcr, M_INFO, 0, _("End auto prune.\n\n"));
78 * Prune all volumes in current Pool. This is called from
79 * catreq.c when the Storage daemon is asking for another
80 * volume and no appendable volumes are available.
83 * number of Volumes Purged
85 int prune_volumes(JCR *jcr)
94 if (!jcr->job->PruneVolumes && !jcr->pool->AutoPrune) {
95 Dmsg0(100, "AutoPrune not set in Pool.\n");
98 memset(&mr, 0, sizeof(mr));
99 ua = new_ua_context(jcr);
103 /* Get the List of all media ids in the current Pool */
104 if (!db_get_media_ids(jcr, jcr->db, jcr->PoolId, &num_ids, &ids)) {
105 Jmsg(jcr, M_ERROR, 0, "%s", db_strerror(jcr->db));
109 /* Visit each Volume and Prune it */
110 for (i=0; i<num_ids; i++) {
112 if (!db_get_media_record(jcr, jcr->db, &mr)) {
113 Jmsg(jcr, M_ERROR, 0, "%s", db_strerror(jcr->db));
116 /* Prune only Volumes from current Pool */
117 if (jcr->PoolId != mr.PoolId) {
120 /* Prune only Volumes with status "Full", "Used", or "Append" */
121 if (strcmp(mr.VolStatus, "Full") == 0 ||
122 strcmp(mr.VolStatus, "Append") == 0 ||
123 strcmp(mr.VolStatus, "Used") == 0) {
124 Dmsg1(200, "Prune Volume %s\n", mr.VolumeName);
125 stat += prune_volume(ua, &mr);
126 Dmsg1(200, "Num pruned = %d\n", stat);