]> git.sur5r.net Git - bacula/bacula/blobdiff - bacula/src/dird/ua_update.c
Big backport from Enterprise
[bacula/bacula] / bacula / src / dird / ua_update.c
index c3191e377f33a32483eca16e558222ccbc3ae087..bc8fabb98fe8765257b71bde1b13eb8c713c523f 100644 (file)
@@ -1,3 +1,21 @@
+/*
+   Bacula(R) - The Network Backup Solution
+
+   Copyright (C) 2000-2017 Kern Sibbald
+
+   The original author of Bacula is Kern Sibbald, with contributions
+   from many others, a complete list can be found in the file AUTHORS.
+
+   You may use this file and others of this release according to the
+   license defined in the LICENSE file, which includes the Affero General
+   Public License, v3.0 ("AGPLv3") and some additional permissions and
+   terms pursuant to its AGPLv3 Section 7.
+
+   This notice must be preserved when any source code is
+   conveyed and/or propagated.
+
+   Bacula(R) is a registered trademark of Kern Sibbald.
+*/
 /*
  *
  *   Bacula Director -- Update command processing
  *
  *     Kern Sibbald, September MM
  *
- *   Version $Id$
- */
-/*
-   Copyright (C) 2000-2006 Kern Sibbald
-
-   This program is free software; you can redistribute it and/or
-   modify it under the terms of the GNU General Public License
-   version 2 as amended with additional clauses defined in the
-   file LICENSE in the main source directory.
-
-   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 
-   the file LICENSE for additional details.
-
  */
 
 #include "bacula.h"
 #include "dird.h"
 
-/* Imported functions */
-void update_slots(UAContext *ua);
-
-
-
 /* Forward referenced functions */
 static int update_volume(UAContext *ua);
-static int update_pool(UAContext *ua);
+static bool update_pool(UAContext *ua);
+static bool update_job(UAContext *ua);
+static bool update_stats(UAContext *ua);
 
 /*
  * Update a Pool Record in the database.
@@ -44,6 +44,8 @@ static int update_pool(UAContext *ua);
  *         changes pool info for volume
  *    update slots [scan=...]
  *         updates autochanger slots
+ *    update stats [days=...]
+ *         updates long term statistics
  */
 int update_cmd(UAContext *ua, const char *cmd)
 {
@@ -52,9 +54,14 @@ int update_cmd(UAContext *ua, const char *cmd)
       NT_("volume"), /* 1 */
       NT_("pool"),   /* 2 */
       NT_("slots"),  /* 3 */
+      NT_("slot"),   /* 4 */
+      NT_("jobid"),  /* 5 */
+      NT_("stats"),  /* 6 */
+      NT_("snap"),   /* 7 */
+      NT_("snapshot"),/* 8 */
       NULL};
 
-   if (!open_db(ua)) {
+   if (!open_client_db(ua)) {
       return 1;
    }
 
@@ -67,8 +74,19 @@ int update_cmd(UAContext *ua, const char *cmd)
       update_pool(ua);
       return 1;
    case 3:
+   case 4:
       update_slots(ua);
       return 1;
+   case 5:
+      update_job(ua);
+      return 1;
+   case 6:
+      update_stats(ua);
+      return 1;
+   case 7:
+   case 8:
+      update_snapshot(ua);
+      return 1;
    default:
       break;
    }
@@ -77,6 +95,8 @@ int update_cmd(UAContext *ua, const char *cmd)
    add_prompt(ua, _("Volume parameters"));
    add_prompt(ua, _("Pool from resource"));
    add_prompt(ua, _("Slots from autochanger"));
+   add_prompt(ua, _("Long term statistics"));
+   add_prompt(ua, _("Snapshot parameters"));
    switch (do_prompt(ua, _("item"), _("Choose catalog item to update"), NULL, 0)) {
    case 0:
       update_volume(ua);
@@ -87,6 +107,12 @@ int update_cmd(UAContext *ua, const char *cmd)
    case 2:
       update_slots(ua);
       break;
+   case 3:
+      update_stats(ua);
+      break;
+   case 4:
+      update_snapshot(ua);
+      break;
    default:
       break;
    }
@@ -105,6 +131,7 @@ static void update_volstatus(UAContext *ua, const char *val, MEDIA_DBR *mr)
       NT_("Cleaning"),
       NT_("Recycle"),
       NT_("Read-Only"),
+      NT_("Error"),
       NULL};
    bool found = false;
    int i;
@@ -116,16 +143,16 @@ static void update_volstatus(UAContext *ua, const char *val, MEDIA_DBR *mr)
       }
    }
    if (!found) {
-      bsendmsg(ua, _("Invalid VolStatus specified: %s\n"), val);
+      ua->error_msg(_("Invalid VolStatus specified: %s\n"), val);
    } else {
       char ed1[50];
       bstrncpy(mr->VolStatus, kw[i], sizeof(mr->VolStatus));
       Mmsg(query, "UPDATE Media SET VolStatus='%s' WHERE MediaId=%s",
          mr->VolStatus, edit_int64(mr->MediaId,ed1));
       if (!db_sql_query(ua->db, query.c_str(), NULL, NULL)) {
-         bsendmsg(ua, "%s", db_strerror(ua->db));
+         ua->error_msg("%s", db_strerror(ua->db));
       } else {
-         bsendmsg(ua, _("New Volume status is: %s\n"), mr->VolStatus);
+         ua->info_msg(_("New Volume status is: %s\n"), mr->VolStatus);
       }
    }
 }
@@ -135,34 +162,52 @@ static void update_volretention(UAContext *ua, char *val, MEDIA_DBR *mr)
    char ed1[150], ed2[50];
    POOL_MEM query(PM_MESSAGE);
    if (!duration_to_utime(val, &mr->VolRetention)) {
-      bsendmsg(ua, _("Invalid retention period specified: %s\n"), val);
+      ua->error_msg(_("Invalid retention period specified: %s\n"), val);
       return;
    }
    Mmsg(query, "UPDATE Media SET VolRetention=%s WHERE MediaId=%s",
       edit_uint64(mr->VolRetention, ed1), edit_int64(mr->MediaId,ed2));
    if (!db_sql_query(ua->db, query.c_str(), NULL, NULL)) {
-      bsendmsg(ua, "%s", db_strerror(ua->db));
+      ua->error_msg("%s", db_strerror(ua->db));
    } else {
-      bsendmsg(ua, _("New retention period is: %s\n"),
+      ua->info_msg(_("New retention period is: %s\n"),
          edit_utime(mr->VolRetention, ed1, sizeof(ed1)));
    }
 }
 
