Generated code for cp, cp-a and mv commands.

2 files changed, 51 insertions, 0 deletions

diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs
index f19b9d09..3c5f7138 100644
--- a/perl/Guestfs.xs
+++ b/perl/Guestfs.xs
@@ -1611,3 +1611,39 @@ PREINIT:
       if (r == -1)
         croak ("grub_install: %s", guestfs_last_error (g));
 
+void
+cp (g, src, dest)
+      guestfs_h *g;
+      char *src;
+      char *dest;
+PREINIT:
+      int r;
+ PPCODE:
+      r = guestfs_cp (g, src, dest);
+      if (r == -1)
+        croak ("cp: %s", guestfs_last_error (g));
+
+void
+cp_a (g, src, dest)
+      guestfs_h *g;
+      char *src;
+      char *dest;
+PREINIT:
+      int r;
+ PPCODE:
+      r = guestfs_cp_a (g, src, dest);
+      if (r == -1)
+        croak ("cp_a: %s", guestfs_last_error (g));
+
+void
+mv (g, src, dest)
+      guestfs_h *g;
+      char *src;
+      char *dest;
+PREINIT:
+      int r;
+ PPCODE:
+      r = guestfs_mv (g, src, dest);
+      if (r == -1)
+        croak ("mv: %s", guestfs_last_error (g));
+
diff --git a/perl/lib/Sys/Guestfs.pm b/perl/lib/Sys/Guestfs.pm
index 3f00394b..9501a83f 100644
--- a/perl/lib/Sys/Guestfs.pm
+++ b/perl/lib/Sys/Guestfs.pm
@@ -432,6 +432,16 @@ The first character of C<param> string must be a C<-> (dash).
 
 C<value> can be NULL.
 
+=item $h->cp ($src, $dest);
+
+This copies a file from C<src> to C<dest> where C<dest> is
+either a destination filename or destination directory.
+
+=item $h->cp_a ($src, $dest);
+
+This copies a file or directory from C<src> to C<dest>
+recursively using the C<cp -a> command.
+
 =item $result = $h->debug ($subcmd, \@extraargs);
 
 The C<$h-E<gt>debug> command exposes some internals of
@@ -734,6 +744,11 @@ the list of devices (eg. C</dev/sda1>, C</dev/VG/LV>).
 
 Some internal mounts are not shown.
 
+=item $h->mv ($src, $dest);
+
+This moves a file from C<src> to C<dest> where C<dest> is
+either a destination filename or destination directory.
+
 =item $h->pvcreate ($device);
 
 This creates an LVM physical volume on the named C<device>,