http: Revamp TLS API.
[gnupg.git] / common / t-http.c
1 /* t-http.c
2  * Copyright (C) 1999, 2001, 2002, 2003, 2004, 2006, 2009, 2010,
3  *               2011 Free Software Foundation, Inc.
4  * Copyright (C) 2014 Werner Koch
5  *
6  * This file is part of GnuPG.
7  *
8  * This file is free software; you can redistribute it and/or modify
9  * it under the terms of either
10  *
11  *   - the GNU Lesser General Public License as published by the Free
12  *     Software Foundation; either version 3 of the License, or (at
13  *     your option) any later version.
14  *
15  * or
16  *
17  *   - the GNU General Public License as published by the Free
18  *     Software Foundation; either version 2 of the License, or (at
19  *     your option) any later version.
20  *
21  * or both in parallel, as here.
22  *
23  * This file is distributed in the hope that it will be useful,
24  * but WITHOUT ANY WARRANTY; without even the implied warranty of
25  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
26  * GNU General Public License for more details.
27  *
28  * You should have received a copy of the GNU General Public License
29  * along with this program; if not, see <http://www.gnu.org/licenses/>.
30  */
31
32 #include <config.h>
33 #include <stdlib.h>
34 #include <stdio.h>
35 #include <string.h>
36 #include <sys/types.h>
37 #include <sys/stat.h>
38 #include <unistd.h>
39
40 #include "util.h"
41 #include "logging.h"
42 #include "http.h"
43
44
45 #ifdef HTTP_USE_GNUTLS
46 # include <gnutls/gnutls.h>  /* For init, logging, and deinit.  */
47 #endif /*HTTP_USE_GNUTLS*/
48
49
50
51 /* static void */
52 /* read_dh_params (const char *fname) */
53 /* { */
54 /*   gpg_error_t err; */
55 /*   int rc; */
56 /*   FILE *fp; */
57 /*   struct stat st; */
58 /*   char *buf; */
59 /*   size_t buflen; */
60 /*   gnutls_datum_t datum; */
61
62 /*   fp = fopen (fname, "rb"); */
63 /*   if (!fp) */
64 /*     { */
65 /*       err = gpg_error_from_syserror (); */
66 /*       log_fatal ("can't open '%s': %s\n", fname, gpg_strerror (err)); */
67 /*     } */
68
69 /*   if (fstat (fileno(fp), &st)) */
70 /*     { */
71 /*       err = gpg_error_from_syserror (); */
72 /*       log_fatal ("can't stat '%s': %s\n", fname, gpg_strerror (err)); */
73 /*     } */
74
75 /*   buflen = st.st_size; */
76 /*   buf = xmalloc (buflen+1); */
77 /*   if (fread (buf, buflen, 1, fp) != 1) */
78 /*     { */
79 /*       err = gpg_error_from_syserror (); */
80 /*       log_fatal ("error reading '%s': %s\n", fname, gpg_strerror (err)); */
81 /*     } */
82 /*   fclose (fp); */
83
84 /*   datum.size = buflen; */
85 /*   datum.data = buf; */
86
87 /*   rc = gnutls_dh_params_import_pkcs3 (dh_params, &datum, GNUTLS_X509_FMT_PEM); */
88 /*   if (rc < 0) */
89 /*     log_fatal ("gnutls_dh_param_import failed: %s\n", gnutls_strerror (rc)); */
90
91 /*   xfree (buf); */
92 /* } */
93
94
95
96 static gpg_error_t
97 verify_callback (http_t hd, http_session_t session, int reserved)
98 {
99   (void)hd;
100   (void)reserved;
101   return http_verify_server_credentials (session);
102 }
103
104
105 static void
106 my_gnutls_log (int level, const char *text)
107 {
108   fprintf (stderr, "gnutls:L%d: %s", level, text);
109 }
110
111
112 /* Prepend FNAME with the srcdir environment variable's value and
113    return an allocated filename. */
114 static char *
115 prepend_srcdir (const char *fname)
116 {
117   static const char *srcdir;
118   char *result;
119
120   if (!srcdir && !(srcdir = getenv ("srcdir")))
121     srcdir = ".";
122
123   result = xmalloc (strlen (srcdir) + 1 + strlen (fname) + 1);
124   strcpy (result, srcdir);
125   strcat (result, "/");
126   strcat (result, fname);
127   return result;
128 }
129
130
131 int
132 main (int argc, char **argv)
133 {
134   gpg_error_t err;
135   int rc;
136   parsed_uri_t uri;
137   uri_tuple_t r;
138   http_t hd;
139   int c;
140   http_session_t session = NULL;
141
142   es_init ();
143   log_set_prefix ("t-http", 1 | 4);
144   if (argc != 2)
145     {
146       fprintf (stderr, "usage: t-http uri\n");
147       return 1;
148     }
149   argc--;
150   argv++;
151
152 #ifdef HTTP_USE_GNUTLS
153   rc = gnutls_global_init ();
154   if (rc)
155     log_error ("gnutls_global_init failed: %s\n", gnutls_strerror (rc));
156
157   http_register_tls_callback (verify_callback);
158   http_register_tls_ca (prepend_srcdir ("tls-ca.pem"));
159
160   err = http_session_new (&session, NULL);
161   if (err)
162     log_error ("http_session_new failed: %s\n", gpg_strerror (err));
163
164   /* rc = gnutls_dh_params_init(&dh_params); */
165   /* if (rc) */
166   /*   log_error ("gnutls_dh_params_init failed: %s\n", gnutls_strerror (rc)); */
167   /* read_dh_params ("dh_param.pem"); */
168
169   /* rc = gnutls_certificate_set_x509_trust_file */
170   /*   (certcred, "ca.pem", GNUTLS_X509_FMT_PEM); */
171   /* if (rc) */
172   /*   log_error ("gnutls_certificate_set_x509_trust_file failed: %s\n", */
173   /*              gnutls_strerror (rc)); */
174
175   /* gnutls_certificate_set_dh_params (certcred, dh_params); */
176
177   gnutls_global_set_log_function (my_gnutls_log);
178   /* gnutls_global_set_log_level (2); */
179
180 #endif /*HTTP_USE_GNUTLS*/
181
182   rc = http_parse_uri (&uri, *argv, 1);
183   if (rc)
184     {
185       log_error ("'%s': %s\n", *argv, gpg_strerror (rc));
186       return 1;
187     }
188
189   printf ("Scheme: %s\n", uri->scheme);
190   if (uri->opaque)
191     printf ("Value : %s\n", uri->path);
192   else
193     {
194       printf ("Auth  : %s\n", uri->auth? uri->auth:"[none]");
195       printf ("Host  : %s\n", uri->host);
196       printf ("Port  : %u\n", uri->port);
197       printf ("Path  : %s\n", uri->path);
198       for (r = uri->params; r; r = r->next)
199         {
200           printf ("Params: %s", r->name);
201           if (!r->no_value)
202             {
203               printf ("=%s", r->value);
204               if (strlen (r->value) != r->valuelen)
205                 printf (" [real length=%d]", (int) r->valuelen);
206             }
207           putchar ('\n');
208         }
209       for (r = uri->query; r; r = r->next)
210         {
211           printf ("Query : %s", r->name);
212           if (!r->no_value)
213             {
214               printf ("=%s", r->value);
215               if (strlen (r->value) != r->valuelen)
216                 printf (" [real length=%d]", (int) r->valuelen);
217             }
218           putchar ('\n');
219         }
220     }
221   http_release_parsed_uri (uri);
222   uri = NULL;
223
224   rc = http_open_document (&hd, *argv, NULL, 0, NULL, session, NULL, NULL);
225   if (rc)
226     {
227       log_error ("can't get '%s': %s\n", *argv, gpg_strerror (rc));
228       return 1;
229     }
230   log_info ("open_http_document succeeded; status=%u\n",
231             http_get_status_code (hd));
232
233   {
234     const char **names;
235     int i;
236
237     names = http_get_header_names (hd);
238     if (!names)
239       log_fatal ("http_get_header_names failed: %s\n",
240                  gpg_strerror (gpg_error_from_syserror ()));
241     for (i = 0; names[i]; i++)
242       printf ("HDR: %s: %s\n", names[i], http_get_header (hd, names[i]));
243     xfree (names);
244   }
245
246   switch (http_get_status_code (hd))
247     {
248     case 200:
249     case 400:
250     case 401:
251     case 403:
252     case 404:
253       while ((c = es_getc (http_get_read_ptr (hd))) != EOF)
254         putchar (c);
255       break;
256     case 301:
257     case 302:
258       printf ("Redirected to '%s'\n", http_get_header (hd, "Location"));
259       break;
260     }
261   http_close (hd, 0);
262
263   http_session_release (session);
264 #ifdef HTTP_USE_GNUTLS
265   gnutls_global_deinit ();
266 #endif /*HTTP_USE_GNUTLS*/
267
268   return 0;
269 }