lintian doesn't like orphan packages with uploaders...
[debian/amanda] / recover-src / set_commands.c
index 383aae1e45354bb240b86eecf6a5edd6e4ab607e..6d4e96ad64da35d10dd40355f05de4c16280a648 100644 (file)
@@ -1,6 +1,7 @@
 /*
  * Amanda, The Advanced Maryland Automatic Network Disk Archiver
  * Copyright (c) 1991-1998, 2000 University of Maryland at College Park
+ * Copyright (c) 2007-2012 Zmanda, Inc.  All Rights Reserved.
  * All Rights Reserved.
  *
  * Permission to use, copy, modify, distribute, and sell this software and its
@@ -30,6 +31,7 @@
  */
 
 #include "amanda.h"
+#include "match.h"
 #include "util.h"
 #include "amrecover.h"
 #include "amxml.h"
@@ -68,6 +70,7 @@ set_date(
            g_printf(_("No index records for cwd on new date\n"));
            g_printf(_("Setting cwd to mount point\n"));
            disk_path = newstralloc(disk_path, "/");    /* fake it */
+           disk_tpath = newstralloc(disk_tpath, "/");  /* fake it */
            clear_dir_list();
        }
     }
@@ -164,6 +167,7 @@ set_host(
        amfree(disk_name);
        amfree(mount_point);
        amfree(disk_path);
+       amfree(disk_tpath);
        clear_dir_list();
     }
     amfree(cmd);
@@ -253,6 +257,7 @@ set_disk(
     if (server_happy())
     {
        disk_path = newstralloc(disk_path, "/");
+       disk_tpath = newstralloc(disk_tpath, "/");
        suck_dir_list_from_server();    /* get list of directory contents */
     }
     else
@@ -260,6 +265,7 @@ set_disk(
        g_printf(_("No index records for disk for specified date\n"));
        g_printf(_("If date correct, notify system administrator\n"));
        disk_path = newstralloc(disk_path, "/");        /* fake it */
+       disk_tpath = newstralloc(disk_tpath, "/");      /* fake it */
        clear_dir_list();
     }
     amfree(uqmtpt);
@@ -283,6 +289,7 @@ set_disk(
        } else {
            dle_str = unquote_string(dle_str+4);
            dump_dle = amxml_parse_node_CHAR(dle_str, &errmsg);
+           amfree(dle_str);
        }
     }
 }
@@ -312,6 +319,93 @@ list_disk(
     }
 }
 
+static GSList *prop_values = NULL;
+
+void
+set_property_name(
+    char *name,
+    int   append)
+{
+    property_t *prop;
+    char       *property_name, *pn;
+
+    pn = unquote_string(name);
+    property_name = amandaify_property_name(pn);
+    amfree(pn);
+
+    if (!append) {
+       g_hash_table_remove(proplist, property_name);
+       prop = NULL;
+    } else {
+       prop = g_hash_table_lookup(proplist, property_name);
+    }
+    
+    if (!prop) {
+       prop = malloc(sizeof(property_t));
+       prop->append = 0;
+       prop->priority = 1;
+       prop->values = NULL;
+       g_hash_table_insert(proplist, stralloc(property_name), prop);
+    }
+
+    /* add prop_values to prop->values */
+    if (!prop->values) {
+       prop->values = prop_values;
+       prop_values = NULL;
+    } else {
+       GSList *pv;
+
+       for(pv = prop_values; pv != NULL; pv = pv->next) {
+           prop->values = g_slist_append(prop->values, pv->data);
+       }
+       g_slist_free(prop_values);
+       prop_values = NULL;
+    }
+    amfree(property_name);
+}
+
+void
+add_property_value(
+    char *value)
+{
+    if (value) {
+       prop_values = g_slist_prepend(prop_values, unquote_string(value));
+    }
+}
+
+/* A GHFunc (callback for g_hash_table_foreach) */
+static void list_one_property(
+    gpointer key_p,
+    gpointer value_p,
+    gpointer user_data_p G_GNUC_UNUSED)
+{
+    char       *property_s = key_p;
+    char       *qproperty;
+    property_t *property = value_p;
+    GSList     *value;
+    char       *qvalue;
+
+    qproperty = quote_string_always(property_s);
+    printf("property %s", qproperty);
+    amfree(qproperty);
+    for (value = property->values; value != NULL; value = value->next) {
+       qvalue = quote_string_always((char*)value->data);
+       printf(" %s", qvalue);
+       amfree(qvalue);
+    }
+    printf("\n");
+}
+
+void
+list_property(void)
+{
+    if (proplist) {
+       g_hash_table_foreach(proplist, list_one_property, NULL);
+    } else {
+       printf("No property set\n");
+    }
+}
+
 void
 local_cd(
     char *dir)
