diff options
author | Eduardo Chappa <chappa@washington.edu> | 2013-08-18 01:59:52 -0600 |
---|---|---|
committer | Eduardo Chappa <chappa@washington.edu> | 2013-08-18 01:59:52 -0600 |
commit | dd9bd7bac749b3908a406d78ce02fb7a39ef81c8 (patch) | |
tree | bcd3c72674a0e59ff76d2aa70451fff87de17ece /web/src/alpined.d/alpined.c | |
parent | c7f649c87f18773b00b955858992783e4d34e168 (diff) | |
download | alpine-dd9bd7bac749b3908a406d78ce02fb7a39ef81c8.tar.xz |
* Opening a folder updates recent count in maildrops.
* Fixes to configure script so that it will not require PAM for every system.
* Fix to configure script so that it will use CPPFLAGS instead of
CPPCFLAGS, and so the --with-ssl-include-dir option take effect
during the build. Fix by Ulf-Dietrich Braumann.
* Fix in WebAlpine: do not use deprecated dereference in pointer,
needs to use tcl_getstringresult() instead. Reported by Ulf-Dietrich
Braumann.
* Fix in configure script to detect location of tcl library; add
/usr/local in FreeBSD and fix a bug in configure script that used
$alpine_TCLINC instead of $alpine_TCLINC/tcl.h. Reported and fixed
by Werner Scheinast.
* Move SSL configurations from UW-IMAP to configure script.
Diffstat (limited to 'web/src/alpined.d/alpined.c')
-rw-r--r-- | web/src/alpined.d/alpined.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/web/src/alpined.d/alpined.c b/web/src/alpined.d/alpined.c index e35ba9e6..2132f95d 100644 --- a/web/src/alpined.d/alpined.c +++ b/web/src/alpined.d/alpined.c @@ -334,7 +334,7 @@ char tmp_20k_buf[20480]; /* Internal prototypes */ -void peReturn(int, char *, char *); +void peReturn(int, char *, const char *); int peWrite(int, char *); char *peCreateUserContext(Tcl_Interp *, char *, char *, char *); void peDestroyUserContext(struct pine **); @@ -760,10 +760,10 @@ main(int argc, char *argv[]) } switch(Tcl_Eval(interp, &buf[co])){ - case TCL_OK : peReturn(cs, "OK", interp->result); break; - case TCL_ERROR : peReturn(cs, "ERROR", interp->result); break; - case TCL_BREAK : peReturn(cs, "BREAK", interp->result); break; - case TCL_RETURN : peReturn(cs, "RETURN", interp->result); break; + case TCL_OK : peReturn(cs, "OK", Tcl_GetStringResult(interp)); break; + case TCL_ERROR : peReturn(cs, "ERROR", Tcl_GetStringResult(interp)); break; + case TCL_BREAK : peReturn(cs, "BREAK", Tcl_GetStringResult(interp)); break; + case TCL_RETURN : peReturn(cs, "RETURN", Tcl_GetStringResult(interp)); break; default : peReturn(cs, "BOGUS", "eval returned unexpected value"); break; } } @@ -808,11 +808,11 @@ main(int argc, char *argv[]) * peReturn - common routine to return TCL result */ void -peReturn(int sock, char *status, char *result) +peReturn(int sock, char *status, const char *result) { if(peWrite(sock, status)) if(peWrite(sock, "\n")) - peWrite(sock, result); + peWrite(sock, (char *) result); } /* |