+static void update_vol_cacheretention(UAContext *ua, char *val, MEDIA_DBR *mr)
+{
+   char ed1[150], ed2[50];
+   POOL_MEM query(PM_MESSAGE);
+   if (!duration_to_utime(val, &mr->CacheRetention)) {
+      ua->error_msg(_("Invalid cache retention period specified: %s\n"), val);
+      return;
+   }
+   Mmsg(query, "UPDATE Media SET CacheRetention=%s WHERE MediaId=%s",
+      edit_uint64(mr->CacheRetention, ed1), edit_int64(mr->MediaId,ed2));
+   if (!db_sql_query(ua->db, query.c_str(), NULL, NULL)) {
+      ua->error_msg("%s", db_strerror(ua->db));
+   } else {
+      ua->info_msg(_("New Cache Retention period is: %s\n"),
+         edit_utime(mr->CacheRetention, ed1, sizeof(ed1)));
+   }
+}
+
 static void update_voluseduration(UAContext *ua, char *val, MEDIA_DBR *mr)
 {
    char ed1[150], ed2[50];
    POOL_MEM query(PM_MESSAGE);
 
    if (!duration_to_utime(val, &mr->VolUseDuration)) {
-      bsendmsg(ua, _("Invalid use duration specified: %s\n"), val);
+      ua->error_msg(_("Invalid use duration specified: %s\n"), val);
       return;
    }
    Mmsg(query, "UPDATE Media SET VolUseDuration=%s WHERE MediaId=%s",
       edit_uint64(mr->VolUseDuration, ed1), edit_int64(mr->MediaId,ed2));
    if (!db_sql_query(ua->db, query.c_str(), NULL, NULL)) {
-      bsendmsg(ua, "%s", db_strerror(ua->db));
+      ua->error_msg("%s", db_strerror(ua->db));
    } else {
-      bsendmsg(ua, _("New use duration is: %s\n"),
+      ua->info_msg(_("New use duration is: %s\n"),
          edit_utime(mr->VolUseDuration, ed1, sizeof(ed1)));
    }
 }
@@ -174,9 +219,9 @@ static void update_volmaxjobs(UAContext *ua, char *val, MEDIA_DBR *mr)
    Mmsg(query, "UPDATE Media SET MaxVolJobs=%s WHERE MediaId=%s",
       val, edit_int64(mr->MediaId,ed1));
    if (!db_sql_query(ua->db, query.c_str(), NULL, NULL)) {
-      bsendmsg(ua, "%s", db_strerror(ua->db));
+      ua->error_msg("%s", db_strerror(ua->db));
    } else {
-      bsendmsg(ua, _("New max jobs is: %s\n"), val);
+      ua->info_msg(_("New max jobs is: %s\n"), val);
    }
 }
 
@@ -187,9 +232,9 @@ static void update_volmaxfiles(UAContext *ua, char *val, MEDIA_DBR *mr)
    Mmsg(query, "UPDATE Media SET MaxVolFiles=%s WHERE MediaId=%s",
       val, edit_int64(mr->MediaId, ed1));
    if (!db_sql_query(ua->db, query.c_str(), NULL, NULL)) {
-      bsendmsg(ua, "%s", db_strerror(ua->db));
+      ua->error_msg("%s", db_strerror(ua->db));
    } else {
-      bsendmsg(ua, _("New max files is: %s\n"), val);
+      ua->info_msg(_("New max files is: %s\n"), val);
    }
 }
 
@@ -200,15 +245,15 @@ static void update_volmaxbytes(UAContext *ua, char *val, MEDIA_DBR *mr)
    POOL_MEM query(PM_MESSAGE);
 
    if (!size_to_uint64(val, strlen(val), &maxbytes)) {
-      bsendmsg(ua, _("Invalid max. bytes specification: %s\n"), val);
+      ua->error_msg(_("Invalid max. bytes specification: %s\n"), val);
       return;
    }
    Mmsg(query, "UPDATE Media SET MaxVolBytes=%s WHERE MediaId=%s",
       edit_uint64(maxbytes, ed1), edit_int64(mr->MediaId, ed2));
    if (!db_sql_query(ua->db, query.c_str(), NULL, NULL)) {
-      bsendmsg(ua, "%s", db_strerror(ua->db));
+      ua->error_msg("%s", db_strerror(ua->db));
    } else {
-      bsendmsg(ua, _("New Max bytes is: %s\n"), edit_uint64(maxbytes, ed1));
+      ua->info_msg(_("New Max bytes is: %s\n"), edit_uint64(maxbytes, ed1));
    }
 }
 
@@ -219,16 +264,16 @@ static void update_volrecycle(UAContext *ua, char *val, MEDIA_DBR *mr)
 
    POOL_MEM query(PM_MESSAGE);
    if (!is_yesno(val, &recycle)) {
-      bsendmsg(ua, _("Invalid value. It must be yes or no.\n"));
+      ua->error_msg(_("Invalid value. It must be yes or no.\n"));
       return;
    }
    Mmsg(query, "UPDATE Media SET Recycle=%d WHERE MediaId=%s",
       recycle, edit_int64(mr->MediaId, ed1));
    if (!db_sql_query(ua->db, query.c_str(), NULL, NULL)) {
-      bsendmsg(ua, "%s", db_strerror(ua->db));
+      ua->error_msg("%s", db_strerror(ua->db));
    } else {
-      bsendmsg(ua, _("New Recycle flag is: %s\n"),
-         mr->Recycle==1?_("yes"):_("no"));
+      ua->info_msg(_("New Recycle flag is: %s\n"),
+         recycle==1?_("yes"):_("no"));
    }
 }
 