@@ -323,20 +417,22 @@ local_cd(
     amfree(uqdir);
 }
 
-void
+int
 cd_glob(
-    char *     glob)
+    char *     glob,
+    int                verbose)
 {
     char *regex;
     char *regex_path;
     char *s;
     char *uqglob;
+    int   result;
 
-    char *path_on_disk = NULL;
+    char *tpath_on_disk = NULL;
 
     if (disk_name == NULL) {
        g_printf(_("Must select disk before changing directory\n"));
-       return;
+       return 0;
     }
 
     uqglob = unquote_string(glob);
@@ -347,7 +443,7 @@ cd_glob(
         puts(s);
        amfree(regex);
        amfree(uqglob);
-        return;
+        return 0;
     }
     /*
      * glob_to_regex() anchors the beginning of the pattern with ^,
@@ -364,34 +460,38 @@ cd_glob(
 
     /* convert path (assumed in cwd) to one on disk */
     if (strcmp(disk_path, "/") == 0)
-        path_on_disk = stralloc2("/", regex_path);
+        tpath_on_disk = stralloc2("/", regex_path);
     else {
-        char *clean_disk_path = clean_regex(disk_path);
-        path_on_disk = vstralloc(clean_disk_path, "/", regex_path, NULL);
-        amfree(clean_disk_path);
+        char *clean_disk_tpath = clean_regex(disk_tpath, 0);
+        tpath_on_disk = vstralloc(clean_disk_tpath, "/", regex_path, NULL);
+        amfree(clean_disk_tpath);
     }
 
-    cd_dir(path_on_disk, uqglob);
+    result = cd_dir(tpath_on_disk, uqglob, verbose);
 
     amfree(regex_path);
-    amfree(path_on_disk);
+    amfree(tpath_on_disk);
     amfree(uqglob);
+
+    return result;
 }
 
-void
+int
 cd_regex(
-    char *     regex)
+    char *     regex,
+    int                verbose)
 {
     char *s;
     char *uq_orig_regex;
     char *uqregex;
     int  len_uqregex;
+    int  result;
 
-    char *path_on_disk = NULL;
+    char *tpath_on_disk = NULL;
 
     if (disk_name == NULL) {
        g_printf(_("Must select disk before changing directory\n"));
-       return;
+       return 0;
     }
 
     uq_orig_regex = unquote_string(regex);
@@ -413,40 +513,43 @@ cd_regex(
        amfree(uqregex);
        amfree(uq_orig_regex);
        puts(s);
-       return;
+       return 0;
     }
 
     /* convert path (assumed in cwd) to one on disk */
     if (strcmp(disk_path, "/") == 0)
-        path_on_disk = stralloc2("/", uqregex);
+        tpath_on_disk = stralloc2("/", uqregex);
     else {
-        char *clean_disk_path = clean_regex(disk_path);
-        path_on_disk = vstralloc(clean_disk_path, "/", regex, NULL);
-        amfree(clean_disk_path);
+        char *clean_disk_tpath = clean_regex(disk_tpath, 0);
+        tpath_on_disk = vstralloc(clean_disk_tpath, "/", regex, NULL);
+        amfree(clean_disk_tpath);
     }
 
-    cd_dir(path_on_disk, uq_orig_regex);
+    result = cd_dir(tpath_on_disk, uq_orig_regex, verbose);
 
-    amfree(path_on_disk);
+    amfree(tpath_on_disk);
     amfree(uqregex);
     amfree(uq_orig_regex);
+
+    return result;
 }
 
