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