ref: bdc1b187c45dbaeaa7dadce4d7999d9d550ec78f
dir: /sys/src/cmd/upas/send/local.c/
#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; }