1 #include "common.h"
2 #include "send.h"
3 
4 static void
5 mboxfile(dest *dp, String *user, String *path, char *file)
6 {
7 	char *cp;
8 
9 	mboxpath(s_to_c(user), s_to_c(dp->addr), path, 0);
10 	cp = strrchr(s_to_c(path), '/');
11 	if(cp)
12 		path->ptr = cp+1;
13 	else
14 		path->ptr = path->base;
15 	s_append(path, file);
16 }
17 
18 /*
19  *  Check forwarding requests
20  */
21 extern dest*
22 expand_local(dest *dp)
23 {
24 	Biobuf *fp;
25 	String *file, *line, *s;
26 	dest *rv;
27 	int forwardok;
28 	char *user;
29 
30 	/* short circuit obvious security problems */
31 	if(strstr(s_to_c(dp->addr), "/../")){
32 		dp->status = d_unknown;
33 		return 0;
34 	}
35 
36 	/* isolate user's name if part of a path */
37 	user = strrchr(s_to_c(dp->addr), '!');
38 	if(user)
39 		user++;
40 	else
41 		user = s_to_c(dp->addr);
42 
43 	/* if no replacement string, plug in user's name */
44 	if(dp->repl1 == 0){
45 		dp->repl1 = s_new();
46 		mboxname(user, dp->repl1);
47 	}
48 
49 	s = unescapespecial(s_clone(dp->repl1));
50 
51 	/*
52 	 *  if this is the descendant of a `forward' file, don't
53 	 *  look for a forward.
54 	 */
55 	forwardok = 1;
56 	for(rv = dp->parent; rv; rv = rv->parent)
57 		if(rv->status == d_cat){
58 			forwardok = 0;
59 			break;
60 		}
61 	file = s_new();
62 	if(forwardok){
63 		/*
64 		 *  look for `forward' file for forwarding address(es)
65 		 */
66 		mboxfile(dp, s, file, "forward");
67 		fp = sysopen(s_to_c(file), "r", 0);
68 		if (fp != 0) {
69 			line = s_new();
70 			for(;;){
71 				if(s_read_line(fp, line) == nil)
72 					break;
73 				if(*(line->ptr - 1) != '\n')
74 					break;
75 				if(*(line->ptr - 2) == '\\')
76 					*(line->ptr-2) = ' ';
77 				*(line->ptr-1) = ' ';
78 			}
79 			sysclose(fp);
80 			if(debug)
81 				fprint(2, "forward = %s\n", s_to_c(line));
82 			rv = s_to_dest(s_restart(line), dp);
83 			s_free(line);
84 			if(rv){
85 				s_free(file);
86 				s_free(s);
87 				return rv;
88 			}
89 		}
90 	}
91 
92 	/*
93 	 *  look for a 'pipe' file.  This won't work if there are
94 	 *  special characters in the account name since the file
95 	 *  name passes through a shell.  tdb.
96 	 */
97 	mboxfile(dp, dp->repl1, s_reset(file), "pipeto");
98 	if(sysexist(s_to_c(file))){
99 		if(debug)
100 			fprint(2, "found a pipeto file\n");
101 		dp->status = d_pipeto;
102 		line = s_new();
103 		s_append(line, "upasname='");
104 		s_append(line, user);
105 		s_append(line, "' ");
106 		s_append(line, s_to_c(file));
107 		s_append(line, " ");
108 		s_append(line, s_to_c(dp->addr));
109 		s_append(line, " ");
110 		s_append(line, s_to_c(dp->repl1));
111 		s_free(dp->repl1);
112 		dp->repl1 = line;
113 		s_free(file);
114 		s_free(s);
115 		return dp;
116 	}
117 
118 	/*
119 	 *  see if the mailbox directory exists
120 	 */
121 	mboxfile(dp, s, s_reset(file), ".");
122 	if(sysexist(s_to_c(file)))
123 		dp->status = d_cat;
124 	else
125 		dp->status = d_unknown;
126 	s_free(file);
127 	s_free(s);
128 	return 0;
129 }