@@ -239,16 +284,16 @@ static void update_volinchanger(UAContext *ua, char *val, MEDIA_DBR *mr)
 
    POOL_MEM query(PM_MESSAGE);
    if (!is_yesno(val, &InChanger)) {
-      bsendmsg(ua, _("Invalid value. It must be yes or no.\n"));
+      ua->error_msg(_("Invalid value. It must be yes or no.\n"));
       return;
    }
    Mmsg(query, "UPDATE Media SET InChanger=%d WHERE MediaId=%s",
       InChanger, edit_int64(mr->MediaId, ed1));
    if (!db_sql_query(ua->db, query.c_str(), NULL, NULL)) {
-      bsendmsg(ua, "%s", db_strerror(ua->db));
+      ua->error_msg("%s", db_strerror(ua->db));
    } else {
-      bsendmsg(ua, _("New InChanger flag is: %s\n"),
-         mr->InChanger==1?_("yes"):_("no"));
+      ua->info_msg(_("New InChanger flag is: %s\n"),
+         InChanger==1?_("yes"):_("no"));
    }
 }
 
@@ -259,13 +304,13 @@ static void update_volslot(UAContext *ua, char *val, MEDIA_DBR *mr)
 
    memset(&pr, 0, sizeof(POOL_DBR));
    pr.PoolId = mr->PoolId;
