开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB邮件程序 > 查看源码
sqwebmail.c
资源名称：sqwebmail-0.37a.38pre2.tar.gz　[点击查看]
上传用户：s81996212
上传日期：2007-01-04
资源大小：722k
文件大小：28k
源码类别：

WEB邮件程序

开发平台：

C/C++

sqwebmail.c：源码内容
  1. /*
  2. ** Copyright 1998 - 1999 Double Precision, Inc.  See COPYING for
  3. ** distribution information.
  4. */
  7. /*
  8. ** $Id: sqwebmail.c,v 1.43 2000/07/01 23:09:28 mrsam Exp $
  9. */
  10. #include "sqwebmail.h"
  11. #include "sqconfig.h"
  12. #include "auth.h"
  13. #include "folder.h"
  14. #include "pref.h"
  15. #include "maildir.h"
  16. #include "cgi/cgi.h"
  17. #include "pref.h"
  18. #include "newmsg.h"
  19. #include "addressbook.h"
  20. #include "http11/http11.h"
  21. #include "random128/random128.h"
  22. #include "maildir/maildirmisc.h"
  23. #include <stdio.h>
  24. #include <errno.h>
  25. #include <stdlib.h>
  26. #if HAVE_UNISTD_H
  27. #include <unistd.h>
  28. #endif
  29. #include <string.h>
  30. #include <signal.h>
  31. #include <sys/types.h>
  32. #include <sys/stat.h>
  33. #if HAVE_FCNTL_H
  34. #include <fcntl.h>
  35. #endif
  36. #if HAVE_LOCALE_H
  37. #if HAVE_SETLOCALE
  38. #include <locale.h>
  39. #endif
  40. #endif
  41. #include <ctype.h>
  42. #if HAVE_SYS_WAIT_H
  43. #include <sys/wait.h>
  44. #endif
  45. #define MD5_INTERNAL
  46. #include "md5/md5.h"
  48. #include "logincache.h"
  49. #include "numlib/numlib.h"
  50. #if HAVE_CRYPT_H
  51. #include <crypt.h>
  52. #endif
  53. #if     NEED_CRYPT_PROTOTYPE
  54. extern char *crypt(const char *, const char *);
  55. #endif
  56. #include "htmllibdir.h"
  57. #ifdef WEBPASS_CHANGE_VCHKPW
  58. #include "vpopmail.h"
  59. #include "vauth.h"
  60. #endif
  62. extern void spell_show();
  63. extern void spell_check_continue();
  64. extern void print_safe(const char *);
  65. extern void ldaplist();
  66. extern int ldapsearch();
  67. extern void doldapsearch();
  69. const char *sqwebmail_mailboxid=0;
  70. const char *sqwebmail_folder=0;
  71. const char *sqwebmail_sessiontoken=0;
  73. const char *sqwebmail_content_language=0;
  74. const char *sqwebmail_content_locale;
  75. const char *sqwebmail_content_ispelldict;
  76. const char *sqwebmail_content_charset;
  78. static int noimages=0;
  80. time_t login_time;
  82. #ifdef GZIP
  83. static int gzip_save_fd;
  84. #endif
  86. static const char *sqwebmail_formname;
  88. extern void attachments_head(const char *, const char *, const char *);
  89. extern void doattach(const char *, const char *);
  91. char form_args[2048];
  93. #if HAVE_LIBFCGI
  94. #include <signal.h>
  95. #include <setjmp.h>
  97. static jmp_buf stackenv;
  99. void fake_exit(int n)
  100. {
  101. cancel_login_cache();
  102. FCGI_SetExitStatus(n);
  103. longjmp(stackenv,1);
  104. }
  106. #ifdef BANNERPROG
  107. #error "Bannerprog not supported with FCGI"
  108. #endif
  110. #else
  112. void fake_exit(int n)
  113. {
  114. cancel_login_cache();
  115. exit(n);
  116. }
  118. #endif
  120. /* Stub to catch aborts from authlib */
  122. void authexit(int n)
  123. {
  124. fake_exit(n);
  125. }
  127. /* enomem() used to be just an out-of-memory handler.  Now, I use it as a
  128. ** generic failure type of a deal.
  129. */
  131. void rfc2045_error(const char *p)
  132. {
  133. error(p);
  134. }
  136. void print_attrencodedlen(const char *p, size_t len, int oknl, FILE *fp)
  137. {
  138. for (; len; p++, --len)
  139. {
  140. switch (*p) {
  141. case '<':
  142. fprintf(fp, "&lt;");
  143. continue;
  144. case '>':
  145. fprintf(fp, "&gt;");
  146. continue;
  147. case '&':
  148. fprintf(fp, "&amp;");
  149. continue;
  150. case '"':
  151. fprintf(fp, "&quot;");
  152. continue;
  153. case 'n':
  154. if (oknl)
  155. {
  156. if (oknl == 2)
  157. {
  158. fprintf(fp, "<BR>");
  159. continue;
  160. }
  161. putc('n', fp);
  162. continue;
  163. }
  164. default:
  165. if (!ISCTRL(*p))
  166. {
  167. putc(*p, fp);
  168. continue;
  169. }
  170. }
  171. fprintf(fp, "&#%d;", (int)(unsigned char)*p);
  172. }
  173. }
  175. void output_attrencoded_fp(const char *p, FILE *fp)
  176. {
  177. print_attrencodedlen(p, strlen(p), 0, fp);
  178. }
  180. void output_attrencoded(const char *p)
  181. {
  182. output_attrencoded_fp(p, stdout);
  183. }
  185. void output_attrencoded_oknl_fp(const char *p, FILE *fp)
  186. {
  187. print_attrencodedlen(p, strlen(p), 1, fp);
  188. }
  190. void output_attrencoded_oknl(const char *p)
  191. {
  192. output_attrencoded_oknl_fp(p, stdout);
  193. }
  195. void output_attrencoded_nltobr(const char *p)
  196. {
  197. print_attrencodedlen(p, strlen(p), 2, stdout);
  198. }
  200. void output_urlencoded(const char *p)
  201. {
  202. char *q=cgiurlencode(p);
  204. printf("%s", q);
  205. free(q);
  206. }
  208. void output_loginscriptptr()
  209. {
  210. #if USE_HTTPS_LOGIN
  211. const char *p=cgihttpsscriptptr();
  212. #else
  213. const char *p=cgihttpscriptptr();
  214. #endif
  216. printf("%s", p);
  217. }
  219. const char *nonloginscriptptr()
  220. {
  221. #if USE_HTTPS
  222. return (cgihttpsscriptptr());
  223. #else
  224. return (cgihttpscriptptr());
  225. #endif
  226. }
  229. void output_scriptptr()
  230. {
  231. const char *p=nonloginscriptptr();
  233. printf("%s", p);
  234. if (sqwebmail_mailboxid)
  235. {
  236. char *q=cgiurlencode(sqwebmail_mailboxid);
  237. char buf[NUMBUFSIZE];
  239. printf("/login/%s/%s/%s", q,
  240. sqwebmail_sessiontoken ?  sqwebmail_sessiontoken:" ",
  241. str_time_t(login_time, buf));
  242. free(q);
  243. }
  244. }
  246. void output_loginscriptptr_get()
  247. {
  248. output_loginscriptptr();
  249. if (sqwebmail_mailboxid)
  250. {
  251. char *q=cgiurlencode(sqwebmail_mailboxid);
  252. char buf[NUMBUFSIZE];
  254. printf("/login/%s/%s/%s", q,
  255. sqwebmail_sessiontoken ?  sqwebmail_sessiontoken:" ",
  256. str_time_t(login_time, buf));
  257. free(q);
  258. }
  259. }
  261. char *scriptptrget()
  262. {
  263. char *q=0;
  264. size_t l=0;
  265. int i;
  266. char buf[NUMBUFSIZE];
  268. #define ADD(s) {const char *zz=(s); if (i) strcat(q, zz); l += strlen(zz);}
  269. #define ADDE(ue) { char *yy=cgiurlencode(ue); ADD(yy); free(yy); }
  271. for (i=0; i<2; i++)
  272. {
  273. if (i && (q=malloc(l+1)) == 0) enomem();
  274. if (i) *q=0;
  275. ADD( nonloginscriptptr() );
  276. if (!sqwebmail_mailboxid)
  277. {
  278. ADD("?");
  279. continue;
  280. }
  282. ADD("/login/");
  283. ADD(sqwebmail_mailboxid);
  284. ADD("/");
  285. ADD(sqwebmail_sessiontoken ? sqwebmail_sessiontoken:" ");
  286. ADD("/");
  287. ADD(str_time_t(login_time, buf));
  289. ADD( "?" );
  290. if (sqwebmail_folder)
  291. {
  292. ADD("folder=");
  293. ADDE(sqwebmail_folder);
  294. }
  295. }
  296. #undef ADD
  297. #undef ADDE
  298. return (q);
  299. }
  301. void output_scriptptrget()
  302. {
  303. char *p=scriptptrget();
  305. printf("%s", p);
  306. free(p);
  307. return;
  308. }
  310. void output_scriptptrpostinfo()
  311. {
  312. #if 0
  313. if (sqwebmail_mailboxid)
  314. {
  315. printf("<INPUT TYPE=HIDDEN NAME="mailbox" VALUE="");
  316. output_attrencoded(sqwebmail_mailboxid);
  317. printf("">");
  318. }
  319. if (sqwebmail_sessiontoken)
  320. printf("<INPUT TYPE=HIDDEN NAME="session" VALUE="%s">",
  321. sqwebmail_sessiontoken);
  322. #endif
  323. if (sqwebmail_folder)
  324. {
  325. printf("<INPUT TYPE=HIDDEN NAME="folder" VALUE="");
  326. output_attrencoded(sqwebmail_folder);
  327. printf("">");
  328. }
  330. if (*cgi("folderdir")) /* In folders.html */
  331. {
  332. printf("<INPUT TYPE=HIDDEN NAME="folderdir" VALUE="");
  333. output_attrencoded(cgi("folderdir"));
  334. printf("">");
  335. }
  336. }
  338. void error(const char *errmsg)
  339. {
  340. cginocache();
  341. printf("Content-Type: text/html; charset="us-ascii"nn<H1>%s</H1>n",
  342. errmsg);
  343. cleanup();
  344. fake_exit(1);
  345. }
  347. void error2(const char *file, int line)
  348. {
  349. cginocache();
  350. printf("Content-Type: text/html; charset="us-ascii"nn<H1>Internal error (module %s, line %d) - contact system administrator</H1>n",
  351. file, line);
  352. cleanup();
  353. fake_exit(1);
  354. }
  356. static FILE *open_langform(const char *lang, const char *formname)
  357. {
  358. char *formpath;
  359. FILE *f;
  360. char *templatedir=getenv("SQWEBMAIL_TEMPLATEDIR");
  362. if (!templatedir || !*templatedir) templatedir=HTMLLIBDIR;
  364. /* templatedir/lang/formname */
  366. if (!(formpath=malloc(strlen(templatedir)+3+
  367. strlen(lang)+strlen(formname))))
  368. error("Out of memory.");
  370. strcat(strcat(strcat(strcat(strcpy(formpath, templatedir), "/"),
  371. lang), "/"), formname);
  373. f=fopen(formpath, "r");
  374. free(formpath);
  375. if (f)
  376. printf("Content-Language: %sn", lang);
  377. return (f);
  378. }
  380. void output_form(const char *formname)
  381. {
  382. int c, c2, c3;
  383. char *argp;
  384. size_t argn;
  385. FILE *f=0;
  387. #ifdef GZIP
  388. int dogzip;
  389. int pipefd[2];
  390. pid_t pid= -1;
  391. #endif
  393. noimages= access(NOIMAGES, 0) == 0;
  395. if (sqwebmail_content_language)
  396. f=open_langform(sqwebmail_content_language, formname);
  397. if (!f) f=open_langform(HTTP11_DEFAULTLANG, formname);
  399. sqwebmail_formname=formname;
  401. if (!f) error("Can't open form template.");
  403. /*
  404. ** Except for the dummy frame window (and the tiny empty frame),
  405. ** and the window containing the print preview of the message,
  406. ** expire everything.
  407. */
  409. if (strcmp(formname, "index.html") && strcmp(formname, "empty.html") &&
  410. strcmp(formname, "print.html"))
  411. cginocache();
  413. #ifdef GZIP
  415. dogzip=0;
  416. if (strcmp(formname, "readmsg.html") == 0)
  417. {
  418. const char *p=getenv("HTTP_ACCEPT_ENCODING");
  420. if (p)
  421. {
  422. char *q=strdup(p), *r;
  424. if (!q) enomem();
  425. for (r=q; *r; r++)
  426. *r= tolower((int)(unsigned char)*r);
  427. for (r=q; (r=strtok(r, ", ")) != 0; r=0)
  428. if (strcmp(r, "gzip") == 0)
  429. {
  430. dogzip=1;
  431. if (pipe(pipefd))
  432. enomem();
  433. }
  434. free(q);
  435. }
  436. }
  437. #endif
  439. printf("Vary: Accept-Languagen");
  441. #ifdef GZIP
  442. if (dogzip)
  443. printf("Content-Encoding: gzipn");
  444. #endif
  446. printf("Content-Type: text/htmlnn");
  447. form_args[0]='';
  449. #ifdef GZIP
  450. if (dogzip)
  451. {
  452. fflush(stdout);
  453. while ((pid=fork()) == -1)
  454. sleep(5);
  455. if (pid == 0)
  456. {
  457. close(0);
  458. dup(pipefd[0]);
  459. close(pipefd[0]);
  460. close(pipefd[1]);
  461. execl(GZIP, "gzip", "-c", (char *)0);
  462. exit(1);
  463. }
  465. gzip_save_fd=dup(1);
  466. close(1);
  467. dup(pipefd[1]);
  468. close(pipefd[1]);
  469. close(pipefd[0]);
  470. }
  471. #endif
  473. while ((c=getc(f)) >= 0)
  474. {
  475. if (c != '[')
  476. {
  477. putchar(c);
  478. continue;
  479. }
  480. c=getc(f);
  481. if (c != '#')
  482. {
  483. putchar('[');
  484. ungetc(c,f);
  485. continue;
  486. }
  487. c=getc(f);
  488. if (c == '?')
  489. {
  490. c=getc(f);
  491. if (c < '0' || c > '9')
  492. {
  493. putchar('[');
  494. putchar('#');
  495. putchar('?');
  496. putchar(c);
  497. continue;
  498. }
  499. if (
  500. #if ENABLE_WEBPASS
  501. #else
  502. c == '0' ||
  503. #endif
  504. (c == '1' && *cgi("folderdir") == ':') ||
  505. (c == '2' && *cgi("folderdir") != ':')
  506. )
  507. {
  508. while ((c=getc(f)) != EOF)
  509. {
  510. if (c != '[') continue;
  511. if ( getc(f) != '#') continue;
  512. if ( getc(f) != '?') continue;
  513. if ( getc(f) != '#') continue;
  514. if ( getc(f) == ']') break;
  515. }
  516. }
  517. continue;
  518. }
  520. if (c == '@')
  521. {
  522. argp=form_args;
  523. argn=sizeof(form_args)-1;
  524. while ((c=getc(f)) >= 0 && c != 'n' && argn)
  525. {
  526. if (c == '#')
  527. {
  528. c=getc(f);
  529. if (c == ']') break;
  530. ungetc(c, f);
  531. c='#';
  532. }
  534. if (c == '@')
  535. {
  536. c=getc(f);
  537. if (c == '@')
  538. {
  539. /*
  540.    Conditional image.  It's formatted as follows:
  542.    @@filename,width=x height=y@text@
  544.    If images are enabled, we replace that with an IMG tag we build from
  545.    filename,width=x, height=y.
  546.    If images are disabled, we replace all of this with text.
  548. */
  550. #define MKIMG(c) (argn ? *argp++=(c):0)
  551. if (noimages)
  552. {
  553. while ((c=getc(f)) >= 0
  554. && c != '@')
  555. if (c == '@')
  556. c=getc(f);
  557. while ((c=getc(f)) >= 0
  558. && c != '@')
  559. MKIMG(c);
  560. }
  561. else
  562. {
  563. char *p;
  565. MKIMG('<');
  566. MKIMG('I');
  567. MKIMG('M');
  568. MKIMG('G');
  569. MKIMG(' ');
  570. MKIMG('S');
  571. MKIMG('R');
  572. MKIMG('C');
  573. MKIMG('=');
  574. MKIMG('"');
  575. for (p=IMGPATH; *p; p++)
  576. MKIMG(*p);
  578. while ((c=getc(f)) >= 0
  579. && c != '@'
  580. && c != ',')
  581. MKIMG(c);
  582. MKIMG('"');
  583. MKIMG(' ');
  584. if (c == ',')
  585. c=getc(f);
  586. while (c >= 0 &&
  587. c != '@')
  588. {
  589. MKIMG(c);
  590. c=getc(f);
  591. }
  592. while ((c=getc(f)) >= 0
  593. && c != '@')
  594. ;
  595. MKIMG('>');
  596. }
  597. continue;
  599. }
  600. ungetc(c, f);
  601. c='@';
  602. }
  603. *argp++=c;
  604. --argn;
  605. }
  606. *argp=0;
  607. continue;
  608. }
  609. if (!isalnum(c))
  610. {
  611. putchar('[');
  612. putchar('#');
  613. ungetc(c, f);
  614. continue;
  615. }
  616. if ((c2=getc(f)) != '#')
  617. {
  618. putchar('[');
  619. putchar('#');
  620. putchar(c);
  621. ungetc(c2, f);
  622. continue;
  623. }
  625. if ((c3=getc(f)) != ']')
  626. {
  627. putchar('[');
  628. putchar('#');
  629. putchar(c);
  630. putchar(c2);
  631. ungetc(c3, f);
  632. continue;
  633. }
  635. switch (c) {
  636. case 'a':
  637. addressbook();
  638. break;
  639. case 'd':
  640. if (*cgi("folderdir"))
  641. {
  642. const char *c=cgi("folderdir");
  644. if (*c == ':')
  645. ++c; /* Sharable hierarchy */
  647. printf(" - ");
  648. print_safe(c);
  649. }
  650. break;
  651. case 'D':
  652. {
  653. const char *p=cgi("folder");
  654. const char *q=strrchr(p, '.');
  656. if (q)
  657. {
  658. char *r=malloc(q-p+1);
  660. if (!r) enomem();
  661. memcpy(r, p, q-p);
  662. r[q-p]=0;
  663. output_urlencoded(r);
  664. free(r);
  665. }
  666. }
  667. break;
  668. case 'G':
  669. output_attrencoded(login_returnaddr());
  670. break;
  671. case 'r':
  672. output_attrencoded(cgi("redirect"));
  673. break;
  674. case 's':
  675. output_scriptptrget();
  676. break;
  677. case 'S':
  678. output_loginscriptptr();
  679. break;
  680. case 'R':
  681. output_loginscriptptr_get();
  682. break;
  683. case 'p':
  684. output_scriptptr();
  685. break;
  686. case 'P':
  687. output_scriptptrpostinfo();
  688. break;
  689. case 'f':
  690. folder_contents_title();
  691. break;
  692. case 'F':
  693. folder_contents(sqwebmail_folder, atol(cgi("pos")));
  694. break;
  695. case 'n':
  696. folder_initnextprev(sqwebmail_folder, atol(cgi("pos")));
  697. break;
  698. case 'N':
  699. folder_nextprev();
  700. break;
  701. case 'm':
  702. folder_msgmove();
  703. break;
  704. case 'M':
  705. folder_showmsg(sqwebmail_folder, atol(cgi("pos")));
  706. break;
  707. case 'T':
  708. folder_showtransfer();
  709. break;
  710. case 'L':
  711. folder_list();
  712. break;
  713. case 'l':
  714. folder_list2();
  715. break;
  716. case 'E':
  717. folder_rename_list();
  718. break;
  719. case 'W':
  720. newmsg_init(sqwebmail_folder, cgi("pos"));
  721. break;
  722. case 'z':
  723. pref_isdisplayfullmsg();
  724. break;
  725. case 'y':
  726. pref_isoldest1st();
  727. break;
  728. case 'H':
  729. pref_displayhtml();
  730. break;
  731. case 'x':
  732. pref_setprefs();
  733. break;
  734. case 'w':
  735. pref_sortorder();
  736. break;
  737. case 't':
  738. pref_signature();
  739. break;
  740. case 'u':
  741. pref_pagesize();
  742. break;
  743. case 'v':
  744. pref_displayautopurge();
  745. break;
  746. case 'A':
  747. attachments_head(sqwebmail_folder, cgi("pos"),
  748. cgi("draft"));
  749. break;
  750. #ifdef ISPELL
  751. case 'K':
  752. spell_show();
  753. break;
  754. #endif
  755. #ifdef BANNERPROG
  756. case 'B':
  757. {
  758. char banargbuf[31];
  759. int i=0;
  760. int wait_stat;
  761. pid_t p, p2;
  762. if ((c=getc(f)) != '{')
  763. ungetc(c, f);
  764. else while ((c=getc(f)), isalnum(c))
  765. if (i < sizeof(banargbuf)-1)
  766. banargbuf[i++]=c;
  767. banargbuf[i]=0;
  768. fflush(stdout);
  769. if ( (p=fork()) == 0 )
  770. {
  771. execl(BANNERPROG, BANNERPROG,
  772. sqwebmail_formname,
  773. banargbuf, (char *)0);
  774. _exit(0);
  775. }
  776. if (p > 0)
  777. while ((p2=wait(&wait_stat)) > 0 &&
  778. p2 != p)
  779. ;
  780. }
  781. break;
  782. #endif
  783. case 'h':
  784. {
  785. FILE *fp=fopen(LOGINDOMAINLIST, "r");
  786. char buf[256];
  788. if (!fp) break;
  789. printf("<select name=logindomain><option value="">&nbsp;");
  790. while (fgets(buf, sizeof(buf), fp))
  791. {
  792. char *p=strchr(buf, 'n');
  794. if (*p) *p=0;
  795. printf("<option value="%s">@%s",
  796. buf, buf);
  797. }
  798. fclose(fp);
  799. printf("</select>");
  800. }
  801. break;
  802. case 'o':
  803. ldaplist();
  804. break;
  805. case 'O':
  806. doldapsearch();
  807. break;
  808. }
  809. }
  810. fclose(f);
  812. #ifdef GZIP
  813. if (pid > 0)
  814. {
  815. int waitstat;
  816. pid_t p2;
  818. /* Restore original stdout */
  820. fflush(stdout);
  821. close(1);
  822. dup(gzip_save_fd);
  823. close(gzip_save_fd);
  824. gzip_save_fd= -1;
  825. while ((p2=wait(&waitstat)) >= 0 && p2 != pid)
  826. ;
  827. }
  828. #endif
  829. }
  832. /* Top level HTTP redirect without referencing a particular mailbox */
  834. static void http_redirect_top(const char *app)
  835. {
  836. const char *p=nonloginscriptptr();
  837. char *buf=malloc(strlen(p)+strlen(app)+2);
  839. if (!buf) enomem();
  840. strcat(strcpy(buf, p), app);
  841. cgiredirect(buf);
  842. free(buf);
  843. }
  845. /* HTTP redirects within a given mailbox, various formats */
  847. void http_redirect_argu(const char *fmt, unsigned long un)
  848. {
  849. char buf[MAXLONGSIZE];
  851. sprintf(buf, "%lu", un);
  852. http_redirect_argss(fmt, buf, "");
  853. }
  855. void http_redirect_argss(const char *fmt, const char *arg1, const char *arg2)
  856. {
  857. http_redirect_argsss(fmt, arg1, arg2, "");
  858. }
  860. void http_redirect_argsss(const char *fmt, const char *arg1, const char *arg2,
  861. const char *arg3)
  862. {
  863. char *base=scriptptrget();
  864. char *arg1s=cgiurlencode(arg1);
  865. char *arg2s=cgiurlencode(arg2);
  866. char *arg3s=cgiurlencode(arg3);
  867. char *q;
  869. /* We generate a Location: redirected_url header.  The actual
  870. ** header is generated in cgiredirect, we just build it here */
  872. q=malloc(strlen(base)+strlen(fmt)+strlen(arg1s)+strlen(arg2s)+
  873. strlen(arg3s)+1);
  874. if (!q) enomem();
  875. strcpy(q, base);
  876. sprintf(q+strlen(q), fmt, arg1s, arg2s, arg3s);
  877. cgiredirect(q);
  878. free(q);
  879. free(arg1s);
  880. free(arg2s);
  881. free(arg3s);
  882. free(base);
  883. }
  885. void output_user_form(const char *formname)
  886. {
  887. char *p;
  889. if (!*formname || strchr(formname, '.') || strchr(formname, '/'))
  890. error("Invalid request.");
  892. if (*cgi("ldapsearch")) /* Special voodoo for LDAP address book stuff */
  893. {
  894. if (ldapsearch() == 0)
  895. {
  896. output_form("ldapsearch.html");
  897. return;
  898. }
  899. }
  901. /*
  902. ** In order to hide the session ID in the URL of the message what
  903. ** we do is that the initial URL, that contains setcookie=1, results
  904. ** in us setting a temporary cookie that contains the session ID,
  905. ** then we return a redirect to a url which has /printmsg/ in the
  906. ** PATH_INFO, instead of the session ID.  The code in main()
  907. ** traps /printmsg/ PATH_INFO, fetches the path info from the
  908. ** cookie, and punts after resetting setcookie to 0.
  909. */
  911. if (strcmp(formname, "print") == 0 && *cgi("setcookie") == '1')
  912. {
  913. const char *qs=getenv("QUERY_STRING");
  914. const char *pi=getenv("PATH_INFO");
  915. const char *nl;
  916. char *buf;
  918. if (!pi) pi="";
  919. if (!pi) pi="";
  921. nl=nonloginscriptptr();
  923. buf=malloc(strlen(nl) + sizeof("/printmsg/print?")+strlen(qs));
  924. if (!buf) enomem();
  925. strcat(strcat(strcpy(buf, nl), "/printmsg/print?"), qs);
  926. cginocache();
  927. cgi_setcookie("sqwebmail-pi", pi);
  928. printf("Refresh: 0; URL="%s"n", buf);
  929. free(buf);
  930. output_form("printredirect.html");
  931. return;
  932. }
  934. if (strcmp(formname, "logout") == 0)
  935. {
  936. unlink(IPFILE);
  937. http_redirect_top("");
  938. return;
  939. }
  941. if (strcmp(formname, "fetch") == 0)
  942. {
  943. folder_download( sqwebmail_folder, atol(cgi("pos")),
  944. cgi("mimeid") );
  945. return;
  946. }
  948. if (strcmp(formname, "delmsg") == 0)
  949. {
  950. folder_delmsg( atol(cgi("pos")));
  951. return;
  952. }
  954. if (strcmp(formname, "donewmsg") == 0)
  955. {
  956. newmsg_do(sqwebmail_folder);
  957. return;
  958. }
  960. if (strcmp(formname, "doattach") == 0)
  961. {
  962. doattach(sqwebmail_folder, cgi("draft"));
  963. return;
  964. }
  966. if (strcmp(formname, "folderdel") == 0)
  967. {
  968. folder_delmsgs(sqwebmail_folder, atol(cgi("pos")));
  969. return;
  970. }
  971. if (strcmp(formname, "spellchk") == 0)
  972. {
  973. #ifdef ISPELL
  974. spell_check_continue();
  975. #else
  976. printf("Status: 404");
  977. #endif
  978. return;
  979. }
  981. p=malloc(strlen(formname)+6);
  982. if (!p) enomem();
  984. strcat(strcpy(p, formname),".html");
  985. output_form(p);
  986. free(p);
  987. }
  989. #if ENABLE_WEBPASS
  991. /* System-compatible crypt function */
  993. static const char *auth_crypt(const char *password, const char *salt)
  994. {
  995. #if     HAVE_CRYPT
  996. if (strncmp(salt, "$1$", 3))
  997. return (crypt(password, salt));
  998. #endif
  999. return (md5_crypt(password, salt));
  1000. }
  1002. /*
  1003. ** Support for sqwebmail-only password.  Versions prior to 0.12 stored
  1004. ** it in clear test.  0.12 and later use crypt(), but still are able to
  1005. ** handle cleartex
  1006. */
  1008. int check_sqwebpass(const char *pass)
  1009. {
  1010. const char *p=read_sqconfig(".", PASSFILE, 0);
  1012. if (p && *p == 't')
  1013. /* Starts with t - crypt */
  1014. {
  1015. ++p;
  1016. if (strcmp(p, auth_crypt(pass, p)) == 0) return (0);
  1017. return (-1);
  1018. }
  1020. if (p && strcmp(p, pass) == 0) return (0);
  1021. return (-1);
  1022. }
  1024. int has_sqwebpass()
  1025. {
  1026. return (read_sqconfig(".", PASSFILE, 0) ? 1:0);
  1027. }
  1029. static const char salt[]="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789./";
  1031. void set_sqwebpass(const char *pw)
  1032. {
  1033. char buf[100];
  1034. char buf2[100];
  1035. const char *r=random128();
  1036. unsigned i;
  1037. #ifdef WEBPASS_CHANGE_VCHKPW
  1038. const char *p;
  1039. #endif
  1040. /* r is 16 bytes.  We need 12 bits to initialize the salt */
  1042. buf2[4]=0;
  1044. i=0;
  1045. while (*r)
  1046. {
  1047. i <<= 1;
  1048. i |= (*r & 1);
  1049. ++r;
  1050. }
  1052. buf[0]= salt[ i & 63];
  1053. i /= 64;
  1054. buf[1]= salt[ i & 63 ];
  1055. buf[2]= 0;
  1057. strcpy(buf, auth_crypt(pw, buf));
  1059. buf2[0]='t';
  1060. strcpy(buf2+1, buf);
  1062. #ifdef WEBPASS_CHANGE_VCHKPW
  1063. if(( p=login_returnaddr() ))
  1064. {
  1065. char *user;
  1066. char *domain;
  1067. char *p2;
  1068. char *pw2;
  1070. p2=strdup(p);
  1071. pw2=strdup(pw);
  1072. user=strtok(p2, "@");
  1073. domain=strtok(0, "@");
  1074. if(vpasswd(user,domain,pw2,0) == 0)
  1075. write_sqconfig(".", PASSFILE, buf2);
  1076. free(p2);
  1077. free(pw2);
  1078. return;
  1079. }
  1080. #endif
  1081. write_sqconfig(".", PASSFILE, buf2);
  1082. }
  1083. #endif
  1085. extern void folder_cleanup();
  1086. extern void maildir_cleanup();
  1087. #ifdef ISPELL
  1088. extern void ispell_cleanup();
  1089. #endif
  1091. void cleanup()
  1092. {
  1093. int i;
  1095. for(i=0; i<sizeof(form_args); ++i)
  1096. form_args[i] = '';
  1098. sqwebmail_formname = NULL;
  1099. sqwebmail_mailboxid=0;
  1100. sqwebmail_folder=0;
  1101. sqwebmail_sessiontoken=0;
  1102. sqwebmail_content_language=0;
  1103. sqwebmail_content_locale=0;
  1104. sqwebmail_content_ispelldict=0;
  1105. folder_cleanup();
  1106. maildir_cleanup();
  1107. #ifdef ISPELL
  1108. ispell_cleanup();
  1109. #endif
  1111. #ifdef GZIP
  1112. if (gzip_save_fd >= 0) /* Restore original stdout */
  1113. {
  1114. close(1);
  1115. dup(gzip_save_fd);
  1116. close(gzip_save_fd);
  1117. gzip_save_fd= -1;
  1118. }
  1119. #endif
  1120. }
  1122. static RETSIGTYPE catch_sig(int n)
  1123. {
  1124. n=n;
  1125. cleanup();
  1126. fake_exit(0);
  1127. #if RETSIGTYPE != void
  1128. return (0);
  1129. #endif
  1130. }
  1132. static void init_default_locale()
  1133. {
  1134. char *cl=http11_best_content_language(HTMLLIBDIR,
  1135. getenv("HTTP_ACCEPT_LANGUAGE"));
  1137. sqwebmail_content_language=
  1138. http11_content_language(HTMLLIBDIR, cl);
  1139. sqwebmail_content_locale=
  1140. http11_content_locale(HTMLLIBDIR, cl);
  1141. sqwebmail_content_ispelldict=
  1142. http11_content_ispelldict(HTMLLIBDIR, cl);
  1143. sqwebmail_content_charset=
  1144. http11_content_charset(HTMLLIBDIR, cl);
  1146. free(cl);
  1147. #if HAVE_LOCALE_H
  1148. #if HAVE_SETLOCALE
  1149. setlocale(LC_ALL, sqwebmail_content_locale);
  1150. #endif
  1151. #endif
  1152. }
  1154. static int main2();
  1156. int main()
  1157. {
  1158. int rc;
  1160. #if HAVE_LIBFCGI
  1162. while ( FCGI_Accept() >= 0)
  1163. {
  1164. if (setjmp(stackenv) == 0)
  1165. {
  1166. rc=main2();
  1167. cleanup(); /* make sure we hit it */
  1168. FCGI_SetExitStatus(rc);
  1169. continue;
  1170. }
  1171. cleanup(); /* make sure we hit it */
  1173. signal(SIGHUP, catch_sig);
  1174. signal(SIGINT, catch_sig);
  1175. signal(SIGPIPE, catch_sig);
  1176. signal(SIGTERM, catch_sig);
  1177. }
  1178. return (0);
  1179. #else
  1180. rc=main2();
  1181. exit(rc);
  1182. return (rc);
  1183. #endif
  1184. }
  1186. static int main2()
  1187. {
  1188. const char *u;
  1189. const char *ip_addr;
  1190. char *pi;
  1191. char *pi_malloced;
  1192. int reset_cookie=0;
  1194. #ifdef GZIP
  1195. gzip_save_fd= -1;
  1196. #endif
  1197. u=ip_addr=pi=NULL;
  1199. ip_addr=getenv("REMOTE_ADDR");
  1201. signal(SIGHUP, catch_sig);
  1202. signal(SIGINT, catch_sig);
  1203. signal(SIGPIPE, catch_sig);
  1204. signal(SIGTERM, catch_sig);
  1206. if (!ip_addr) ip_addr="127.0.0.1";
  1208. umask(0077);
  1210. init_login_cache(TIMEOUTHARD);
  1212. pi=getenv("PATH_INFO");
  1214. pi_malloced=0;
  1216. if (pi && strncmp(pi, "/printmsg/", 10) == 0)
  1217. {
  1218. /* See comment in output_user_form */
  1220. pi_malloced=pi=cgi_cookie("sqwebmail-pi");
  1221. if (*pi_malloced == 0)
  1222. {
  1223. free(pi_malloced);
  1224. output_form("printnocookie.html");
  1225. return (0);
  1226. }
  1227. reset_cookie=1;
  1228. cgi_setcookie("sqwebmail-pi", "DELETED");
  1229. }
  1231. if (pi && strncmp(pi, "/login/", 7) == 0)
  1232. {
  1233. const char *p;
  1234. time_t last_time, current_time;
  1235. char *q;
  1237. /* Logging into the mailbox */
  1239. pi=strdup(pi);
  1240. if (pi_malloced) free(pi_malloced);
  1242. if (!pi) enomem();
  1244. (void)strtok(pi, "/"); /* Skip login */
  1245. u=strtok(NULL, "/"); /* mailboxid */
  1246. sqwebmail_sessiontoken=strtok(NULL, "/"); /* sessiontoken */
  1247. q=strtok(NULL, "/"); /* login time */
  1248. login_time=0;
  1249. while (q && *q >= '0' && *q <= '9')
  1250. login_time=login_time * 10 + (*q++ - '0');
  1252. if (check_login_cache(u, login_time) && prelogin(u))
  1253. {
  1254. free(pi);
  1255. error("Unable to access your mailbox, sqwebmail permissions may be wrong.");
  1256. }
  1258. time(&current_time);
  1260. /* Ok, boys and girls, time to validate the connection as
  1261. ** follows */
  1263. if ( !sqwebmail_sessiontoken
  1265. /* 1. Read IPFILE.  Check that it's timestamp is current enough,
  1266. ** and the session hasn't timed out.
  1267. */
  1269. || !(p=read_sqconfig(".", IPFILE, &last_time))
  1271. /* || last_time > current_time */
  1273. || last_time + TIMEOUTHARD < current_time
  1275. /* 2. IPFILE will contain four words - IP address, session
  1276. ** token, language, locale, ispell dictionary.  Validate both.
  1277. */
  1278. || !(q=strdup(p))
  1279. || !(p=strtok(q, " "))
  1280. || (strcmp(p, ip_addr) && strcmp(p, "none"))
  1281. || !(p=strtok(NULL, " "))
  1282. || strcmp(p, sqwebmail_sessiontoken)
  1283. || !(p=strtok(NULL, " "))
  1284. || !(sqwebmail_content_language=strdup(p))
  1285. || !(p=strtok(NULL, " "))
  1286. || !(sqwebmail_content_locale=strdup(p))
  1287. || !(p=strtok(NULL, " "))
  1288. || !(sqwebmail_content_ispelldict=strdup(p))
  1289. || !(p=strtok(NULL, " "))
  1290. || !(sqwebmail_content_charset=strdup(p))
  1292. /* 3. Check the timestamp on the TIMESTAMP file.  See if the
  1293. ** session has reached its soft timeout.
  1294. */
  1296. || !read_sqconfig(".", TIMESTAMP, &last_time)
  1298. /* || last_time > current_time */
  1300. || last_time + TIMEOUTSOFT < current_time)
  1301. {
  1302. setgid(getgid());
  1303. setuid(getuid()); /* Drop root prevs */
  1304. chdir("/");
  1305. cgi_setup();
  1306. init_default_locale();
  1307. free(pi);
  1309. if (strcmp(cgi("form"), "logout") == 0)
  1310. /* Already logged out, and the link
  1311. ** had target=_parent tag.
  1312. */
  1313. {
  1314. http_redirect_top("");
  1315. return (0);
  1316. }
  1317. output_form("expired.html");
  1318. return (0);
  1319. }
  1320. free(q);
  1321. cgiformdatatempdir("tmp");
  1322. cgi_setup(); /* Read CGI environment */
  1323. if (reset_cookie)
  1324. cgi_put("setcookie", "0");
  1326. /* Update soft timeout stamp */
  1328. write_sqconfig(".", TIMESTAMP, "");
  1330. /* We must always have the folder CGI arg */
  1332. if (!*(sqwebmail_folder=cgi("folder")))
  1333. {
  1334. init_default_locale();
  1335. output_form("expired.html");
  1336. free(pi);
  1337. return (0);
  1338. }
  1340. sqwebmail_mailboxid=u;
  1341. #if HAVE_LOCALE_H
  1342. #if HAVE_SETLOCALE
  1343. setlocale(LC_ALL, sqwebmail_content_locale);
  1344. #endif
  1345. #endif
  1346. pref_init();
  1347. output_user_form(cgi("form"));
  1348. free(pi);
  1349. }
  1350. else
  1351. /* Must be one of those special forms */
  1352. {
  1353. char *rm;
  1354. long n;
  1356. if (pi_malloced) free(pi_malloced);
  1358. if ((rm=getenv("REQUEST_METHOD")) == 0 ||
  1359. (strcmp(rm, "POST") == 0 &&
  1360. ((rm=getenv("CONTENT_TYPE")) != 0 &&
  1361. strncasecmp(rm,"multipart/form-data;", 20)
  1362. == 0)))
  1363. enomem(); /* multipart/formdata posts not allowed
  1364. */
  1366. /* Some additional safety checks */
  1368. rm=getenv("CONTENT_LENGTH");
  1369. n= rm ? atol(rm):0;
  1370. if (n < 0 || n > 256) enomem();
  1372. cgi_setup();
  1373. init_default_locale();
  1375. if (*(u=cgi("username")))
  1376. /* Request to log in */
  1377. {
  1378. const char *p=cgi("password");
  1379. const char *mailboxid;
  1380. const char *u2=cgi("logindomain");
  1381. char *ubuf=malloc(strlen(u)+strlen(u2)+2);
  1383. strcpy(ubuf, u);
  1384. if (*u2)
  1385. strcat(strcat(ubuf, "@"), u2);
  1387. prepare_login_cache();
  1388. if (*p && (mailboxid=login(ubuf, p)) != 0)
  1389. {
  1390. char *q;
  1391. const char *saveip=ip_addr;
  1393. #if ENABLE_WEBPASS
  1394. if (!has_sqwebpass())
  1395. set_sqwebpass(p);
  1396. #endif
  1397. sqwebmail_mailboxid=mailboxid;
  1398. sqwebmail_folder="INBOX";
  1399. sqwebmail_sessiontoken=random128();
  1401. if (*cgi("sameip") == 0)
  1402. saveip="none";
  1404. q=malloc(strlen(saveip)
  1405. +strlen(sqwebmail_sessiontoken)
  1406. +strlen(sqwebmail_content_language)
  1407. +strlen(sqwebmail_content_ispelldict)
  1408. +strlen(sqwebmail_content_charset)
  1409. +strlen(sqwebmail_content_locale)+6);
  1410. if (!q) enomem();
  1411. sprintf(q, "%s %s %s %s %s %s", saveip,
  1412. sqwebmail_sessiontoken,
  1413. sqwebmail_content_language,
  1414. sqwebmail_content_locale,
  1415. sqwebmail_content_ispelldict,
  1416. sqwebmail_content_charset);
  1417. write_sqconfig(".", IPFILE, q);
  1418. free(q);
  1419. time(&login_time);
  1420. save_login_cache(mailboxid, login_time);
  1421. write_sqconfig(".", TIMESTAMP, "");
  1422. (void)maildir_create(DRAFTS);
  1423. (void)maildir_create(SENT);
  1424. (void)maildir_create(TRASH);
  1425. pref_init();
  1426. maildir_autopurge();
  1428. http_redirect_argss("&form=folders", "", "");
  1429. /* output_form("folders.html"); */
  1430. free(ubuf);
  1431. return(0);
  1432. }
  1433. cancel_login_cache();
  1435. free(ubuf);
  1436. output_form("invalid.html"); /* Invalid login */
  1437. return (0);
  1438. }
  1440. setgid(getgid());
  1441. setuid(getuid());
  1442. if ( *(u=cgi("redirect")))
  1443. /* Redirection request to hide the referral tag */
  1444. {
  1445. printf("Refresh: 0; URL="%s"n", u);
  1446. output_form("redirect.html");
  1447. }
  1448. else if ( *cgi("noframes") == '1')
  1449. output_form("login.html"); /* Main frame */
  1450. else
  1451. if ( *cgi("empty") == '1')
  1452. output_form("empty.html"); /* Minor frameset */
  1454. /*
  1455. ** Apparently we can't show just SCRIPT NAME as our frameset due to some
  1456. ** weird bug in Communicator which, under certain conditions, will get
  1457. ** confused figuring out which page views have expired.  POSTs with URLs
  1458. ** referring to SCRIPT_NAME will be replied with an expiration header, and
  1459. ** Communicator will assume that index.html also has expired, forcing a
  1460. ** frameset reload the next time the Communicator window is resized,
  1461. ** essentially logging the user off.
  1462. */
  1464. else if (*cgi("index") == '1')
  1465. output_form("index.html"); /* Frameset Window */
  1466. else
  1467. {
  1468. http_redirect_top("?index=1");
  1469. }
  1471. return (0);
  1472. }
  1473. return (0);
  1474. }
  1476. #ifdef malloc
  1478. #undef malloc
  1479. #undef realloc
  1480. #undef free
  1481. #undef strdup
  1482. #undef calloc
  1484. static void *allocp[1000];
  1486. extern void *malloc(size_t), *realloc(void *, size_t), free(void *),
  1487. *calloc(size_t, size_t);
  1488. extern char *strdup(const char *);
  1490. char *my_strdup(const char *c)
  1491. {
  1492. size_t i;
  1494. for (i=0; i<sizeof(allocp)/sizeof(allocp[0]); i++)
  1495. if (!allocp[i])
  1496. return (allocp[i]=strdup(c));
  1497. abort();
  1498. return (0);
  1499. }
  1501. void *my_malloc(size_t n)
  1502. {
  1503. size_t i;
  1505. for (i=0; i<sizeof(allocp)/sizeof(allocp[0]); i++)
  1506. if (!allocp[i])
  1507. return (allocp[i]=malloc(n));
  1508. abort();
  1509. return (0);
  1510. }
  1512. void *my_calloc(size_t a, size_t b)
  1513. {
  1514. size_t i;
  1516. for (i=0; i<sizeof(allocp)/sizeof(allocp[0]); i++)
  1517. if (!allocp[i])
  1518. return (allocp[i]=calloc(a,b));
  1519. abort();
  1520. return (0);
  1521. }
  1523. void *my_realloc(void *p, size_t s)
  1524. {
  1525. size_t i;
  1527. for (i=0; i<sizeof(allocp)/sizeof(allocp[0]); i++)
  1528. if (p && allocp[i] == p)
  1529. {
  1530. void *q=realloc(p, s);
  1532. if (q) allocp[i]=q;
  1533. return (q);
  1534. }
  1535. abort();
  1536. }
  1538. void my_free(void *p)
  1539. {
  1540. size_t i;
  1542. for (i=0; i<sizeof(allocp)/sizeof(allocp[0]); i++)
  1543. if (p && allocp[i] == p)
  1544. {
  1545. free(p);
  1546. allocp[i]=0;
  1547. return;
  1548. }
  1549. abort();
  1550. }
  1551. #endif