PageRenderTime 64ms CodeModel.GetById 27ms RepoModel.GetById 1ms app.codeStats 0ms

/opensource.apple.com/source/fetchmail/fetchmail-7/fetchmail/socket.c

#
C | 1063 lines | 896 code | 109 blank | 58 comment | 74 complexity | 6d1d5f475eb9c2cfe063f4cbf5f19e74 MD5 | raw file
Possible License(s): MPL-2.0-no-copyleft-exception, GPL-2.0, BSD-3-Clause, GPL-3.0, MPL-2.0, LGPL-2.0, LGPL-2.1, CC-BY-SA-3.0, IPL-1.0, ISC, AGPL-1.0, AGPL-3.0, JSON, Apache-2.0, 0BSD

Large files files are truncated, but you can click here to view the full file

    

  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
    2. 

  2.     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
    3. 

  3. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
    4. 

  4. <head>
    5. 

  5. <title>socket.c</title>
    6. 

  6. <style type="text/css">
    7. 

  7. .enscript-comment { font-style: italic; color: rgb(178,34,34); }
    8. 

  8. .enscript-function-name { font-weight: bold; color: rgb(0,0,255); }
    9. 

  9. .enscript-variable-name { font-weight: bold; color: rgb(184,134,11); }
    10. 

  10. .enscript-keyword { font-weight: bold; color: rgb(160,32,240); }
    11. 

  11. .enscript-reference { font-weight: bold; color: rgb(95,158,160); }
    12. 

  12. .enscript-string { font-weight: bold; color: rgb(188,143,143); }
    13. 

  13. .enscript-builtin { font-weight: bold; color: rgb(218,112,214); }
    14. 

  14. .enscript-type { font-weight: bold; color: rgb(34,139,34); }
    15. 

  15. .enscript-highlight { text-decoration: underline; color: 0; }
    16. 

  16. </style>
    17. 

  17. </head>
    18. 

  18. <body id="top">
    19. 

  19. <h1 style="margin:8px;" id="f1">socket.c&nbsp;&nbsp;&nbsp;<span style="font-weight: normal; font-size: 0.5em;">[<a href="?txt">plain text</a>]</span></h1>
    20. 

  20. <hr/>
    21. 

  21. <div></div>
    22. 

  22. <pre>
    23. 

  23. <span class="enscript-comment">/*
    24. 

  24.  * socket.c -- socket library functions
    25. 

  25.  *
    26. 

  26.  * Copyright 1998 by Eric S. Raymond.
    27. 

  27.  * For license terms, see the file COPYING in this directory.
    28. 

  28.  */</span>
    29. 

  29. 

  30. #<span class="enscript-reference">include</span> <span class="enscript-string">&quot;config.h&quot;</span>
    31. 

  31. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;stdio.h&gt;</span>
    32. 

  32. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;errno.h&gt;</span>
    33. 

  33. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;string.h&gt;</span>
    34. 

  34. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;ctype.h&gt;</span> <span class="enscript-comment">/* isspace() */</span>
    35. 

  35. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_MEMORY_H</span>
    36. 

  36. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;memory.h&gt;</span>
    37. 

  37. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* HAVE_MEMORY_H */</span>
    38. 

  38. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;sys/types.h&gt;</span>
    39. 

  39. #<span class="enscript-reference">ifndef</span> <span class="enscript-variable-name">HAVE_NET_SOCKET_H</span>
    40. 

  40. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;sys/socket.h&gt;</span>
    41. 

  41. #<span class="enscript-reference">else</span>
    42. 

  42. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;net/socket.h&gt;</span>
    43. 

  43. #<span class="enscript-reference">endif</span>
    44. 

  44. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;sys/un.h&gt;</span>
    45. 

  45. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;netinet/in.h&gt;</span>
    46. 

  46. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_ARPA_INET_H</span>
    47. 

  47. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;arpa/inet.h&gt;</span>
    48. 

  48. #<span class="enscript-reference">endif</span>
    49. 

  49. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;netdb.h&gt;</span>
    50. 

  50. #<span class="enscript-reference">if</span> <span class="enscript-reference">defined</span>(<span class="enscript-variable-name">STDC_HEADERS</span>)
    51. 

  51. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;stdlib.h&gt;</span>
    52. 

  52. #<span class="enscript-reference">endif</span>
    53. 

  53. #<span class="enscript-reference">if</span> <span class="enscript-reference">defined</span>(<span class="enscript-variable-name">HAVE_UNISTD_H</span>)
    54. 

  54. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;unistd.h&gt;</span>
    55. 

  55. #<span class="enscript-reference">endif</span>
    56. 

  56. #<span class="enscript-reference">if</span> <span class="enscript-reference">defined</span>(<span class="enscript-variable-name">HAVE_STDARG_H</span>)
    57. 

  57. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;stdarg.h&gt;</span>
    58. 

  58. #<span class="enscript-reference">else</span>
    59. 

  59. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;varargs.h&gt;</span>
    60. 

  60. #<span class="enscript-reference">endif</span>
    61. 

  61. #<span class="enscript-reference">include</span> <span class="enscript-string">&quot;socket.h&quot;</span>
    62. 

  62. #<span class="enscript-reference">include</span> <span class="enscript-string">&quot;fetchmail.h&quot;</span>
    63. 

  63. #<span class="enscript-reference">include</span> <span class="enscript-string">&quot;i18n.h&quot;</span>
    64. 

  64. 

  65. <span class="enscript-comment">/* Defines to allow BeOS and Cygwin to play nice... */</span>
    66. 

  66. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">__BEOS__</span>
    67. 

  67. <span class="enscript-type">static</span> <span class="enscript-type">char</span> peeked;
    68. 

  68. #<span class="enscript-reference">define</span> <span class="enscript-function-name">fm_close</span>(a)  closesocket(a)
    69. 

  69. #<span class="enscript-reference">define</span> <span class="enscript-function-name">fm_write</span>(a,b,c)  send(a,b,c,0)
    70. 

  70. #<span class="enscript-reference">define</span> <span class="enscript-function-name">fm_peek</span>(a,b,c)   recv(a,b,c,0)
    71. 

  71. #<span class="enscript-reference">define</span> <span class="enscript-function-name">fm_read</span>(a,b,c)   recv(a,b,c,0)
    72. 

  72. #<span class="enscript-reference">else</span>
    73. 

  73. #<span class="enscript-reference">define</span> <span class="enscript-function-name">fm_close</span>(a)  close(a)
    74. 

  74. #<span class="enscript-reference">define</span> <span class="enscript-function-name">fm_write</span>(a,b,c)  write(a,b,c)
    75. 

  75. #<span class="enscript-reference">define</span> <span class="enscript-function-name">fm_peek</span>(a,b,c)   recv(a,b,c, MSG_PEEK)
    76. 

  76. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">__CYGWIN__</span>
    77. 

  77. #<span class="enscript-reference">define</span> <span class="enscript-function-name">fm_read</span>(a,b,c)   cygwin_read(a,b,c)
    78. 

  78. <span class="enscript-type">static</span> ssize_t <span class="enscript-function-name">cygwin_read</span>(<span class="enscript-type">int</span> sock, <span class="enscript-type">void</span> *buf, size_t count);
    79. 

  79. #<span class="enscript-reference">else</span> <span class="enscript-comment">/* ! __CYGWIN__ */</span>
    80. 

  80. #<span class="enscript-reference">define</span> <span class="enscript-function-name">fm_read</span>(a,b,c)   read(a,b,c)
    81. 

  81. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* __CYGWIN__ */</span>
    82. 

  82. #<span class="enscript-reference">endif</span>
    83. 

  83. 

  84. <span class="enscript-comment">/* We need to define h_errno only if it is not already */</span>
    85. 

  85. #<span class="enscript-reference">ifndef</span> <span class="enscript-variable-name">h_errno</span>
    86. 

  86. 

  87. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_RES_SEARCH</span>
    88. 

  88. <span class="enscript-comment">/* some versions of FreeBSD should declare this but don't */</span>
    89. 

  89. <span class="enscript-type">extern</span> <span class="enscript-type">int</span> h_errno;
    90. 

  90. #<span class="enscript-reference">else</span>
    91. 

  91. <span class="enscript-comment">/* pretend we have h_errno to avoid some #ifdef's later */</span>
    92. 

  92. <span class="enscript-type">static</span> <span class="enscript-type">int</span> h_errno;
    93. 

  93. #<span class="enscript-reference">endif</span>
    94. 

  94. 

  95. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* ndef h_errno */</span>
    96. 

  96. 

  97. <span class="enscript-type">extern</span> <span class="enscript-type">int</span> mailserver_socket_temp;	<span class="enscript-comment">/* Socket to close if connect timeout */</span>
    98. 

  98. 

  99. #<span class="enscript-reference">if</span> <span class="enscript-variable-name">NET_SECURITY</span>
    100. 

  100. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;net/security.h&gt;</span>
    101. 

  101. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* NET_SECURITY */</span>
    102. 

  102. 

  103. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_SOCKETPAIR</span>
    104. 

  104. <span class="enscript-type">char</span> *<span class="enscript-type">const</span> *<span class="enscript-function-name">parse_plugin</span>(<span class="enscript-type">const</span> <span class="enscript-type">char</span> *plugin, <span class="enscript-type">const</span> <span class="enscript-type">char</span> *host, <span class="enscript-type">const</span> <span class="enscript-type">char</span> *service)
    105. 

  105. {	<span class="enscript-type">const</span> <span class="enscript-type">char</span> **argvec;
    106. 

  106. 	<span class="enscript-type">const</span> <span class="enscript-type">char</span> *c, *p;
    107. 

  107. 	<span class="enscript-type">char</span> *cp, *plugin_copy;
    108. 

  108. 	<span class="enscript-type">unsigned</span> <span class="enscript-type">int</span> plugin_copy_len;
    109. 

  109. 	<span class="enscript-type">unsigned</span> <span class="enscript-type">int</span> plugin_offset = 0, plugin_copy_offset = 0;
    110. 

  110. 	<span class="enscript-type">unsigned</span> <span class="enscript-type">int</span> i, s = 2 * <span class="enscript-keyword">sizeof</span>(<span class="enscript-type">char</span>*), host_count = 0, service_count = 0;
    111. 

  111. 	<span class="enscript-type">unsigned</span> <span class="enscript-type">int</span> plugin_len = strlen(plugin);
    112. 

  112. 	<span class="enscript-type">unsigned</span> <span class="enscript-type">int</span> host_len = strlen(host);
    113. 

  113. 	<span class="enscript-type">unsigned</span> <span class="enscript-type">int</span> service_len = strlen(service);
    114. 

  114. 

  115. 	<span class="enscript-keyword">for</span> (c = p = plugin; *c; c++)
    116. 

  116. 	{	<span class="enscript-keyword">if</span> (isspace(*c) &amp;&amp; !isspace(*p))
    117. 

  117. 			s += <span class="enscript-keyword">sizeof</span>(<span class="enscript-type">char</span>*);
    118. 

  118. 		<span class="enscript-keyword">if</span> (*p == <span class="enscript-string">'%'</span> &amp;&amp; *c == <span class="enscript-string">'h'</span>)
    119. 

  119. 			host_count++;
    120. 

  120. 		<span class="enscript-keyword">if</span> (*p == <span class="enscript-string">'%'</span> &amp;&amp; *c == <span class="enscript-string">'p'</span>)
    121. 

  121. 			service_count++;
    122. 

  122. 		p = c;
    123. 

  123. 	}
    124. 

  124. 

  125. 	plugin_copy_len = plugin_len + host_len * host_count + service_len * service_count;
    126. 

  126. 	plugin_copy = malloc(plugin_copy_len + 1);
    127. 

  127. 	<span class="enscript-keyword">if</span> (!plugin_copy)
    128. 

  128. 	{
    129. 

  129. 		report(stderr, GT_(<span class="enscript-string">&quot;fetchmail: malloc failed\n&quot;</span>));
    130. 

  130. 		<span class="enscript-keyword">return</span> NULL;
    131. 

  131. 	}
    132. 

  132. 

  133. 	<span class="enscript-keyword">while</span> (plugin_copy_offset &lt; plugin_copy_len)
    134. 

  134. 	{	<span class="enscript-keyword">if</span> ((plugin[plugin_offset] == <span class="enscript-string">'%'</span>) &amp;&amp; (plugin[plugin_offset + 1] == <span class="enscript-string">'h'</span>))
    135. 

  135. 		{	strcpy(plugin_copy + plugin_copy_offset, host);
    136. 

  136. 			plugin_offset += 2;
    137. 

  137. 			plugin_copy_offset += host_len;
    138. 

  138. 		}
    139. 

  139. 		<span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span> ((plugin[plugin_offset] == <span class="enscript-string">'%'</span>) &amp;&amp; (plugin[plugin_offset + 1] == <span class="enscript-string">'p'</span>))
    140. 

  140. 		{	strcpy(plugin_copy + plugin_copy_offset, service);
    141. 

  141. 			plugin_offset += 2;
    142. 

  142. 			plugin_copy_offset += service_len;
    143. 

  143. 		}
    144. 

  144. 		<span class="enscript-keyword">else</span>
    145. 

  145. 		{	plugin_copy[plugin_copy_offset] = plugin[plugin_offset];
    146. 

  146. 			plugin_offset++;
    147. 

  147. 			plugin_copy_offset++;
    148. 

  148. 		}
    149. 

  149. 	}
    150. 

  150. 	plugin_copy[plugin_copy_len] = 0;
    151. 

  151. 

  152. 	argvec = malloc(s);
    153. 

  153. 	<span class="enscript-keyword">if</span> (!argvec)
    154. 

  154. 	{
    155. 

  155. 		report(stderr, GT_(<span class="enscript-string">&quot;fetchmail: malloc failed\n&quot;</span>));
    156. 

  156. 		<span class="enscript-keyword">return</span> NULL;
    157. 

  157. 	}
    158. 

  158. 	memset(argvec, 0, s);
    159. 

  159. 	<span class="enscript-keyword">for</span> (c = p = plugin_copy, i = 0; *c; c++)
    160. 

  160. 	{	<span class="enscript-keyword">if</span> ((!isspace(*c)) &amp;&amp; (c == p ? 1 : isspace(*p))) {
    161. 

  161. 			argvec[i] = c;
    162. 

  162. 			i++;
    163. 

  163. 		}
    164. 

  164. 		p = c;
    165. 

  165. 	}
    166. 

  166. 	<span class="enscript-keyword">for</span> (cp = plugin_copy; *cp; cp++)
    167. 

  167. 	{	<span class="enscript-keyword">if</span> (isspace(*cp))
    168. 

  168. 			*cp = 0;
    169. 

  169. 	}
    170. 

  170. 	<span class="enscript-keyword">return</span> (<span class="enscript-type">char</span> *<span class="enscript-type">const</span>*)argvec;
    171. 

  171. }
    172. 

  172. 

  173. <span class="enscript-type">static</span> <span class="enscript-type">int</span> <span class="enscript-function-name">handle_plugin</span>(<span class="enscript-type">const</span> <span class="enscript-type">char</span> *host,
    174. 

  174. 			 <span class="enscript-type">const</span> <span class="enscript-type">char</span> *service, <span class="enscript-type">const</span> <span class="enscript-type">char</span> *plugin)
    175. 

  175. <span class="enscript-comment">/* get a socket mediated through a given external command */</span>
    176. 

  176. {
    177. 

  177.     <span class="enscript-type">int</span> fds[2];
    178. 

  178.     <span class="enscript-type">char</span> *<span class="enscript-type">const</span> *argvec;
    179. 

  179. 

  180.     <span class="enscript-comment">/*
    181. 

  181.      * The author of this code, Felix von Leitner &lt;<a href="mailto:felix@convergence.de">felix@convergence.de</a>&gt;, says:
    182. 

  182.      * he chose socketpair() instead of pipe() because socketpair creates 
    183. 

  183.      * bidirectional sockets while allegedly some pipe() implementations don't.
    184. 

  184.      */</span>
    185. 

  185.     <span class="enscript-keyword">if</span> (socketpair(AF_UNIX,SOCK_STREAM,0,fds))
    186. 

  186.     {
    187. 

  187. 	report(stderr, GT_(<span class="enscript-string">&quot;fetchmail: socketpair failed\n&quot;</span>));
    188. 

  188. 	<span class="enscript-keyword">return</span> -1;
    189. 

  189.     }
    190. 

  190.     <span class="enscript-keyword">switch</span> (fork()) {
    191. 

  191. 	<span class="enscript-keyword">case</span> <span class="enscript-reference">-1</span>:
    192. 

  192. 		<span class="enscript-comment">/* error */</span>
    193. 

  193. 		report(stderr, GT_(<span class="enscript-string">&quot;fetchmail: fork failed\n&quot;</span>));
    194. 

  194. 		<span class="enscript-keyword">return</span> -1;
    195. 

  195. 		<span class="enscript-keyword">break</span>;
    196. 

  196. 	<span class="enscript-keyword">case</span> <span class="enscript-reference">0</span>:	<span class="enscript-comment">/* child */</span>
    197. 

  197. 		<span class="enscript-comment">/* fds[1] is the parent's end; close it for proper EOF
    198. 

  198. 		** detection */</span>
    199. 

  199. 		(<span class="enscript-type">void</span>) close(fds[1]);
    200. 

  200. 		<span class="enscript-keyword">if</span> ( (dup2(fds[0],0) == -1) || (dup2(fds[0],1) == -1) ) {
    201. 

  201. 			report(stderr, GT_(<span class="enscript-string">&quot;dup2 failed\n&quot;</span>));
    202. 

  202. 			exit(1);
    203. 

  203. 		}
    204. 

  204. 		<span class="enscript-comment">/* fds[0] is now connected to 0 and 1; close it */</span>
    205. 

  205. 		(<span class="enscript-type">void</span>) close(fds[0]);
    206. 

  206. 		<span class="enscript-keyword">if</span> (outlevel &gt;= O_VERBOSE)
    207. 

  207. 		    report(stderr, GT_(<span class="enscript-string">&quot;running %s (host %s service %s)\n&quot;</span>), plugin, host, service);
    208. 

  208. 		argvec = parse_plugin(plugin,host,service);
    209. 

  209. 		execvp(*argvec, argvec);
    210. 

  210. 		report(stderr, GT_(<span class="enscript-string">&quot;execvp(%s) failed\n&quot;</span>), *argvec);
    211. 

  211. 		exit(0);
    212. 

  212. 		<span class="enscript-keyword">break</span>;
    213. 

  213. 	<span class="enscript-reference">default</span>:	<span class="enscript-comment">/* parent */</span>
    214. 

  214. 		<span class="enscript-comment">/* NOP */</span>
    215. 

  215. 		<span class="enscript-keyword">break</span>;
    216. 

  216.     }
    217. 

  217.     <span class="enscript-comment">/* fds[0] is the child's end; close it for proper EOF detection */</span>
    218. 

  218.     (<span class="enscript-type">void</span>) close(fds[0]);
    219. 

  219.     <span class="enscript-keyword">return</span> fds[1];
    220. 

  220. }
    221. 

  221. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* HAVE_SOCKETPAIR */</span>
    222. 

  222. 

  223. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">__UNUSED__</span>
    224. 

  224. #<span class="enscript-reference">include</span> <span class="enscript-string">&lt;sys/time.h&gt;</span>
    225. 

  225. 

  226. <span class="enscript-type">int</span> <span class="enscript-function-name">SockCheckOpen</span>(<span class="enscript-type">int</span> fd)
    227. 

  227. <span class="enscript-comment">/* poll given socket; is it selectable? */</span>
    228. 

  228. {
    229. 

  229.     fd_set r, w, e;
    230. 

  230.     <span class="enscript-type">int</span> rt;
    231. 

  231.     <span class="enscript-type">struct</span> timeval tv;
    232. 

  232.   
    233. 

  233.     <span class="enscript-keyword">for</span> (;;) 
    234. 

  234.     {
    235. 

  235. 	FD_ZERO(&amp;r); FD_ZERO(&amp;w); FD_ZERO(&amp;e);
    236. 

  236. 	FD_SET(fd, &amp;e);
    237. 

  237.     
    238. 

  238. 	tv.tv_sec = 0; tv.tv_usec = 0;
    239. 

  239. 	rt = select(fd+1, &amp;r, &amp;w, &amp;e, &amp;tv);
    240. 

  240. 	<span class="enscript-keyword">if</span> (rt == -1 &amp;&amp; (errno != EAGAIN &amp;&amp; errno != EINTR))
    241. 

  241. 	    <span class="enscript-keyword">return</span> 0;
    242. 

  242. 	<span class="enscript-keyword">if</span> (rt != -1)
    243. 

  243. 	    <span class="enscript-keyword">return</span> 1;
    244. 

  244.     }
    245. 

  245. }
    246. 

  246. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* __UNUSED__ */</span>
    247. 

  247. 

  248. <span class="enscript-type">int</span> <span class="enscript-function-name">UnixOpen</span>(<span class="enscript-type">const</span> <span class="enscript-type">char</span> *path)
    249. 

  249. {
    250. 

  250.     <span class="enscript-type">int</span> sock = -1;
    251. 

  251.     <span class="enscript-type">struct</span> sockaddr_un ad;
    252. 

  252.     memset(&amp;ad, 0, <span class="enscript-keyword">sizeof</span>(ad));
    253. 

  253.     ad.sun_family = AF_UNIX;
    254. 

  254.     strncpy(ad.sun_path, path, <span class="enscript-keyword">sizeof</span>(ad.sun_path)-1);
    255. 

  255. 

  256.     sock = socket( AF_UNIX, SOCK_STREAM, 0 );
    257. 

  257.     <span class="enscript-keyword">if</span> (sock &lt; 0)
    258. 

  258.     {
    259. 

  259. 	h_errno = 0;
    260. 

  260. 	<span class="enscript-keyword">return</span> -1;
    261. 

  261.     }
    262. 

  262. 

  263. 	<span class="enscript-comment">/* Socket opened saved. Usefull if connect timeout 
    264. 

  264. 	 * because it can be closed.
    265. 

  265. 	 */</span>
    266. 

  266. 	mailserver_socket_temp = sock;
    267. 

  267.     
    268. 

  268. 	<span class="enscript-keyword">if</span> (connect(sock, (<span class="enscript-type">struct</span> sockaddr *) &amp;ad, <span class="enscript-keyword">sizeof</span>(ad)) &lt; 0)
    269. 

  269.     {
    270. 

  270. 	<span class="enscript-type">int</span> olderr = errno;
    271. 

  271. 	fm_close(sock);	<span class="enscript-comment">/* don't use SockClose, no traffic yet */</span>
    272. 

  272. 	h_errno = 0;
    273. 

  273. 	errno = olderr;
    274. 

  274. 	sock = -1;
    275. 

  275.     }
    276. 

  276. 	
    277. 

  277. 	<span class="enscript-comment">/* No connect timeout, then no need to set mailserver_socket_temp */</span>
    278. 

  278. 	mailserver_socket_temp = -1;
    279. 

  279. 

  280.     <span class="enscript-keyword">return</span> sock;
    281. 

  281. }
    282. 

  282. 

  283. #<span class="enscript-reference">if</span> <span class="enscript-variable-name">INET6_ENABLE</span>
    284. 

  284. <span class="enscript-type">int</span> <span class="enscript-function-name">SockOpen</span>(<span class="enscript-type">const</span> <span class="enscript-type">char</span> *host, <span class="enscript-type">const</span> <span class="enscript-type">char</span> *service, <span class="enscript-type">const</span> <span class="enscript-type">char</span> *options,
    285. 

  285. 	     <span class="enscript-type">const</span> <span class="enscript-type">char</span> *plugin)
    286. 

  286. {
    287. 

  287.     <span class="enscript-type">struct</span> addrinfo *ai, *ai0, req;
    288. 

  288.     <span class="enscript-type">int</span> i;
    289. 

  289. #<span class="enscript-reference">if</span> <span class="enscript-variable-name">NET_SECURITY</span>
    290. 

  290.     <span class="enscript-type">void</span> *request = NULL;
    291. 

  291.     <span class="enscript-type">int</span> requestlen;
    292. 

  292. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* NET_SECURITY */</span>
    293. 

  293. 

  294. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_SOCKETPAIR</span>
    295. 

  295.     <span class="enscript-keyword">if</span> (plugin)
    296. 

  296. 	<span class="enscript-keyword">return</span> handle_plugin(host,service,plugin);
    297. 

  297. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* HAVE_SOCKETPAIR */</span>
    298. 

  298.     memset(&amp;req, 0, <span class="enscript-keyword">sizeof</span>(<span class="enscript-type">struct</span> addrinfo));
    299. 

  299.     req.ai_socktype = SOCK_STREAM;
    300. 

  300. 

  301.     <span class="enscript-keyword">if</span> (getaddrinfo(host, service, &amp;req, &amp;ai0)) {
    302. 

  302. 	report(stderr, GT_(<span class="enscript-string">&quot;fetchmail: getaddrinfo(%s.%s)\n&quot;</span>), host,service);
    303. 

  303. 	<span class="enscript-keyword">return</span> -1;
    304. 

  304.     }
    305. 

  305. 

  306. #<span class="enscript-reference">if</span> <span class="enscript-variable-name">NET_SECURITY</span>
    307. 

  307.     <span class="enscript-keyword">if</span> (!options)
    308. 

  308. 	requestlen = 0;
    309. 

  309.     <span class="enscript-keyword">else</span>
    310. 

  310. 	<span class="enscript-keyword">if</span> (net_security_strtorequest((<span class="enscript-type">char</span> *)options, &amp;request, &amp;requestlen))
    311. 

  311. 	    <span class="enscript-keyword">goto</span> <span class="enscript-reference">ret</span>;
    312. 

  312. 

  313.     i = inner_connect(ai0, request, requestlen, NULL, NULL, <span class="enscript-string">&quot;fetchmail&quot;</span>, NULL);
    314. 

  314.     <span class="enscript-keyword">if</span> (request)
    315. 

  315. 	free(request);
    316. 

  316. 

  317.  <span class="enscript-reference">ret</span>:
    318. 

  318. #<span class="enscript-reference">else</span> <span class="enscript-comment">/* NET_SECURITY */</span>
    319. 

  319. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_INNER_CONNECT</span>
    320. 

  320.     i = inner_connect(ai0, NULL, 0, NULL, NULL, <span class="enscript-string">&quot;fetchmail&quot;</span>, NULL);
    321. 

  321.     <span class="enscript-keyword">if</span> (i &gt;= 0)
    322. 

  322. 	<span class="enscript-keyword">break</span>;
    323. 

  323. #<span class="enscript-reference">else</span>
    324. 

  324. 

  325.     i = -1;
    326. 

  326.     <span class="enscript-keyword">for</span> (ai = ai0; ai; ai = ai-&gt;ai_next) {
    327. 

  327. 	i = socket(ai-&gt;ai_family, ai-&gt;ai_socktype, 0);
    328. 

  328. 	<span class="enscript-keyword">if</span> (i &lt; 0)
    329. 

  329. 	    <span class="enscript-keyword">continue</span>;
    330. 

  330. 

  331. 	<span class="enscript-comment">/* Socket opened saved. Usefull if connect timeout 
    332. 

  332. 	 * because it can be closed.
    333. 

  333. 	 */</span>
    334. 

  334. 	mailserver_socket_temp = i;
    335. 

  335. 

  336. 	<span class="enscript-keyword">if</span> (connect(i, (<span class="enscript-type">struct</span> sockaddr *) ai-&gt;ai_addr, ai-&gt;ai_addrlen) &lt; 0) {
    337. 

  337. 	    fm_close(i);
    338. 

  338. 	    i = -1;
    339. 

  339. 	    <span class="enscript-keyword">continue</span>;
    340. 

  340. 	}
    341. 

  341. 	
    342. 

  342. 	<span class="enscript-comment">/* No connect timeout, then no need to set mailserver_socket_temp */</span>
    343. 

  343. 	mailserver_socket_temp = -1;
    344. 

  344. 	
    345. 

  345. 	<span class="enscript-keyword">break</span>;
    346. 

  346.     }
    347. 

  347. 

  348. #<span class="enscript-reference">endif</span>
    349. 

  349. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* NET_SECURITY */</span>
    350. 

  350. 

  351.     freeaddrinfo(ai0);
    352. 

  352. 

  353.     <span class="enscript-keyword">return</span> i;
    354. 

  354. }
    355. 

  355. #<span class="enscript-reference">else</span> <span class="enscript-comment">/* INET6_ENABLE */</span>
    356. 

  356. #<span class="enscript-reference">ifndef</span> <span class="enscript-variable-name">HAVE_INET_ATON</span>
    357. 

  357. #<span class="enscript-reference">ifndef</span>  <span class="enscript-variable-name">INADDR_NONE</span>
    358. 

  358. #<span class="enscript-reference">ifdef</span>   <span class="enscript-variable-name">INADDR_BROADCAST</span>
    359. 

  359. #<span class="enscript-reference">define</span>  <span class="enscript-variable-name">INADDR_NONE</span>	INADDR_BROADCAST
    360. 

  360. #<span class="enscript-reference">else</span>
    361. 

  361. #<span class="enscript-reference">define</span>	 <span class="enscript-variable-name">INADDR_NONE</span>	-1
    362. 

  362. #<span class="enscript-reference">endif</span>
    363. 

  363. #<span class="enscript-reference">endif</span>
    364. 

  364. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* HAVE_INET_ATON */</span>
    365. 

  365. 

  366. <span class="enscript-type">int</span> <span class="enscript-function-name">SockOpen</span>(<span class="enscript-type">const</span> <span class="enscript-type">char</span> *host, <span class="enscript-type">int</span> clientPort, <span class="enscript-type">const</span> <span class="enscript-type">char</span> *options,
    367. 

  367. 	     <span class="enscript-type">const</span> <span class="enscript-type">char</span> *plugin)
    368. 

  368. {
    369. 

  369.     <span class="enscript-type">int</span> sock = -1;	<span class="enscript-comment">/* pacify -Wall */</span>
    370. 

  370. #<span class="enscript-reference">ifndef</span> <span class="enscript-variable-name">HAVE_INET_ATON</span>
    371. 

  371.     <span class="enscript-type">unsigned</span> <span class="enscript-type">long</span> inaddr;
    372. 

  372. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* HAVE_INET_ATON */</span>
    373. 

  373.     <span class="enscript-type">struct</span> sockaddr_in ad, **pptr;
    374. 

  374.     <span class="enscript-type">struct</span> hostent *hp;
    375. 

  375. 

  376. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_SOCKETPAIR</span>
    377. 

  377.     <span class="enscript-keyword">if</span> (plugin) {
    378. 

  378.       <span class="enscript-type">char</span> buf[10];
    379. 

  379. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_SNPRINTF</span>
    380. 

  380.       snprintf(buf, <span class="enscript-keyword">sizeof</span>(buf),  <span class="enscript-comment">/* Yeah, paranoic. So what? :P */</span>
    381. 

  381. #<span class="enscript-reference">else</span>
    382. 

  382.       sprintf(buf,
    383. 

  383. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* HAVE_SNPRINTF */</span>
    384. 

  384. 	      <span class="enscript-string">&quot;%d&quot;</span>,clientPort);
    385. 

  385.       <span class="enscript-keyword">return</span> handle_plugin(host,buf,plugin);
    386. 

  386.     }
    387. 

  387. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* HAVE_SOCKETPAIR */</span>
    388. 

  388. 

  389.     memset(&amp;ad, 0, <span class="enscript-keyword">sizeof</span>(ad));
    390. 

  390.     ad.sin_family = AF_INET;
    391. 

  391. 

  392.     <span class="enscript-comment">/* we'll accept a quad address */</span>
    393. 

  393. #<span class="enscript-reference">ifndef</span> <span class="enscript-variable-name">HAVE_INET_ATON</span>
    394. 

  394.     inaddr = inet_addr((<span class="enscript-type">char</span>*)host);
    395. 

  395.     <span class="enscript-keyword">if</span> (inaddr != INADDR_NONE)
    396. 

  396.     {
    397. 

  397.         memcpy(&amp;ad.sin_addr, &amp;inaddr, <span class="enscript-keyword">sizeof</span>(inaddr));
    398. 

  398. #<span class="enscript-reference">else</span>
    399. 

  399.     <span class="enscript-keyword">if</span> (inet_aton(host, &amp;ad.sin_addr))
    400. 

  400.     {
    401. 

  401. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* HAVE_INET_ATON */</span>
    402. 

  402.         ad.sin_port = htons(clientPort);
    403. 

  403. 

  404.         sock = socket(AF_INET, SOCK_STREAM, 0);
    405. 

  405.         <span class="enscript-keyword">if</span> (sock &lt; 0)
    406. 

  406.         {
    407. 

  407.             h_errno = 0;
    408. 

  408.             <span class="enscript-keyword">return</span> -1;
    409. 

  409.         }
    410. 

  410. 

  411. 		<span class="enscript-comment">/* Socket opened saved. Usefull if connect timeout because
    412. 

  412. 		 * it can be closed
    413. 

  413. 		 */</span>
    414. 

  414. 		mailserver_socket_temp = sock;
    415. 

  415. 		
    416. 

  416.         <span class="enscript-keyword">if</span> (connect(sock, (<span class="enscript-type">struct</span> sockaddr *) &amp;ad, <span class="enscript-keyword">sizeof</span>(ad)) &lt; 0)
    417. 

  417.         {
    418. 

  418.             <span class="enscript-type">int</span> olderr = errno;
    419. 

  419.             fm_close(sock);	<span class="enscript-comment">/* don't use SockClose, no traffic yet */</span>
    420. 

  420.             h_errno = 0;
    421. 

  421.             errno = olderr;
    422. 

  422.             <span class="enscript-keyword">return</span> -1;
    423. 

  423.         }
    424. 

  424. 

  425. 		<span class="enscript-comment">/* No connect timeout, then no need to set mailserver_socket_temp */</span>
    426. 

  426. 		mailserver_socket_temp = -1;
    427. 

  427. 		
    428. 

  428. #<span class="enscript-reference">ifndef</span> <span class="enscript-variable-name">HAVE_INET_ATON</span>
    429. 

  429.     }
    430. 

  430. #<span class="enscript-reference">else</span>
    431. 

  431.     }
    432. 

  432. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* HAVE_INET_ATON */</span>
    433. 

  433.     <span class="enscript-keyword">else</span> {
    434. 

  434.         hp = gethostbyname((<span class="enscript-type">char</span>*)host);
    435. 

  435. 

  436.         <span class="enscript-keyword">if</span> (hp == NULL)
    437. 

  437. 	{
    438. 

  438. 	    errno = 0;
    439. 

  439. 	    <span class="enscript-keyword">return</span> -1;
    440. 

  440. 	}
    441. 

  441. 	<span class="enscript-comment">/*
    442. 

  442. 	 * Add a check to make sure the address has a valid IPv4 or IPv6
    443. 

  443. 	 * length.  This prevents buffer spamming by a broken DNS.
    444. 

  444. 	 */</span>
    445. 

  445. 	<span class="enscript-keyword">if</span>(hp-&gt;h_length != 4 &amp;&amp; hp-&gt;h_length != 8)
    446. 

  446. 	{
    447. 

  447. 	    h_errno = errno = 0;
    448. 

  448. 	    report(stderr, 
    449. 

  449. 		   GT_(<span class="enscript-string">&quot;fetchmail: illegal address length received for host %s\n&quot;</span>),host);
    450. 

  450. 	    <span class="enscript-keyword">return</span> -1;
    451. 

  451. 	}
    452. 

  452. 	<span class="enscript-comment">/*
    453. 

  453. 	 * Try all addresses of a possibly multihomed host until we get
    454. 

  454. 	 * a successful connect or until we run out of addresses.
    455. 

  455. 	 */</span>
    456. 

  456. 	pptr = (<span class="enscript-type">struct</span> sockaddr_in **)hp-&gt;h_addr_list;
    457. 

  457. 	<span class="enscript-keyword">for</span>(; *pptr != NULL; pptr++)
    458. 

  458. 	{
    459. 

  459. 	    sock = socket(AF_INET, SOCK_STREAM, 0);
    460. 

  460. 	    <span class="enscript-keyword">if</span> (sock &lt; 0)
    461. 

  461. 	    {
    462. 

  462. 		h_errno = 0;
    463. 

  463. 		<span class="enscript-keyword">return</span> -1;
    464. 

  464. 	    }
    465. 

  465. 

  466. 		<span class="enscript-comment">/* Socket opened saved. Usefull if connect timeout because
    467. 

  467. 		 * it can be closed
    468. 

  468. 		 */</span>
    469. 

  469. 		mailserver_socket_temp = sock;
    470. 

  470. 		
    471. 

  471. 	    ad.sin_port = htons(clientPort);
    472. 

  472. 	    memcpy(&amp;ad.sin_addr, *pptr, <span class="enscript-keyword">sizeof</span>(<span class="enscript-type">struct</span> in_addr));
    473. 

  473. 	    <span class="enscript-keyword">if</span> (connect(sock, (<span class="enscript-type">struct</span> sockaddr *) &amp;ad, <span class="enscript-keyword">sizeof</span>(ad)) == 0) {
    474. 

  474. 			<span class="enscript-comment">/* No connect timeout, then no need to set mailserver_socket_temp */</span>
    475. 

  475. 			mailserver_socket_temp = -1;
    476. 

  476. 			<span class="enscript-keyword">break</span>; <span class="enscript-comment">/* success */</span>
    477. 

  477. 		}	
    478. 

  478. 	    fm_close(sock);	<span class="enscript-comment">/* don't use SockClose, no traffic yet */</span>
    479. 

  479. 	    memset(&amp;ad, 0, <span class="enscript-keyword">sizeof</span>(ad));
    480. 

  480. 	    ad.sin_family = AF_INET;
    481. 

  481. 	}
    482. 

  482. 	<span class="enscript-keyword">if</span>(*pptr == NULL)
    483. 

  483. 	{
    484. 

  484. 	    <span class="enscript-type">int</span> olderr = errno;
    485. 

  485. 	    fm_close(sock);	<span class="enscript-comment">/* don't use SockClose, no traffic yet */</span>
    486. 

  486. 	    h_errno = 0;
    487. 

  487. 	    errno = olderr;
    488. 

  488. 	    <span class="enscript-keyword">return</span> -1;
    489. 

  489. 	}
    490. 

  490.     }
    491. 

  491. 

  492.     <span class="enscript-keyword">return</span>(sock);
    493. 

  493. }
    494. 

  494. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* INET6_ENABLE */</span>
    495. 

  495. 

  496. 

  497. #<span class="enscript-reference">if</span> <span class="enscript-reference">defined</span>(<span class="enscript-variable-name">HAVE_STDARG_H</span>)
    498. 

  498. <span class="enscript-type">int</span> <span class="enscript-function-name">SockPrintf</span>(<span class="enscript-type">int</span> sock, <span class="enscript-type">const</span> <span class="enscript-type">char</span>* format, ...)
    499. 

  499. {
    500. 

  500. #<span class="enscript-reference">else</span>
    501. 

  501. <span class="enscript-type">int</span> <span class="enscript-function-name">SockPrintf</span>(sock,format,va_alist)
    502. 

  502. <span class="enscript-type">int</span> sock;
    503. 

  503. <span class="enscript-type">char</span> *format;
    504. 

  504. va_dcl {
    505. 

  505. #<span class="enscript-reference">endif</span>
    506. 

  506. 

  507.     va_list ap;
    508. 

  508.     <span class="enscript-type">char</span> buf[8192];
    509. 

  509. 

  510. #<span class="enscript-reference">if</span> <span class="enscript-reference">defined</span>(<span class="enscript-variable-name">HAVE_STDARG_H</span>)
    511. 

  511.     va_start(ap, format) ;
    512. 

  512. #<span class="enscript-reference">else</span>
    513. 

  513.     va_start(ap);
    514. 

  514. #<span class="enscript-reference">endif</span>
    515. 

  515. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_VSNPRINTF</span>
    516. 

  516.     vsnprintf(buf, <span class="enscript-keyword">sizeof</span>(buf), format, ap);
    517. 

  517. #<span class="enscript-reference">else</span>
    518. 

  518.     vsprintf(buf, format, ap);
    519. 

  519. #<span class="enscript-reference">endif</span>
    520. 

  520.     va_end(ap);
    521. 

  521.     <span class="enscript-keyword">return</span> SockWrite(sock, buf, strlen(buf));
    522. 

  522. 

  523. }
    524. 

  524. 

  525. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">SSL_ENABLE</span>
    526. 

  526. #<span class="enscript-reference">include</span> <span class="enscript-string">&quot;openssl/ssl.h&quot;</span>
    527. 

  527. #<span class="enscript-reference">include</span> <span class="enscript-string">&quot;openssl/err.h&quot;</span>
    528. 

  528. #<span class="enscript-reference">include</span> <span class="enscript-string">&quot;openssl/pem.h&quot;</span>
    529. 

  529. #<span class="enscript-reference">include</span> <span class="enscript-string">&quot;openssl/x509.h&quot;</span>
    530. 

  530. 

  531. <span class="enscript-type">static</span>	SSL_CTX *_ctx = NULL;
    532. 

  532. <span class="enscript-type">static</span>	SSL *_ssl_context[FD_SETSIZE];
    533. 

  533. 

  534. SSL	*SSLGetContext( <span class="enscript-type">int</span> );
    535. 

  535. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* SSL_ENABLE */</span>
    536. 

  536. 

  537. <span class="enscript-type">int</span> <span class="enscript-function-name">SockWrite</span>(<span class="enscript-type">int</span> sock, <span class="enscript-type">char</span> *buf, <span class="enscript-type">int</span> len)
    538. 

  538. {
    539. 

  539.     <span class="enscript-type">int</span> n, wrlen = 0;
    540. 

  540. #<span class="enscript-reference">ifdef</span>	<span class="enscript-variable-name">SSL_ENABLE</span>
    541. 

  541.     SSL *ssl;
    542. 

  542. #<span class="enscript-reference">endif</span>
    543. 

  543. 

  544.     <span class="enscript-keyword">while</span> (len)
    545. 

  545.     {
    546. 

  546. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">SSL_ENABLE</span>
    547. 

  547. 	<span class="enscript-keyword">if</span>( NULL != ( ssl = SSLGetContext( sock ) ) )
    548. 

  548. 		n = SSL_write(ssl, buf, len);
    549. 

  549. 	<span class="enscript-keyword">else</span>
    550. 

  550. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* SSL_ENABLE */</span>
    551. 

  551. 	    n = fm_write(sock, buf, len);
    552. 

  552.         <span class="enscript-keyword">if</span> (n &lt;= 0)
    553. 

  553.             <span class="enscript-keyword">return</span> -1;
    554. 

  554.         len -= n;
    555. 

  555. 	wrlen += n;
    556. 

  556. 	buf += n;
    557. 

  557.     }
    558. 

  558.     <span class="enscript-keyword">return</span> wrlen;
    559. 

  559. }
    560. 

  560. 

  561. <span class="enscript-type">int</span> <span class="enscript-function-name">SockRead</span>(<span class="enscript-type">int</span> sock, <span class="enscript-type">char</span> *buf, <span class="enscript-type">int</span> len)
    562. 

  562. {
    563. 

  563.     <span class="enscript-type">char</span> *newline, *bp = buf;
    564. 

  564.     <span class="enscript-type">int</span> n;
    565. 

  565. #<span class="enscript-reference">ifdef</span>	<span class="enscript-variable-name">SSL_ENABLE</span>
    566. 

  566.     SSL *ssl;
    567. 

  567. #<span class="enscript-reference">endif</span>
    568. 

  568. 

  569.     <span class="enscript-keyword">if</span> (--len &lt; 1)
    570. 

  570. 	<span class="enscript-keyword">return</span>(-1);
    571. 

  571. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">__BEOS__</span>
    572. 

  572.     <span class="enscript-keyword">if</span> (peeked != 0){
    573. 

  573.         (*bp) = peeked;
    574. 

  574.         bp++;
    575. 

  575.         len--;
    576. 

  576.         peeked = 0;
    577. 

  577.     }
    578. 

  578. #<span class="enscript-reference">endif</span>        
    579. 

  579.     <span class="enscript-keyword">do</span> {
    580. 

  580. 	<span class="enscript-comment">/* 
    581. 

  581. 	 * The reason for these gymnastics is that we want two things:
    582. 

  582. 	 * (1) to read \n-terminated lines,
    583. 

  583. 	 * (2) to return the true length of data read, even if the
    584. 

  584. 	 *     data coming in has embedded NULS.
    585. 

  585. 	 */</span>
    586. 

  586. #<span class="enscript-reference">ifdef</span>	<span class="enscript-variable-name">SSL_ENABLE</span>
    587. 

  587. 	<span class="enscript-keyword">if</span>( NULL != ( ssl = SSLGetContext( sock ) ) ) {
    588. 

  588. 		<span class="enscript-comment">/* Hack alert! */</span>
    589. 

  589. 		<span class="enscript-comment">/* OK...  SSL_peek works a little different from MSG_PEEK
    590. 

  590. 			Problem is that SSL_peek can return 0 if there
    591. 

  591. 			is no data currently available.  If, on the other
    592. 

  592. 			hand, we loose the socket, we also get a zero, but
    593. 

  593. 			the SSL_read then SEGFAULTS!  To deal with this,
    594. 

  594. 			we'll check the error code any time we get a return
    595. 

  595. 			of zero from SSL_peek.  If we have an error, we bail.
    596. 

  596. 			If we don't, we read one character in SSL_read and
    597. 

  597. 			loop.  This should continue to work even if they
    598. 

  598. 			later change the behavior of SSL_peek
    599. 

  599. 			to &quot;fix&quot; this problem...  :-(	*/</span>
    600. 

  600. 		<span class="enscript-keyword">if</span> ((n = SSL_peek(ssl, bp, len)) &lt; 0) {
    601. 

  601. 			(<span class="enscript-type">void</span>)SSL_get_error(ssl, n);
    602. 

  602. 			<span class="enscript-keyword">return</span>(-1);
    603. 

  603. 		}
    604. 

  604. 		<span class="enscript-keyword">if</span>( 0 == n ) {
    605. 

  605. 			<span class="enscript-comment">/* SSL_peek says no data...  Does he mean no data
    606. 

  606. 			or did the connection blow up?  If we got an error
    607. 

  607. 			then bail! */</span>
    608. 

  608. 			<span class="enscript-keyword">if</span>( 0 != ( n = SSL_get_error(ssl, n) ) ) {
    609. 

  609. 				<span class="enscript-keyword">return</span> -1;
    610. 

  610. 			}
    611. 

  611. 			<span class="enscript-comment">/* We didn't get an error so read at least one
    612. 

  612. 				character at this point and loop */</span>
    613. 

  613. 			n = 1;
    614. 

  614. 			<span class="enscript-comment">/* Make sure newline start out NULL!
    615. 

  615. 			 * We don't have a string to pass through
    616. 

  616. 			 * the strchr at this point yet */</span>
    617. 

  617. 			newline = NULL;
    618. 

  618. 		} <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span> ((newline = memchr(bp, <span class="enscript-string">'\n'</span>, n)) != NULL)
    619. 

  619. 			n = newline - bp + 1;
    620. 

  620. 		<span class="enscript-comment">/* Matthias Andree: SSL_read can return 0, in that case
    621. 

  621. 		 * we must cal SSL_get_error to figure if there was
    622. 

  622. 		 * an error or just a &quot;no data&quot; condition */</span>
    623. 

  623. 		<span class="enscript-keyword">if</span> ((n = SSL_read(ssl, bp, n)) &lt;= 0) {
    624. 

  624. 			<span class="enscript-keyword">if</span> ((n = SSL_get_error(ssl, n))) {
    625. 

  625. 				<span class="enscript-keyword">return</span>(-1);
    626. 

  626. 			}
    627. 

  627. 		}
    628. 

  628. 		<span class="enscript-comment">/* Check for case where our single character turned out to
    629. 

  629. 		 * be a newline...  (It wasn't going to get caught by
    630. 

  630. 		 * the strchr above if it came from the hack...  ). */</span>
    631. 

  631. 		<span class="enscript-keyword">if</span>( NULL == newline &amp;&amp; 1 == n &amp;&amp; <span class="enscript-string">'\n'</span> == *bp ) {
    632. 

  632. 			<span class="enscript-comment">/* Got our newline - this will break
    633. 

  633. 				out of the loop now */</span>
    634. 

  634. 			newline = bp;
    635. 

  635. 		}
    636. 

  636. 	}
    637. 

  637. 	<span class="enscript-keyword">else</span>
    638. 

  638. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* SSL_ENABLE */</span>
    639. 

  639. 	{
    640. 

  640. 

  641. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">__BEOS__</span>
    642. 

  642. 	    <span class="enscript-keyword">if</span> ((n = fm_read(sock, bp, 1)) &lt;= 0)
    643. 

  643. #<span class="enscript-reference">else</span>
    644. 

  644. 	    <span class="enscript-keyword">if</span> ((n = fm_peek(sock, bp, len)) &lt;= 0)
    645. 

  645. #<span class="enscript-reference">endif</span>
    646. 

  646. 		<span class="enscript-keyword">return</span> (-1);
    647. 

  647. 	    <span class="enscript-keyword">if</span> ((newline = memchr(bp, <span class="enscript-string">'\n'</span>, n)) != NULL)
    648. 

  648. 		n = newline - bp + 1;
    649. 

  649. #<span class="enscript-reference">ifndef</span> <span class="enscript-variable-name">__BEOS__</span>
    650. 

  650. 	    <span class="enscript-keyword">if</span> ((n = fm_read(sock, bp, n)) == -1)
    651. 

  651. 		<span class="enscript-keyword">return</span>(-1);
    652. 

  652. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* __BEOS__ */</span>
    653. 

  653. 	}
    654. 

  654. 	bp += n;
    655. 

  655. 	len -= n;
    656. 

  656.     } <span class="enscript-keyword">while</span> 
    657. 

  657. 	    (!newline &amp;&amp; len);
    658. 

  658.     *bp = <span class="enscript-string">'\0'</span>;
    659. 

  659.     <span class="enscript-keyword">return</span> bp - buf;
    660. 

  660. }
    661. 

  661. 

  662. <span class="enscript-type">int</span> <span class="enscript-function-name">SockPeek</span>(<span class="enscript-type">int</span> sock)
    663. 

  663. <span class="enscript-comment">/* peek at the next socket character without actually reading it */</span>
    664. 

  664. {
    665. 

  665.     <span class="enscript-type">int</span> n;
    666. 

  666.     <span class="enscript-type">char</span> ch;
    667. 

  667. #<span class="enscript-reference">ifdef</span>	<span class="enscript-variable-name">SSL_ENABLE</span>
    668. 

  668.     SSL *ssl;
    669. 

  669. #<span class="enscript-reference">endif</span>
    670. 

  670. 

  671. #<span class="enscript-reference">ifdef</span>	<span class="enscript-variable-name">SSL_ENABLE</span>
    672. 

  672. 	<span class="enscript-keyword">if</span>( NULL != ( ssl = SSLGetContext( sock ) ) ) {
    673. 

  673. 		n = SSL_peek(ssl, &amp;ch, 1);
    674. 

  674. 		<span class="enscript-keyword">if</span> (n &lt; 0) {
    675. 

  675. 			(<span class="enscript-type">void</span>)SSL_get_error(ssl, n);
    676. 

  676. 			<span class="enscript-keyword">return</span> -1;
    677. 

  677. 		}
    678. 

  678. 		<span class="enscript-keyword">if</span>( 0 == n ) {
    679. 

  679. 			<span class="enscript-comment">/* This code really needs to implement a &quot;hold back&quot;
    680. 

  680. 			 * to simulate a functioning SSL_peek()...  sigh...
    681. 

  681. 			 * Has to be coordinated with the read code above.
    682. 

  682. 			 * Next on the list todo...	*/</span>
    683. 

  683. 

  684. 			<span class="enscript-comment">/* SSL_peek says 0...  Does that mean no data
    685. 

  685. 			or did the connection blow up?  If we got an error
    686. 

  686. 			then bail! */</span>
    687. 

  687. 			<span class="enscript-keyword">if</span>( 0 != ( n = SSL_get_error(ssl, n) ) ) {
    688. 

  688. 				<span class="enscript-keyword">return</span> -1;
    689. 

  689. 			}
    690. 

  690. 

  691. 			<span class="enscript-comment">/* Haven't seen this case actually occur, but...
    692. 

  692. 			   if the problem in SockRead can occur, this should
    693. 

  693. 			   be possible...  Just not sure what to do here.
    694. 

  694. 			   This should be a safe &quot;punt&quot; the &quot;peek&quot; but don't
    695. 

  695. 			   &quot;punt&quot; the &quot;session&quot;... */</span>
    696. 

  696. 

  697. 			<span class="enscript-keyword">return</span> 0;	<span class="enscript-comment">/* Give him a '\0' character */</span>
    698. 

  698. 		}
    699. 

  699. 	}
    700. 

  700. 	<span class="enscript-keyword">else</span>
    701. 

  701. #<span class="enscript-reference">endif</span> <span class="enscript-comment">/* SSL_ENABLE */</span>
    702. 

  702. 	    n = fm_peek(sock, &amp;ch, 1);
    703. 

  703. 	<span class="enscript-keyword">if</span> (n == -1)
    704. 

  704. 		<span class="enscript-keyword">return</span> -1;
    705. 

  705. 

  706. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">__BEOS__</span>
    707. 

  707.     peeked = ch;
    708. 

  708. #<span class="enscript-reference">endif</span>
    709. 

  709.     <span class="enscript-keyword">return</span>(ch);
    710. 

  710. }
    711. 

  711. 

  712. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">SSL_ENABLE</span>
    713. 

  713. 

  714. <span class="enscript-type">static</span>	<span class="enscript-type">char</span> *_ssl_server_cname = NULL;
    715. 

  715. <span class="enscript-type">static</span>	<span class="enscript-type">int</span> _check_fp;
    716. 

  716. <span class="enscript-type">static</span>	<span class="enscript-type">char</span> *_check_digest;
    717. 

  717. <span class="enscript-type">static</span> 	<span class="enscript-type">char</span> *_server_label;
    718. 

  718. <span class="enscript-type">static</span>	<span class="enscript-type">int</span> _depth0ck;
    719. 

  719. 

  720. SSL *<span class="enscript-function-name">SSLGetContext</span>( <span class="enscript-type">int</span> sock )
    721. 

  721. {
    722. 

  722. 	<span class="enscript-comment">/* If SSLOpen has never initialized - just return NULL */</span>
    723. 

  723. 	<span class="enscript-keyword">if</span>( NULL == _ctx )
    724. 

  724. 		<span class="enscript-keyword">return</span> NULL;
    725. 

  725. 

  726. 	<span class="enscript-keyword">if</span>( sock &lt; 0 || sock &gt; FD_SETSIZE )
    727. 

  727. 		<span class="enscript-keyword">return</span> NULL;
    728. 

  728. 	<span class="enscript-keyword">return</span> _ssl_context[sock];
    729. 

  729. }
    730. 

  730. 

  731. 

  732. <span class="enscript-type">int</span> <span class="enscript-function-name">SSL_verify_callback</span>( <span class="enscript-type">int</span> ok_return, X509_STORE_CTX *ctx, <span class="enscript-type">int</span> strict )
    733. 

  733. {
    734. 

  734. 	<span class="enscript-type">char</span> buf[257];
    735. 

  735. 	X509 *x509_cert;
    736. 

  736. 	<span class="enscript-type">int</span> err, depth;
    737. 

  737. 	<span class="enscript-type">unsigned</span> <span class="enscript-type">char</span> digest[EVP_MAX_MD_SIZE];
    738. 

  738. 	<span class="enscript-type">char</span> text[EVP_MAX_MD_SIZE * 3 + 1], *tp, *te;
    739. 

  739. 	EVP_MD *digest_tp;
    740. 

  740. 	<span class="enscript-type">unsigned</span> <span class="enscript-type">int</span> dsz, i, esz;
    741. 

  741. 	X509_NAME *subj, *issuer;
    742. 

  742. 

  743. 	x509_cert = X509_STORE_CTX_get_current_cert(ctx);
    744. 

  744. 	err = X509_STORE_CTX_get_error(ctx);
    745. 

  745. 	depth = X509_STORE_CTX_get_error_depth(ctx);
    746. 

  746. 

  747. 	subj = X509_get_subject_name(x509_cert);
    748. 

  748. 	issuer = X509_get_issuer_name(x509_cert);
    749. 

  749. 

  750. 	<span class="enscript-keyword">if</span> (depth == 0) {
    751. 

  751. 		_depth0ck = 1;
    752. 

  752. 		
    753. 

  753. 		<span class="enscript-keyword">if</span> (outlevel == O_VERBOSE) {
    754. 

  754. 			<span class="enscript-keyword">if</span> ((i = X509_NAME_get_text_by_NID(issuer, NID_organizationName, buf, <span class="enscript-keyword">sizeof</span>(buf))) != -1) {
    755. 

  755. 				report(stdout, GT_(<span class="enscript-string">&quot;Issuer Organization: %s\n&quot;</span>), buf);
    756. 

  756. 				<span class="enscript-keyword">if</span> (i &gt;= <span class="enscript-keyword">sizeof</span>(buf) - 1)
    757. 

  757. 					report(stdout, GT_(<span class="enscript-string">&quot;Warning: Issuer Organization Name too long (possibly truncated).\n&quot;</span>));
    758. 

  758. 			} <span class="enscript-keyword">else</span>
    759. 

  759. 				report(stdout, GT_(<span class="enscript-string">&quot;Unknown Organization\n&quot;</span>));
    760. 

  760. 			<span class="enscript-keyword">if</span> ((i = X509_NAME_get_text_by_NID(issuer, NID_commonName, buf, <span class="enscript-keyword">sizeof</span>(buf))) != -1) {
    761. 

  761. 				report(stdout, GT_(<span class="enscript-string">&quot;Issuer CommonName: %s\n&quot;</span>), buf);
    762. 

  762. 				<span class="enscript-keyword">if</span> (i &gt;= <span class="enscript-keyword">sizeof</span>(buf) - 1)
    763. 

  763. 					report(stdout, GT_(<span class="enscript-string">&quot;Warning: Issuer CommonName too long (possibly truncated).\n&quot;</span>));
    764. 

  764. 			} <span class="enscript-keyword">else</span>
    765. 

  765. 				report(stdout, GT_(<span class="enscript-string">&quot;Unknown Issuer CommonName\n&quot;</span>));
    766. 

  766. 		}
    767. 

  767. 		<span class="enscript-keyword">if</span> ((i = X509_NAME_get_text_by_NID(subj, NID_commonName, buf, <span class="enscript-keyword">sizeof</span>(buf))) != -1) {
    768. 

  768. 			<span class="enscript-keyword">if</span> (outlevel == O_VERBOSE)
    769. 

  769. 				report(stdout, GT_(<span class="enscript-string">&quot;Server CommonName: %s\n&quot;</span>), buf);
    770. 

  770. 			<span class="enscript-keyword">if</span> (i &gt;= <span class="enscript-keyword">sizeof</span>(buf) - 1) {
    771. 

  771. 				<span class="enscript-comment">/* Possible truncation. In this case, this is a DNS name, so this
    772. 

  772. 				 * is really bad. We do not tolerate this even in the non-strict case. */</span>
    773. 

  773. 				report(stderr, GT_(<span class="enscript-string">&quot;Bad certificate: Subject CommonName too long!\n&quot;</span>));
    774. 

  774. 				<span class="enscript-keyword">return</span> (0);
    775. 

  775. 			}
    776. 

  776. 			<span class="enscript-keyword">if</span> (_ssl_server_cname != NULL) {
    777. 

  777. 				<span class="enscript-type">char</span> *p1 = buf;
    778. 

  778. 				<span class="enscript-type">char</span> *p2 = _ssl_server_cname;
    779. 

  779. 				<span class="enscript-type">int</span> n;
    780. 

  780. 				
    781. 

  781. 				<span class="enscript-keyword">if</span> (*p1 == <span class="enscript-string">'*'</span>) {
    782. 

  782. 					++p1;
    783. 

  783. 					n = strlen(p2) - strlen(p1);
    784. 

  784. 					<span class="enscript-keyword">if</span> (n &gt;= 0)
    785. 

  785. 						p2 += n;
    786. 

  786. 				}	
    787. 

  787. 				<span class="enscript-keyword">if</span> (0 != strcasecmp(p1, p2)) {
    788. 

  788. 					report(stderr,
    789. 

  789. 					    GT_(<span class="enscript-string">&quot;Server CommonName mismatch: %s != %s\n&quot;</span>),
    790. 

  790. 					    buf, _ssl_server_cname );
    791. 

  791. 					<span class="enscript-keyword">if</span> (ok_return &amp;&amp; strict)
    792. 

  792. 						<span class="enscript-keyword">return</span> (0);
    793. 

  793. 				}
    794. 

  794. 			} <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span> (ok_return &amp;&amp; strict) {
    795. 

  795. 				report(stderr, GT_(<span class="enscript-string">&quot;Server name not set, could not verify certificate!\n&quot;</span>));
    796. 

  796. 				<span class="enscript-keyword">return</span> (0);
    797. 

  797. 			}
    798. 

  798. 		} <span class="enscript-keyword">else</span> {
    799. 

  799. 			<span class="enscript-keyword">if</span> (outlevel == O_VERBOSE)
    800. 

  800. 				report(stdout, GT_(<span class="enscript-string">&quot;Unknown Server CommonName\n&quot;</span>));
    801. 

  801. 			<span class="enscript-keyword">if</span> (ok_return &amp;&amp; strict) {
    802. 

  802. 				report(stderr, GT_(<span class="enscript-string">&quot;Server name not specified in certificate!\n&quot;</span>));
    803. 

  803. 				<span class="enscript-keyword">return</span> (0);
    804. 

  804. 			}
    805. 

  805. 		}
    806. 

  806. 		<span class="enscript-comment">/* Print the finger print. Note that on errors, we might print it more than once
    807. 

  807. 		 * normally; we kluge around that by using a global variable. */</span>
    808. 

  808. 		<span class="enscript-keyword">if</span> (_check_fp) {
    809. 

  809. 			_check_fp = 0;
    810. 

  810. 			digest_tp = EVP_md5();
    811. 

  811. 			<span class="enscript-keyword">if</span> (digest_tp == NULL) {
    812. 

  812. 				report(stderr, GT_(<span class="enscript-string">&quot;EVP_md5() failed!\n&quot;</span>));
    813. 

  813. 				<span class="enscript-keyword">return</span> (0);
    814. 

  814. 			}
    815. 

  815. 			<span class="enscript-keyword">if</span> (!X509_digest(x509_cert, digest_tp, digest, &amp;dsz)) {
    816. 

  816. 				report(stderr, GT_(<span class="enscript-string">&quot;Out of memory!\n&quot;</span>));
    817. 

  817. 				<span class="enscript-keyword">return</span> (0);
    818. 

  818. 			}
    819. 

  819. 			tp = text;
    820. 

  820. 			te = text + <span class="enscript-keyword">sizeof</span>(text);
    821. 

  821. 			<span class="enscript-keyword">for</span> (i = 0; i &lt; dsz; i++) {
    822. 

  822. #<span class="enscript-reference">ifdef</span> <span class="enscript-variable-name">HAVE_SNPRINTF</span>
    823. 

  823. 				esz = snprintf(tp, te - tp, i &gt; 0 ? <span class="enscript-string">&quot;:%02X&quot;</span> : <span class="enscript-string">&quot;%02X&quot;</span>, digest[i]);
    824. 

  824. #<span class="enscript-reference">else</span>
    825. 

  825. 				esz = sprintf(tp, i &gt; 0 ? <span class="enscript-string">&quot;:%02X&quot;</span> : <span class="enscript-string">&quot;%02X&quot;</span>, digest[i]);
    826. 

  826. #<span class="enscript-reference">endif</span>
    827. 

  827. 				<span class="enscript-keyword">if</span> (esz &gt;= te - tp) {
    828. 

  828. 					report(stderr, GT_(<span class="enscript-string">&quot;Digest text buffer too small!\n&quot;</span>));
    829. 

  829. 					<span class="enscript-keyword">return</span> (0);
    830. 

  830. 				}
    831. 

  831. 				tp += esz;
    832. 

  832. 			}
    833. 

  833. 			<span class="enscript-keyword">if</span> (outlevel &gt; O_NORMAL)
    834. 

  834. 			    report(stdout, GT_(<span class="enscript-string">&quot;%s key fingerprint: %s\n&quot;</span>), _server_label, text);
    835. 

  835. 			<span class="enscript-keyword">if</span> (_check_digest != NULL) {
    836. 

  836. 				<span class="enscript-keyword">if</span> (strcmp(text, _check_digest) == 0) {
    837. 

  837. 				    <span class="enscript-keyword">if</span> (outlevel &gt; O_NORMAL)
    838. 

  838. 					report(stdout, GT_(<span class="enscript-string">&quot;%s fingerprints match.\n&quot;</span>), _server_label);
    839. 

  839. 				} <span class="enscript-keyword">else</span> {
    840. 

  840. 				    <span class="enscript-keyword">if</span> (outlevel &gt; O_SILENT)
    841. 

  841. 					report(stderr, GT_(<span class="enscript-string">&quot;%s fingerprints do not match!\n&quot;</span>), _server_label);
    842. 

  842. 				    <span class="enscript-keyword">return</span> (0);
    843. 

  843. 				}
    844. 

  844. 			}
    845. 

  845. 		}
    846. 

  846. 	}
    847. 

  847. 

  848. 	<span class="enscript-keyword">if</span> (err != X509_V_OK &amp;&amp; (strict || outlevel == O_VERBOSE)) {
    849. 

  849. 		report(strict ? stderr : stdout, GT_(<span class="enscript-string">&quot;Warning: server certificate verification: %s\n&quot;</span>), X509_verify_cert_error_string(err));
    850. 

  850. 		<span class="enscript-comment">/* We gave the error code, but maybe we can add some more details for debugging */</span>
    851. 

  851. 		<span class="enscript-keyword">switch</span> (err) {
    852. 

  852. 		<span class="enscript-keyword">case</span> <span class="en…
    853.

Large files files are truncated, but you can click here to view the full file