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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 代理服务器 > 查看源码
smtp.c
资源名称：smtpproxy-1.1.1.tar.gz　[点击查看]
上传用户：skhuanbao
上传日期：2007-01-04
资源大小：43k
文件大小：17k
源码类别：

代理服务器

开发平台：

Unix_Linux

smtp.c：源码内容
  2. /*
  4.     File: smtp/smtp.c
  5.     
  6.     Copyright (C) 1999 by Wolfgang Zekoll <wzk@quietsche-entchen.de>
  8.     This source is free software; you can redistribute it and/or modify
  9.     it under the terms of the GNU General Public License as published by
  10.     the Free Software Foundation; either version 1, or (at your option)
  11.     any later version.
  13.     This source is distributed in the hope that it will be useful,
  14.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  15.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16.     GNU General Public License for more details.
  18.     You should have received a copy of the GNU General Public License
  19.     along with this program; if not, write to the Free Software
  20.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22. */
  25. #include <stdlib.h>
  26. #include <stdio.h>
  27. #include <string.h>
  28. #include <unistd.h>
  30. #include <sys/types.h>
  31. #include <sys/stat.h>
  32. #include <sys/fcntl.h>
  33. #include <sys/socket.h>
  34. #include <signal.h>
  35. #include <netdb.h>
  36. #include <netinet/in.h>
  37. #include <syslog.h>
  38. #include <sys/time.h>
  40. #include "smtp.h"
  41. #include "ip-lib.h"
  42. #include "lib.h"
  45. int sdebug(char *line)
  46. {
  47. if (debug != 0) {
  48. noctrl(line);
  49. fprintf (stderr, "*** %sn", line);
  50. }
  52. return (0);
  53. }
  55. char *getline(char *line, int size, FILE *fp, int debug)
  56. {
  57. *line = 0;
  58. if (fgets(line, size, fp) == NULL) {
  59. syslog(LOG_NOTICE, "sendmail closed read pipe.");
  60. return (NULL);
  61. }
  63. noctrl(line);
  64. if (debug != 0)
  65. sdebug(line);
  67. return (line);
  68. }
  70. int getresp(char *line, int size, FILE *fp, int debug)
  71. {
  72. if (getline(line, size, fp, debug) == NULL)
  73. return (-1);
  75. return (atoi(line));
  76. }
  79. int echoline(FILE *fp, char *line, int rc)
  80. {
  81. if (rc == -1) {
  82. syslog(LOG_NOTICE, "closing connection with 421");
  83. fprintf (fp, "421 service unavailablern");
  84. }
  85. else {
  86. noctrl(line);
  87. fprintf (fp, "%srn", line);
  88. }
  90. fflush(fp);
  91. return (0);
  92. }
  94. int putcmd(FILE *fp, char *cmd, char *par, char *dbg)
  95. {
  96. fprintf (fp, "%s", cmd);
  97. if (par != NULL  &&  *par != 0)
  98. fprintf (fp, " %s", par);
  100. fprintf (fp, "n");
  101. fflush(fp);
  103. if (debug != 0  &&  dbg != NULL  &&  *dbg != 0)
  104. fprintf (stderr, ">>> %s: %s %sn", dbg, cmd, par);
  106. return (0);
  107. }
  111. int reset_connection(smtp_t *x)
  112. {
  113. x->nrcpt    = 0;
  114. x->state    = WAITING;
  116. *x->sender  = 0;
  117. x->nrcpt    = 0;
  118. *x->jobid   = 0;
  119. *x->msgid   = 0;
  120. x->size     = 0;
  122. return (0);
  123. }
  127. void sigalrm_handler(int sig)
  128. {
  129. syslog(LOG_NOTICE, "client timed out");
  130. fclose (stdin);
  131. return;
  132. }
  134. char *get_clientinput(char *line, int size, int timeout)
  135. {
  136. char *p;
  138. alarm(timeout);
  139. signal(SIGALRM, sigalrm_handler);
  141. *line = 0;
  142. p = fgets(line, size, stdin);
  143. noctrl(line);
  145. return (p);
  146. }
  149. char *get_emailadr(char *envelope, char *email, int size)
  150. {
  151. char *p, *r;
  153. *email = 0;
  155. /*
  156.  * Sonderfall: Es ist moeglich, dass die envelope Adresse `<>'
  157.  * ist.  In diesem liefern wir sie unveraendert zurueck.  Das
  158.  * beisst sich nicht mit Adressen der Form `<<>>', da geschachtelte
  159.  * spitze Klammern nicht unterstuetzt werden.
  160.  */
  162. if (strcmp(envelope, "<>") == 0) {
  163. strcpy(email, "<>");
  164. return (email);
  165. }
  168. p = envelope;
  169. if (*p != '<')
  170. return (email);
  172. p++;
  173. if ((r = strchr(p, '>')) == NULL)
  174. return (email);
  175. else if (r[1] != 0)
  176. return (email);
  178. get_quoted(&p, '>', email, size);
  179. return (email);
  180. }
  182. int check_emailadr(char *emailadr)
  183. {
  184. char *domain;
  186. if (strcmp(emailadr, "<>") == 0)
  187. return (1);
  188. else if (*emailadr == 0)
  189. return (0);
  190. /* else if (*emailadr == '@')
  191.  * return (0);
  192.  */
  193. else if ((domain = strchr(emailadr, '@')) == NULL)
  194. return (0);
  195. /* else if (domain[1] == '0')
  196.  * return (0);
  197.  */
  198. else if (strchr(&domain[1], '@') != NULL)
  199. return (0);
  200. else if (strchr(emailadr, '!') != NULL  ||  strchr(emailadr, '%') != NULL)
  201. return (0);
  202. else if (strchr(emailadr, ':') != NULL  ||  strchr(emailadr, ',') != NULL)
  203. return (0);
  205. return (1);
  206. }
  208. int search_allowlist(char *emailadr, char *list)
  209. {
  210. char *p, *domain, pattern[200];
  212. if (strcmp(emailadr, "<>") == 0)
  213. return (1);
  215. domain = strchr(emailadr, '@');
  216. if (domain == NULL  ||  *domain == 0) {
  218. /*
  219.  * Das kann eigentlich nicht passieren, die E-Mail Adresse
  220.  * wurde schon auf genau ein @-Zeichen getestet.
  221.  */
  223. return (0);
  224. }
  225. else if (list == NULL  ||  *list == 0) {
  227. /*
  228.  * Kann eigentlich auch nicht vorkommen.
  229.  */
  231. return (0);
  232. }
  234. p = list;
  235. while ((p = skip_ws(p)), *get_quoted(&p, ',', pattern, sizeof(pattern)) != 0) {
  236. noctrl(pattern);
  237. if (*pattern == '@'  &&  strpcmp(domain, pattern) == 0)
  238. return (1);
  239. else if (strpcmp(emailadr, pattern) == 0)
  240. return (1);
  241. }
  243. return (0);
  244. }
  247. int receive_data(smtp_t *x)
  248. {
  249. int lineno, isheader, bytes;
  250. char line[2048];
  252. lineno   = 0;
  253. isheader = 1;
  254. while (1) {
  255. if (get_clientinput(line, sizeof(line), x->config->timeout) == NULL) {
  256. syslog(LOG_NOTICE, "client terminated while sending data");
  257. return (-1);
  258. }
  260. lineno++;
  261. noctrl(line);
  264. /* Received Zeile einbauen
  265.  */
  267. if (lineno == 1) {
  268. if (x->config->droppath != 2) {
  269. fprintf (x->sout, "Received: from %s (%s) by %srn",
  270. x->client, x->ipnum, x->hostname);
  271. }
  272. }
  277. /*
  278.  * Ggf. Message-ID aus Mail-Header lesen, bzw. Mail-Path
  279.  * aus dem Header loeschen.
  280.  */
  282. if (isheader == 1) {
  283. if (*line == 0) {
  284. isheader = 0;
  286. if (*x->msgid == 0) {
  287. unsigned long now;
  289. now = time(NULL);
  290. snprintf (x->msgid, sizeof(x->msgid) - 2, "%lu.%d.%d", now, getpid(), x->mailcount);
  291. syslog(LOG_NOTICE, "no message id, assuming %s, client= %s", x->msgid, x->client);
  292. }
  293. }
  294. else {
  295. char *p, word[80];
  297. p = line;
  298. get_word(&p, word, sizeof(word));
  299. strlwr(word);
  301. if (strcmp(word, "message-id:") == 0) {
  302. if (*x->msgid != 0) {
  303. syslog(LOG_NOTICE, "duplicate message id, client= %s", x->client);
  304. continue;
  305. }
  306. else {
  307. if ((p = strchr(p, '<')) != NULL) {
  308. p++;
  309. get_quoted(&p, '>', x->msgid, sizeof(x->msgid));
  310. }
  311. }
  312. }
  313. else if (strcmp(word, "received:") == 0) {
  314. if (x->config->droppath != 0)
  315. continue;
  316. }
  317. }
  318. }
  321. /* Zeile an Sendmail weitergeben
  322.  */
  324. if ((bytes = fprintf(x->sout, "%srn", line)) != strlen(line) + 2) {
  325. syslog(LOG_NOTICE, "server terminated while receiving data");
  326. return (-1);
  327. }
  329. x->size += bytes;
  333. /* Ende der Mail erreicht?
  334.  */
  336. if (line[0] == '.'  &&  line[1] == 0) {
  337. fflush(x->sout);
  338. break;
  339. }
  340. }
  342. return (0);
  343. }
  346. int proxy_request(config_t *config)
  347. {
  348. int rc;
  349. char *p, command[10], word[200], line[2048];
  350. smtp_t *x;
  352. x = allocate(sizeof(smtp_t));
  354. get_client_info(0, x->ipnum, x->client);
  355. x->mailcount = 0;
  356. syslog(LOG_NOTICE, "connected to client: %s", x->ipnum);
  359. if (*config->clientdir != 0) {
  360. char logfile[200];
  361. unsigned long now;
  362. struct stat sbuf;
  364. now = time(NULL);
  365. snprintf (logfile, sizeof(logfile) - 2, "%s/%s", config->clientdir, x->ipnum);
  366. if (stat(logfile, &sbuf) != 0  ||  (now - sbuf.st_mtime) >= config->accepttime) {
  367. printf ("421 service unavailable - authenticate with POP3 firstrn");
  368. syslog(LOG_NOTICE, "client not permitted: %s", x->ipnum);
  369. goto end;
  370. }
  371. }
  373. if (*config->server != 0) {
  374. unsigned int port;
  375. char server[200];
  377. copy_string(server, config->server, sizeof(server));
  378. port = get_port(server, 25);
  380. if ((x->sin = ip_open(server, port)) == NULL) {
  381. printf ("451 Service unavailablern");
  382. syslog(LOG_NOTICE, "can't connect to server: %s:%u, %m", server, port);
  383. exit (1);
  384. }
  386. x->sout = x->sin;
  387. p = config->server;
  388. }
  389. else if (config->argv != NULL) {
  390. int pid, pin[2], pout[2];
  392. if (pipe(pin) != 0  ||  pipe(pout) != 0) {
  393. printf ("451 Service unavailablern");
  394. syslog(LOG_NOTICE, "can't pipe(): %m");
  395. exit (-1);
  396. }
  397. else if ((pid = fork()) < 0) {
  398. printf ("451 Service unavailablern");
  399. syslog(LOG_NOTICE, "can't fork(): %m");
  400. exit (-1);
  401. }
  402. else if (pid == 0) {
  403. dup2(pin[1], 1);
  404. close (pin[0]);
  406. dup2(pout[0], 0);
  407. close(pout[1]);
  409. close (2);
  410. execvp(config->argv[0], config->argv);
  412. printf ("451 Service unavailablern");
  413. syslog(LOG_NOTICE, "can't execute: %s: %m", config->argv[0]);
  414. exit (1);
  415. }
  416. else {
  417. x->sin  = fdopen(pin[0], "r");
  418. close(pin[1]);
  420. x->sout = fdopen(pout[1], "w");
  421. close(pout[0]);
  423. p = config->argv[0];
  424. }
  425. }
  426. else {
  427. printf ("451 Service unavailablern");
  428. syslog(LOG_NOTICE, "no server specified");
  429. exit (1);
  430. }
  433. syslog(LOG_NOTICE, "connected to server: %s", p);
  436. /* Konfiguration uebernehmen
  437.  */
  439. x->config = config;
  442. /* Hostnamen holen
  443.  */
  445. gethostname(word, sizeof(word));
  446. getdomainname(line, sizeof(line));
  447. snprintf (x->hostname, sizeof(x->hostname) - 2, word, line);
  450. /* Greeting Message vom Sendmail Server lesen, und an
  451.  * Client schicken.
  452.  */
  454. rc = getresp(line, sizeof(line), x->sin, debug);
  455. while (line[3] != ' ') {
  456. rc = getresp(line, sizeof(line), x->sin, debug);
  457. if (rc == -1) {
  458. syslog(LOG_NOTICE, "lost server while reading server greeting");
  459. exit (1);
  460. }
  461. }
  463. echoline(stdout, line, rc);
  466. /* Wir stellen uns beim lokalen Sendmail Server vor. Die
  467.  * EHLO-replys werden 'verschluckt' und durch einen eigenen
  468.  * ersetzt.
  469.  */
  471. putcmd(x->sout, "EHLO", "localhost", "SVR");
  472. while ((rc = getresp(line, sizeof(line), x->sin, debug)) != -1) {
  473. if (line[3] == ' ')
  474. break;
  475. }
  477. rc = atol(line);
  478. if (rc != 250) {
  479. syslog(LOG_NOTICE, "server HELO: status is not 250");
  480. echoline(stdout, "421 service unavailable", 0);
  482. return (-1);
  483. }
  488. /*
  489.  *  **  S M T P   M A I N L O O P
  490.  */
  492. x->state = WAITING;
  493. while (1) {
  494. rc = 0; /* Server response code loeschen */
  497. /* Naechstes Kommando vom Client holen
  498.  */
  500. fflush(stdout);
  501. if (get_clientinput(line, sizeof(line), x->config->timeout) == NULL) {
  502. syslog(LOG_NOTICE, "client closed connection");
  503. break;
  504. }
  507. /* Kommando isolieren
  508.  */
  510. p = noctrl(line);
  511. get_word(&p, command, sizeof(command));
  512. strupr(command);
  513. p = skip_ws(p);
  516. /* QUIT ist immer moeglich.
  517.  */
  519. if (strcmp(command, "QUIT") == 0) {
  520. putcmd(x->sout, "QUIT", "", "SVR");
  521. rc = getresp(line, sizeof(line), x->sin, debug);
  522. echoline(stdout, line, rc);
  524. x->state = SEND_QUIT;
  525. break;
  526. }
  529. /* HELP
  530.  */
  532. else if (strcmp(command, "HELP") == 0) {
  533. echoline(stdout, "503 no help available", 0);
  534. }
  537. /* NOOP 
  538.  */
  540. else if (strcmp(command, "NOOP") == 0) {
  541. putcmd(x->sout, "NOOP", "", "SVR");
  542. rc = getresp(line, sizeof(line), x->sin, debug);
  543. echoline(stdout, line, rc);
  544. }
  547. /* RSET
  548.  */
  550. else if (strcmp(command, "RSET") == 0) {
  551. putcmd(x->sout, "RSET", "", "SVR");
  552. rc = getresp(line, sizeof(line), x->sin, debug);
  553. echoline(stdout, line, rc);
  555. reset_connection(x);
  556. syslog(LOG_NOTICE, "RSET command, client= %s", x->client);
  557. }
  560. /* ETRN
  561.  */
  563. else if (strcmp(command, "ETRN") == 0) {
  564. if (x->config->etrn == 0) {
  565. echoline(stdout, "500 unrecognized command", 0);
  566. syslog(LOG_NOTICE, "ETRN request rejected: client= %s", x->client);
  567. }
  568. else {
  569. if (*get_word(&p, word, sizeof(word)) == 0)
  570. echoline(stdout, "500 ETRN needs parameter", 0);
  571. else {
  572. putcmd(x->sout, "ETRN", word, "SVR");
  573. rc = getresp(line, sizeof(line), x->sin, debug);
  574. echoline(stdout, line, rc);
  575. if (rc != 250)
  576. syslog(LOG_NOTICE, "ETRN rejected by server, client= %s", x->client);
  577. }
  578. }
  579. }
  582. /* HELO und EHLO sind auch immer verfuegbar, aber nur
  583.  * einmal.
  584.  */
  586. else if (strcmp(command, "HELO") == 0  ||  strcmp(command, "EHLO") == 0) {
  587. if (x->helloseen != 0)
  588. echoline(stdout, "503 duplicate HELO/EHLO", 0);
  589. else if (*get_word(&p, word, sizeof(word)) == 0) {
  590. snprintf (line, sizeof(line) - 2, "501 %s requires domain name", command);
  591. echoline(stdout, line, 0);
  592. }
  593. else {
  594. if (strcmp(command, "HELO") == 0) {
  595. snprintf (line, sizeof(line) - 2, "250 SMTP server v%s ready %s [%s]", VERSION, x->client, x->ipnum);
  596. echoline(stdout, line, 0);
  597. }
  598. else {
  599. snprintf (line, sizeof(line) - 2, "250-SMTP server v%s ready %s [%s]", VERSION, x->client, x->ipnum);
  600. echoline(stdout, line, 0);
  602. echoline(stdout, "250-8BITMIME", 0);
  604. if (x->config->etrn != 0)
  605. echoline(stdout, "250-ETRN", 0);
  607. echoline(stdout, "250 HELP", 0);
  608. }
  610. x->helloseen = 1;
  611. }
  612. }
  615. /* MAIL, SEND, SOML, SAML
  616.  *
  617.  * Laut RFC 821 kann das MAIL Kommando jederzeit abgesetzt
  618.  * werden, es macht dabei einen impliziten SMTP-Reset. Der
  619.  * real existierende Sendmail will davon aber nichts wissen.
  620.  */
  622. else if (strcmp(command, "MAIL") == 0  || strcmp(command, "SEND") == 0  ||
  623.     strcmp(command, "SOML") == 0  || strcmp(command, "SAML") == 0) {
  625. get_quoted(&p, ':', word, sizeof(word));
  626. if (strcasecmp(word, "FROM") != 0)
  627. echoline(stdout, "500 syntax error", 0);
  628. else if (*x->sender != 0)
  629. echoline(stdout, "503 sender already specified", 0);
  630. else {
  631. int allowed;
  632. char sender[200], emailadr[200];
  634. p = skip_ws(p);
  635. get_word(&p, sender, sizeof(sender));
  636. strlwr(sender);
  639. /*
  640.  * Wir machen ein paar grundsaetzliche Tests mit
  641.  * der Absenderadresse:
  642.  *
  643.  *  - Ist die Adresse von spitzen Klammern
  644.  *    umgeben?
  645.  * ...
  646.  */
  648. allowed = 1;
  649. get_emailadr(sender, emailadr, sizeof(emailadr));
  650. if (*emailadr == 0)
  651. allowed = 0;
  653. /*
  654.  * ...
  655.  *  - Enthaelt die Adresse mindestens ein @-Zeichen?
  656.  *  - Enthaelt die Adresse genau ein @-Zeichen?
  657.  *  - Ist in der Adresse kein !- und kein %-Zeichen
  658.  *    enthalten.
  659.  * ...
  660.  */
  662. else if (check_emailadr(emailadr) == 0)
  663. allowed = 0;
  665. /*
  666.  * ...
  667.  *  - Schliesslich wird ggf. noch getestet,
  668.  *    ob die Absenderadresse auch auf der
  669.  *    allow-Liste steht.
  670.  *
  671.  * Mit den Empfaengeradressen werden die gleichen Tests
  672.  * durchgefuehrt.
  673.  */
  675. else if ((p = x->config->senderlist) == NULL  ||  *p == 0)
  676. allowed = 1; /* kein Adresstest */
  677. else 
  678. allowed = search_allowlist(emailadr, x->config->senderlist);
  681. if (allowed == 0) {
  682. char line[300];
  684. snprintf (line, sizeof(line) - 2, "550 not allowed: %s", sender);
  685. echoline(stdout, line, 0);
  686. syslog(LOG_NOTICE, "sender rejected: %s, client= %s", sender, x->client);
  687. }
  688. else {
  689. snprintf (line, sizeof(line) - 2, "%s FROM: %s", command, sender);
  690. putcmd(x->sout, line, "", "SVR");
  691. rc = getresp(line, sizeof(line), x->sin, debug);
  692. echoline(stdout, line, rc);
  694. if (rc == 250) {
  695. copy_string(x->sender, sender, sizeof(sender));
  696. x->state = MAIL_SEEN;
  697. }
  698. }
  699. }
  700. }
  703. /* RCPT
  704.  */
  706. else if (strcmp(command, "RCPT") == 0) {
  707. get_quoted(&p, ':', word, sizeof(word));
  708. if (strcasecmp(word, "TO") != 0)
  709. echoline(stdout, "500 syntax error", 0);
  710. else if (x->state != MAIL_SEEN  &&  x->state != RCPT_SEEN)
  711. echoline(stdout, "503 specify sender first", 0);
  712. else {
  713. int allowed;
  714. char rcpt[200], emailadr[200];
  716. p = skip_ws(p);
  717. get_word(&p, rcpt, sizeof(rcpt));
  718. strlwr(rcpt);
  721. get_emailadr(rcpt, emailadr, sizeof(emailadr));
  722. if (*emailadr == 0)
  723. allowed = 0;
  724. else if (check_emailadr(emailadr) == 0)
  725. allowed = 0;
  726. else if ((p = x->config->rcptlist) == NULL  ||  *p == 0)
  727. allowed = 1;
  728. else 
  729. allowed = search_allowlist(emailadr, x->config->rcptlist);
  732. if (allowed == 0) {
  733. char line[300];
  735. snprintf (line, sizeof(line) - 2, "550 no such user: %s", rcpt);
  736. echoline(stdout, line, 0);
  737. syslog(LOG_NOTICE, "recipient rejected: %s, client= %s", rcpt, x->client);
  738. }
  739. else {
  740. putcmd(x->sout, "RCPT TO:", rcpt, "SVR");
  741. rc = getresp(line, sizeof(line), x->sin, debug);
  742. echoline(stdout, line, rc);
  744. if (rc == 250  ||  rc == 251) {
  745. x->nrcpt++;
  746. x->state = RCPT_SEEN;
  747. }
  748. }
  749. }
  750. }
  753. /* DATA
  754.  */
  756. else if (strcmp(command, "DATA") == 0) {
  757. x->mailcount++;
  759. if (x->state != RCPT_SEEN)
  760. echoline(stdout, "503 specify receipients first", 0);
  761. else {
  762. putcmd(x->sout, "DATA", "", "SVR");
  763. rc = getresp(line, sizeof(line), x->sin, debug);
  764. echoline(stdout, line, rc);
  766. if (rc == 354) {
  767. if ((rc = receive_data(x)) == 0) {
  768. rc = getresp(line, sizeof(line), x->sin, debug);
  769. echoline(stdout, line, rc);
  771. if (rc == 250) {
  772. p = line;
  773. get_word(&p, word, sizeof(word));
  774. get_word(&p, x->jobid, sizeof(x->jobid));
  775. }
  776. }
  777. }
  779. snprintf (line, sizeof(line) - 2, "client= %s, sender= %s, nrcpt= %d, size= %ld, jobid= <%s>, message-id= <%s>, status= %d",
  780. x->client, x->sender, x->nrcpt, x->size,
  781. x->jobid, x->msgid, rc);
  782. syslog(LOG_NOTICE, line);
  784. reset_connection(x);
  785. x->state = WAITING;
  786. }
  787. }
  790. /* Alles andere ist unserem Server unbekannt.
  791.  */
  793. else {
  794. fprintf (stderr, "500 unrecognized commandrn");
  795. }
  798. if (rc == 421) {
  799. syslog(LOG_NOTICE, "sendmail returned 421, state= %d, command= %s", x->state, command);
  800. break;
  801. }
  802. else if (rc == -1) {
  803. syslog(LOG_NOTICE, "terminating (sendmail terminated)");
  804. x->state = NO_SENDMAIL;
  806. break;
  807. }
  808. }
  810. if (x->state != SEND_QUIT  &&  x->state != NO_SENDMAIL) {
  811. putcmd(x->sout, "QUIT", "", "SVR");
  812. rc = getresp(line, sizeof(line), x->sin, debug);
  813. }
  815. end:
  816. syslog(LOG_NOTICE, "client %s disconnecting, %d mails", x->client, x->mailcount);
  817. return (0);
  818. }