daemon/tar.c

   1 /* libguestfs - the guestfsd daemon
   2  * Copyright (C) 2009 Red Hat Inc.
   3  *
   4  * This program is free software; you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License as published by
   6  * the Free Software Foundation; either version 2 of the License, or
   7  * (at your option) any later version.
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU General Public License
  15  * along with this program; if not, write to the Free Software
  16  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17  */
  18
  19 #include <config.h>
  20
  21 #include <stdio.h>
  22 #include <stdlib.h>
  23 #include <string.h>
  24 #include <fcntl.h>
  25
  26 #include "../src/guestfs_protocol.h"
  27 #include "daemon.h"
  28 #include "actions.h"
  29
  30 static int
  31 write_cb (void *fd_ptr, const void *buf, size_t len)
  32 {
  33   int fd = *(int *)fd_ptr;
  34   return xwrite (fd, buf, len);
  35 }
  36
  37 /* Has one FileIn parameter. */
  38 int
  39 do_tar_in (const char *dir)
  40 {
  41   int err, r;
  42   FILE *fp;
  43   char *cmd;
  44
  45   if (!root_mounted || dir[0] != '/') {
  46     cancel_receive ();
  47     reply_with_error ("root must be mounted and path must be absolute");
  48     return -1;
  49   }
  50
  51   /* "tar -C /sysroot%s -xf -" but we have to quote the dir. */
  52   if (asprintf_nowarn (&cmd, "tar -C %R -xf -", dir) == -1) {
  53     err = errno;
  54     cancel_receive ();
  55     errno = err;
  56     reply_with_perror ("asprintf");
  57     return -1;
  58   }
  59
  60   if (verbose)
  61     fprintf (stderr, "%s\n", cmd);
  62
  63   fp = popen (cmd, "w");
  64   if (fp == NULL) {
  65     err = errno;
  66     cancel_receive ();
  67     errno = err;
  68     reply_with_perror ("%s", cmd);
  69     free (cmd);
  70     return -1;
  71   }
  72   free (cmd);
  73
  74   /* The semantics of fwrite are too undefined, so write to the
  75    * file descriptor directly instead.
  76    */
  77   int fd = fileno (fp);
  78
  79   r = receive_file (write_cb, &fd);
  80   if (r == -1) {                /* write error */
  81     cancel_receive ();
  82     reply_with_error ("write error on directory: %s", dir);
  83     pclose (fp);
  84     return -1;
  85   }
  86   if (r == -2) {                /* cancellation from library */
  87     pclose (fp);
  88     /* Do NOT send any error. */
  89     return -1;
  90   }
  91
  92   if (pclose (fp) != 0) {
  93     if (r == -1)                /* if r == 0, file transfer ended already */
  94       cancel_receive ();
  95     reply_with_error ("tar subcommand failed on directory: %s", dir);
  96     return -1;
  97   }
  98
  99   return 0;
 100 }
 101
 102 /* Has one FileOut parameter. */
 103 int
 104 do_tar_out (const char *dir)
 105 {
 106   int r;
 107   FILE *fp;
 108   char *cmd;
 109   char buf[GUESTFS_MAX_CHUNK_SIZE];
 110
 111   /* "tar -C /sysroot%s -cf - ." but we have to quote the dir. */
 112   if (asprintf_nowarn (&cmd, "tar -C %R -cf - .", dir) == -1) {
 113     reply_with_perror ("asprintf");
 114     return -1;
 115   }
 116
 117   if (verbose)
 118     fprintf (stderr, "%s\n", cmd);
 119
 120   fp = popen (cmd, "r");
 121   if (fp == NULL) {
 122     reply_with_perror ("%s", cmd);
 123     free (cmd);
 124     return -1;
 125   }
 126   free (cmd);
 127
 128   /* Now we must send the reply message, before the file contents.  After
 129    * this there is no opportunity in the protocol to send any error
 130    * message back.  Instead we can only cancel the transfer.
 131    */
 132   reply (NULL, NULL);
 133
 134   while ((r = fread (buf, 1, sizeof buf, fp)) > 0) {
 135     if (send_file_write (buf, r) < 0) {
 136       pclose (fp);
 137       return -1;
 138     }
 139   }
 140
 141   if (ferror (fp)) {
 142     perror (dir);
 143     send_file_end (1);          /* Cancel. */
 144     pclose (fp);
 145     return -1;
 146   }
 147
 148   if (pclose (fp) != 0) {
 149     perror (dir);
 150     send_file_end (1);          /* Cancel. */
 151     return -1;
 152   }
 153
 154   if (send_file_end (0))        /* Normal end of file. */
 155     return -1;
 156
 157   return 0;
 158 }
 159
 160 /* Has one FileIn parameter. */
 161 static int
 162 do_tXz_in (const char *dir, char filter)
 163 {
 164   int err, r;
 165   FILE *fp;
 166   char *cmd;
 167
 168   if (!root_mounted || dir[0] != '/') {
 169     cancel_receive ();
 170     reply_with_error ("root must be mounted and path must be absolute");
 171     return -1;
 172   }
 173
 174   /* "tar -C /sysroot%s -zxf -" but we have to quote the dir. */
 175   if (asprintf_nowarn (&cmd, "tar -C %R -%cxf -", dir, filter) == -1) {
 176     err = errno;
 177     cancel_receive ();
 178     errno = err;
 179     reply_with_perror ("asprintf");
 180     return -1;
 181   }
 182
 183   if (verbose)
 184     fprintf (stderr, "%s\n", cmd);
 185
 186   fp = popen (cmd, "w");
 187   if (fp == NULL) {
 188     err = errno;
 189     cancel_receive ();
 190     errno = err;
 191     reply_with_perror ("%s", cmd);
 192     free (cmd);
 193     return -1;
 194   }
 195   free (cmd);
 196
 197   int fd = fileno (fp);
 198
 199   r = receive_file (write_cb, &fd);
 200   if (r == -1) {                /* write error */
 201     cancel_receive ();
 202     reply_with_error ("write error on directory: %s", dir);
 203     pclose (fp);
 204     return -1;
 205   }
 206   if (r == -2) {                /* cancellation from library */
 207     pclose (fp);
 208     /* Do NOT send any error. */
 209     return -1;
 210   }
 211
 212   if (pclose (fp) != 0) {
 213     if (r == -1)                /* if r == 0, file transfer ended already */
 214       cancel_receive ();
 215     reply_with_error ("tar subcommand failed on directory: %s", dir);
 216     return -1;
 217   }
 218
 219   return 0;
 220 }
 221
 222 /* Has one FileIn parameter. */
 223 int
 224 do_tgz_in (const char *dir)
 225 {
 226   return do_tXz_in (dir, 'z');
 227 }
 228
 229 /* Has one FileIn parameter. */
 230 int
 231 do_txz_in (const char *dir)
 232 {
 233   return do_tXz_in (dir, 'J');
 234 }
 235
 236 /* Has one FileOut parameter. */
 237 static int
 238 do_tXz_out (const char *dir, char filter)
 239 {
 240   int r;
 241   FILE *fp;
 242   char *cmd;
 243   char buf[GUESTFS_MAX_CHUNK_SIZE];
 244
 245   /* "tar -C /sysroot%s -zcf - ." but we have to quote the dir. */
 246   if (asprintf_nowarn (&cmd, "tar -C %R -%ccf - .", dir, filter) == -1) {
 247     reply_with_perror ("asprintf");
 248     return -1;
 249   }
 250
 251   if (verbose)
 252     fprintf (stderr, "%s\n", cmd);
 253
 254   fp = popen (cmd, "r");
 255   if (fp == NULL) {
 256     reply_with_perror ("%s", cmd);
 257     free (cmd);
 258     return -1;
 259   }
 260   free (cmd);
 261
 262   /* Now we must send the reply message, before the file contents.  After
 263    * this there is no opportunity in the protocol to send any error
 264    * message back.  Instead we can only cancel the transfer.
 265    */
 266   reply (NULL, NULL);
 267
 268   while ((r = fread (buf, 1, sizeof buf, fp)) > 0) {
 269     if (send_file_write (buf, r) < 0) {
 270       pclose (fp);
 271       return -1;
 272     }
 273   }
 274
 275   if (ferror (fp)) {
 276     perror (dir);
 277     send_file_end (1);          /* Cancel. */
 278     pclose (fp);
 279     return -1;
 280   }
 281
 282   if (pclose (fp) != 0) {
 283     perror (dir);
 284     send_file_end (1);          /* Cancel. */
 285     return -1;
 286   }
 287
 288   if (send_file_end (0))        /* Normal end of file. */
 289     return -1;
 290
 291   return 0;
 292 }
 293
 294 /* Has one FileOut parameter. */
 295 int
 296 do_tgz_out (const char *dir)
 297 {
 298   return do_tXz_out (dir, 'z');
 299 }
 300
 301 /* Has one FileOut parameter. */
 302 int
 303 do_txz_out (const char *dir)
 304 {
 305   return do_tXz_out (dir, 'J');
 306 }