]> git.sur5r.net Git - bacula/bacula/blobdiff - bacula/src/stored/bextract.c
Use rentrant mysql lib, eliminate race in sql_list, Win32 streams, misc see kes-1.31
[bacula/bacula] / bacula / src / stored / bextract.c
index c7e8206ab7053ac1b8e56b99c9228eaff463e823..ad2e7ad65ae759cb17229c07efd501763918071c 100644 (file)
 #include "stored.h"
 #include "findlib/find.h"
 
+#ifdef HAVE_CYGWIN
+int win32_client = 1;
+#else
+int win32_client = 0;
+#endif
 
-static void do_extract(char *fname, char *prefix);
-static void print_ls_output(char *fname, char *link, int type, struct stat *statp);
 
+static void do_extract(char *fname);
+static void record_cb(JCR *jcr, DEVICE *dev, DEV_BLOCK *block, DEV_RECORD *rec);
 
 static DEVICE *dev = NULL;
-static int ofd = -1;
-
+static BFILE bfd;
 static JCR *jcr;
 static FF_PKT my_ff;
 static FF_PKT *ff = &my_ff;
-
 static BSR *bsr = NULL;
+static int extract = FALSE;
+static long record_file_index;
+static long total = 0;
+static POOLMEM *fname;                   /* original file name */
+static POOLMEM *ofile;                   /* output name with prefix */
+static POOLMEM *lname;                   /* link name */
+static POOLMEM *attribsEx;               /* extended attributes (Win32) */
+static char *where;
+static int wherelen;                     /* prefix length */
+static uint32_t num_files = 0;
+static struct stat statp;
+static uint32_t compress_buf_size = 70000;
+static POOLMEM *compress_buf;
+static int type;
+static int stream;
+static int prog_name_msg = 0;
+static char *VolumeName = NULL;
+
+static char *wbuf;                   /* write buffer address */
+static uint32_t wsize;               /* write size */
+static uint64_t fileAddr = 0;        /* file write address */
+
+#define CONFIG_FILE "bacula-sd.conf"
+char *configfile;
+
 
 static void usage()
 {
    fprintf(stderr,
+"\nVersion: " VERSION " (" BDATE ")\n\n"
 "Usage: bextract [-d debug_level] <bacula-archive> <directory-to-store-files>\n"
 "       -b <file>       specify a bootstrap file\n"
+"       -c <file>       specify a configuration file\n"
 "       -dnn            set debug level to nn\n"
 "       -e <file>       exclude list\n"
 "       -i <file>       include list\n"
+"       -V              specify Volume names (separated by |)\n"
 "       -?              print this message\n\n");
    exit(1);
 }
 