-void
+int
 cd_dir(
-    char *     path_on_disk,
-    char *     default_dir)
+    char *tpath_on_disk,
+    char *default_dir,
+    int          verbose)
 {
     char *dir = NULL;
-    char *s;
     int nb_found;
+    int result;
     size_t i;
 
     DIR_ITEM *ditem;
 
-    if ((s = validate_regexp(path_on_disk)) != NULL) {
-       set_directory(default_dir);
-       return;
+    if (validate_regexp(tpath_on_disk) != NULL) {
+       result = set_directory(default_dir, verbose);
+       return result;
     }
 
     nb_found = 0;
@@ -454,11 +557,11 @@ cd_dir(
     for (ditem=get_dir_list(); ditem!=NULL && nb_found <= 1; 
                               ditem=get_next_dir_item(ditem))
     {
-       if (match(path_on_disk, ditem->path))
+       if (match(tpath_on_disk, ditem->tpath))
        {
-           i = strlen(ditem->path);
-           if((i > 0 && ditem->path[i-1] == '/')
-               || (i > 1 && ditem->path[i-2] == '/' && ditem->path[i-1] == '.'))
+           i = strlen(ditem->tpath);
+           if((i > 0 && ditem->tpath[i-1] == '/')
+               || (i > 1 && ditem->tpath[i-2] == '/' && ditem->tpath[i-1] == '.'))
             {   /* It is a directory */
                char *dir1, *dir2;
                nb_found++;
@@ -466,7 +569,7 @@ cd_dir(
                if(dir[strlen(dir)-1] == '/')
                    dir[strlen(dir)-1] = '\0'; /* remove last / */
                /* remove everything before the last / */
-               dir1 = rindex(dir,'/');
+               dir1 = strrchr(dir,'/');
                if (dir1) {
                    dir1++;
                    dir2 = stralloc(dir1);
@@ -478,37 +581,42 @@ cd_dir(
     }
 
     if(nb_found==0) {
-       set_directory(default_dir);
+       result = set_directory(default_dir, verbose);
     }
     else if(nb_found==1) {
-       set_directory(dir);
+       result = set_directory(dir, verbose);
     }
     else {
-       g_printf(_("Too many directories\n"));
+       g_printf(_("Too many directories matching '%s'\n"), default_dir);
+       result = 0;
     }
     amfree(dir);
+    return result;
 }
 
-void
+/* dir is relative to dir_path or absolute with mount_point */
+int
 set_directory(
-    char *     dir)
+    char *     dir,
+    int                verbose)
 {
     char *cmd = NULL;
     char *new_dir = NULL;
     char *qnew_dir;
     char *dp, *de;
     char *ldir = NULL;
+    int   result;
 
     /* do nothing if "." */
     if(strcmp(dir,".")==0) {
        show_directory();               /* say where we are */
-       return;
+       return 1;
        /*NOTREACHED*/
     }
 
     if (disk_name == NULL) {
        g_printf(_("Must select disk before setting directory\n"));
-       return;
+       return 0;
        /*NOTREACHED*/
     }
 
@@ -530,7 +638,7 @@ set_directory(
                g_printf(_("Invalid directory - Can't cd outside mount point \"%s\"\n"),
                       mount_point);
                amfree(ldir);
-               return;
+               return 0;
                /*NOTREACHED*/
            }
            new_dir = stralloc(ldir+strlen(mount_point));
@@ -569,7 +677,7 @@ set_directory(
                amfree(new_dir);
                /*@end@*/
                amfree(ldir);
-               return;
+               return 0;
                /*NOTREACHED*/
            }
            de = strrchr(new_dir, '/'); /* always at least 1 */
@@ -604,18 +712,25 @@ set_directory(
     if (server_happy())
     {
        disk_path = newstralloc(disk_path, new_dir);
+       g_free(disk_tpath);
+       disk_tpath = translate_octal(g_strdup(disk_path));
        suck_dir_list_from_server();    /* get list of directory contents */
-       show_directory();               /* say where we moved to */
+       if (verbose)
+           show_directory();           /* say where we moved to */
+       result = 1;
     }
     else
     {
        g_printf(_("Invalid directory - %s\n"), dir);
+       result = 0;
     }
 
     /*@ignore@*/
     amfree(new_dir);
     amfree(ldir);
     /*@end@*/
+
+    return result;
 }
 
 
@@ -626,11 +741,11 @@ show_directory(void)
     if (mount_point == NULL || disk_path == NULL)
         g_printf(_("Must select disk first\n"));
     else if (strcmp(mount_point, "/") == 0)
-       g_printf("%s\n", disk_path);
+       g_printf("%s\n", disk_tpath);
     else if (strcmp(disk_path, "/") == 0)
        g_printf("%s\n", mount_point);
     else
-       g_printf("%s%s\n", mount_point, disk_path);
+       g_printf("%s%s\n", mount_point, disk_tpath);
 }
 
 
@@ -713,6 +828,23 @@ set_device(
                server_name);
 }
 
+void
+set_translate(
+    char *translate)
+{
+
+    if (translate == NULL) {
+       translate_mode = TRUE;
+    } else if (strcasecmp(translate, "yes") == 0 ||
+              strcasecmp(translate, "true") == 0 ||
+              strcasecmp(translate, "on") == 0) {
+       translate_mode = TRUE;
+    } else {
+       translate_mode = FALSE;
+    }
+    suck_dir_list_from_server();       /* get list of directory contents */
+}
+
 void
 set_mode(
     int                mode)