Support key fetching using HTTP.
[gnupg.git] / dirmngr / ks-engine-http.c
1 /* ks-engine-http.c - HTTP OpenPGP key access
2  * Copyright (C) 2011 Free Software Foundation, Inc.
3  *
4  * This file is part of GnuPG.
5  *
6  * GnuPG is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 3 of the License, or
9  * (at your option) any later version.
10  *
11  * GnuPG is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, see <http://www.gnu.org/licenses/>.
18  */
19
20 #include <config.h>
21
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25 #include <assert.h>
26
27 #include "dirmngr.h"
28 #include "misc.h"
29 #include "ks-engine.h"
30
31 /* How many redirections do we allow.  */
32 #define MAX_REDIRECTS 2
33
34
35 /* Get the key from URL which is expected to specify a http style
36    scheme.  On success R_FP has an open stream to read the data.  */
37 gpg_error_t
38 ks_http_fetch (ctrl_t ctrl, const char *url, estream_t *r_fp)
39 {
40   gpg_error_t err;
41   http_t http = NULL;
42   int redirects_left = MAX_REDIRECTS;
43   estream_t fp = NULL;
44   char *request_buffer = NULL;
45
46   *r_fp = NULL;
47  once_more:
48   err = http_open (&http,
49                    HTTP_REQ_GET,
50                    url,
51                    /* fixme: AUTH */ NULL,
52                    0,
53                    /* fixme: proxy*/ NULL,
54                    NULL, NULL,
55                    /*FIXME curl->srvtag*/NULL);
56   if (!err)
57     {
58       fp = http_get_write_ptr (http);
59       /* Avoid caches to get the most recent copy of the key.  We set
60          both the Pragma and Cache-Control versions of the header, so
61          we're good with both HTTP 1.0 and 1.1.  */
62       es_fputs ("Pragma: no-cache\r\n"
63                 "Cache-Control: no-cache\r\n", fp);
64       http_start_data (http);
65       if (es_ferror (fp))
66         err = gpg_error_from_syserror ();
67     }
68   if (err)
69     {
70       /* Fixme: After a redirection we show the old host name.  */
71       log_error (_("error connecting to `%s': %s\n"),
72                  url, gpg_strerror (err));
73       goto leave;
74     }
75
76   /* Wait for the response.  */
77   dirmngr_tick (ctrl);
78   err = http_wait_response (http);
79   if (err)
80     {
81       log_error (_("error reading HTTP response for `%s': %s\n"),
82                  url, gpg_strerror (err));
83       goto leave;
84     }
85
86   switch (http_get_status_code (http))
87     {
88     case 200:
89       err = 0;
90       break; /* Success.  */
91
92     case 301:
93     case 302:
94       {
95         const char *s = http_get_header (http, "Location");
96
97         log_info (_("URL `%s' redirected to `%s' (%u)\n"),
98                   url, s?s:"[none]", http_get_status_code (http));
99         if (s && *s && redirects_left-- )
100           {
101             xfree (request_buffer);
102             request_buffer = xtrystrdup (s);
103             if (request_buffer)
104               {
105                 url = request_buffer;
106                 http_close (http, 0);
107                 http = NULL;
108                 goto once_more;
109               }
110             err = gpg_error_from_syserror ();
111           }
112         else
113           err = gpg_error (GPG_ERR_NO_DATA);
114         log_error (_("too many redirections\n"));
115       }
116       goto leave;
117
118     default:
119       log_error (_("error accessing `%s': http status %u\n"),
120                  url, http_get_status_code (http));
121       err = gpg_error (GPG_ERR_NO_DATA);
122       goto leave;
123     }
124
125   fp = http_get_read_ptr (http);
126   if (!fp)
127     {
128       err = gpg_error (GPG_ERR_BUG);
129       goto leave;
130     }
131
132   /* Return the read stream and close the HTTP context.  */
133   *r_fp = fp;
134   http_close (http, 1);
135   http = NULL;
136
137  leave:
138   http_close (http, 0);
139   xfree (request_buffer);
140   return err;
141 }