-static void my_free_jcr(JCR *jcr)
-{
-   return;
-}
-
 
 int main (int argc, char *argv[])
 {
@@ -70,17 +96,26 @@ int main (int argc, char *argv[])
    char line[1000];
    int got_inc = FALSE;
 
+   working_directory = "/tmp";
    my_name_is(argc, argv, "bextract");
    init_msg(NULL, NULL);             /* setup message handler */
 
    memset(ff, 0, sizeof(FF_PKT));
    init_include_exclude_files(ff);
+   binit(&bfd);
 
-   while ((ch = getopt(argc, argv, "b:d:e:i:?")) != -1) {
+   while ((ch = getopt(argc, argv, "b:c:d:e:i:?")) != -1) {
       switch (ch) {
          case 'b':                    /* bootstrap file */
-           bsr = parse_bsr(optarg);
-           dump_bsr(bsr);
+           bsr = parse_bsr(NULL, optarg);
+//         dump_bsr(bsr);
+           break;
+
+         case 'c':                    /* specify config file */
+           if (configfile != NULL) {
+              free(configfile);
+           }
+           configfile = bstrdup(optarg);
            break;
 
          case 'd':                    /* debug level */
@@ -118,6 +153,10 @@ int main (int argc, char *argv[])
            got_inc = TRUE;
            break;
 
+         case 'V':                    /* Volume name */
+           VolumeName = optarg;
+           break;
+
          case '?':
         default:
            usage();
@@ -131,65 +170,36 @@ int main (int argc, char *argv[])
       Pmsg0(0, "Wrong number of arguments: \n");
       usage();
    }
+
+   if (configfile == NULL) {
+      configfile = bstrdup(CONFIG_FILE);
+   }
+
+   parse_config(configfile);
+
    if (!got_inc) {                           /* If no include file, */
       add_fname_to_include_list(ff, 0, "/");  /*   include everything */
    }
 
-   jcr = new_jcr(sizeof(JCR), my_free_jcr);
-   jcr->VolSessionId = 1;
-   jcr->VolSessionTime = (uint32_t)time(NULL);
-   jcr->bsr = bsr;
-   strcpy(jcr->Job, "bextract");
-   jcr->dev_name = get_pool_memory(PM_FNAME);
-   strcpy(jcr->dev_name, argv[0]);
+   where = argv[1];
+   do_extract(argv[0]);
 
-   do_extract(argv[0], argv[1]);
-
-   free_jcr(jcr);
    if (bsr) {
       free_bsr(bsr);
    }
    return 0;
 }
-  
 
-static void do_extract(char *devname, char *where)
+static void do_extract(char *devname)
 {
-   int n;     
-   char VolName[100];
-   char *p;
-   struct stat statp;
-   int extract = FALSE;
-   int type;
-   long record_file_index;
-   long total = 0;
-   DEV_RECORD rec;
-   DEV_BLOCK *block;
-   POOLMEM *fname;                   /* original file name */
-   POOLMEM *ofile;                   /* output name with prefix */
-   POOLMEM *lname;                   /* link name */
-   int wherelen;                     /* prefix length */
-   SESSION_LABEL sessrec;
-
-   if (strncmp(devname, "/dev/", 5) != 0) {
-      /* Try stripping file part */
-      p = devname + strlen(devname);
-      while (p >= devname && *p != '/') {
-        p--;
-      }
-      if (*p == '/') {
-        strcpy(VolName, p+1);
-        *p = 0;
-      }
-   }
-   strcpy(jcr->VolumeName, VolName);
 
-   dev = init_dev(NULL, devname);
-   if (!dev || !open_device(dev)) {
-      Emsg1(M_ERROR_TERM, 0, "Cannot open %s\n", devname);
+   jcr = setup_jcr("bextract", devname, bsr, VolumeName);
+   dev = setup_to_access_device(jcr, 1);    /* acquire for read */
+   if (!dev) {
+      exit(1);
    }
-   Dmsg0(90, "Device opened for read.\n");
 
+   /* Make sure where directory exists and that it is a directory */
    if (stat(where, &statp) < 0) {
       Emsg2(M_ERROR_TERM, 0, "Cannot stat %s. It must exist. ERR=%s\n",
         where, strerror(errno));
@@ -202,354 +212,290 @@ static void do_extract(char *devname, char *where)
    fname = get_pool_memory(PM_FNAME);
    ofile = get_pool_memory(PM_FNAME);
    lname = get_pool_memory(PM_FNAME);
+   attribsEx = get_pool_memory(PM_FNAME);
 
-   block = new_block(dev);
-
-   create_vol_list(jcr);
+   compress_buf = get_memory(compress_buf_size);
 
-   Dmsg1(20, "Found %d volumes names to restore.\n", jcr->NumVolumes);
-
-   /* 
-    * Ready device for reading, and read records
+   read_records(jcr, dev, record_cb, mount_next_read_volume);
+   /* If output file is still open, it was the last one in the
+    * archive since we just hit an end of file, so close the file. 
     */
-   if (!acquire_device_for_read(jcr, dev, block)) {
-      free_block(block);
-      free_vol_list(jcr);
-      return;
+   if (is_bopen(&bfd)) {
+      set_attributes(jcr, fname, ofile, lname, type, stream, &statp,
+                    attribsEx, &bfd);
    }
+   release_device(jcr, dev);
 
-   memset(&rec, 0, sizeof(rec));
-   rec.data = get_memory(70000);
+   free_pool_memory(fname);
+   free_pool_memory(ofile);
+   free_pool_memory(lname);
+   free_pool_memory(compress_buf);
+   term_dev(dev);
+   free_jcr(jcr);
+   printf("%u files restored.\n", num_files);
+   return;
+}
 
-   uint32_t compress_buf_size = 70000;
-   POOLMEM *compress_buf = get_memory(compress_buf_size);
+/*
+ * Called here for each record from read_records()
+ */
+static void record_cb(JCR *jcr, DEVICE *dev, DEV_BLOCK *block, DEV_RECORD *rec)
+{
+   int stat;
 
-   for ( ;; ) {
-      int ok;
-      DEV_RECORD *record;            /* for reading label of multi-volumes */
+   if (rec->FileIndex < 0) {
+      return;                         /* we don't want labels */
+   }
 
-      if (!read_record(dev, block, &rec)) {
-        uint32_t status;
-         Dmsg1(500, "Main read record failed. rem=%d\n", rec.remainder);
-        if (dev->state & ST_EOT) {
-           if (rec.remainder) {
-               Dmsg0(500, "Not end of record.\n");
-           }
-            Dmsg2(90, "NumVolumes=%d CurVolume=%d\n", jcr->NumVolumes, jcr->CurVolume);
-           /*
-            * End Of Tape -- mount next Volume (if another specified)
-            */
-           if (jcr->NumVolumes > 1 && jcr->CurVolume < jcr->NumVolumes) {
-              VOL_LIST *vol = jcr->VolList;
-              /* Find next Volume */
-              jcr->CurVolume++;
-              for (int i=1; i<jcr->CurVolume; i++) {
-                 vol = vol->next;
-              }
-              strcpy(jcr->VolumeName, vol->VolumeName);
-               Dmsg1(400, "There is another volume %s.\n", jcr->VolumeName);
-
-              close_dev(dev);
-              dev->state &= ~ST_READ; 
-              if (!acquire_device_for_read(jcr, dev, block)) {
-                  Emsg2(M_FATAL, 0, "Cannot open Dev=%s, Vol=%s\n", dev_name(dev),
-                       jcr->VolumeName);
-                 ok = FALSE;
-                 break;
-              }
-              record = new_record();
-               Dmsg1(500, "read record after new tape. rem=%d\n", record->remainder);
-              read_record(dev, block, record); /* read vol label */
-              dump_label_record(dev, record, 0);
-              free_record(record);
-              continue;
-           }
-            Dmsg0(90, "End of Device reached.\n");
-           break;                    /* End of Tape */
-        }
-        if (dev->state & ST_EOF) {
-           continue;                 /* try again */
-        }
-         Pmsg0(0, "Read Record got a bad record\n");
-        status_dev(dev, &status);
-         Dmsg1(20, "Device status: %x\n", status);
-        if (status & MT_EOD)
-            Emsg0(M_ERROR_TERM, 0, "Unexpected End of Data\n");
-        else if (status & MT_EOT)
-            Emsg0(M_ERROR_TERM, 0, "Unexpected End of Tape\n");
-        else if (status & MT_EOF)
-            Emsg0(M_ERROR_TERM, 0, "Unexpected End of File\n");
-        else if (status & MT_DR_OPEN)
-            Emsg0(M_ERROR_TERM, 0, "Tape Door is Open\n");
-        else if (!(status & MT_ONLINE))
-            Emsg0(M_ERROR_TERM, 0, "Unexpected Tape is Off-line\n");
-        else
-            Emsg3(M_ERROR_TERM, 0, "Read error %d on Record Header %s: %s\n", n, dev_name(dev), strerror(errno));
-      }
+   /* File Attributes stream */
+   if (rec->Stream == STREAM_UNIX_ATTRIBUTES || rec->Stream == STREAM_WIN32_ATTRIBUTES) {
+      char *ap, *lp, *fp, *apex;
 
+      stream = rec->Stream;
 
-      /* This is no longer used */
-      if (rec.VolSessionId == 0 && rec.VolSessionTime == 0) {
-         Emsg0(M_ERROR, 0, "Zero header record. This shouldn't happen.\n");
-        break;                       /* END OF FILE */
+      /* If extracting, it was from previous stream, so
+       * close the output file.
+       */
+      if (extract) {
+        if (!is_bopen(&bfd)) {
+            Emsg0(M_ERROR, 0, "Logic error output file should be open but is not.\n");
+        }
+        extract = FALSE;
+        set_attributes(jcr, fname, ofile, lname, type, stream, &statp,
+                       attribsEx, &bfd);
       }
 
-      /* 
-       * Check for Start or End of Session Record 
+      if (sizeof_pool_memory(fname) < rec->data_len) {
+        fname = realloc_pool_memory(fname, rec->data_len + 1);
+      }
+      if (sizeof_pool_memory(ofile) < rec->data_len + wherelen + 1) {
+        ofile = realloc_pool_memory(ofile, rec->data_len + wherelen + 1);
+      }
+      if (sizeof_pool_memory(lname) < rec->data_len) {
+        lname = realloc_pool_memory(lname, rec->data_len + wherelen + 1);
+      }
+      *fname = 0;
+      *lname = 0;
+
+      /*             
+       * An Attributes record consists of:
+       *    File_index
+       *    Type   (FT_types)
+       *    Filename
+       *    Attributes
+       *    Link name (if file linked i.e. FT_LNK)
+       *    Extended Attributes (Win32) 
        *
        */
-      if (rec.FileIndex < 0) {
-        char *rtype;
-        memset(&sessrec, 0, sizeof(sessrec));
-        switch (rec.FileIndex) {
-           case PRE_LABEL:
-               rtype = "Fresh Volume Label";   
-              break;
-           case VOL_LABEL:
-               rtype = "Volume Label";
-              unser_volume_label(dev, &rec);
-              break;
-           case SOS_LABEL:
-               rtype = "Begin Session";
-              unser_session_label(&sessrec, &rec);
-              break;
-           case EOS_LABEL:
-               rtype = "End Session";
-              break;
-           case EOM_LABEL:
-               rtype = "End of Media";
-              break;
-           default:
-               rtype = "Unknown";
-              break;
-        }
-        if (debug_level > 0) {
-            printf("%s Record: VolSessionId=%d VolSessionTime=%d JobId=%d DataLen=%d\n",
-              rtype, rec.VolSessionId, rec.VolSessionTime, rec.Stream, rec.data_len);
-        }
-
-         Dmsg1(40, "Got label = %d\n", rec.FileIndex);
-        if (rec.FileIndex == EOM_LABEL) { /* end of tape? */
-            Dmsg0(40, "Get EOM LABEL\n");
-           break;                         /* yes, get out */
-        }
-        continue;                         /* ignore other labels */
-      } /* end if label record */
-
-      /* Is this the file we want? */
-      if (bsr && !match_bsr(bsr, &rec, &dev->VolHdr, &sessrec)) {
-        continue;
+      sscanf(rec->data, "%ld %d", &record_file_index, &type);
+      if (record_file_index != rec->FileIndex)
+         Emsg2(M_ERROR_TERM, 0, "Record header file index %ld not equal record index %ld\n",
+           rec->FileIndex, record_file_index);
+      ap = rec->data;
+      while (*ap++ != ' ')         /* skip record file index */
+        ;
+      while (*ap++ != ' ')         /* skip type */
+        ;
+      /* Save filename and position to attributes */
+      fp = fname;
+      while (*ap != 0) {
+        *fp++  = *ap++;
       }
+      *fp = *ap++;                /* terminate filename & point to attribs */
 
-      /* File Attributes stream */
-      if (rec.Stream == STREAM_UNIX_ATTRIBUTES) {
-        char *ap, *lp, *fp;
-
-        /* If extracting, it was from previous stream, so
-         * close the output file.
-         */
-        if (extract) {
-           if (ofd < 0) {
-               Emsg0(M_ERROR_TERM, 0, "Logic error output file should be open\n");
-           }
-           close(ofd);
-           ofd = -1;
-           extract = FALSE;
-           set_statp(jcr, fname, ofile, lname, type, &statp);
+      /* Skip to Link name */
+      if (type == FT_LNK || type == FT_LNKSAVED) {
+        lp = ap;
+        while (*lp++ != 0) {
+           ;
         }
+      } else {
+         lp = "";
+      }
 
-        if (sizeof_pool_memory(fname) < rec.data_len) {
-           fname = realloc_pool_memory(fname, rec.data_len + 1);
-        }
-        if (sizeof_pool_memory(ofile) < sizeof_pool_memory(fname) + wherelen + 1) {
-           ofile = realloc_pool_memory(ofile, sizeof_pool_memory(fname) + wherelen + 1);
-        }
-        if (sizeof_pool_memory(lname) < rec.data_len) {
-           ofile = realloc_pool_memory(ofile, rec.data_len + 1);
-        }
-        *fname = 0;
-        *lname = 0;
-
-        /*              
-         * An Attributes record consists of:
-         *    File_index
-         *    Type   (FT_types)
-         *    Filename
-         *    Attributes
-         *    Link name (if file linked i.e. FT_LNK)
-         *
-         */
-         sscanf(rec.data, "%ld %d", &record_file_index, &type);
-        if (record_file_index != rec.FileIndex)
-            Emsg2(M_ERROR_TERM, 0, "Record header file index %ld not equal record index %ld\n",
-              rec.FileIndex, record_file_index);
-        ap = rec.data;
-         while (*ap++ != ' ')         /* skip record file index */
+      if (rec->Stream == STREAM_WIN32_ATTRIBUTES) {
+        apex = ap;                   /* start at attributes */
+        while (*apex++ != 0) {       /* skip attributes */
            ;
-         while (*ap++ != ' ')         /* skip type */
+        }
+        while (*apex++ != 0) {      /* skip link name */
            ;
-        /* Save filename and position to attributes */
-        fp = fname;
-        while (*ap != 0) {
-           *fp++  = *ap++;
         }
-        *fp = *ap++;                 /* terminate filename & point to attribs */
+        pm_strcpy(&attribsEx, apex);  /* make a copy of Extended attributes */
+      } else {
+        *attribsEx = 0;              /* no extended attributes */
+      }
 
-        /* Skip to Link name */
-        if (type == FT_LNK) {
-           lp = ap;
-           while (*lp++ != 0) {
-              ;
-           }
-            strcat(lname, lp);        /* "save" link name */
-        } else {
-           *lname = 0;
-        }
+        
+      if (file_is_included(ff, fname) && !file_is_excluded(ff, fname)) {
+        uint32_t LinkFI;
 
-           
-        if (file_is_included(ff, fname) && !file_is_excluded(ff, fname)) {
-
-           decode_stat(ap, &statp);
-           /*
-            * Prepend the where directory so that the
-            * files are put where the user wants.
-            *
-            * We do a little jig here to handle Win32 files with
-            * a drive letter.  
-            *   If where is null and we are running on a win32 client,
-            *      change nothing.
-            *   Otherwise, if the second character of the filename is a
-            *   colon (:), change it into a slash (/) -- this creates
-            *   a reasonable pathname on most systems.
-            */
+        decode_stat(ap, &statp, &LinkFI);
+        /*
+         * Prepend the where directory so that the
+         * files are put where the user wants.
+         *
+         * We do a little jig here to handle Win32 files with
+         *   a drive letter -- we simply strip the drive: from
+         *   every filename if a prefix is supplied.
+         */
+        if (where[0] == 0) {
+           strcpy(ofile, fname);
+           strcpy(lname, lp);
+        } else {
+           char *fn;
            strcpy(ofile, where);
-            if (fname[1] == ':') {
-               fname[1] = '/';
-              strcat(ofile, fname);
-               fname[1] = ':';
+            if (win32_client && fname[1] == ':') {
+              fn = fname+2;          /* skip over drive: */
            } else {
-              strcat(ofile, fname);
+              fn = fname;            /* take whole name */
            }
-/*          Pmsg1(000, "Restoring: %s\n", ofile); */
-
-           extract = create_file(jcr, fname, ofile, lname, type, &statp, &ofd);
-
-           if (extract) {
-               print_ls_output(ofile, lname, type, &statp);   
+           /* Ensure where is terminated with a slash */
+            if (where[wherelen-1] != '/' && fn[0] != '/') {
+               strcat(ofile, "/");
+           }
+           strcat(ofile, fn);        /* copy rest of name */
+           /* Fixup link name for hard links, but not for
+            * soft links 
+            */
+           if (type == FT_LNKSAVED) {
+               if (lp[0] == '/') {      /* if absolute path */
+                 strcpy(lname, where);
+              }       
+               if (win32_client && lp[1] == ':') {
+                 strcat(lname, lp+2); /* copy rest of name */
+              } else {
+                 strcat(lname, lp);   /* On Unix systems we take everything */
+              }
            }
         }
 
-      /* Data stream and extracting */
-      } else if (rec.Stream == STREAM_FILE_DATA) {
-        if (extract) {
-           total += rec.data_len;
-            Dmsg2(8, "Write %ld bytes, total=%ld\n", rec.data_len, total);
-           if ((uint32_t)write(ofd, rec.data, rec.data_len) != rec.data_len) {
-               Emsg1(M_ERROR_TERM, 0, "Write error: %s\n", strerror(errno));
+         /*          Pmsg1(000, "Restoring: %s\n", ofile); */
+
+        extract = FALSE;
+        stat = create_file(jcr, fname, ofile, lname, type, stream,
+                           &statp, attribsEx, &bfd, REPLACE_ALWAYS);   
+        switch (stat) {
+        case CF_ERROR:
+        case CF_SKIP:
+           break;
+        case CF_EXTRACT:
+           extract = TRUE;
+           print_ls_output(ofile, lname, type, &statp);   
+           num_files++;
+           fileAddr = 0;
+           break;
+        case CF_CREATED:
+           set_attributes(jcr, fname, ofile, lname, type, stream, &statp,
+                          attribsEx, &bfd);
+           print_ls_output(ofile, lname, type, &statp);   
+           num_files++;
+           fileAddr = 0;
+           break;
+        }  
+      }
+
+   /* Data stream and extracting */
+   } else if (rec->Stream == STREAM_FILE_DATA || rec->Stream == STREAM_SPARSE_DATA) {
+      if (extract) {
+        if (rec->Stream == STREAM_SPARSE_DATA) {
+           ser_declare;
+           uint64_t faddr;
+           wbuf = rec->data + SPARSE_FADDR_SIZE;
+           wsize = rec->data_len - SPARSE_FADDR_SIZE;
+           ser_begin(rec->data, SPARSE_FADDR_SIZE);
+           unser_uint64(faddr);
+           if (fileAddr != faddr) {
+              fileAddr = faddr;
+              if (blseek(&bfd, (off_t)fileAddr, SEEK_SET) < 0) {
+                  Emsg2(M_ERROR_TERM, 0, _("Seek error on %s: %s\n"), ofile, strerror(errno));
+              }
            }
+        } else {
+           wbuf = rec->data;
+           wsize = rec->data_len;
         }
-      } else if (rec.Stream == STREAM_GZIP_DATA) {
-#ifdef HAVE_LIBZ
-        if (extract) {
-           uLongf compress_len;
+        total += wsize;
+         Dmsg2(8, "Write %u bytes, total=%u\n", wsize, total);
+        if ((uint32_t)bwrite(&bfd, wbuf, wsize) != wsize) {
+            Emsg2(M_ERROR_TERM, 0, _("Write error on %s: %s\n"), ofile, strerror(errno));
+        }
+        fileAddr += wsize;
+      }
 
-           compress_len = compress_buf_size;
-           if (uncompress((Bytef *)compress_buf, &compress_len, 
-                 (const Bytef *)rec.data, (uLong)rec.data_len) != Z_OK) {
-               Emsg0(M_ERROR_TERM, 0, _("Uncompression error.\n"));
+   } else if (rec->Stream == STREAM_GZIP_DATA || rec->Stream == STREAM_SPARSE_GZIP_DATA) {
+#ifdef HAVE_LIBZ
+      if (extract) {
+        uLongf compress_len;
+        int stat;
+
+        if (rec->Stream == STREAM_SPARSE_GZIP_DATA) {
+           ser_declare;
+           uint64_t faddr;
+           wbuf = rec->data + SPARSE_FADDR_SIZE;
+           wsize = rec->data_len - SPARSE_FADDR_SIZE;
+           ser_begin(rec->data, SPARSE_FADDR_SIZE);
+           unser_uint64(faddr);
+           if (fileAddr != faddr) {
+              fileAddr = faddr;
+              if (blseek(&bfd, (off_t)fileAddr, SEEK_SET) < 0) {
+                  Emsg2(M_ERROR, 0, _("Seek error on %s: %s\n"), ofile, strerror(errno));
+              }
            }
+        } else {
+           wbuf = rec->data;
+           wsize = rec->data_len;
+        }
+        compress_len = compress_buf_size;
+        if ((stat=uncompress((Bytef *)compress_buf, &compress_len, 
+              (const Bytef *)wbuf, (uLong)wsize) != Z_OK)) {
+            Emsg1(M_ERROR_TERM, 0, _("Uncompression error. ERR=%d\n"), stat);
+        }
 
-            Dmsg2(100, "Write uncompressed %d bytes, total before write=%d\n", compress_len, total);
-           if ((uLongf)write(ofd, compress_buf, (size_t)compress_len) != compress_len) {
-               Pmsg0(0, "===Write error===\n");
-               Emsg2(M_ERROR_TERM, 0, "Write error on %s: %s\n", ofile, strerror(errno));
-           }
-           total += compress_len;
-            Dmsg2(100, "Compress len=%d uncompressed=%d\n", rec.data_len,
-              compress_len);
+         Dmsg2(100, "Write uncompressed %d bytes, total before write=%d\n", compress_len, total);
+        if ((uLongf)bwrite(&bfd, compress_buf, (size_t)compress_len) != compress_len) {
+            Pmsg0(0, "===Write error===\n");
+            Emsg2(M_ERROR_TERM, 0, _("Write error on %s: %s\n"), ofile, strerror(errno));
         }
+        total += compress_len;
+        fileAddr += compress_len;
+         Dmsg2(100, "Compress len=%d uncompressed=%d\n", rec->data_len,
+           compress_len);
+      }
 #else
-        if (extract) {
-            Emsg0(M_ERROR_TERM, 0, "GZIP data stream found, but GZIP not configured!\n");
-        }
+      if (extract) {
+         Emsg0(M_ERROR, 0, "GZIP data stream found, but GZIP not configured!\n");
+      }
 #endif
 
 
-      /* If extracting, wierd stream (not 1 or 2), close output file anyway */
-      } else if (extract) {
-        if (ofd < 0) {
-            Emsg0(M_ERROR_TERM, 0, "Logic error output file should be open\n");
-        }
-        close(ofd);
-        ofd = -1;
-        extract = FALSE;
-        set_statp(jcr, fname, ofile, lname, type, &statp);
-      } else if (rec.Stream != STREAM_MD5_SIGNATURE) {
-         Pmsg2(0, "None of above!!! stream=%d data=%s\n", rec.Stream, rec.data);
+   /* If extracting, wierd stream (not 1 or 2), close output file anyway */
+   } else if (extract) {
+      if (!is_bopen(&bfd)) {
+         Emsg0(M_ERROR, 0, "Logic error output file should be open but is not.\n");
       }
+      extract = FALSE;
+      set_attributes(jcr, fname, ofile, lname, type, stream, &statp,
+                    attribsEx, &bfd);
+   } else if (rec->Stream == STREAM_PROGRAM_NAMES || rec->Stream == STREAM_PROGRAM_DATA) {
+      if (!prog_name_msg) {
+         Pmsg0(000, "Got Program Name or Data Stream. Ignored.\n");
+        prog_name_msg = 1;
+      }
+   } else if (!(rec->Stream == STREAM_MD5_SIGNATURE ||
+               rec->Stream == STREAM_SHA1_SIGNATURE)) {
+      Pmsg2(0, "None of above!!! stream=%d data=%s\n", rec->Stream, rec->data);
    }
-
-   /* If output file is still open, it was the last one in the
-    * archive since we just hit an end of file, so close the file. 
-    */
-   if (ofd >= 0) {
-      close(ofd);
-      set_statp(jcr, fname, ofile, lname, type, &statp);
-   }
-   release_device(jcr, dev, block);
-
-   free_pool_memory(fname);
-   free_pool_memory(ofile);
-   free_pool_memory(lname);
-   free_pool_memory(compress_buf);
-   term_dev(dev);
-   free_block(block);
-   return;
 }
 
-extern char *getuser(uid_t uid);
-extern char *getgroup(gid_t gid);
 
-static void print_ls_output(char *fname, char *link, int type, struct stat *statp)
-{
-   char buf[1000]; 
-   char ec1[30];
-   char *p, *f;
-   int n;
-
-   p = encode_mode(statp->st_mode, buf);
-   n = sprintf(p, "  %2d ", (uint32_t)statp->st_nlink);
-   p += n;
-   n = sprintf(p, "%-8.8s %-8.8s", getuser(statp->st_uid), getgroup(statp->st_gid));
-   p += n;
-   n = sprintf(p, "%8.8s ", edit_uint64(statp->st_size, ec1));
-   p += n;
-   p = encode_time(statp->st_ctime, p);
-   *p++ = ' ';
-   *p++ = ' ';
-   /* Copy file name */
-   for (f=fname; *f && (p-buf) < (int)sizeof(buf); )
-      *p++ = *f++;
-   if (type == FT_LNK) {
-      *p++ = ' ';
-      *p++ = '-';
-      *p++ = '>';
-      *p++ = ' ';
-      /* Copy link name */
-      for (f=link; *f && (p-buf) < (int)sizeof(buf); )
-        *p++ = *f++;
-   }
-   *p++ = '\n';
-   *p = 0;
-   fputs(buf, stdout);
-}
+
 
 /* Dummies to replace askdir.c */
-int    dir_get_volume_info(JCR *jcr) { return 1;}
+int    dir_get_volume_info(JCR *jcr, int writing) { return 1;}
 int    dir_find_next_appendable_volume(JCR *jcr) { return 1;}
 int    dir_update_volume_info(JCR *jcr, VOLUME_CAT_INFO *vol, int relabel) { return 1; }
-int    dir_create_job_media_record(JCR *jcr) { return 1; }
+int    dir_create_jobmedia_record(JCR *jcr) { return 1; }
 int    dir_ask_sysop_to_mount_next_volume(JCR *jcr, DEVICE *dev) { return 1; }
 int    dir_update_file_attributes(JCR *jcr, DEV_RECORD *rec) { return 1;}
 int    dir_send_job_status(JCR *jcr) {return 1;}