1 /* $Id: cmd-set-environment.c,v 1.1.1.2 2011/08/17 18:40:04 jmmv Exp $ */
2 
3 /*
4  * Copyright (c) 2009 Nicholas Marriott <nicm@users.sourceforge.net>
5  *
6  * Permission to use, copy, modify, and distribute this software for any
7  * purpose with or without fee is hereby granted, provided that the above
8  * copyright notice and this permission notice appear in all copies.
9  *
10  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
11  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
12  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
13  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
14  * WHATSOEVER RESULTING FROM LOSS OF MIND, USE, DATA OR PROFITS, WHETHER
15  * IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
16  * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
17  */
18 
19 #include <sys/types.h>
20 
21 #include <stdlib.h>
22 #include <string.h>
23 
24 #include "tmux.h"
25 
26 /*
27  * Set an environment variable.
28  */
29 
30 int	cmd_set_environment_exec(struct cmd *, struct cmd_ctx *);
31 
32 const struct cmd_entry cmd_set_environment_entry = {
33 	"set-environment", "setenv",
34 	"grt:u", 1, 2,
35 	"[-gru] " CMD_TARGET_SESSION_USAGE " name [value]",
36 	0,
37 	NULL,
38 	NULL,
39 	cmd_set_environment_exec
40 };
41 
42 int
43 cmd_set_environment_exec(struct cmd *self, struct cmd_ctx *ctx)
44 {
45 	struct args	*args = self->args;
46 	struct session	*s;
47 	struct environ	*env;
48 	const char	*name, *value;
49 
50 	name = args->argv[0];
51 	if (*name == '\0') {
52 		ctx->error(ctx, "empty variable name");
53 		return (-1);
54 	}
55 	if (strchr(name, '=') != NULL) {
56 		ctx->error(ctx, "variable name contains =");
57 		return (-1);
58 	}
59 
60 	if (args->argc < 1)
61 		value = NULL;
62 	else
63 		value = args->argv[1];
64 
65 	if (args_has(self->args, 'g'))
66 		env = &global_environ;
67 	else {
68 		if ((s = cmd_find_session(ctx, args_get(args, 't'), 0)) == NULL)
69 			return (-1);
70 		env = &s->environ;
71 	}
72 
73 	if (args_has(self->args, 'u')) {
74 		if (value != NULL) {
75 			ctx->error(ctx, "can't specify a value with -u");
76 			return (-1);
77 		}
78 		environ_unset(env, name);
79 	} else if (args_has(self->args, 'r')) {
80 		if (value != NULL) {
81 			ctx->error(ctx, "can't specify a value with -r");
82 			return (-1);
83 		}
84 		environ_set(env, name, NULL);
85 	} else {
86 		if (value == NULL) {
87 			ctx->error(ctx, "no value specified");
88 			return (-1);
89 		}
90 		environ_set(env, name, value);
91 	}
92 
93 	return (0);
94 }
95