OUTPUT:
RETVAL
+SV *
+sh (g, command)
+ guestfs_h *g;
+ char *command;
+PREINIT:
+ char *output;
+ CODE:
+ output = guestfs_sh (g, command);
+ if (output == NULL)
+ croak ("sh: %s", guestfs_last_error (g));
+ RETVAL = newSVpv (output, 0);
+ free (output);
+ OUTPUT:
+ RETVAL
+
+void
+sh_lines (g, command)
+ guestfs_h *g;
+ char *command;
+PREINIT:
+ char **lines;
+ int i, n;
+ PPCODE:
+ lines = guestfs_sh_lines (g, command);
+ if (lines == NULL)
+ croak ("sh_lines: %s", guestfs_last_error (g));
+ for (n = 0; lines[n] != NULL; ++n) /**/;
+ EXTEND (SP, n);
+ for (i = 0; i < n; ++i) {
+ PUSHs (sv_2mortal (newSVpv (lines[i], 0)));
+ free (lines[i]);
+ }
+ free (lines);
+
+void
+glob_expand (g, pattern)
+ guestfs_h *g;
+ char *pattern;
+PREINIT:
+ char **paths;
+ int i, n;
+ PPCODE:
+ paths = guestfs_glob_expand (g, pattern);
+ if (paths == NULL)
+ croak ("glob_expand: %s", guestfs_last_error (g));
+ for (n = 0; paths[n] != NULL; ++n) /**/;
+ EXTEND (SP, n);
+ for (i = 0; i < n; ++i) {
+ PUSHs (sv_2mortal (newSVpv (paths[i], 0)));
+ free (paths[i]);
+ }
+ free (paths);
+
+void
+scrub_device (g, device)
+ guestfs_h *g;
+ char *device;
+PREINIT:
+ int r;
+ PPCODE:
+ r = guestfs_scrub_device (g, device);
+ if (r == -1)
+ croak ("scrub_device: %s", guestfs_last_error (g));
+
+void
+scrub_file (g, file)
+ guestfs_h *g;
+ char *file;
+PREINIT:
+ int r;
+ PPCODE:
+ r = guestfs_scrub_file (g, file);
+ if (r == -1)
+ croak ("scrub_file: %s", guestfs_last_error (g));
+
+void
+scrub_freespace (g, dir)
+ guestfs_h *g;
+ char *dir;
+PREINIT:
+ int r;
+ PPCODE:
+ r = guestfs_scrub_freespace (g, dir);
+ if (r == -1)
+ croak ("scrub_freespace: %s", guestfs_last_error (g));
+
+SV *
+mkdtemp (g, template)
+ guestfs_h *g;
+ char *template;
+PREINIT:
+ char *dir;
+ CODE:
+ dir = guestfs_mkdtemp (g, template);
+ if (dir == NULL)
+ croak ("mkdtemp: %s", guestfs_last_error (g));
+ RETVAL = newSVpv (dir, 0);
+ free (dir);
+ OUTPUT:
+ RETVAL
+