Add generated code for 'fsck' command.

2 files changed, 28 insertions, 0 deletions

diff --git a/perl/Guestfs.xs b/perl/Guestfs.xs
index 9d8a49cf..38c60c21 100644
--- a/perl/Guestfs.xs
+++ b/perl/Guestfs.xs
@@ -1573,3 +1573,18 @@ PREINIT:
  OUTPUT:
       RETVAL
 
+SV *
+fsck (g, fstype, device)
+      guestfs_h *g;
+      char *fstype;
+      char *device;
+PREINIT:
+      int status;
+   CODE:
+      status = guestfs_fsck (g, fstype, device);
+      if (status == -1)
+        croak ("fsck: %s", guestfs_last_error (g));
+      RETVAL = newSViv (status);
+ OUTPUT:
+      RETVAL
+
diff --git a/perl/lib/Sys/Guestfs.pm b/perl/lib/Sys/Guestfs.pm
index efc28457..5b87b27e 100644
--- a/perl/lib/Sys/Guestfs.pm
+++ b/perl/lib/Sys/Guestfs.pm
@@ -468,6 +468,19 @@ The exact command which runs is C<file -bsL path>.  Note in
 particular that the filename is not prepended to the output
 (the C<-b> option).
 
+=item $status = $h->fsck ($fstype, $device);
+
+This runs the filesystem checker (fsck) on C<device> which
+should have filesystem type C<fstype>.
+
+The returned integer is the status.  See L<fsck(8)> for the
+list of status codes from C<fsck>, and note that multiple
+status codes can be summed together.
+
+It is entirely equivalent to running C<fsck -a -t fstype device>.
+Note that checking or repairing NTFS volumes is not supported
+(by linux-ntfs).
+
 =item $autosync = $h->get_autosync ();
 
 Get the autosync flag.