From: markus schnalke Date: Wed, 8 Feb 2012 12:42:11 +0000 (+0100) Subject: Always exec whatnow; don't link the code into comp, repl, forw, dist. X-Git-Tag: mmh-thesis-end~363 X-Git-Url: http://git.marmaro.de/?a=commitdiff_plain;h=c73c00bfccd22ec77e9593f47462aeca4a8cd9c0;p=mmh Always exec whatnow; don't link the code into comp, repl, forw, dist. Although this might slow it a bit down, it makes the boundaries clearer. The main problem for me is the interweaving of the parts in nmh. Let's trade a bit of speed for better modularization. --- diff --git a/uip/Makefile.in b/uip/Makefile.in index 6254ee9..63f71e2 100644 --- a/uip/Makefile.in +++ b/uip/Makefile.in @@ -75,7 +75,7 @@ SRCS = ali.c aliasbr.c anno.c annosbr.c ap.c burst.c comp.c \ prompter.c rcvdist.c rcvpack.c rcvstore.c rcvtty.c \ refile.c repl.c replsbr.c rmf.c rmm.c scan.c scansbr.c send.c \ sendsbr.c show.c slocal.c sortm.c spost.c termsbr.c viamail.c \ - whatnow.c whatnowproc.c whatnowsbr.c + whatnow.c whatnowproc.c # auxiliary files AUX = Makefile.in @@ -101,14 +101,14 @@ anno: anno.o annosbr.o $(LOCALLIBS) burst: burst.o $(LOCALLIBS) $(LINK) burst.o $(LINKLIBS) -comp: comp.o whatnowproc.o whatnowsbr.o sendsbr.o annosbr.o distsbr.o $(LOCALLIBS) - $(LINK) comp.o whatnowproc.o whatnowsbr.o sendsbr.o annosbr.o distsbr.o $(LINKLIBS) +comp: comp.o whatnowproc.o sendsbr.o annosbr.o distsbr.o $(LOCALLIBS) + $(LINK) comp.o whatnowproc.o sendsbr.o annosbr.o distsbr.o $(LINKLIBS) conflict: conflict.o aliasbr.o $(LOCALLIBS) $(LINK) conflict.o aliasbr.o $(LINKLIBS) -dist: dist.o whatnowproc.o whatnowsbr.o sendsbr.o annosbr.o distsbr.o $(LOCALLIBS) - $(LINK) dist.o whatnowproc.o whatnowsbr.o sendsbr.o annosbr.o distsbr.o $(LINKLIBS) +dist: dist.o whatnowproc.o sendsbr.o annosbr.o distsbr.o $(LOCALLIBS) + $(LINK) dist.o whatnowproc.o sendsbr.o annosbr.o distsbr.o $(LINKLIBS) dp: dp.o termsbr.o $(LOCALLIBS) $(LINK) dp.o termsbr.o $(LINKLIBS) $(TERMLIB) @@ -122,8 +122,8 @@ fmtdump: fmtdump.o $(LOCALLIBS) folder: folder.o $(LOCALLIBS) $(LINK) folder.o $(LINKLIBS) -forw: forw.o whatnowproc.o whatnowsbr.o sendsbr.o annosbr.o distsbr.o $(LOCALLIBS) - $(LINK) forw.o whatnowproc.o whatnowsbr.o sendsbr.o annosbr.o distsbr.o $(LINKLIBS) +forw: forw.o whatnowproc.o sendsbr.o annosbr.o distsbr.o $(LOCALLIBS) + $(LINK) forw.o whatnowproc.o sendsbr.o annosbr.o distsbr.o $(LINKLIBS) inc: inc.o scansbr.o dropsbr.o termsbr.o $(LOCALLIBS) $(LINK) inc.o scansbr.o dropsbr.o termsbr.o $(LINKLIBS) $(TERMLIB) @@ -192,8 +192,8 @@ rcvtty: rcvtty.o scansbr.o termsbr.o $(LOCALLIBS) refile: refile.o $(LOCALLIBS) $(LINK) refile.o $(LINKLIBS) -repl: repl.o replsbr.o whatnowproc.o whatnowsbr.o sendsbr.o annosbr.o distsbr.o $(LOCALLIBS) - $(LINK) repl.o replsbr.o whatnowproc.o whatnowsbr.o sendsbr.o annosbr.o distsbr.o $(LINKLIBS) +repl: repl.o replsbr.o whatnowproc.o sendsbr.o annosbr.o distsbr.o $(LOCALLIBS) + $(LINK) repl.o replsbr.o whatnowproc.o sendsbr.o annosbr.o distsbr.o $(LINKLIBS) rmf: rmf.o $(LOCALLIBS) $(LINK) rmf.o $(LINKLIBS) @@ -225,8 +225,8 @@ spost: spost.o aliasbr.o $(LOCALLIBS) viamail: viamail.o mhmisc.o mhoutsbr.o sendsbr.o annosbr.o distsbr.o $(LOCALLIBS) $(LINK) viamail.o mhmisc.o mhoutsbr.o sendsbr.o annosbr.o distsbr.o $(LINKLIBS) $(TERMLIB) -whatnow: whatnow.o whatnowsbr.o sendsbr.o annosbr.o distsbr.o $(LOCALLIBS) - $(LINK) whatnow.o whatnowsbr.o sendsbr.o annosbr.o distsbr.o $(LINKLIBS) +whatnow: whatnow.o sendsbr.o annosbr.o distsbr.o $(LOCALLIBS) + $(LINK) whatnow.o sendsbr.o annosbr.o distsbr.o $(LINKLIBS) # ========== DEPENDENCIES FOR INSTALLING ========== diff --git a/uip/whatnow.c b/uip/whatnow.c index 0488f94..0ec8e41 100644 --- a/uip/whatnow.c +++ b/uip/whatnow.c @@ -1,22 +1,1065 @@ /* -** whatnow.c -- the nmh `WhatNow' shell +** whatnow.c -- the WhatNow shell ** ** This code is Copyright (c) 2002, by the authors of nmh. See the ** COPYRIGHT file in the root directory of the nmh distribution for ** complete copyright information. +** +** The inclusion of attachments is eased by +** using the header field name mechanism added to anno and send. +** The header field name for attachments is predefined. +** +** Several commands have been added at the whatnow prompt: +** +** cd [ directory ] This option works just like the shell's +** cd command and lets the user change the +** directory from which attachments are +** taken so that long path names are not +** needed with every file. +** +** ls [ ls-options ] This option works just like the normal +** ls command and exists to allow the user +** to verify file names in the directory. +** +** pwd This option works just like the normal +** pwd command and exists to allow the user +** to verify the directory. +** +** attach files This option attaches the named files to +** the draft. +** +** alist [-ln] This option lists the attachments on the +** draft. -l gets long listings, -n gets +** numbered listings. +** +** detach files This option removes attachments from the +** detach -n numbers draft. This can be done by file name or +** by attachment number. */ #include +#include +#include +#include +#include + +static struct swit whatnowswitches[] = { +#define EDITRSW 0 + { "editor editor", 0 }, +#define NEDITSW 1 + { "noedit", 0 }, +#define PRMPTSW 2 + { "prompt string", 4 }, +#define VERSIONSW 3 + { "version", 0 }, +#define HELPSW 4 + { "help", 0 }, + { NULL, 0 } +}; -/* from whatnowsbr.c */ -int WhatNow(int, char **); +/* +** Options at the "whatnow" prompt +*/ +static struct swit aleqs[] = { +#define EDITSW 0 + { "edit [ ]", 0 }, +#define REFILEOPT 1 + { "refile [] +folder", 0 }, +#define DISPSW 2 + { "display []", 0 }, +#define LISTSW 3 + { "list []", 0 }, +#define SENDSW 4 + { "send []", 0 }, +#define PUSHSW 5 + { "push []", 0 }, +#define QUITSW 6 + { "quit [-delete]", 0 }, +#define DELETESW 7 + { "delete", 0 }, +#define CDCMDSW 8 + { "cd [directory]", 0 }, +#define PWDCMDSW 9 + { "pwd", 0 }, +#define LSCMDSW 10 + { "ls", 0 }, +#define ATTACHCMDSW 11 + { "attach", 0 }, +#define DETACHCMDSW 12 + { "detach [-n]", 2 }, +#define ALISTCMDSW 13 + { "alist [-ln] ", 2 }, + { NULL, 0 } +}; + +static char *myprompt = "\nWhat now? "; + +/* +** static prototypes +*/ +static int editfile(char **, char **, char *, int, struct msgs *, + char *, char *, int); +static int sendfile(char **, char *, int); +static void sendit(char *, char **, char *, int); +static int removefile(char *); +static void writelscmd(char *, int, char **); +static void writesomecmd(char *buf, int bufsz, char *cmd, char *trailcmd, char **argp); +static FILE* popen_in_dir(const char *dir, const char *cmd, const char *type); +static int system_in_dir(const char *dir, const char *cmd); + + +#ifdef HAVE_LSTAT +static int copyf(char *, char *); +#endif int main(int argc, char **argv) { + int nedit = 0, use = 0; + char *cp; + char *ed = NULL, *drft = NULL, *msgnam = NULL; + char buf[BUFSIZ], prompt[BUFSIZ]; + char **argp, **arguments; + struct stat st; + char cwd[MAXPATHLEN + 1]; /* current working directory */ + char file[MAXPATHLEN + 1]; /* file name buffer */ + char shell[MAXPATHLEN + 1]; /* shell response buffer */ + FILE *f; /* read pointer for bgnd proc */ + char *l; /* set on -l to alist command */ + int n; /* set on -n to alist command */ + #ifdef LOCALE setlocale(LC_ALL, ""); #endif - return WhatNow(argc, argv); + + invo_name = mhbasename(argv[0]); + + /* read user profile/context */ + context_read(); + + arguments = getarguments(invo_name, argc, argv, 1); + argp = arguments; + + /* + ** Get the initial current working directory. + */ + + if (getcwd(cwd, sizeof (cwd)) == NULL) { + adios("getcwd", "could not get working directory"); + } + + while ((cp = *argp++)) { + if (*cp == '-') { + switch (smatch(++cp, whatnowswitches)) { + case AMBIGSW: + ambigsw(cp, whatnowswitches); + done(1); + case UNKWNSW: + adios(NULL, "-%s unknown", cp); + + case HELPSW: + snprintf(buf, sizeof(buf), + "%s [switches] [file]", + invo_name); + print_help(buf, whatnowswitches, 1); + done(1); + case VERSIONSW: + print_version(invo_name); + done(1); + + case EDITRSW: + if (!(ed = *argp++) || *ed == '-') + adios(NULL, "missing argument to %s", + argp[-2]); + nedit = 0; + continue; + case NEDITSW: + nedit++; + continue; + + case PRMPTSW: + if (!(myprompt = *argp++) || *myprompt == '-') + adios(NULL, "missing argument to %s", + argp[-2]); + continue; + + } + } + if (drft) + adios(NULL, "only one draft at a time!"); + else + drft = cp; + } + + if ((drft == NULL && (drft = getenv("mhdraft")) == NULL) || *drft == 0) + drft = getcpy(m_draft(seq_cur)); + + msgnam = (cp = getenv("mhaltmsg")) && *cp ? getcpy(cp) : NULL; + + if ((cp = getenv("mhuse")) && *cp) + use = atoi(cp); + + if (ed == NULL && ((ed = getenv("mheditor")) == NULL || *ed == 0)) { + ed = NULL; + nedit++; + } + + /* start editing the draft, unless -noedit was given */ + if (!nedit && editfile(&ed, NULL, drft, use, NULL, msgnam, NULL, 1) + < 0) + done(1); + + snprintf(prompt, sizeof(prompt), myprompt, invo_name); + for (;;) { + if (!(argp = getans(prompt, aleqs))) { + unlink(altmsglink); + done(1); + } + switch (smatch(*argp, aleqs)) { + case DISPSW: + /* + ** display the message being replied to, + ** or distributed + */ + if (msgnam) + showfile(++argp, msgnam); + else + advise(NULL, "no alternate message to display"); + break; + + case EDITSW: + /* Call an editor on the draft file */ + if (*++argp) + ed = *argp++; + if (editfile(&ed, argp, drft, NOUSE, NULL, + msgnam, NULL, 1) == NOTOK) + done(1); + break; + + case LISTSW: + /* display the draft file */ + showfile(++argp, drft); + break; + + case QUITSW: + /* Quit, and possibly delete the draft */ + if (*++argp && (*argp[0] == 'd' || + ((*argp)[0] == '-' && (*argp)[1] == 'd'))) { + removefile(drft); + } else { + if (stat(drft, &st) != NOTOK) + advise(NULL, "draft left on %s", drft); + } + done(1); + + case DELETESW: + /* Delete draft and exit */ + removefile(drft); + done(1); + + case PUSHSW: + /* Send draft in background */ + if (sendfile(++argp, drft, 1)) + done(1); + break; + + case SENDSW: + /* Send draft */ + sendfile(++argp, drft, 0); + break; + + case REFILEOPT: + /* Refile the draft */ + if (refile(++argp, drft) == 0) + done(0); + break; + + case CDCMDSW: + /* + ** Change the working directory for attachments + ** + ** Run the directory through the user's shell + ** so that we can take advantage of any syntax + ** that the user is accustomed to. Read back + ** the absolute path. + */ + + if (*(argp+1) == NULL) { + sprintf(buf, "$SHELL -c \"cd;pwd\""); + } else { + writesomecmd(buf, BUFSIZ, "cd", "pwd", argp); + } + if ((f = popen_in_dir(cwd, buf, "r")) != (FILE *)0) { + fgets(cwd, sizeof (cwd), f); + + if (strchr(cwd, '\n') != NULL) + *strchr(cwd, '\n') = '\0'; + + pclose(f); + } else { + advise("popen", "could not get directory"); + } + + break; + + case PWDCMDSW: + /* Print the working directory for attachments */ + printf("%s\n", cwd); + break; + + case LSCMDSW: + /* + ** List files in the current attachment working + ** directory + ** + ** Use the user's shell so that we can take + ** advantage of any syntax that the user is + ** accustomed to. + */ + writelscmd(buf, sizeof(buf), argp); + system_in_dir(cwd, buf); + break; + + case ALISTCMDSW: + /* + ** List attachments on current draft. Options are: + ** + ** -l long listing (full path names) + ** -n numbers listing + */ + + l = NULL; + n = 0; + + while (*++argp != NULL) { + if (strcmp(*argp, "-l") == 0) + l = "/"; + + else if (strcmp(*argp, "-n") == 0) + n = 1; + + else if (strcmp(*argp, "-ln") == 0 || + strcmp(*argp, "-nl") == 0) { + l = "/"; + n = 1; + } else { + n = -1; + break; + } + } + + if (n == -1) + advise(NULL, "usage is alist [-ln]."); + + else + annolist(drft, attach_hdr, l, n); + + break; + + case ATTACHCMDSW: + /* + ** Attach files to current draft. + */ + + if (*(argp+1) == NULL) { + advise(NULL, "attach command requires file argument(s)."); + break; + } + + /* + ** Build a command line that causes the user's + ** shell to list the file name arguments. + ** This handles and wildcard expansion, tilde + ** expansion, etc. + */ + writelscmd(buf, sizeof(buf), argp); + + /* + ** Read back the response from the shell, + ** which contains a number of lines with one + ** file name per line. Remove off the newline. + ** Determine whether we have an absolute or + ** relative path name. Prepend the current + ** working directory to relative path names. + ** Add the attachment annotation to the draft. + */ + if ((f = popen_in_dir(cwd, buf, "r")) != (FILE *)0) { + while (fgets(shell, sizeof (shell), f) + != NULL) { + *(strchr(shell, '\n')) = '\0'; + + if (*shell == '/') + annotate(drft, attach_hdr, + shell, 1, 0, + -2, 1); + else { + sprintf(file, "%s/%s", cwd, + shell); + annotate(drft, attach_hdr, + file, 1, 0, + -2, 1); + } + } + + pclose(f); + } else { + advise("popen", "could not get file from shell"); + } + + break; + + case DETACHCMDSW: + /* + ** Detach files from current draft. + ** + ** Scan the arguments for a -n. Mixed file + ** names and numbers aren't allowed, so this + ** catches a -n anywhere in the argument list. + */ + + for (n = 0, arguments = argp + 1; + *arguments != NULL; + arguments++) { + if (strcmp(*arguments, "-n") == 0) { + n = 1; + break; + } + } + + /* + ** A -n was found so interpret the arguments as + ** attachment numbers. Decrement any remaining + ** argument number that is greater than the one + ** just processed after processing each one so + ** that the numbering stays correct. + */ + + if (n == 1) { + for (arguments = argp + 1; + *arguments != NULL; + arguments++) { + if (strcmp(*arguments, "-n") == 0) + continue; + + if (**arguments != '\0') { + n = atoi(*arguments); + annotate(drft, attach_hdr, + NULL, 1, 0, + n, 1); + + for (argp = arguments + 1; *argp != NULL; argp++) { + if (atoi(*argp) > n) { + if (atoi(*argp) == 1) + *argp = ""; + else + sprintf(*argp, "%d", atoi(*argp) - 1); + } + } + } + } + } + + /* + ** The arguments are interpreted as file names. + ** Run them through the user's shell for wildcard + ** expansion and other goodies. Do this from + ** the current working directory if the argument + ** is not an absolute path name (does not begin + ** with a /). + ** + ** We feed all the file names to the shell at + ** once, otherwise you can't provide a file name + ** with a space in it. + */ + writelscmd(buf, sizeof(buf), argp); + if ((f = popen_in_dir(cwd, buf, "r")) != (FILE *)0) { + while (fgets(shell, sizeof (shell), f) + != NULL) { + *(strchr(shell, '\n')) = '\0'; + annotate(drft, attach_hdr, shell, + 1, 0, 0, 1); + } + pclose(f); + } else { + advise("popen", "could not get file from shell"); + } + + break; + + default: + /* Unknown command */ + advise(NULL, "say what?"); + break; + } + } + /*NOTREACHED*/ +} + + + +/* +** Build a command line of the form $SHELL -c "cd 'cwd'; cmd argp ... ; +** trailcmd". +*/ +static void +writesomecmd(char *buf, int bufsz, char *cmd, char *trailcmd, char **argp) +{ + char *cp; + /* + ** Note that we do not quote -- the argp from the user + ** is assumed to be quoted as they desire. (We can't treat + ** it as pure literal as that would prevent them using ~, + ** wildcards, etc.) The buffer produced by this function + ** should be given to popen_in_dir() or system_in_dir() so + ** that the current working directory is set correctly. + */ + int ln = snprintf(buf, bufsz, "$SHELL -c \"%s", cmd); + /* + ** NB that some snprintf() return -1 on overflow rather than the + ** new C99 mandated 'number of chars that would have been written' + */ + /* + ** length checks here and inside the loop allow for the + ** trailing ';', trailcmd, '"' and NUL + */ + int trailln = strlen(trailcmd) + 3; + if (ln < 0 || ln + trailln > bufsz) + adios(NULL, "arguments too long"); + + cp = buf + ln; + + while (*++argp != NULL) { + ln = strlen(*argp); + /* +1 for leading space */ + if (ln + trailln + 1 > bufsz - (cp-buf)) + adios(NULL, "arguments too long"); + *cp++ = ' '; + memcpy(cp, *argp, ln+1); + cp += ln; + } + if (*trailcmd) { + *cp++ = ';'; + strcpy(cp, trailcmd); + cp += trailln - 3; + } + *cp++ = '"'; + *cp = 0; +} + +/* +** Build a command line that causes the user's shell to list the file name +** arguments. This handles and wildcard expansion, tilde expansion, etc. +*/ +static void +writelscmd(char *buf, int bufsz, char **argp) +{ + writesomecmd(buf, bufsz, "ls", "", argp); +} + +/* +** Like system(), but run the command in directory dir. +** This assumes the program is single-threaded! +*/ +static int +system_in_dir(const char *dir, const char *cmd) +{ + char olddir[BUFSIZ]; + int r; + if (getcwd(olddir, sizeof(olddir)) == 0) + adios("getcwd", "could not get working directory"); + if (chdir(dir) != 0) + adios("chdir", "could not change working directory"); + r = system(cmd); + if (chdir(olddir) != 0) + adios("chdir", "could not change working directory"); + return r; +} + +/* ditto for popen() */ +static FILE* +popen_in_dir(const char *dir, const char *cmd, const char *type) +{ + char olddir[BUFSIZ]; + FILE *f; + if (getcwd(olddir, sizeof(olddir)) == 0) + adios("getcwd", "could not get working directory"); + if (chdir(dir) != 0) + adios("chdir", "could not change working directory"); + f = popen(cmd, type); + if (chdir(olddir) != 0) + adios("chdir", "could not change working directory"); + return f; +} + + +/* +** EDIT +*/ + +static int reedit = 0; /* have we been here before? */ +static char *edsave = NULL; /* the editor we used previously */ + + +static int +editfile(char **ed, char **arg, char *file, int use, struct msgs *mp, + char *altmsg, char *cwd, int save_editor) +{ + int pid, status, vecp; + char altpath[BUFSIZ], linkpath[BUFSIZ]; + char *cp, *vec[MAXARGS]; + struct stat st; + +#ifdef HAVE_LSTAT + int slinked = 0; +#endif /* HAVE_LSTAT */ + + /* Was there a previous edit session? */ + if (reedit) { + if (!*ed) { /* no explicit editor */ + *ed = edsave; /* so use the previous one */ + if ((cp = mhbasename(*ed)) == NULL) + cp = *ed; + + /* unless we've specified it via "editor-next" */ + cp = concat(cp, "-next", NULL); + if ((cp = context_find(cp)) != NULL) + *ed = cp; + } + } else { + /* set initial editor */ + if (*ed == NULL && (*ed = context_find("editor")) == NULL) + *ed = defaulteditor; + } + + if (altmsg) { + if (mp == NULL || *altmsg == '/' || cwd == NULL) + strncpy(altpath, altmsg, sizeof(altpath)); + else + snprintf(altpath, sizeof(altpath), "%s/%s", + mp->foldpath, altmsg); + if (cwd == NULL) + strncpy(linkpath, altmsglink, sizeof(linkpath)); + else + snprintf(linkpath, sizeof(linkpath), "%s/%s", + cwd, altmsglink); + } + + if (altmsg) { + unlink(linkpath); +#ifdef HAVE_LSTAT + if (link(altpath, linkpath) == NOTOK) { + symlink(altpath, linkpath); + slinked = 1; + } else { + slinked = 0; + } +#else /* not HAVE_LSTAT */ + link(altpath, linkpath); +#endif /* not HAVE_LSTAT */ + } + + context_save(); /* save the context file */ + fflush(stdout); + + switch (pid = fork()) { + case NOTOK: + advise("fork", "unable to"); + status = NOTOK; + break; + + case OK: + if (cwd) + chdir(cwd); + if (altmsg) { + if (mp) + m_putenv("mhfolder", mp->foldpath); + m_putenv("editalt", altpath); + } + + vecp = 0; + vec[vecp++] = mhbasename(*ed); + if (arg) + while (*arg) + vec[vecp++] = *arg++; + vec[vecp++] = file; + vec[vecp] = NULL; + + execvp(*ed, vec); + fprintf(stderr, "unable to exec "); + perror(*ed); + _exit(-1); + + default: + if ((status = pidwait(pid, NOTOK))) { + if (((status & 0xff00) != 0xff00) + && (!reedit || (status & 0x00ff))) { + if (!use && (status & 0xff00) && (rename(file, cp = m_backup (file)) != NOTOK)) { + advise(NULL, "problems with edit--draft left in %s", cp); + } else { + advise(NULL, "problems with edit--%s preserved", file); + } + } + status = -2; /* maybe "reedit ? -2 : -1"? */ + break; + } + + reedit++; +#ifdef HAVE_LSTAT + if (altmsg && mp && !is_readonly(mp) && (slinked ? + lstat (linkpath, &st) != NOTOK && + S_ISREG(st.st_mode) && + copyf(linkpath, altpath) == NOTOK : + stat(linkpath, &st) != NOTOK && + st.st_nlink == 1 && + (unlink(altpath) == NOTOK || + link(linkpath, altpath) == NOTOK))) + advise(linkpath, "unable to update %s from", altmsg); +#else /* HAVE_LSTAT */ + if (altmsg && mp && !is_readonly(mp) && + stat(linkpath, &st) != NOTOK && + st.st_nlink == 1 && + (unlink(altpath) == NOTOK || + link(linkpath, altpath) == NOTOK)) + advise(linkpath, "unable to update %s from", altmsg); +#endif /* HAVE_LSTAT */ + } + + /* normally, we remember which editor we used */ + if (save_editor) + edsave = getcpy(*ed); + + *ed = NULL; + if (altmsg) + unlink(linkpath); + + return status; +} + + +#ifdef HAVE_LSTAT +static int +copyf(char *ifile, char *ofile) +{ + int i, in, out; + char buffer[BUFSIZ]; + + if ((in = open(ifile, O_RDONLY)) == NOTOK) + return NOTOK; + if ((out = open(ofile, O_WRONLY | O_TRUNC)) == NOTOK) { + admonish(ofile, "unable to open and truncate"); + close(in); + return NOTOK; + } + + while ((i = read(in, buffer, sizeof(buffer))) > OK) + if (write(out, buffer, i) != i) { + advise(ofile, "may have damaged"); + i = NOTOK; + break; + } + + close(in); + close(out); + return i; +} +#endif /* HAVE_LSTAT */ + + +/* +** SEND +*/ + +static int +sendfile(char **arg, char *file, int pushsw) +{ + pid_t child_id; + int i, vecp; + char *cp, *sp, *vec[MAXARGS]; + + /* + ** If the sendproc is the nmh command `send', then we call + ** those routines directly rather than exec'ing the command. + */ + if (strcmp(sp = mhbasename(sendproc), "send") == 0) { + cp = invo_name; + sendit(invo_name = sp, arg, file, pushsw); + invo_name = cp; + return 1; + } + + /* some different sendproc */ + + context_save(); /* save the context file */ + fflush(stdout); + + for (i = 0; (child_id = fork()) == NOTOK && i < 5; i++) + sleep(5); + switch (child_id) { + case NOTOK: + advise(NULL, "unable to fork, so sending directly..."); + /* fall */ + case OK: + vecp = 0; + vec[vecp++] = invo_name; + if (pushsw) + vec[vecp++] = "-push"; + if (arg) + while (*arg) + vec[vecp++] = *arg++; + vec[vecp++] = file; + vec[vecp] = NULL; + + execvp(sendproc, vec); + fprintf(stderr, "unable to exec "); + perror(sendproc); + _exit(-1); + + default: + if (pidwait(child_id, OK) == 0) + done(0); + return 1; + } +} + + +static struct swit sendswitches[] = { +#define ALIASW 0 + { "alias aliasfile", 0 }, +#define DEBUGSW 1 + { "debug", -5 }, +#define FILTSW 2 + { "filter filterfile", 0 }, +#define NFILTSW 3 + { "nofilter", 0 }, +#define FRMTSW 4 + { "format", 0 }, +#define NFRMTSW 5 + { "noformat", 0 }, +#define FORWSW 6 + { "forward", 0 }, +#define NFORWSW 7 + { "noforward", 0 }, +#define SPSHSW 8 + { "push", 0 }, +#define NSPSHSW 9 + { "nopush", 0 }, +#define VERBSW 10 + { "verbose", 0 }, +#define NVERBSW 11 + { "noverbose", 0 }, +#define WATCSW 12 + { "watch", 0 }, +#define NWATCSW 13 + { "nowatch", 0 }, +#define WIDTHSW 14 + { "width columns", 0 }, +#define SVERSIONSW 15 + { "version", 0 }, +#define SHELPSW 16 + { "help", 0 }, + { NULL, 0 } +}; + + +extern int debugsw; /* from sendsbr.c */ +extern int forwsw; +extern int inplace; +extern int pushsw; +extern int verbsw; + +extern char *altmsg; /* .. */ +extern char *annotext; +extern char *distfile; + + +static void +sendit(char *sp, char **arg, char *file, int pushed) +{ + int vecp, n = 1; + char *cp, buf[BUFSIZ], **argp; + char **arguments, *vec[MAXARGS]; + struct stat st; + +#ifndef lint + int distsw = 0; +#endif + + /* + ** Make sure these are defined. In particular, we need + ** vec[1] to be NULL, in case "arg" is NULL below. It + ** doesn't matter what is the value of vec[0], but we + ** set it to NULL, to help catch "off-by-one" errors. + */ + vec[0] = NULL; + vec[1] = NULL; + + /* + ** Temporarily copy arg to vec, since the brkstring() call in + ** getarguments() will wipe it out before it is merged in. + ** Also, we skip the first element of vec, since getarguments() + ** skips it. Then we count the number of arguments + ** copied. The value of "n" will be one greater than + ** this in order to simulate the standard argc/argv. + */ + if (arg) { + char **bp; + + copyip(arg, vec+1, MAXARGS-1); + bp = vec+1; + while (*bp++) + n++; + } + + /* + ** Merge any arguments from command line (now in vec) + ** and arguments from profile. + */ + arguments = getarguments(sp, n, vec, 1); + argp = arguments; + + debugsw = 0; + forwsw = 1; + inplace = 1; + + altmsg = NULL; + annotext = NULL; + distfile = NULL; + + vecp = 1; /* we'll get the zero'th element later */ + vec[vecp++] = "-library"; + vec[vecp++] = getcpy(toabsdir("+")); + + while ((cp = *argp++)) { + if (*cp == '-') { + switch (smatch(++cp, sendswitches)) { + case AMBIGSW: + ambigsw(cp, sendswitches); + return; + case UNKWNSW: + advise(NULL, "-%s unknown\n", cp); + return; + + case SHELPSW: + snprintf(buf, sizeof(buf), + "%s [switches]", sp); + print_help(buf, sendswitches, 1); + return; + case SVERSIONSW: + print_version(invo_name); + return; + + case SPSHSW: + pushed++; + continue; + case NSPSHSW: + pushed = 0; + continue; + + case FORWSW: + forwsw++; + continue; + case NFORWSW: + forwsw = 0; + continue; + + case VERBSW: + verbsw++; + vec[vecp++] = --cp; + continue; + case NVERBSW: + verbsw = 0; + vec[vecp++] = --cp; + continue; + + case DEBUGSW: + debugsw++; /* fall */ + case NFILTSW: + case FRMTSW: + case NFRMTSW: + case WATCSW: + case NWATCSW: + vec[vecp++] = --cp; + continue; + + case ALIASW: + case FILTSW: + case WIDTHSW: + vec[vecp++] = --cp; + if (!(cp = *argp++) || *cp == '-') { + advise(NULL, "missing argument to %s", + argp[-2]); + return; + } + vec[vecp++] = cp; + continue; + + } + } + advise(NULL, "usage: %s [switches]", sp); + return; + } + + /* allow Aliasfile: profile entry */ + if ((cp = context_find("Aliasfile"))) { + char **ap, *dp; + + dp = getcpy(cp); + for (ap = brkstring(dp, " ", "\n"); ap && *ap; ap++) { + vec[vecp++] = "-alias"; + vec[vecp++] = getcpy(etcpath(*ap)); + } + } + + if (!(cp = getenv("SIGNATURE")) || !*cp) + if ((cp = context_find("signature")) && *cp) + m_putenv("SIGNATURE", cp); + + if ((annotext = getenv("mhannotate")) == NULL || *annotext == 0) + annotext = NULL; + if ((altmsg = getenv("mhaltmsg")) == NULL || *altmsg == 0) + altmsg = NULL; + if (annotext && ((cp = getenv("mhinplace")) != NULL && *cp != 0)) + inplace = atoi(cp); + + if ((cp = getenv("mhdist")) && *cp +#ifndef lint + && (distsw = atoi (cp)) +#endif /* not lint */ + && altmsg) { + vec[vecp++] = "-dist"; + distfile = getcpy(m_mktemp2(altmsg, invo_name, NULL, NULL)); + if (link(altmsg, distfile) == NOTOK) + adios(distfile, "unable to link %s to", altmsg); + } else { + distfile = NULL; + } + + if (altmsg == NULL || stat(altmsg, &st) == NOTOK) { + st.st_mtime = 0; + st.st_dev = 0; + st.st_ino = 0; + } + if ((pushsw = pushed)) + push(); + + vec[0] = mhbasename(postproc); + closefds(3); + + if (sendsbr(vec, vecp, file, &st, 1) == OK) + done(0); +} + + +/* +** Remove the draft file +*/ + +static int +removefile(char *drft) +{ + if (unlink(drft) == NOTOK) + adios(drft, "unable to unlink"); + + return OK; } diff --git a/uip/whatnowproc.c b/uip/whatnowproc.c index 8d6830e..12cd13a 100644 --- a/uip/whatnowproc.c +++ b/uip/whatnowproc.c @@ -13,15 +13,8 @@ ** This routine is used by comp, repl, forw, and dist to exec ** the "whatnowproc". It first sets up all the environment ** variables that the "whatnowproc" will need to check, and -** then execs the command. As an optimization, if the -** "whatnowproc" is the nmh command "whatnow" (typical case), -** it will call this routine directly without exec'ing it. +** then execs the command. */ - -/* from whatnowsbr.c */ -int WhatNow(int, char **); - - int what_now(char *ed, int nedit, int use, char *file, char *altmsg, int dist, struct msgs *mp, char *text, int inplace, char *cwd) @@ -105,15 +98,6 @@ what_now(char *ed, int nedit, int use, char *file, char *altmsg, int dist, if (cwd) chdir(cwd); - /* - ** If the "whatnowproc" is the nmh command "whatnow", - ** we run it internally, rather than exec'ing it. - */ - if (strcmp(vec[0], "whatnow") == 0) { - WhatNow(vecp, vec); - done(0); - } - execvp(whatnowproc, vec); fprintf(stderr, "unable to exec "); perror(whatnowproc); diff --git a/uip/whatnowsbr.c b/uip/whatnowsbr.c deleted file mode 100644 index bd40904..0000000 --- a/uip/whatnowsbr.c +++ /dev/null @@ -1,1061 +0,0 @@ -/* -** whatnowsbr.c -- the WhatNow shell -** -** This code is Copyright (c) 2002, by the authors of nmh. See the -** COPYRIGHT file in the root directory of the nmh distribution for -** complete copyright information. -** -** The inclusion of attachments is eased by -** using the header field name mechanism added to anno and send. -** The header field name for attachments is predefined. -** -** Several commands have been added at the whatnow prompt: -** -** cd [ directory ] This option works just like the shell's -** cd command and lets the user change the -** directory from which attachments are -** taken so that long path names are not -** needed with every file. -** -** ls [ ls-options ] This option works just like the normal -** ls command and exists to allow the user -** to verify file names in the directory. -** -** pwd This option works just like the normal -** pwd command and exists to allow the user -** to verify the directory. -** -** attach files This option attaches the named files to -** the draft. -** -** alist [-ln] This option lists the attachments on the -** draft. -l gets long listings, -n gets -** numbered listings. -** -** detach files This option removes attachments from the -** detach -n numbers draft. This can be done by file name or -** by attachment number. -*/ - -#include -#include -#include -#include -#include - -static struct swit whatnowswitches[] = { -#define EDITRSW 0 - { "editor editor", 0 }, -#define NEDITSW 1 - { "noedit", 0 }, -#define PRMPTSW 2 - { "prompt string", 4 }, -#define VERSIONSW 3 - { "version", 0 }, -#define HELPSW 4 - { "help", 0 }, - { NULL, 0 } -}; - -/* -** Options at the "whatnow" prompt -*/ -static struct swit aleqs[] = { -#define EDITSW 0 - { "edit [ ]", 0 }, -#define REFILEOPT 1 - { "refile [] +folder", 0 }, -#define DISPSW 2 - { "display []", 0 }, -#define LISTSW 3 - { "list []", 0 }, -#define SENDSW 4 - { "send []", 0 }, -#define PUSHSW 5 - { "push []", 0 }, -#define QUITSW 6 - { "quit [-delete]", 0 }, -#define DELETESW 7 - { "delete", 0 }, -#define CDCMDSW 8 - { "cd [directory]", 0 }, -#define PWDCMDSW 9 - { "pwd", 0 }, -#define LSCMDSW 10 - { "ls", 0 }, -#define ATTACHCMDSW 11 - { "attach", 0 }, -#define DETACHCMDSW 12 - { "detach [-n]", 2 }, -#define ALISTCMDSW 13 - { "alist [-ln] ", 2 }, - { NULL, 0 } -}; - -static char *myprompt = "\nWhat now? "; - -/* -** static prototypes -*/ -static int editfile(char **, char **, char *, int, struct msgs *, - char *, char *, int); -static int sendfile(char **, char *, int); -static void sendit(char *, char **, char *, int); -static int removefile(char *); -static void writelscmd(char *, int, char **); -static void writesomecmd(char *buf, int bufsz, char *cmd, char *trailcmd, char **argp); -static FILE* popen_in_dir(const char *dir, const char *cmd, const char *type); -static int system_in_dir(const char *dir, const char *cmd); - - -#ifdef HAVE_LSTAT -static int copyf(char *, char *); -#endif - - -int -WhatNow(int argc, char **argv) -{ - int nedit = 0, use = 0; - char *cp; - char *ed = NULL, *drft = NULL, *msgnam = NULL; - char buf[BUFSIZ], prompt[BUFSIZ]; - char **argp, **arguments; - struct stat st; - char cwd[MAXPATHLEN + 1]; /* current working directory */ - char file[MAXPATHLEN + 1]; /* file name buffer */ - char shell[MAXPATHLEN + 1]; /* shell response buffer */ - FILE *f; /* read pointer for bgnd proc */ - char *l; /* set on -l to alist command */ - int n; /* set on -n to alist command */ - - invo_name = mhbasename(argv[0]); - - /* read user profile/context */ - context_read(); - - arguments = getarguments(invo_name, argc, argv, 1); - argp = arguments; - - /* - ** Get the initial current working directory. - */ - - if (getcwd(cwd, sizeof (cwd)) == NULL) { - adios("getcwd", "could not get working directory"); - } - - while ((cp = *argp++)) { - if (*cp == '-') { - switch (smatch(++cp, whatnowswitches)) { - case AMBIGSW: - ambigsw(cp, whatnowswitches); - done(1); - case UNKWNSW: - adios(NULL, "-%s unknown", cp); - - case HELPSW: - snprintf(buf, sizeof(buf), - "%s [switches] [file]", - invo_name); - print_help(buf, whatnowswitches, 1); - done(1); - case VERSIONSW: - print_version(invo_name); - done(1); - - case EDITRSW: - if (!(ed = *argp++) || *ed == '-') - adios(NULL, "missing argument to %s", - argp[-2]); - nedit = 0; - continue; - case NEDITSW: - nedit++; - continue; - - case PRMPTSW: - if (!(myprompt = *argp++) || *myprompt == '-') - adios(NULL, "missing argument to %s", - argp[-2]); - continue; - - } - } - if (drft) - adios(NULL, "only one draft at a time!"); - else - drft = cp; - } - - if ((drft == NULL && (drft = getenv("mhdraft")) == NULL) || *drft == 0) - drft = getcpy(m_draft(seq_cur)); - - msgnam = (cp = getenv("mhaltmsg")) && *cp ? getcpy(cp) : NULL; - - if ((cp = getenv("mhuse")) && *cp) - use = atoi(cp); - - if (ed == NULL && ((ed = getenv("mheditor")) == NULL || *ed == 0)) { - ed = NULL; - nedit++; - } - - /* start editing the draft, unless -noedit was given */ - if (!nedit && editfile(&ed, NULL, drft, use, NULL, msgnam, NULL, 1) - < 0) - done(1); - - snprintf(prompt, sizeof(prompt), myprompt, invo_name); - for (;;) { - if (!(argp = getans(prompt, aleqs))) { - unlink(altmsglink); - done(1); - } - switch (smatch(*argp, aleqs)) { - case DISPSW: - /* - ** display the message being replied to, - ** or distributed - */ - if (msgnam) - showfile(++argp, msgnam); - else - advise(NULL, "no alternate message to display"); - break; - - case EDITSW: - /* Call an editor on the draft file */ - if (*++argp) - ed = *argp++; - if (editfile(&ed, argp, drft, NOUSE, NULL, - msgnam, NULL, 1) == NOTOK) - done(1); - break; - - case LISTSW: - /* display the draft file */ - showfile(++argp, drft); - break; - - case QUITSW: - /* Quit, and possibly delete the draft */ - if (*++argp && (*argp[0] == 'd' || - ((*argp)[0] == '-' && (*argp)[1] == 'd'))) { - removefile(drft); - } else { - if (stat(drft, &st) != NOTOK) - advise(NULL, "draft left on %s", drft); - } - done(1); - - case DELETESW: - /* Delete draft and exit */ - removefile(drft); - done(1); - - case PUSHSW: - /* Send draft in background */ - if (sendfile(++argp, drft, 1)) - done(1); - break; - - case SENDSW: - /* Send draft */ - sendfile(++argp, drft, 0); - break; - - case REFILEOPT: - /* Refile the draft */ - if (refile(++argp, drft) == 0) - done(0); - break; - - case CDCMDSW: - /* - ** Change the working directory for attachments - ** - ** Run the directory through the user's shell - ** so that we can take advantage of any syntax - ** that the user is accustomed to. Read back - ** the absolute path. - */ - - if (*(argp+1) == NULL) { - sprintf(buf, "$SHELL -c \"cd;pwd\""); - } else { - writesomecmd(buf, BUFSIZ, "cd", "pwd", argp); - } - if ((f = popen_in_dir(cwd, buf, "r")) != (FILE *)0) { - fgets(cwd, sizeof (cwd), f); - - if (strchr(cwd, '\n') != NULL) - *strchr(cwd, '\n') = '\0'; - - pclose(f); - } else { - advise("popen", "could not get directory"); - } - - break; - - case PWDCMDSW: - /* Print the working directory for attachments */ - printf("%s\n", cwd); - break; - - case LSCMDSW: - /* - ** List files in the current attachment working - ** directory - ** - ** Use the user's shell so that we can take - ** advantage of any syntax that the user is - ** accustomed to. - */ - writelscmd(buf, sizeof(buf), argp); - system_in_dir(cwd, buf); - break; - - case ALISTCMDSW: - /* - ** List attachments on current draft. Options are: - ** - ** -l long listing (full path names) - ** -n numbers listing - */ - - l = NULL; - n = 0; - - while (*++argp != NULL) { - if (strcmp(*argp, "-l") == 0) - l = "/"; - - else if (strcmp(*argp, "-n") == 0) - n = 1; - - else if (strcmp(*argp, "-ln") == 0 || - strcmp(*argp, "-nl") == 0) { - l = "/"; - n = 1; - } else { - n = -1; - break; - } - } - - if (n == -1) - advise(NULL, "usage is alist [-ln]."); - - else - annolist(drft, attach_hdr, l, n); - - break; - - case ATTACHCMDSW: - /* - ** Attach files to current draft. - */ - - if (*(argp+1) == NULL) { - advise(NULL, "attach command requires file argument(s)."); - break; - } - - /* - ** Build a command line that causes the user's - ** shell to list the file name arguments. - ** This handles and wildcard expansion, tilde - ** expansion, etc. - */ - writelscmd(buf, sizeof(buf), argp); - - /* - ** Read back the response from the shell, - ** which contains a number of lines with one - ** file name per line. Remove off the newline. - ** Determine whether we have an absolute or - ** relative path name. Prepend the current - ** working directory to relative path names. - ** Add the attachment annotation to the draft. - */ - if ((f = popen_in_dir(cwd, buf, "r")) != (FILE *)0) { - while (fgets(shell, sizeof (shell), f) - != NULL) { - *(strchr(shell, '\n')) = '\0'; - - if (*shell == '/') - annotate(drft, attach_hdr, - shell, 1, 0, - -2, 1); - else { - sprintf(file, "%s/%s", cwd, - shell); - annotate(drft, attach_hdr, - file, 1, 0, - -2, 1); - } - } - - pclose(f); - } else { - advise("popen", "could not get file from shell"); - } - - break; - - case DETACHCMDSW: - /* - ** Detach files from current draft. - ** - ** Scan the arguments for a -n. Mixed file - ** names and numbers aren't allowed, so this - ** catches a -n anywhere in the argument list. - */ - - for (n = 0, arguments = argp + 1; - *arguments != NULL; - arguments++) { - if (strcmp(*arguments, "-n") == 0) { - n = 1; - break; - } - } - - /* - ** A -n was found so interpret the arguments as - ** attachment numbers. Decrement any remaining - ** argument number that is greater than the one - ** just processed after processing each one so - ** that the numbering stays correct. - */ - - if (n == 1) { - for (arguments = argp + 1; - *arguments != NULL; - arguments++) { - if (strcmp(*arguments, "-n") == 0) - continue; - - if (**arguments != '\0') { - n = atoi(*arguments); - annotate(drft, attach_hdr, - NULL, 1, 0, - n, 1); - - for (argp = arguments + 1; *argp != NULL; argp++) { - if (atoi(*argp) > n) { - if (atoi(*argp) == 1) - *argp = ""; - else - sprintf(*argp, "%d", atoi(*argp) - 1); - } - } - } - } - } - - /* - ** The arguments are interpreted as file names. - ** Run them through the user's shell for wildcard - ** expansion and other goodies. Do this from - ** the current working directory if the argument - ** is not an absolute path name (does not begin - ** with a /). - ** - ** We feed all the file names to the shell at - ** once, otherwise you can't provide a file name - ** with a space in it. - */ - writelscmd(buf, sizeof(buf), argp); - if ((f = popen_in_dir(cwd, buf, "r")) != (FILE *)0) { - while (fgets(shell, sizeof (shell), f) - != NULL) { - *(strchr(shell, '\n')) = '\0'; - annotate(drft, attach_hdr, shell, - 1, 0, 0, 1); - } - pclose(f); - } else { - advise("popen", "could not get file from shell"); - } - - break; - - default: - /* Unknown command */ - advise(NULL, "say what?"); - break; - } - } - /*NOTREACHED*/ -} - - - -/* -** Build a command line of the form $SHELL -c "cd 'cwd'; cmd argp ... ; -** trailcmd". -*/ -static void -writesomecmd(char *buf, int bufsz, char *cmd, char *trailcmd, char **argp) -{ - char *cp; - /* - ** Note that we do not quote -- the argp from the user - ** is assumed to be quoted as they desire. (We can't treat - ** it as pure literal as that would prevent them using ~, - ** wildcards, etc.) The buffer produced by this function - ** should be given to popen_in_dir() or system_in_dir() so - ** that the current working directory is set correctly. - */ - int ln = snprintf(buf, bufsz, "$SHELL -c \"%s", cmd); - /* - ** NB that some snprintf() return -1 on overflow rather than the - ** new C99 mandated 'number of chars that would have been written' - */ - /* - ** length checks here and inside the loop allow for the - ** trailing ';', trailcmd, '"' and NUL - */ - int trailln = strlen(trailcmd) + 3; - if (ln < 0 || ln + trailln > bufsz) - adios(NULL, "arguments too long"); - - cp = buf + ln; - - while (*++argp != NULL) { - ln = strlen(*argp); - /* +1 for leading space */ - if (ln + trailln + 1 > bufsz - (cp-buf)) - adios(NULL, "arguments too long"); - *cp++ = ' '; - memcpy(cp, *argp, ln+1); - cp += ln; - } - if (*trailcmd) { - *cp++ = ';'; - strcpy(cp, trailcmd); - cp += trailln - 3; - } - *cp++ = '"'; - *cp = 0; -} - -/* -** Build a command line that causes the user's shell to list the file name -** arguments. This handles and wildcard expansion, tilde expansion, etc. -*/ -static void -writelscmd(char *buf, int bufsz, char **argp) -{ - writesomecmd(buf, bufsz, "ls", "", argp); -} - -/* -** Like system(), but run the command in directory dir. -** This assumes the program is single-threaded! -*/ -static int -system_in_dir(const char *dir, const char *cmd) -{ - char olddir[BUFSIZ]; - int r; - if (getcwd(olddir, sizeof(olddir)) == 0) - adios("getcwd", "could not get working directory"); - if (chdir(dir) != 0) - adios("chdir", "could not change working directory"); - r = system(cmd); - if (chdir(olddir) != 0) - adios("chdir", "could not change working directory"); - return r; -} - -/* ditto for popen() */ -static FILE* -popen_in_dir(const char *dir, const char *cmd, const char *type) -{ - char olddir[BUFSIZ]; - FILE *f; - if (getcwd(olddir, sizeof(olddir)) == 0) - adios("getcwd", "could not get working directory"); - if (chdir(dir) != 0) - adios("chdir", "could not change working directory"); - f = popen(cmd, type); - if (chdir(olddir) != 0) - adios("chdir", "could not change working directory"); - return f; -} - - -/* -** EDIT -*/ - -static int reedit = 0; /* have we been here before? */ -static char *edsave = NULL; /* the editor we used previously */ - - -static int -editfile(char **ed, char **arg, char *file, int use, struct msgs *mp, - char *altmsg, char *cwd, int save_editor) -{ - int pid, status, vecp; - char altpath[BUFSIZ], linkpath[BUFSIZ]; - char *cp, *vec[MAXARGS]; - struct stat st; - -#ifdef HAVE_LSTAT - int slinked = 0; -#endif /* HAVE_LSTAT */ - - /* Was there a previous edit session? */ - if (reedit) { - if (!*ed) { /* no explicit editor */ - *ed = edsave; /* so use the previous one */ - if ((cp = mhbasename(*ed)) == NULL) - cp = *ed; - - /* unless we've specified it via "editor-next" */ - cp = concat(cp, "-next", NULL); - if ((cp = context_find(cp)) != NULL) - *ed = cp; - } - } else { - /* set initial editor */ - if (*ed == NULL && (*ed = context_find("editor")) == NULL) - *ed = defaulteditor; - } - - if (altmsg) { - if (mp == NULL || *altmsg == '/' || cwd == NULL) - strncpy(altpath, altmsg, sizeof(altpath)); - else - snprintf(altpath, sizeof(altpath), "%s/%s", - mp->foldpath, altmsg); - if (cwd == NULL) - strncpy(linkpath, altmsglink, sizeof(linkpath)); - else - snprintf(linkpath, sizeof(linkpath), "%s/%s", - cwd, altmsglink); - } - - if (altmsg) { - unlink(linkpath); -#ifdef HAVE_LSTAT - if (link(altpath, linkpath) == NOTOK) { - symlink(altpath, linkpath); - slinked = 1; - } else { - slinked = 0; - } -#else /* not HAVE_LSTAT */ - link(altpath, linkpath); -#endif /* not HAVE_LSTAT */ - } - - context_save(); /* save the context file */ - fflush(stdout); - - switch (pid = fork()) { - case NOTOK: - advise("fork", "unable to"); - status = NOTOK; - break; - - case OK: - if (cwd) - chdir(cwd); - if (altmsg) { - if (mp) - m_putenv("mhfolder", mp->foldpath); - m_putenv("editalt", altpath); - } - - vecp = 0; - vec[vecp++] = mhbasename(*ed); - if (arg) - while (*arg) - vec[vecp++] = *arg++; - vec[vecp++] = file; - vec[vecp] = NULL; - - execvp(*ed, vec); - fprintf(stderr, "unable to exec "); - perror(*ed); - _exit(-1); - - default: - if ((status = pidwait(pid, NOTOK))) { - if (((status & 0xff00) != 0xff00) - && (!reedit || (status & 0x00ff))) { - if (!use && (status & 0xff00) && (rename(file, cp = m_backup (file)) != NOTOK)) { - advise(NULL, "problems with edit--draft left in %s", cp); - } else { - advise(NULL, "problems with edit--%s preserved", file); - } - } - status = -2; /* maybe "reedit ? -2 : -1"? */ - break; - } - - reedit++; -#ifdef HAVE_LSTAT - if (altmsg && mp && !is_readonly(mp) && (slinked ? - lstat (linkpath, &st) != NOTOK && - S_ISREG(st.st_mode) && - copyf(linkpath, altpath) == NOTOK : - stat(linkpath, &st) != NOTOK && - st.st_nlink == 1 && - (unlink(altpath) == NOTOK || - link(linkpath, altpath) == NOTOK))) - advise(linkpath, "unable to update %s from", altmsg); -#else /* HAVE_LSTAT */ - if (altmsg && mp && !is_readonly(mp) && - stat(linkpath, &st) != NOTOK && - st.st_nlink == 1 && - (unlink(altpath) == NOTOK || - link(linkpath, altpath) == NOTOK)) - advise(linkpath, "unable to update %s from", altmsg); -#endif /* HAVE_LSTAT */ - } - - /* normally, we remember which editor we used */ - if (save_editor) - edsave = getcpy(*ed); - - *ed = NULL; - if (altmsg) - unlink(linkpath); - - return status; -} - - -#ifdef HAVE_LSTAT -static int -copyf(char *ifile, char *ofile) -{ - int i, in, out; - char buffer[BUFSIZ]; - - if ((in = open(ifile, O_RDONLY)) == NOTOK) - return NOTOK; - if ((out = open(ofile, O_WRONLY | O_TRUNC)) == NOTOK) { - admonish(ofile, "unable to open and truncate"); - close(in); - return NOTOK; - } - - while ((i = read(in, buffer, sizeof(buffer))) > OK) - if (write(out, buffer, i) != i) { - advise(ofile, "may have damaged"); - i = NOTOK; - break; - } - - close(in); - close(out); - return i; -} -#endif /* HAVE_LSTAT */ - - -/* -** SEND -*/ - -static int -sendfile(char **arg, char *file, int pushsw) -{ - pid_t child_id; - int i, vecp; - char *cp, *sp, *vec[MAXARGS]; - - /* - ** If the sendproc is the nmh command `send', then we call - ** those routines directly rather than exec'ing the command. - */ - if (strcmp(sp = mhbasename(sendproc), "send") == 0) { - cp = invo_name; - sendit(invo_name = sp, arg, file, pushsw); - invo_name = cp; - return 1; - } - - /* some different sendproc */ - - context_save(); /* save the context file */ - fflush(stdout); - - for (i = 0; (child_id = fork()) == NOTOK && i < 5; i++) - sleep(5); - switch (child_id) { - case NOTOK: - advise(NULL, "unable to fork, so sending directly..."); - /* fall */ - case OK: - vecp = 0; - vec[vecp++] = invo_name; - if (pushsw) - vec[vecp++] = "-push"; - if (arg) - while (*arg) - vec[vecp++] = *arg++; - vec[vecp++] = file; - vec[vecp] = NULL; - - execvp(sendproc, vec); - fprintf(stderr, "unable to exec "); - perror(sendproc); - _exit(-1); - - default: - if (pidwait(child_id, OK) == 0) - done(0); - return 1; - } -} - - -static struct swit sendswitches[] = { -#define ALIASW 0 - { "alias aliasfile", 0 }, -#define DEBUGSW 1 - { "debug", -5 }, -#define FILTSW 2 - { "filter filterfile", 0 }, -#define NFILTSW 3 - { "nofilter", 0 }, -#define FRMTSW 4 - { "format", 0 }, -#define NFRMTSW 5 - { "noformat", 0 }, -#define FORWSW 6 - { "forward", 0 }, -#define NFORWSW 7 - { "noforward", 0 }, -#define SPSHSW 8 - { "push", 0 }, -#define NSPSHSW 9 - { "nopush", 0 }, -#define VERBSW 10 - { "verbose", 0 }, -#define NVERBSW 11 - { "noverbose", 0 }, -#define WATCSW 12 - { "watch", 0 }, -#define NWATCSW 13 - { "nowatch", 0 }, -#define WIDTHSW 14 - { "width columns", 0 }, -#define SVERSIONSW 15 - { "version", 0 }, -#define SHELPSW 16 - { "help", 0 }, - { NULL, 0 } -}; - - -extern int debugsw; /* from sendsbr.c */ -extern int forwsw; -extern int inplace; -extern int pushsw; -extern int verbsw; - -extern char *altmsg; /* .. */ -extern char *annotext; -extern char *distfile; - - -static void -sendit(char *sp, char **arg, char *file, int pushed) -{ - int vecp, n = 1; - char *cp, buf[BUFSIZ], **argp; - char **arguments, *vec[MAXARGS]; - struct stat st; - -#ifndef lint - int distsw = 0; -#endif - - /* - ** Make sure these are defined. In particular, we need - ** vec[1] to be NULL, in case "arg" is NULL below. It - ** doesn't matter what is the value of vec[0], but we - ** set it to NULL, to help catch "off-by-one" errors. - */ - vec[0] = NULL; - vec[1] = NULL; - - /* - ** Temporarily copy arg to vec, since the brkstring() call in - ** getarguments() will wipe it out before it is merged in. - ** Also, we skip the first element of vec, since getarguments() - ** skips it. Then we count the number of arguments - ** copied. The value of "n" will be one greater than - ** this in order to simulate the standard argc/argv. - */ - if (arg) { - char **bp; - - copyip(arg, vec+1, MAXARGS-1); - bp = vec+1; - while (*bp++) - n++; - } - - /* - ** Merge any arguments from command line (now in vec) - ** and arguments from profile. - */ - arguments = getarguments(sp, n, vec, 1); - argp = arguments; - - debugsw = 0; - forwsw = 1; - inplace = 1; - - altmsg = NULL; - annotext = NULL; - distfile = NULL; - - vecp = 1; /* we'll get the zero'th element later */ - vec[vecp++] = "-library"; - vec[vecp++] = getcpy(toabsdir("+")); - - while ((cp = *argp++)) { - if (*cp == '-') { - switch (smatch(++cp, sendswitches)) { - case AMBIGSW: - ambigsw(cp, sendswitches); - return; - case UNKWNSW: - advise(NULL, "-%s unknown\n", cp); - return; - - case SHELPSW: - snprintf(buf, sizeof(buf), - "%s [switches]", sp); - print_help(buf, sendswitches, 1); - return; - case SVERSIONSW: - print_version(invo_name); - return; - - case SPSHSW: - pushed++; - continue; - case NSPSHSW: - pushed = 0; - continue; - - case FORWSW: - forwsw++; - continue; - case NFORWSW: - forwsw = 0; - continue; - - case VERBSW: - verbsw++; - vec[vecp++] = --cp; - continue; - case NVERBSW: - verbsw = 0; - vec[vecp++] = --cp; - continue; - - case DEBUGSW: - debugsw++; /* fall */ - case NFILTSW: - case FRMTSW: - case NFRMTSW: - case WATCSW: - case NWATCSW: - vec[vecp++] = --cp; - continue; - - case ALIASW: - case FILTSW: - case WIDTHSW: - vec[vecp++] = --cp; - if (!(cp = *argp++) || *cp == '-') { - advise(NULL, "missing argument to %s", - argp[-2]); - return; - } - vec[vecp++] = cp; - continue; - - } - } - advise(NULL, "usage: %s [switches]", sp); - return; - } - - /* allow Aliasfile: profile entry */ - if ((cp = context_find("Aliasfile"))) { - char **ap, *dp; - - dp = getcpy(cp); - for (ap = brkstring(dp, " ", "\n"); ap && *ap; ap++) { - vec[vecp++] = "-alias"; - vec[vecp++] = getcpy(etcpath(*ap)); - } - } - - if (!(cp = getenv("SIGNATURE")) || !*cp) - if ((cp = context_find("signature")) && *cp) - m_putenv("SIGNATURE", cp); - - if ((annotext = getenv("mhannotate")) == NULL || *annotext == 0) - annotext = NULL; - if ((altmsg = getenv("mhaltmsg")) == NULL || *altmsg == 0) - altmsg = NULL; - if (annotext && ((cp = getenv("mhinplace")) != NULL && *cp != 0)) - inplace = atoi(cp); - - if ((cp = getenv("mhdist")) && *cp -#ifndef lint - && (distsw = atoi (cp)) -#endif /* not lint */ - && altmsg) { - vec[vecp++] = "-dist"; - distfile = getcpy(m_mktemp2(altmsg, invo_name, NULL, NULL)); - if (link(altmsg, distfile) == NOTOK) - adios(distfile, "unable to link %s to", altmsg); - } else { - distfile = NULL; - } - - if (altmsg == NULL || stat(altmsg, &st) == NOTOK) { - st.st_mtime = 0; - st.st_dev = 0; - st.st_ino = 0; - } - if ((pushsw = pushed)) - push(); - - vec[0] = mhbasename(postproc); - closefds(3); - - if (sendsbr(vec, vecp, file, &st, 1) == OK) - done(0); -} - - -/* -** Remove the draft file -*/ - -static int -removefile(char *drft) -{ - if (unlink(drft) == NOTOK) - adios(drft, "unable to unlink"); - - return OK; -}