/*
Bacula® - The Network Backup Solution
- Copyright (C) 2002-2007 Free Software Foundation Europe e.V.
+ Copyright (C) 2002-2008 Free Software Foundation Europe e.V.
The main author of Bacula is Kern Sibbald, with contributions from
many others, a complete list can be found in the file AUTHORS.
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA.
- Bacula® is a registered trademark of John Walker.
+ Bacula® is a registered trademark of Kern Sibbald.
The licensor of Bacula is the Free Software Foundation Europe
(FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Zürich,
Switzerland, email:ftf@fsfeurope.org.
* prune files (from) client=xxx
* prune jobs (from) client=xxx
* prune volume=xxx
+ * prune stats
*/
int prunecmd(UAContext *ua, const char *cmd)
{
+ DIRRES *dir;
CLIENT *client;
POOL_DBR pr;
MEDIA_DBR mr;
+ utime_t retention;
int kw;
static const char *keywords[] = {
NT_("Files"),
NT_("Jobs"),
NT_("Volume"),
+ NT_("Stats"),
NULL};
if (!open_client_db(ua)) {
/* First search args */
kw = find_arg_keyword(ua, keywords);
- if (kw < 0 || kw > 2) {
+ if (kw < 0 || kw > 3) {
/* no args, so ask user */
kw = do_keyword_prompt(ua, _("Choose item to prune"), keywords);
}
}
prune_volume(ua, &mr);
return true;
+ case 3: /* prune stats */
+ dir = (DIRRES *)GetNextRes(R_DIRECTOR, NULL);
+ if (!dir->stats_retention) {
+ return false;
+ }
+ retention = dir->stats_retention;
+ if (!confirm_retention(ua, &retention, "Statistics")) {
+ return false;
+ }
+ prune_stats(ua, retention);
+ return true;
default:
break;
}
return true;
}
+/* Prune Job stat records from the database.
+ *
+ */
+int prune_stats(UAContext *ua, utime_t retention)
+{
+ char ed1[50];
+ POOL_MEM query(PM_MESSAGE);
+ utime_t now = (utime_t)time(NULL);
+
+ db_lock(ua->db);
+ Mmsg(query, "DELETE FROM JobHistory WHERE JobTDate < %s",
+ edit_int64(now - retention, ed1));
+ db_sql_query(ua->db, query.c_str(), NULL, NULL);
+ db_unlock(ua->db);
+
+ ua->info_msg(_("Pruned Jobs from JobHistory catalog.\n"));
+
+ return true;
+}
+
/*
* Prune File records from the database. For any Job which
* is older than the retention period, we unconditionally delete
now = (utime_t)time(NULL);
/* Select Jobs -- for counting */
- Mmsg(query, count_select_job, edit_uint64(now - period, ed1),
+ Mmsg(query, count_select_job, edit_int64(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());
del.JobId = (JobId_t *)malloc(sizeof(JobId_t) * del.max_ids);
/* Now process same set but making a delete list */
- Mmsg(query, select_job, edit_uint64(now - period, ed1),
+ Mmsg(query, select_job, edit_int64(now - period, ed1),
edit_int64(cr.ClientId, ed2));
db_sql_query(ua->db, query.c_str(), file_delete_handler, (void *)&del);
* Select all files that are older than the JobRetention period
* and stuff them into the "DeletionCandidates" table.
*/
- edit_uint64(now - period, ed1);
+ edit_int64(now - period, ed1);
Mmsg(query, insert_delcand, (char)JobType, ed1,
edit_int64(cr.ClientId, ed2));
if (!db_sql_query(ua->db, query.c_str(), NULL, (void *)NULL)) {
case JT_ADMIN:
Mmsg(query, select_admin_del, ed1, ed2);
break;
+ case JT_COPY:
+ Mmsg(query, select_copy_del, ed1, ed2);
+ break;
case JT_MIGRATE:
Mmsg(query, select_migrate_del, ed1, ed2);
break;
int i;
utime_t now, period;
char ed1[50], ed2[50];
+ JCR *jcr;
+ bool skip;
if (mr->Enabled == 2) {
return 0; /* cannot prune Archived volumes */
edit_int64(mr->MediaId, ed1);
period = mr->VolRetention;
now = (utime_t)time(NULL);
- edit_uint64(now-period, ed2);
+ edit_int64(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));
+ Dmsg3(250, "Now=%d period=%d now-period=%s\n", (int)now, (int)period,
+ ed2);
Dmsg1(050, "Query=%s\n", query.c_str());
if (!db_sql_query(ua->db, query.c_str(), file_delete_handler, (void *)del)) {
goto bail_out;
}
+ /* Do not prune any job currently running */
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;
+ skip = false;
+ foreach_jcr(jcr) {
+ if (jcr->JobId == del->JobId[i]) {
+ Dmsg2(150, "skip same job JobId[%d]=%d\n", i, (int)del->JobId[i]);
+ del->JobId[i] = 0;
+ skip = true;
+ break;
+ }
+ }
+ endeach_jcr(jcr);
+ if (skip) {
continue;
}
Dmsg2(150, "accept JobId[%d]=%d\n", i, (int)del->JobId[i]);