1/*
2 * Copyright (C) 2008 The Android Open Source Project
3 *
4 * Licensed under the Apache License, Version 2.0 (the "License");
5 * you may not use this file except in compliance with the License.
6 * You may obtain a copy of the License at
7 *
8 *      http://www.apache.org/licenses/LICENSE-2.0
9 *
10 * Unless required by applicable law or agreed to in writing, software
11 * distributed under the License is distributed on an "AS IS" BASIS,
12 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13 * See the License for the specific language governing permissions and
14 * limitations under the License.
15 */
16
17#include <string.h>
18#include <sys/types.h>
19#include <sys/wait.h>
20#include <stdio.h>
21#include <stdlib.h>
22#include <unistd.h>
23#include <errno.h>
24#include <fcntl.h>
25
26#include "private/android_filesystem_config.h"
27#include "cutils/log.h"
28
29int parent(const char *tag, int parent_read) {
30    int status;
31    char buffer[4096];
32
33    int a = 0;  // start index of unprocessed data
34    int b = 0;  // end index of unprocessed data
35    int sz;
36    while ((sz = read(parent_read, &buffer[b], sizeof(buffer) - 1 - b)) > 0) {
37
38        sz += b;
39        // Log one line at a time
40        for (b = 0; b < sz; b++) {
41            if (buffer[b] == '\r') {
42                buffer[b] = '\0';
43            } else if (buffer[b] == '\n') {
44                buffer[b] = '\0';
45
46                LOG(LOG_INFO, tag, "%s", &buffer[a]);
47                a = b + 1;
48            }
49        }
50
51        if (a == 0 && b == sizeof(buffer) - 1) {
52            // buffer is full, flush
53            buffer[b] = '\0';
54            LOG(LOG_INFO, tag, "%s", &buffer[a]);
55            b = 0;
56        } else if (a != b) {
57            // Keep left-overs
58            b -= a;
59            memmove(buffer, &buffer[a], b);
60            a = 0;
61        } else {
62            a = 0;
63            b = 0;
64        }
65
66    }
67    // Flush remaining data
68    if (a != b) {
69        buffer[b] = '\0';
70        LOG(LOG_INFO, tag, "%s", &buffer[a]);
71    }
72    status = 0xAAAA;
73    if (wait(&status) != -1) {  // Wait for child
74        if (WIFEXITED(status)) {
75            if (WEXITSTATUS(status) != 0) {
76                LOG(LOG_INFO, "logwrapper", "%s terminated by exit(%d)", tag,
77                        WEXITSTATUS(status));
78            }
79            return WEXITSTATUS(status);
80        } else if (WIFSIGNALED(status))
81            LOG(LOG_INFO, "logwrapper", "%s terminated by signal %d", tag,
82                    WTERMSIG(status));
83        else if (WIFSTOPPED(status))
84            LOG(LOG_INFO, "logwrapper", "%s stopped by signal %d", tag,
85                    WSTOPSIG(status));
86    } else
87        LOG(LOG_INFO, "logwrapper", "%s wait() failed: %s (%d)", tag,
88                strerror(errno), errno);
89    return -EAGAIN;
90}
91
92void child(int argc, const char**argv) {
93    // create null terminated argv_child array
94    char* argv_child[argc + 1];
95    memcpy(argv_child, argv, argc * sizeof(char *));
96    argv_child[argc] = NULL;
97
98    // XXX: PROTECT FROM VIKING KILLER
99    if (execv(argv_child[0], argv_child)) {
100        LOG(LOG_ERROR, "logwrapper",
101            "executing %s failed: %s", argv_child[0], strerror(errno));
102    }
103    _exit(1);
104}
105
106int logwrap(int argc, const char* argv[], int background)
107{
108    pid_t pid;
109
110    int parent_ptty;
111    int child_ptty;
112    char child_devname[64];  // same size as libc/unistd/ptsname_r.c
113
114    /* Use ptty instead of socketpair so that STDOUT is not buffered */
115    parent_ptty = open("/dev/ptmx", O_RDWR);
116    if (parent_ptty < 0) {
117	LOG(LOG_ERROR, "logwrapper", "Cannot create parent ptty");
118	return -errno;
119    }
120
121    if (grantpt(parent_ptty) || unlockpt(parent_ptty) ||
122            ptsname_r(parent_ptty, child_devname, sizeof(child_devname))) {
123        close(parent_ptty);
124	LOG(LOG_ERROR, "logwrapper", "Problem with /dev/ptmx");
125	return -1;
126    }
127
128    pid = fork();
129    if (pid < 0) {
130        close(parent_ptty);
131	LOG(LOG_ERROR, "logwrapper", "Failed to fork");
132        return -errno;
133    } else if (pid == 0) {
134        /*
135         * Child
136         */
137        child_ptty = open(child_devname, O_RDWR);
138        if (child_ptty < 0) {
139            close(parent_ptty);
140	    LOG(LOG_ERROR, "logwrapper", "Problem with child ptty");
141            _exit(errno < 128 ? errno : 1);  // XXX lame
142        }
143
144        // redirect stdout and stderr
145        close(parent_ptty);
146        dup2(child_ptty, 1);
147        dup2(child_ptty, 2);
148        close(child_ptty);
149
150        if (background) {
151            int fd = open("/dev/cpuctl/bg_non_interactive/tasks", O_WRONLY);
152            if (fd >= 0) {
153                char text[64];
154                sprintf(text, "%d", getpid());
155                if (write(fd, text, strlen(text)) < 0) {
156                    LOG(LOG_WARN, "logwrapper",
157                        "Unable to background process (%s)", strerror(errno));
158                }
159                close(fd);
160            } else {
161                LOG(LOG_WARN, "logwrapper",
162                    "Unable to background process (%s)", strerror(errno));
163            }
164        }
165
166        child(argc, argv);
167    } else {
168        /*
169         * Parent
170         */
171        int rc = parent(argv[0], parent_ptty);
172        close(parent_ptty);
173        return rc;
174    }
175
176    return 0;
177}
178
179/*
180 * The following is based off of bionic/libc/unistd/system.c with
181 *  modifications to avoid calling /system/bin/sh -c
182 */
183extern char **environ;
184int system_nosh(const char *command)
185{
186    pid_t pid;
187    sig_t intsave, quitsave;
188    sigset_t mask, omask;
189    int pstat;
190    char buffer[255];
191    char *argp[32];
192    char *next = buffer;
193    char *tmp;
194    int i = 0;
195
196    if (!command)           /* just checking... */
197        return(1);
198
199    /*
200     * The command to argp splitting is from code that was
201     * reverted in Change: 11b4e9b2
202     */
203    if (strnlen(command, sizeof(buffer) - 1) == sizeof(buffer) - 1) {
204        LOGE("command line too long while processing: %s", command);
205        errno = E2BIG;
206        return -1;
207    }
208    strcpy(buffer, command); // Command len is already checked.
209    while ((tmp = strsep(&next, " "))) {
210        argp[i++] = tmp;
211        if (i == 32) {
212            LOGE("argument overflow while processing: %s", command);
213            errno = E2BIG;
214            return -1;
215        }
216    }
217    argp[i] = NULL;
218
219
220    sigemptyset(&mask);
221    sigaddset(&mask, SIGCHLD);
222    sigprocmask(SIG_BLOCK, &mask, &omask);
223    switch (pid = vfork()) {
224    case -1:                        /* error */
225        sigprocmask(SIG_SETMASK, &omask, NULL);
226        return(-1);
227    case 0:                                 /* child */
228        sigprocmask(SIG_SETMASK, &omask, NULL);
229        execve(argp[0], argp, environ);
230        _exit(127);
231    }
232
233    intsave = (sig_t)  bsd_signal(SIGINT, SIG_IGN);
234    quitsave = (sig_t) bsd_signal(SIGQUIT, SIG_IGN);
235    pid = waitpid(pid, (int *)&pstat, 0);
236    sigprocmask(SIG_SETMASK, &omask, NULL);
237    (void)bsd_signal(SIGINT, intsave);
238    (void)bsd_signal(SIGQUIT, quitsave);
239    return (pid == -1 ? -1 : pstat);
240}
241