Warning: Attempt to read property "date" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "msg" on null in /usr/local/www/websvn.planix.org/blame.php on line 247
WebSVN – planix.SVN – Blame – /os/branches/feature_tlsv12/sys/src/cmd/upas/send/local.c – Rev 2

Subversion Repositories planix.SVN

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 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 
}