-   if (!db_get_pool_record(ua->jcr, ua->db, &pr)) {
-      bsendmsg(ua, "%s", db_strerror(ua->db));
+   if (!db_get_pool_numvols(ua->jcr, ua->db, &pr)) {
+      ua->error_msg("%s", db_strerror(ua->db));
       return;
    }
    mr->Slot = atoi(val);
    if (pr.MaxVols > 0 && mr->Slot > (int)pr.MaxVols) {
-      bsendmsg(ua, _("Invalid slot, it must be between 0 and MaxVols=%d\n"),
+      ua->error_msg(_("Invalid slot, it must be between 0 and MaxVols=%d\n"),
          pr.MaxVols);
       return;
    }
@@ -273,18 +318,19 @@ static void update_volslot(UAContext *ua, char *val, MEDIA_DBR *mr)
     * Make sure to use db_update... rather than doing this directly,
     *   so that any Slot is handled correctly.
     */
+   set_storageid_in_mr(NULL, mr);
    if (!db_update_media_record(ua->jcr, ua->db, mr)) {
-      bsendmsg(ua, _("Error updating media record Slot: ERR=%s"), db_strerror(ua->db));
+      ua->error_msg(_("Error updating media record Slot: ERR=%s"), db_strerror(ua->db));
    } else {
-      bsendmsg(ua, _("New Slot is: %d\n"), mr->Slot);
+      ua->info_msg(_("New Slot is: %d\n"), mr->Slot);
    }
 }
 
 /* Modify the Pool in which this Volume is located */
-static void update_vol_pool(UAContext *ua, char *val, MEDIA_DBR *mr, POOL_DBR *opr)
+void update_vol_pool(UAContext *ua, char *val, MEDIA_DBR *mr, POOL_DBR *opr)
 {
    POOL_DBR pr;
-   POOLMEM *query;
+   POOL_MEM query(PM_MESSAGE);
    char ed1[50], ed2[50];
 
    memset(&pr, 0, sizeof(pr));
@@ -295,26 +341,58 @@ static void update_vol_pool(UAContext *ua, char *val, MEDIA_DBR *mr, POOL_DBR *o
    mr->PoolId = pr.PoolId;            /* set new PoolId */
    /*
     */
-   query = get_pool_memory(PM_MESSAGE);
    db_lock(ua->db);
    Mmsg(query, "UPDATE Media SET PoolId=%s WHERE MediaId=%s",
-      edit_int64(mr->PoolId, ed1),
-      edit_int64(mr->MediaId, ed2));
-   if (!db_sql_query(ua->db, query, NULL, NULL)) {
-      bsendmsg(ua, "%s", db_strerror(ua->db));
+      edit_int64(mr->PoolId, ed1), edit_int64(mr->MediaId, ed2));
+   if (!db_sql_query(ua->db, query.c_str(), NULL, NULL)) {
+      ua->error_msg("%s", db_strerror(ua->db));
    } else {
-      bsendmsg(ua, _("New Pool is: %s\n"), pr.Name);
+      ua->info_msg(_("New Pool is: %s\n"), pr.Name);
       opr->NumVols--;
       if (!db_update_pool_record(ua->jcr, ua->db, opr)) {
-         bsendmsg(ua, "%s", db_strerror(ua->db));
+         ua->error_msg("%s", db_strerror(ua->db));
       }
       pr.NumVols++;
       if (!db_update_pool_record(ua->jcr, ua->db, &pr)) {
-         bsendmsg(ua, "%s", db_strerror(ua->db));
+         ua->error_msg("%s", db_strerror(ua->db));
       }
    }
    db_unlock(ua->db);
-   free_pool_memory(query);
+}
+
+/* Modify the RecyclePool of a Volume */
+void update_vol_recyclepool(UAContext *ua, char *val, MEDIA_DBR *mr)
+{
+   POOL_DBR pr;
+   POOL_MEM query(PM_MESSAGE);
+   char ed1[50], ed2[50], *poolname;
+
+   if(val && *val) { /* update volume recyclepool="Scratch" */
+     /* If a pool name is given, look up the PoolId */
+     memset(&pr, 0, sizeof(pr));
+     bstrncpy(pr.Name, val, sizeof(pr.Name));
+     if (!get_pool_dbr(ua, &pr, NT_("recyclepool"))) {
+        return;
+     }
+     /* pool = select_pool_resource(ua);  */
+     mr->RecyclePoolId = pr.PoolId;            /* get the PoolId */
+     poolname = pr.Name;
+
+  } else { /* update volume recyclepool="" */
+    /* If no pool name is given, set the PoolId to 0 (the default) */
+     mr->RecyclePoolId = 0;
+     poolname = _("*None*");
+  }
+
+   db_lock(ua->db);
+   Mmsg(query, "UPDATE Media SET RecyclePoolId=%s WHERE MediaId=%s",
+      edit_int64(mr->RecyclePoolId, ed1), edit_int64(mr->MediaId, ed2));
+   if (!db_sql_query(ua->db, query.c_str(), NULL, NULL)) {
+      ua->error_msg("%s", db_strerror(ua->db));
+   } else {
+      ua->info_msg(_("New RecyclePool is: %s\n"), poolname);
+   }
+   db_unlock(ua->db);
 }
 
 /*
@@ -326,15 +404,15 @@ static void update_vol_from_pool(UAContext *ua, MEDIA_DBR *mr)
 
    memset(&pr, 0, sizeof(pr));
    pr.PoolId = mr->PoolId;
-   if (!db_get_pool_record(ua->jcr, ua->db, &pr) ||
+   if (!db_get_pool_numvols(ua->jcr, ua->db, &pr) ||
        !acl_access_ok(ua, Pool_ACL, pr.Name)) {
       return;
    }
    set_pool_dbr_defaults_in_media_dbr(mr, &pr);
    if (!db_update_media_defaults(ua->jcr, ua->db, mr)) {
-      bsendmsg(ua, _("Error updating Volume record: ERR=%s"), db_strerror(ua->db));
+      ua->error_msg(_("Error updating Volume record: ERR=%s"), db_strerror(ua->db));
    } else {
-      bsendmsg(ua, _("Volume defaults updated from \"%s\" Pool record.\n"),
+      ua->info_msg(_("Volume defaults updated from \"%s\" Pool record.\n"),
          pr.Name);
    }
 }
@@ -343,48 +421,95 @@ static void update_vol_from_pool(UAContext *ua, MEDIA_DBR *mr)
  * Refresh the Volume information from the Pool record
  *   for all Volumes
  */
-static void update_all_vols_from_pool(UAContext *ua)
+static void update_all_vols_from_pool(UAContext *ua, const char *pool_name)
 {
    POOL_DBR pr;
    MEDIA_DBR mr;
 
    memset(&pr, 0, sizeof(pr));
-   memset(&mr, 0, sizeof(mr));
+
+   bstrncpy(pr.Name, pool_name, sizeof(pr.Name));
    if (!get_pool_dbr(ua, &pr)) {
       return;
    }
    set_pool_dbr_defaults_in_media_dbr(&mr, &pr);
    mr.PoolId = pr.PoolId;
    if (!db_update_media_defaults(ua->jcr, ua->db, &mr)) {
-      bsendmsg(ua, _("Error updating Volume records: ERR=%s"), db_strerror(ua->db));
+      ua->error_msg(_("Error updating Volume records: ERR=%s"), db_strerror(ua->db));
    } else {
-      bsendmsg(ua, _("All Volume defaults updated from Pool record.\n"));
+      ua->info_msg(_("All Volume defaults updated from \"%s\" Pool record.\n"),
+         pr.Name);
    }
 }
 
-static void update_volenabled(UAContext *ua, char *val, MEDIA_DBR *mr)
+static void update_all_vols(UAContext *ua)
 {
-   if (strcasecmp(val, "yes") == 0 || strcasecmp(val, "true") == 0) {
-      mr->Enabled = 1;
-   } else if (strcasecmp(val, "no") == 0 || strcasecmp(val, "false") == 0) {
-      mr->Enabled = 0;
-   } else if (strcasecmp(val, "archived") == 0) { 
-      mr->Enabled = 2;
-   } else {
-      mr->Enabled = atoi(val);
+   int i, num_pools;
+   uint32_t *ids;
+   POOL_DBR pr;
+   MEDIA_DBR mr;
+
+   memset(&pr, 0, sizeof(pr));
+
+   if (!db_get_pool_ids(ua->jcr, ua->db, &num_pools, &ids)) {
+      ua->error_msg(_("Error obtaining pool ids. ERR=%s\n"), db_strerror(ua->db));
+      return;
    }
-   if (mr->Enabled < 0 || mr->Enabled > 2) {
-      bsendmsg(ua, _("Invalid Enabled, it must be 0, 1, or 2\n"));
+
+   for (i=0; i<num_pools; i++) {
+      pr.PoolId = ids[i];
+      if (!db_get_pool_numvols(ua->jcr, ua->db, &pr)) { /* ***FIXME*** use acl? */
+         ua->warning_msg(_("Updating all pools, but skipped PoolId=%d. ERR=%s\n"), db_strerror(ua->db));
+         continue;
+      }
+
+      set_pool_dbr_defaults_in_media_dbr(&mr, &pr);
+      mr.PoolId = pr.PoolId;
+
+      if (!db_update_media_defaults(ua->jcr, ua->db, &mr)) {
+         ua->error_msg(_("Error updating Volume records: ERR=%s"), db_strerror(ua->db));
+      } else {
+         ua->info_msg(_("All Volume defaults updated from \"%s\" Pool record.\n"),
+            pr.Name);
+      }
+   }
+
+   free(ids);
+}
+
+static void update_volenabled(UAContext *ua, char *val, MEDIA_DBR *mr)
+{
+   mr->Enabled = get_enabled(ua, val);
+   if (mr->Enabled < 0) {
       return;
    }
+   set_storageid_in_mr(NULL, mr);
    if (!db_update_media_record(ua->jcr, ua->db, mr)) {
-      bsendmsg(ua, _("Error updating media record Enabled: ERR=%s"), db_strerror(ua->db));
+      ua->error_msg(_("Error updating media record Enabled: ERR=%s"),
+                    db_strerror(ua->db));
    } else {
-      bsendmsg(ua, _("New Enabled is: %d\n"), mr->Enabled);
+      ua->info_msg(_("New Enabled is: %d\n"), mr->Enabled);
    }
 }
 
+static void update_vol_actiononpurge(UAContext *ua, char *val, MEDIA_DBR *mr)
+{
+   POOL_MEM ret;
+   if (strcasecmp(val, "truncate") == 0) {
+      mr->ActionOnPurge = ON_PURGE_TRUNCATE;
+   } else {
+      mr->ActionOnPurge = 0;
+   }
 
+   set_storageid_in_mr(NULL, mr);
+   if (!db_update_media_record(ua->jcr, ua->db, mr)) {
+      ua->error_msg(_("Error updating media record ActionOnPurge: ERR=%s"),
+                    db_strerror(ua->db));
+   } else {
+      ua->info_msg(_("New ActionOnPurge is: %s\n"),
+                   action_on_purge_to_string(mr->ActionOnPurge, ret));
+   }
+}
 
 /*
  * Update a media record -- allows you to change the
@@ -395,35 +520,51 @@ static void update_volenabled(UAContext *ua, char *val, MEDIA_DBR *mr)
 static int update_volume(UAContext *ua)
 {
    MEDIA_DBR mr;
+   POOL *pool;
    POOL_DBR pr;
    POOLMEM *query;
+   POOL_MEM ret;
+   char buf[1000];
    char ed1[130];
    bool done = false;
    int i;
    const char *kw[] = {
-      _("VolStatus"),                /* 0 */
-      _("VolRetention"),             /* 1 */
-      _("VolUse"),                   /* 2 */
-      _("MaxVolJobs"),               /* 3 */
-      _("MaxVolFiles"),              /* 4 */
-      _("MaxVolBytes"),              /* 5 */
-      _("Recycle"),                  /* 6 */
-      _("InChanger"),                /* 7 */
-      _("Slot"),                     /* 8 */
-      _("Pool"),                     /* 9 */
-      _("FromPool"),                 /* 10 */
-      _("AllFromPool"),              /* 11 !!! see below !!! */
-      _("Enabled"),                  /* 12 */
+      NT_("VolStatus"),                /* 0 */
+      NT_("VolRetention"),             /* 1 */
+      NT_("VolUse"),                   /* 2 */
+      NT_("MaxVolJobs"),               /* 3 */
+      NT_("MaxVolFiles"),              /* 4 */
+      NT_("MaxVolBytes"),              /* 5 */
+      NT_("Recycle"),                  /* 6 */
+      NT_("InChanger"),                /* 7 */
+      NT_("Slot"),                     /* 8 */
+      NT_("Pool"),                     /* 9 */
+      NT_("FromPool"),                 /* 10 !!! see below !!! */
+      NT_("AllFromPool"),              /* 11 !!! see below !!! */
+      NT_("Enabled"),                  /* 12 */
+      NT_("RecyclePool"),              /* 13 */
+      NT_("ActionOnPurge"),            /* 14 */
+      NT_("FromAllPools"),             /* 15 !!! see bellow !!! */
+      NT_("CacheRetention"),           /* 16 */
       NULL };
 
-#define AllFromPool 11               /* keep this updated with above */
+#define FromPool     10              /* keep this updated */
+#define AllFromPool  11              /* keep this updated with above */
+#define FromAllPools 15              /* keep this updated */
 
    for (i=0; kw[i]; i++) {
       int j;
       POOL_DBR pr;
-      if ((j=find_arg_with_value(ua, kw[i])) > 0) {
-         /* If all from pool don't select a media record */
-         if (i != AllFromPool && !select_media_dbr(ua, &mr)) {
+      /* No argv with these parameters */
+      if (i == FromPool || i == FromAllPools) {
+         j = find_arg(ua, kw[i]);
+
+      } else {
+         j = find_arg_with_value(ua, kw[i]);
+      }
+      if (j > 0) {
+         /* If all from pool/from all pools don't select a media record */
+         if (i != AllFromPool && i != FromAllPools && !select_media_dbr(ua, &mr)) {
             return 0;
          }
          switch (i) {
@@ -457,8 +598,8 @@ static int update_volume(UAContext *ua)
          case 9:
             memset(&pr, 0, sizeof(POOL_DBR));
             pr.PoolId = mr.PoolId;
-            if (!db_get_pool_record(ua->jcr, ua->db, &pr)) {
-               bsendmsg(ua, "%s", db_strerror(ua->db));
+            if (!db_get_pool_numvols(ua->jcr, ua->db, &pr)) {
+               ua->error_msg("%s", db_strerror(ua->db));
                break;
             }
             update_vol_pool(ua, ua->argv[j], &mr, &pr);
@@ -467,11 +608,23 @@ static int update_volume(UAContext *ua)
             update_vol_from_pool(ua, &mr);
             return 1;
          case 11:
-            update_all_vols_from_pool(ua);
+            update_all_vols_from_pool(ua, ua->argv[j]);
             return 1;
          case 12:
             update_volenabled(ua, ua->argv[j], &mr);
             break;
+         case 13:
+            update_vol_recyclepool(ua, ua->argv[j], &mr);
+            break;
+         case 14:
+            update_vol_actiononpurge(ua, ua->argv[j], &mr);
+            break;
+         case 15:
+            update_all_vols(ua);
+            break;
+         case 16:
+            update_vol_cacheretention(ua, ua->argv[j], &mr);
+            break;
          }
          done = true;
       }
@@ -492,23 +645,28 @@ static int update_volume(UAContext *ua)
       add_prompt(ua, _("Pool"));                       /* 10 */
       add_prompt(ua, _("Volume from Pool"));           /* 11 */
       add_prompt(ua, _("All Volumes from Pool"));      /* 12 */
-      add_prompt(ua, _("Enabled")),                    /* 13 */
-      add_prompt(ua, _("Done"));                       /* 14 */
-      i = do_prompt(ua, "", _("Select parameter to modify"), NULL, 0);  
+      add_prompt(ua, _("All Volumes from all Pools")); /* 13 */
+      add_prompt(ua, _("Enabled")),                    /* 14 */
+      add_prompt(ua, _("RecyclePool")),                /* 15 */
+      add_prompt(ua, _("Action On Purge")),            /* 16 */
+      add_prompt(ua, _("Cache Retention")),            /* 17 */
+      add_prompt(ua, _("Done"));                       /* 18 */
+      i = do_prompt(ua, "", _("Select parameter to modify"), NULL, 0);
 
-      /* For All Volumes from Pool and Done, we don't need a Volume record */
-      if (i != 12 && i != 14) {
+      /* For All Volumes, All Volumes from Pool, and Done, we don't need
+           * a Volume record */
+      if ( i != 12 && i != 13 && i != 18) {
          if (!select_media_dbr(ua, &mr)) {  /* Get Volume record */
             return 0;
          }
-         bsendmsg(ua, _("Updating Volume \"%s\"\n"), mr.VolumeName);
+         ua->info_msg(_("Updating Volume \"%s\"\n"), mr.VolumeName);
       }
       switch (i) {
       case 0:                         /* Volume Status */
          /* Modify Volume Status */
-         bsendmsg(ua, _("Current Volume status is: %s\n"), mr.VolStatus);
+         ua->info_msg(_("Current Volume status is: %s\n"), mr.VolStatus);
          start_prompt(ua, _("Possible Values are:\n"));
-         add_prompt(ua, NT_("Append")); 
+         add_prompt(ua, NT_("Append"));
          add_prompt(ua, NT_("Archive"));
          add_prompt(ua, NT_("Disabled"));
          add_prompt(ua, NT_("Full"));
@@ -524,7 +682,7 @@ static int update_volume(UAContext *ua)
          update_volstatus(ua, ua->cmd, &mr);
          break;
       case 1:                         /* Retention */
-         bsendmsg(ua, _("Current retention period is: %s\n"),
+         ua->info_msg(_("Current retention period is: %s\n"),
             edit_utime(mr.VolRetention, ed1, sizeof(ed1)));
          if (!get_cmd(ua, _("Enter Volume Retention period: "))) {
             return 0;
@@ -533,7 +691,7 @@ static int update_volume(UAContext *ua)
          break;
 
       case 2:                         /* Use Duration */
-         bsendmsg(ua, _("Current use duration is: %s\n"),
+         ua->info_msg(_("Current use duration is: %s\n"),
             edit_utime(mr.VolUseDuration, ed1, sizeof(ed1)));
          if (!get_cmd(ua, _("Enter Volume Use Duration: "))) {
             return 0;
@@ -542,7 +700,7 @@ static int update_volume(UAContext *ua)
          break;
 
       case 3:                         /* Max Jobs */
-         bsendmsg(ua, _("Current max jobs is: %u\n"), mr.MaxVolJobs);
+         ua->info_msg(_("Current max jobs is: %u\n"), mr.MaxVolJobs);
          if (!get_pint(ua, _("Enter new Maximum Jobs: "))) {
             return 0;
          }
@@ -550,7 +708,7 @@ static int update_volume(UAContext *ua)
          break;
 
       case 4:                         /* Max Files */
-         bsendmsg(ua, _("Current max files is: %u\n"), mr.MaxVolFiles);
+         ua->info_msg(_("Current max files is: %u\n"), mr.MaxVolFiles);
          if (!get_pint(ua, _("Enter new Maximum Files: "))) {
             return 0;
          }
@@ -558,7 +716,7 @@ static int update_volume(UAContext *ua)
          break;
 
       case 5:                         /* Max Bytes */
-         bsendmsg(ua, _("Current value is: %s\n"), edit_uint64(mr.MaxVolBytes, ed1));
+         ua->info_msg(_("Current value is: %s\n"), edit_uint64(mr.MaxVolBytes, ed1));
          if (!get_cmd(ua, _("Enter new Maximum Bytes: "))) {
             return 0;
          }
@@ -567,7 +725,7 @@ static int update_volume(UAContext *ua)
 
 
       case 6:                         /* Recycle */
-         bsendmsg(ua, _("Current recycle flag is: %s\n"),
+         ua->info_msg(_("Current recycle flag is: %s\n"),
             mr.Recycle==1?_("yes"):_("no"));
          if (!get_yesno(ua, _("Enter new Recycle status: "))) {
             return 0;
@@ -576,16 +734,18 @@ static int update_volume(UAContext *ua)
          break;
 
       case 7:                         /* Slot */
-         bsendmsg(ua, _("Current Slot is: %d\n"), mr.Slot);
+         ua->info_msg(_("Current Slot is: %d\n"), mr.Slot);
          if (!get_pint(ua, _("Enter new Slot: "))) {
             return 0;
          }
          update_volslot(ua, ua->cmd, &mr);
          break;
-         
+
       case 8:                         /* InChanger */
-         bsendmsg(ua, _("Current InChanger flag is: %d\n"), mr.InChanger);
-         if (!get_yesno(ua, _("Set InChanger flag? yes/no: "))) {
+         ua->info_msg(_("Current InChanger flag is: %d\n"), mr.InChanger);
+         bsnprintf(buf, sizeof(buf), _("Set InChanger flag for Volume \"%s\": yes/no: "),
+            mr.VolumeName);
+         if (!get_yesno(ua, buf)) {
             return 0;
          }
          mr.InChanger = ua->pint32_val;
@@ -593,26 +753,27 @@ static int update_volume(UAContext *ua)
           * Make sure to use db_update... rather than doing this directly,
           *   so that any Slot is handled correctly.
           */
+         set_storageid_in_mr(NULL, &mr);
          if (!db_update_media_record(ua->jcr, ua->db, &mr)) {
-            bsendmsg(ua, _("Error updating media record Slot: ERR=%s"), db_strerror(ua->db));
+            ua->error_msg(_("Error updating media record Slot: ERR=%s"), db_strerror(ua->db));
          } else {
-            bsendmsg(ua, _("New InChanger flag is: %d\n"), mr.InChanger);
+            ua->info_msg(_("New InChanger flag is: %d\n"), mr.InChanger);
          }
          break;
 
 
       case 9:                         /* Volume Files */
          int32_t VolFiles;
-         bsendmsg(ua, _("Warning changing Volume Files can result\n"
+         ua->warning_msg(_("Warning changing Volume Files can result\n"
                         "in loss of data on your Volume\n\n"));
-         bsendmsg(ua, _("Current Volume Files is: %u\n"), mr.VolFiles);
+         ua->info_msg(_("Current Volume Files is: %u\n"), mr.VolFiles);
          if (!get_pint(ua, _("Enter new number of Files for Volume: "))) {
             return 0;
          }
          VolFiles = ua->pint32_val;
          if (VolFiles != (int)(mr.VolFiles + 1)) {
-            bsendmsg(ua, _("Normally, you should only increase Volume Files by one!\n"));
-            if (!get_yesno(ua, _("Continue? (yes/no): ")) || ua->pint32_val == 0) {
+            ua->warning_msg(_("Normally, you should only increase Volume Files by one!\n"));
+            if (!get_yesno(ua, _("Increase Volume Files? (yes/no): ")) || ua->pint32_val == 0) {
                break;
             }
          }
@@ -620,9 +781,9 @@ static int update_volume(UAContext *ua)
          Mmsg(query, "UPDATE Media SET VolFiles=%u WHERE MediaId=%s",
             VolFiles, edit_int64(mr.MediaId, ed1));
          if (!db_sql_query(ua->db, query, NULL, NULL)) {
-            bsendmsg(ua, "%s", db_strerror(ua->db));
+            ua->error_msg("%s", db_strerror(ua->db));
          } else {
-            bsendmsg(ua, _("New Volume Files is: %u\n"), VolFiles);
+            ua->info_msg(_("New Volume Files is: %u\n"), VolFiles);
          }
          free_pool_memory(query);
          break;
@@ -630,11 +791,11 @@ static int update_volume(UAContext *ua)
       case 10:                        /* Volume's Pool */
          memset(&pr, 0, sizeof(POOL_DBR));
          pr.PoolId = mr.PoolId;
-         if (!db_get_pool_record(ua->jcr, ua->db, &pr)) {
-            bsendmsg(ua, "%s", db_strerror(ua->db));
+         if (!db_get_pool_numvols(ua->jcr, ua->db, &pr)) {
+            ua->error_msg("%s", db_strerror(ua->db));
             return 0;
          }
-         bsendmsg(ua, _("Current Pool is: %s\n"), pr.Name);
+         ua->info_msg(_("Current Pool is: %s\n"), pr.Name);
          if (!get_cmd(ua, _("Enter new Pool name: "))) {
             return 0;
          }
@@ -645,38 +806,89 @@ static int update_volume(UAContext *ua)
          update_vol_from_pool(ua, &mr);
          return 1;
       case 12:
-         update_all_vols_from_pool(ua);
+         pool = select_pool_resource(ua);
+         if (pool) {
+            update_all_vols_from_pool(ua, pool->name());
+         }
          return 1;
 
       case 13:
-         bsendmsg(ua, _("Current Enabled is: %d\n"), mr.Enabled);
+         update_all_vols(ua);
+         return 1;
+
+      case 14:
+         ua->info_msg(_("Current Enabled is: %d\n"), mr.Enabled);
          if (!get_cmd(ua, _("Enter new Enabled: "))) {
             return 0;
          }
-         if (strcasecmp(ua->cmd, "yes") == 0 || strcasecmp(ua->cmd, "true") == 0) {
-            mr.Enabled = 1;
-         } else if (strcasecmp(ua->cmd, "no") == 0 || strcasecmp(ua->cmd, "false") == 0) {
-            mr.Enabled = 0;
-         } else if (strcasecmp(ua->cmd, "archived") == 0) { 
-            mr.Enabled = 2;
+         update_volenabled(ua, ua->cmd, &mr);
+         break;
+
+      case 15:
+         memset(&pr, 0, sizeof(POOL_DBR));
+         pr.PoolId = mr.RecyclePoolId;
+         if (db_get_pool_numvols(ua->jcr, ua->db, &pr)) {
+            ua->info_msg(_("Current RecyclePool is: %s\n"), pr.Name);
          } else {
-            mr.Enabled = atoi(ua->cmd);
+            ua->info_msg(_("No current RecyclePool\n"));
          }
-         update_volenabled(ua, ua->cmd, &mr);
+         if (!select_pool_dbr(ua, &pr, NT_("recyclepool"))) {
+            return 0;
+         }
+         update_vol_recyclepool(ua, pr.Name, &mr);
+         return 1;
+
+      case 16:
+         pm_strcpy(ret, "");
+         ua->info_msg(_("Current ActionOnPurge is: %s\n"),
+                      action_on_purge_to_string(mr.ActionOnPurge, ret));
+         if (!get_cmd(ua, _("Enter new ActionOnPurge (one of: Truncate, None): "))) {
+            return 0;
+         }
+
+         update_vol_actiononpurge(ua, ua->cmd, &mr);
+         break;
+
+      case 17:
+         pm_strcpy(ret, "");
+         ua->info_msg(_("Current Cache Retention period is: %s\n"),
+                      edit_utime(mr.CacheRetention, ed1, sizeof(ed1)));
+         if (!get_cmd(ua, _("Enter Cache Retention period: "))) {
+            return 0;
+         }
+         update_vol_cacheretention(ua, ua->cmd, &mr);
          break;
 
       default:                        /* Done or error */
-         bsendmsg(ua, _("Selection terminated.\n"));
+         ua->info_msg(_("Selection terminated.\n"));
          return 1;
       }
    }
    return 1;
 }
 
+/*
+ * Update long term statistics
+ */
+static bool update_stats(UAContext *ua)
+{
+   int i = find_arg_with_value(ua, NT_("days"));
+   utime_t since=0;
+
+   if (i >= 0) {
+      since = atoi(ua->argv[i]) * 24*60*60;
+   }
+
+   int nb = db_update_stats(ua->jcr, ua->db, since);
+   ua->info_msg(_("Updating %i job(s).\n"), nb);
+
+   return true;
+}
+
 /*
  * Update pool record -- pull info from current POOL resource
  */
-static int update_pool(UAContext *ua)
+static bool update_pool(UAContext *ua)
 {
    POOL_DBR  pr;
    int id;
@@ -686,26 +898,145 @@ static int update_pool(UAContext *ua)
 
    pool = get_pool_resource(ua);
    if (!pool) {
-      return 0;
+      return false;
    }
 
    memset(&pr, 0, sizeof(pr));
-   bstrncpy(pr.Name, pool->hdr.name, sizeof(pr.Name));
+   bstrncpy(pr.Name, pool->name(), sizeof(pr.Name));
    if (!get_pool_dbr(ua, &pr)) {
-      return 0;
+      return false;
    }
 
    set_pooldbr_from_poolres(&pr, pool, POOL_OP_UPDATE); /* update */
+   set_pooldbr_references(ua->jcr, ua->db, &pr, pool);
 
    id = db_update_pool_record(ua->jcr, ua->db, &pr);
    if (id <= 0) {
-      bsendmsg(ua, _("db_update_pool_record returned %d. ERR=%s\n"),
+      ua->error_msg(_("db_update_pool_record returned %d. ERR=%s\n"),
          id, db_strerror(ua->db));
    }
    query = get_pool_memory(PM_MESSAGE);
    Mmsg(query, list_pool, edit_int64(pr.PoolId, ed1));
    db_list_sql_query(ua->jcr, ua->db, query, prtit, ua, 1, HORZ_LIST);
    free_pool_memory(query);
-   bsendmsg(ua, _("Pool DB record updated from resource.\n"));
-   return 1;
+   ua->info_msg(_("Pool DB record updated from resource.\n"));
+   return true;
+}
+
+/*
+ * Update a Job record -- allows you to change the
+ *  date fields in a Job record. This helps when
+ *  providing migration from other vendors.
+ */
+static bool update_job(UAContext *ua)
+{
+   int i, priority=0;
+   char ed1[50], ed2[50], ed3[50];
+   POOL_MEM cmd(PM_MESSAGE);
+   JOB_DBR jr;
+   CLIENT_DBR cr;
+   JCR *jcr;
+   utime_t StartTime;
+   char *client_name = NULL;
+   char *start_time = NULL;
+   const char *kw[] = {
+      NT_("starttime"),                   /* 0 */
+      NT_("client"),                      /* 1 */
+      NT_("priority"),                    /* 2 */
+      NULL };
+
+   Dmsg1(200, "cmd=%s\n", ua->cmd);
+   i = find_arg_with_value(ua, NT_("jobid"));
+   if (i < 0) {
+      ua->error_msg(_("Expect JobId keyword, not found.\n"));
+      return false;
+   }
+   memset(&jr, 0, sizeof(jr));
+   memset(&cr, 0, sizeof(cr));
+   jr.JobId = str_to_int64(ua->argv[i]);
+   if (jr.JobId == 0) {
+      ua->error_msg("Bad jobid\n");
+      return false;
+   }
+   if (!db_get_job_record(ua->jcr, ua->db, &jr)) {
+      ua->error_msg("%s", db_strerror(ua->db));
+      return false;
+   }
+   if (!acl_access_ok(ua, Job_ACL, jr.Name)) {
+      ua->error_msg(_("Update failed. Job not authorized on this console\n"));
+      return false;
+   }
+   for (i=0; kw[i]; i++) {
+      int j;
+      if ((j=find_arg_with_value(ua, kw[i])) >= 0) {
+         switch (i) {
+         case 0:                         /* start time */
+            start_time = ua->argv[j];
+            break;
+         case 1:                         /* Client name */
+            client_name = ua->argv[j];
+            break;
+         case 2:
+            priority = str_to_int64(ua->argv[j]);
+            break;
+         }
+      }
+   }
+   if (!client_name && !start_time && !priority) {
+      ua->error_msg(_("Neither Client, StartTime or Priority specified.\n"));
+      return 0;
+   }
+   if (priority > 0) {
+      foreach_jcr(jcr) {
+         if (jcr->JobId == jr.JobId) {
+            int old = jcr->JobPriority;
+            jcr->JobPriority = priority;
+            free_jcr(jcr);
+            ua->send_msg(_("Priority updated for running job \"%s\" from %d to %d\n"), jr.Job, old, priority);
+            return true;
+         }
+      }
+      endeach_jcr(jcr);
+      ua->error_msg(_("Job not found.\n"));
+      return true;
+   }
+   if (client_name) {
+      if (!get_client_dbr(ua, &cr, JT_BACKUP_RESTORE)) {
+         return false;
+      }
+      jr.ClientId = cr.ClientId;
+   }
+   if (start_time) {
+      utime_t delta_start;
+
+      StartTime = str_to_utime(start_time);
+      if (StartTime == 0) {
+         ua->error_msg(_("Improper date format: %s\n"), ua->argv[i]);
+         return false;
+      }
+      delta_start = StartTime - jr.StartTime;
+      Dmsg3(200, "ST=%lld jr.ST=%lld delta=%lld\n", StartTime,
+            (utime_t)jr.StartTime, delta_start);
+      jr.StartTime = (time_t)StartTime;
+      jr.SchedTime += (time_t)delta_start;
+      jr.EndTime += (time_t)delta_start;
+      jr.JobTDate += delta_start;
+      /* Convert to DB times */
+      bstrutime(jr.cStartTime, sizeof(jr.cStartTime), jr.StartTime);
+      bstrutime(jr.cSchedTime, sizeof(jr.cSchedTime), jr.SchedTime);
+      bstrutime(jr.cEndTime, sizeof(jr.cEndTime), jr.EndTime);
+   }
+   Mmsg(cmd, "UPDATE Job SET ClientId=%s,StartTime='%s',SchedTime='%s',"
+             "EndTime='%s',JobTDate=%s WHERE JobId=%s",
+             edit_int64(jr.ClientId, ed1),
+             jr.cStartTime,
+             jr.cSchedTime,
+             jr.cEndTime,
+             edit_uint64(jr.JobTDate, ed2),
+             edit_int64(jr.JobId, ed3));
+   if (!db_sql_query(ua->db, cmd.c_str(), NULL, NULL)) {
+      ua->error_msg("%s", db_strerror(ua->db));
+      return false;
+   }
+   return true;
 }