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

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

WEB邮件程序

开发平台：

C/C++

addressbook.c：源码内容
  1. /*
  2. ** Copyright 2000 Double Precision, Inc.  See COPYING for
  3. ** distribution information.
  4. */
  6. /*
  7. ** $Id: addressbook.c,v 1.5 2000/06/17 18:15:52 mrsam Exp $
  8. */
  10. #include "sqwebmail.h"
  11. #include "addressbook.h"
  12. #include "maildir.h"
  13. #include "cgi/cgi.h"
  14. #include "rfc822/rfc822.h"
  15. #include "maildir/maildirmisc.h"
  16. #include "numlib/numlib.h"
  17. #include <stdio.h>
  18. #include <string.h>
  19. #include <ctype.h>
  21. #define ADDRESSBOOK "sqwebmail-addressbook"
  23. extern char form_args[];
  24. extern void output_attrencoded(const char *);
  25. extern void output_attrencoded_fp(const char *, FILE *);
  27. /*
  28. ** When adding a new name/address pair into the address book delete
  29. ** bad characters from both.
  30. */
  32. static void fix_nameaddr(const char *name, const char *addr,
  33. char **nameret, char **addrret)
  34. {
  35. char *names, *addresss;
  36. char *p, *q;
  38. names=strdup(name);
  39. if (!names)
  40. {
  41. enomem();
  42. }
  44. for (p=q=names; *p; p++)
  45. {
  46. if (iscntrl((int)(unsigned char)*p)) continue;
  47. if (*p == '"' || *p == '\') continue;
  48. *q++=*p;
  49. }
  50. *q=0;
  52. if ((addresss=strdup(addr)) == 0)
  53. {
  54. free(names);
  55. enomem();
  56. }
  58. for (p=q=addresss; *p; p++)
  59. {
  60. if (isspace((int)(unsigned char)*p)) continue;
  61. if (iscntrl((int)(unsigned char)*p)) continue;
  62. if (*p == '<' || *p == '>' || *p == '(' || *p == ')' ||
  63. *p == '\')
  64. continue;
  65. *q++=*p;
  66. }
  67. *q=0;
  69. *nameret=names;
  70. *addrret=addresss;
  71. }
  73. void ab_add(const char *name, const char *address, const char *nick)
  74. {
  75. char *nicks, *names, *addresss, *p, *q;
  76. FILE *fp;
  77. char *header, *value;
  79. int new_fd;
  80. char *new_name;
  81. FILE *new_fp;
  82. int written;
  84. if (*nick == 0 || *address == 0)
  85. return;
  87. /* Delete bad characters from nickname, name, address */
  89. if ((nicks=strdup(nick)) == 0) enomem();
  91. for (p=q=nicks; *p; p++)
  92. {
  93. if (isspace((int)(unsigned char)*p)) continue;
  94. if (iscntrl((int)(unsigned char)*p)) continue;
  95. if (strchr(":;,<>@\", *p)) continue;
  96. *q++=*p;
  97. }
  98. *q=0;
  100. if (*nicks == 0)
  101. {
  102. free(nicks);
  103. return;
  104. }
  106. /* Remove quotes from name */
  108. fix_nameaddr(name, address, &names, &addresss);
  110. if (*addresss == 0)
  111. {
  112. free(addresss);
  113. free(nicks);
  114. free(names);
  115. return;
  116. }
  118. fp=fopen(ADDRESSBOOK, "r");
  120. new_fd=maildir_createmsg(INBOX, "addressbook", &new_name);
  121. p=malloc(sizeof("tmp/")+strlen(new_name));
  122. if (!p)
  123. {
  124. close(new_fd);
  125. free(new_name);
  126. enomem();
  127. }
  128. strcat(strcpy(p, "tmp/"), new_name);
  129. free(new_name);
  130. new_name=p;
  132. if (new_fd < 0 || (new_fp=fdopen(new_fd, "w")) == 0)
  133. {
  134. if (new_fd >= 0) close(new_fd);
  135. free(addresss);
  136. free(nicks);
  137. free(names);
  138. enomem();
  139. return;
  140. }
  142. written=0;
  143. while (fp && (header=maildir_readheader(fp, &value, 1)) != 0)
  144. {
  145. if (strcmp(header, nicks) == 0)
  146. {
  147. fprintf(new_fp, "%s: %s,n    ",
  148. nicks, value);
  149. written=1;
  150. break;
  151. }
  152. fprintf(new_fp, "%s: %sn", header, value);
  153. }
  154. if (!written)
  155. fprintf(new_fp, "%s: ", nicks);
  156. if (*names)
  157. fprintf(new_fp, ""%s" <%s>n",
  158. names, addresss);
  159. else
  160. fprintf(new_fp, "<%s>n", addresss);
  161. free(names);
  162. free(addresss);
  163. free(nicks);
  165. while (fp && (header=maildir_readheader(fp, &value, 1)) != 0)
  166. fprintf(new_fp, "%s: %sn", header, value);
  168. if (fp) fclose(fp);
  170. if (fflush(new_fp) || ferror(new_fp))
  171. {
  172. fclose(new_fp);
  173. close(new_fd);
  174. unlink(new_name);
  175. free(new_name);
  176. error("Unable to write out new address book -- write error, or out of disk space.");
  177. return;
  178. }
  179. fclose(new_fp);
  181. rename(new_name, ADDRESSBOOK);
  182. free(new_name);
  183. }
  185. static void dodel(const char *nick, struct rfc822a *a, int n,
  186. const char *replace_name, const char *replace_addr)
  187. {
  188. char *p;
  189. FILE *fp, *new_fp;
  190. char *new_name;
  191. int new_fd;
  192. char *header, *value;
  194. char *namebuf=0, *addrbuf=0;
  195. struct rfc822token namet, addresst;
  197. if (replace_name && replace_addr && n < a->naddrs)
  198. {
  199. fix_nameaddr(replace_name, replace_addr, &namebuf, &addrbuf);
  200. namet.token='"';
  201. namet.ptr=namebuf;
  202. namet.len=strlen(namebuf);
  203. namet.next=0;
  204. a->addrs[n].name= &namet;
  206. addresst.token=0;
  207. addresst.ptr=addrbuf;
  208. addresst.len=strlen(addrbuf);
  209. addresst.next=0;
  210. a->addrs[n].tokens= &addresst;
  211. }
  212. else
  213. {
  214. while (++n < a->naddrs)
  215. a->addrs[n-1]=a->addrs[n];
  216. --a->naddrs; /* It's that simple... */
  217. }
  219. fp=fopen(ADDRESSBOOK, "r");
  221. new_fd=maildir_createmsg(INBOX, "addressbook", &new_name);
  222. if (new_fd < 0 || (new_fp=fdopen(new_fd, "w")) == 0)
  223. {
  224. if (new_fd >= 0) close(new_fd);
  225. fclose(fp);
  226. enomem();
  227. return;
  228. }
  229. p=malloc(sizeof("tmp/")+strlen(new_name));
  230. if (!p)
  231. {
  232. unlink(new_name);
  233. fclose(fp);
  234. fclose(new_fp);
  235. free(new_name);
  236. enomem();
  237. }
  238. strcat(strcpy(p, "tmp/"), new_name);
  239. free(new_name);
  240. new_name=p;
  242. while (fp && (header=maildir_readheader(fp, &value, 1)) != 0)
  243. {
  244. if (strcmp(header, nick) == 0)
  245. {
  246. char *s, *t;
  248. if (a->naddrs == 0)
  249. continue;
  250. s=rfc822_getaddrs_wrap(a, 70);
  252. if (!s)
  253. {
  254. fclose(new_fp);
  255. close(new_fd);
  256. fclose(fp);
  257. unlink(new_name);
  258. enomem();
  259. }
  260. fprintf(new_fp, "%s: ", header);
  261. for (t=s; *t; t++)
  262. {
  263. putc(*t, new_fp);
  264. if (*t == 'n')
  265. fprintf(new_fp, "    ");
  266. }
  267. fprintf(new_fp, "n");
  268. free(s);
  269. continue;
  270. }
  271. fprintf(new_fp, "%s: %sn", header, value);
  272. }
  273. if (fp) fclose(fp);
  275. if (namebuf) free(namebuf);
  276. if (addrbuf) free(addrbuf);
  278. if (fflush(new_fp) || ferror(new_fp))
  279. {
  280. fclose(new_fp);
  281. unlink(new_name);
  282. free(new_name);
  283. error("Unable to write out new address book -- write error, or out of disk space.");
  284. return;
  285. }
  287. fclose(new_fp);
  288. rename(new_name, ADDRESSBOOK);
  289. free(new_name);
  290. }
  292. static void dodelall(const char *nick)
  293. {
  294. FILE *fp, *new_fp;
  295. int new_fd;
  296. char *new_name, *p;
  297. char *header, *value;
  299. fp=fopen(ADDRESSBOOK, "r");
  301. new_fd=maildir_createmsg(INBOX, "addressbook", &new_name);
  302. if (new_fd < 0 || (new_fp=fdopen(new_fd, "w")) == 0)
  303. {
  304. if (new_fd >= 0) close(new_fd);
  305. fclose(fp);
  306. enomem();
  307. return;
  308. }
  309. p=malloc(sizeof("tmp/")+strlen(new_name));
  310. if (!p)
  311. {
  312. unlink(new_name);
  313. fclose(fp);
  314. fclose(new_fp);
  315. free(new_name);
  316. enomem();
  317. }
  318. strcat(strcpy(p, "tmp/"), new_name);
  319. free(new_name);
  320. new_name=p;
  322. while (fp && (header=maildir_readheader(fp, &value, 1)) != 0)
  323. {
  324. if (strcmp(header, nick) == 0) continue;
  325. fprintf(new_fp, "%s: %sn", header, value);
  326. }
  327. if (fp) fclose(fp);
  329. if (fflush(new_fp) || ferror(new_fp))
  330. {
  331. fclose(new_fp);
  332. unlink(new_name);
  333. free(new_name);
  334. error("Unable to write out new address book -- write error, or out of disk space.");
  335. return;
  336. }
  338. fclose(new_fp);
  339. rename(new_name, ADDRESSBOOK);
  340. free(new_name);
  341. }
  343. void ab_listselect()
  344. {
  345. ab_listselect_fp(stdout);
  346. }
  348. struct abooklist {
  349. struct abooklist *next;
  350. char *name;
  351. } ;
  353. static void abl_free(struct abooklist *a)
  354. {
  355. struct abooklist *b;
  357. while (a)
  358. {
  359. b=a->next;
  360. free(a->name);
  361. free(a);
  362. a=b;
  363. }
  364. }
  366. static int sortabook(const void *a, const void *b)
  367. {
  368. return ( strcmp( (*(struct abooklist * const *)a)->name,
  369. (*(struct abooklist * const *)b)->name));
  370. }
  372. void ab_listselect_fp(FILE *w)
  373. {
  374. FILE *fp;
  375. char *header, *value;
  376. struct abooklist *a=0, *b, **aa;
  377. size_t acnt=0, i;
  379. if ((fp=fopen(ADDRESSBOOK, "r")) != 0)
  380. {
  381. while ((header=maildir_readheader(fp, &value, 1)) != NULL)
  382. {
  383. if ((b=malloc(sizeof(struct abooklist))) == 0 ||
  384. (b->name=strdup(header)) == 0)
  385. {
  386. if (b) free(b);
  387. abl_free(a);
  388. enomem();
  389. }
  390. b->next=a;
  391. a=b;
  392. acnt++;
  393. }
  394. fclose(fp);
  396. if ((aa=malloc(sizeof(struct abooklist *)*(acnt+1))) == 0)
  397. {
  398. abl_free(a);
  399. enomem();
  400. }
  402. for (acnt=0, b=a; b; b=b->next)
  403. aa[acnt++]=b;
  404. qsort(aa, acnt, sizeof(*aa), sortabook);
  406. for (i=0; i<acnt; i++)
  407. {
  408. fprintf(w, "<option value="");
  409. output_attrencoded_fp(aa[i]->name, w);
  410. fprintf(w, "">");
  411. output_attrencoded_fp(aa[i]->name, w);
  412. fprintf(w, "n");
  413. }
  414. free(aa);
  415. abl_free(a);
  416. }
  417. }
  419. const char *ab_find(const char *nick)
  420. {
  421. FILE *fp;
  422. char *header, *value;
  424. if ((fp=fopen(ADDRESSBOOK, "r")) != 0)
  425. {
  426. while ((header=maildir_readheader(fp, &value, 1)) != NULL)
  427. {
  428. if (strcmp(header, nick) == 0)
  429. {
  430. fclose(fp);
  431. return (value);
  432. }
  433. }
  434. fclose(fp);
  435. }
  436. return (0);
  437. }
  439. void addressbook()
  440. {
  441. FILE *fp;
  442. char    *header, *value;
  443. const char *nick_prompt=strtok(form_args, "|");
  444. const char *nick_submit=strtok(0, "|");
  445. const char *nick_title1=strtok(0, "|");
  446. const char *nick_title2=strtok(0, "|");
  447. const char *nick_delete=strtok(0, "|");
  448. const char *nick_name=strtok(0, "|");
  449. const char *nick_address=strtok(0, "|");
  450. const char *nick_add=strtok(0, "|");
  451. const char *nick_edit=strtok(0, "|");
  452. const char *nick1;
  453. int do_edit;
  454. char *s, *q, *r;
  456. char *edit_name=0;
  457. char *edit_addr=0;
  458. int replace_index=0;
  460. if (!nick_prompt) nick_prompt="";
  461. if (!nick_submit) nick_submit="";
  462. if (!nick_title1) nick_title1="";
  463. if (!nick_title2) nick_title2="";
  464. if (!nick_delete) nick_delete="";
  465. if (!nick_name) nick_name="";
  466. if (!nick_address) nick_address="";
  467. if (!nick_add) nick_add="";
  468. if (!nick_edit) nick_edit="";
  470. nick1=cgi("nick");
  471. do_edit=0;
  472. if (*cgi("nick.edit"))
  473. do_edit=1;
  474. else if (*cgi("nick.edit2"))
  475. {
  476. do_edit=1;
  477. nick1=cgi("nick2");
  478. }
  479. else if (*cgi("editnick"))
  480. {
  481. do_edit=1;
  482. nick1=cgi("editnick");
  483. }
  485. if (*cgi("ADDYCNT")) /* Import from LDAP */
  486. {
  487. unsigned counter=atoi(cgi("ADDYCNT"));
  488. char numbuf[NUMBUFSIZE];
  489. char numbuf2[NUMBUFSIZE+10];
  490. unsigned i;
  492. if (counter < 1 || counter > 1000)
  493. counter=1000;
  494. nick1=cgi("nick2");
  495. if (!*nick1)
  496. nick1=cgi("nick1");
  498. if (*nick1)
  499. {
  500. do_edit=1;
  501. for (i=0; i<counter; i++)
  502. {
  503. const char *addy=cgi(strcat(strcpy(numbuf2, "ADDY"),
  504.                                         str_size_t(i, numbuf)));
  505. char *addycpy;
  506. char *name;
  508. if (*addy == 0) continue;
  510. addycpy=strdup(addy);
  511. if (!addycpy) enomem();
  513. name=strchr(addycpy, '>');
  514. if (!name)
  515. {
  516. free(addycpy);
  517. continue;
  518. }
  519. *name++=0;
  520. while (*name == ' ') ++name;
  521. addy=addycpy;
  522. if (*addy == '<') ++addy;
  523. ab_add(name, addy, nick1);
  524. }
  525. }
  526. }
  528. if (*cgi("nick.delete"))
  529. {
  530. do_edit=0;
  531. dodelall(cgi("nick"));
  532. }
  533. else if (*cgi("add"))
  534. {
  535. const char *newname=cgi("newname");
  536. const char *newaddr=cgi("newaddress");
  537. const char *editnick=cgi("editnick");
  538. const char *replacenum=cgi("replacenick");
  540. if (*replacenum)
  541. {
  542. if ((fp=fopen(ADDRESSBOOK, "r")) != 0)
  543. {
  544. while ((header=maildir_readheader(fp,
  545. &value, 1)) != NULL)
  546. if (strcmp(header, editnick) == 0)
  547. break;
  548. if (header)
  549. {
  550. struct rfc822t *t;
  551. struct rfc822a *a;
  553. t=rfc822t_alloc(value, 0);
  554. a=t ? rfc822a_alloc(t):0;
  556. if (a)
  557. {
  558. dodel(editnick, a,
  559. atoi(replacenum),
  560. newname,
  561. newaddr);
  562. rfc822a_free(a);
  563. }
  564. if (t) rfc822t_free(t);
  565. }
  566. fclose(fp);
  567. }
  568. }
  569. else
  570. ab_add(newname, newaddr, editnick);
  571. do_edit=1;
  572. nick1=editnick;
  573. }
  575. printf("%s", nick_prompt);
  577. printf("<select name="nick">n");
  578. printf("<option value="">n");
  580. ab_listselect();
  582. printf("</select>n");
  583. printf("%s", nick_submit);
  585. s=strdup(nick1);
  586. if (!s) enomem();
  587. for (q=r=s; *q; q++)
  588. {
  589. if (isspace((int)(unsigned char)*q) ||
  590. strchr(",;:()"%@<>'!", *q))
  591. continue;
  592. *r++=*q;
  593. }
  594. *r=0;
  596. if (do_edit && *s)
  597. {
  598. printf("%s%s%s", nick_title1, s, nick_title2);
  599. printf("<input type=hidden name="editnick" value="");
  600. output_attrencoded(s);
  601. printf("">n");
  603. printf("<table border=0 align=center>");
  606. if ((fp=fopen(ADDRESSBOOK, "r")) != 0)
  607. {
  608. while ((header=maildir_readheader(fp, &value, 1))
  609. != NULL)
  610. if (strcmp(header, s) == 0)
  611. break;
  612. if (header)
  613. {
  614. struct rfc822t *t;
  615. struct rfc822a *a;
  616. char *save_value=strdup(value);
  618. if (!save_value)
  619. {
  620. fclose(fp);
  621. free(s);
  622. enomem();
  623. }
  624. strcpy(save_value, value);
  625. /* Need copy 'cause dodel also
  626. ** calls maildir_readheader */
  629. t=rfc822t_alloc(save_value, 0);
  630. a=t ? rfc822a_alloc(t):0;
  632. if (a)
  633. {
  634. int i;
  636. for (i=0; i<a->naddrs; i++)
  637. {
  638. char buf[100];
  640. sprintf(buf, "del%d", i);
  641. if (*cgi(buf))
  642. {
  643. dodel(s, a, i, 0, 0);
  644. break;
  645. }
  646. sprintf(buf, "startedit%d", i);
  647. if (*cgi(buf))
  648. {
  649. if (edit_name)
  650. free(edit_name);
  651. edit_name=
  652. rfc822_getname(
  653. a, i);
  654. if (edit_addr)
  655. free(edit_addr);
  656. edit_addr=
  657. rfc822_getaddr(
  658. a, i);
  659. replace_index=i;
  660. break;
  661. }
  662. }
  663. }
  665. if (a)
  666. {
  667. int i;
  669. for (i=0; i<a->naddrs; i++)
  670. {
  671. char *s;
  673. if (a->addrs[i].tokens == 0)
  674. continue;
  675. printf("<tr><td align=right>");
  677. s=rfc822_getname(a, i);
  678. if (s && a->addrs[i].name)
  679. /* getname defaults it
  680. ** here.
  681. */
  682. {
  683. printf(""");
  684. output_attrencoded(s);
  685. free(s);
  686. printf(""");
  687. }
  688. printf("</td><td align=left>&lt;");
  689. s=rfc822_getaddr(a, i);
  690. if (s)
  691. {
  692. output_attrencoded(s);
  693. free(s);
  694. }
  695. printf("&gt;</td><td><input type=submit name="startedit%d" value="%s">&nbsp;<input type=submit name="del%d" value="%s"></td></tr>n",
  696. i, nick_edit,
  697. i, nick_delete);
  698. }
  699. rfc822a_free(a);
  700. }
  701. if (t) rfc822t_free(t);
  702. free(save_value);
  703. }
  704. fclose(fp);
  705. }
  706. printf("<tr><td colspan=3><hr width="90%%"></td></tr>n");
  707. printf("<tr><td align=right>%s</td><td colspan=2><input type=text name=newname", nick_name);
  709. if (edit_name)
  710. {
  711. printf(" value="");
  712. output_attrencoded(edit_name);
  713. printf(""");
  714. }
  715. printf("></td></tr>n");
  717. printf("<tr><td align=right>%s</td><td><input type=text name=newaddress", nick_address);
  718. if (edit_addr)
  719. {
  720. printf(" value="");
  721. output_attrencoded(edit_addr);
  722. printf(""");
  723. }
  725. printf("></td><td>");
  727. if (edit_name || edit_addr)
  728. printf("<input type=hidden name=replacenick value=%d>",
  729. replace_index);
  731. printf("<input type=submit name=add value="%s"></td></tr>n",
  732. edit_name || edit_addr ? nick_edit:nick_add);
  734. printf("</table>");
  735. }
  736. free(s);
  738. if (edit_name)
  739. free(edit_name);
  740. if (edit_addr)
  741. free(edit_addr);
  742. }