daemon: gnulib module 'error' is used directly by the daemon.
[libguestfs.git] / fish / more.c
1 /* guestfish - the filesystem interactive shell
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 <unistd.h>
25 #include <fcntl.h>
26 #include <inttypes.h>
27
28 #include "fish.h"
29
30 int
31 do_more (const char *cmd, int argc, char *argv[])
32 {
33   char filename[] = "/tmp/guestfishXXXXXX";
34   char buf[256];
35   const char *pager;
36   char *content;
37   int r, fd;
38
39   if (argc != 1) {
40     fprintf (stderr, _("use '%s filename' to page a file\n"), cmd);
41     return -1;
42   }
43
44   /* Choose a pager. */
45   if (STRCASEEQ (cmd, "less"))
46     pager = "less";
47   else {
48     pager = getenv ("PAGER");
49     if (pager == NULL)
50       pager = "more";
51   }
52
53   /* Download the file and write it to a temporary. */
54   fd = mkstemp (filename);
55   if (fd == -1) {
56     perror ("mkstemp");
57     return -1;
58   }
59
60   if ((content = guestfs_cat (g, argv[0])) == NULL) {
61     close (fd);
62     unlink (filename);
63     return -1;
64   }
65
66   if (xwrite (fd, content, strlen (content)) == -1) {
67     close (fd);
68     unlink (filename);
69     free (content);
70     return -1;
71   }
72
73   free (content);
74
75   if (close (fd) == -1) {
76     perror (filename);
77     unlink (filename);
78     return -1;
79   }
80
81   /* View it. */
82   /* XXX Safe? */
83   snprintf (buf, sizeof buf, "%s %s", pager, filename);
84
85   r = system (buf);
86   unlink (filename);
87   if (r != 0) {
88     perror (buf);
89     return -1;
90   }
91
92   return 0;
93 }