matroskaenc: Fix writing TRACKDEFAULTFLAG
[ffmpeg.git] / libavformat / network.c
1 /*
2  * Copyright (c) 2007 The Libav Project
3  *
4  * This file is part of Libav.
5  *
6  * Libav is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * Libav 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 GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with Libav; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
19  */
20
21 #include <fcntl.h>
22 #include "network.h"
23 #include "url.h"
24 #include "libavcodec/internal.h"
25 #include "libavutil/mem.h"
26
27 #if HAVE_THREADS
28 #if HAVE_PTHREADS
29 #include <pthread.h>
30 #else
31 #include "compat/w32pthreads.h"
32 #endif
33 #endif
34
35 #if CONFIG_OPENSSL
36 #include <openssl/ssl.h>
37 static int openssl_init;
38 #if HAVE_THREADS
39 #include <openssl/crypto.h>
40 #include "libavutil/avutil.h"
41 pthread_mutex_t *openssl_mutexes;
42 static void openssl_lock(int mode, int type, const char *file, int line)
43 {
44     if (mode & CRYPTO_LOCK)
45         pthread_mutex_lock(&openssl_mutexes[type]);
46     else
47         pthread_mutex_unlock(&openssl_mutexes[type]);
48 }
49 #if !defined(WIN32) && OPENSSL_VERSION_NUMBER < 0x10000000
50 static unsigned long openssl_thread_id(void)
51 {
52     return (intptr_t) pthread_self();
53 }
54 #endif
55 #endif
56 #endif
57 #if CONFIG_GNUTLS
58 #include <gnutls/gnutls.h>
59 #if HAVE_THREADS && GNUTLS_VERSION_NUMBER <= 0x020b00
60 #include <gcrypt.h>
61 #include <errno.h>
62 GCRY_THREAD_OPTION_PTHREAD_IMPL;
63 #endif
64 #endif
65
66 void ff_tls_init(void)
67 {
68     avpriv_lock_avformat();
69 #if CONFIG_OPENSSL
70     if (!openssl_init) {
71         SSL_library_init();
72         SSL_load_error_strings();
73 #if HAVE_THREADS
74         if (!CRYPTO_get_locking_callback()) {
75             int i;
76             openssl_mutexes = av_malloc(sizeof(pthread_mutex_t) * CRYPTO_num_locks());
77             for (i = 0; i < CRYPTO_num_locks(); i++)
78                 pthread_mutex_init(&openssl_mutexes[i], NULL);
79             CRYPTO_set_locking_callback(openssl_lock);
80 #if !defined(WIN32) && OPENSSL_VERSION_NUMBER < 0x10000000
81             CRYPTO_set_id_callback(openssl_thread_id);
82 #endif
83         }
84 #endif
85     }
86     openssl_init++;
87 #endif
88 #if CONFIG_GNUTLS
89 #if HAVE_THREADS && GNUTLS_VERSION_NUMBER < 0x020b00
90     if (gcry_control(GCRYCTL_ANY_INITIALIZATION_P) == 0)
91         gcry_control(GCRYCTL_SET_THREAD_CBS, &gcry_threads_pthread);
92 #endif
93     gnutls_global_init();
94 #endif
95     avpriv_unlock_avformat();
96 }
97
98 void ff_tls_deinit(void)
99 {
100     avpriv_lock_avformat();
101 #if CONFIG_OPENSSL
102     openssl_init--;
103     if (!openssl_init) {
104 #if HAVE_THREADS
105         if (CRYPTO_get_locking_callback() == openssl_lock) {
106             int i;
107             CRYPTO_set_locking_callback(NULL);
108             for (i = 0; i < CRYPTO_num_locks(); i++)
109                 pthread_mutex_destroy(&openssl_mutexes[i]);
110             av_free(openssl_mutexes);
111         }
112 #endif
113     }
114 #endif
115 #if CONFIG_GNUTLS
116     gnutls_global_deinit();
117 #endif
118     avpriv_unlock_avformat();
119 }
120
121 int ff_network_inited_globally;
122
123 int ff_network_init(void)
124 {
125 #if HAVE_WINSOCK2_H
126     WSADATA wsaData;
127 #endif
128
129     if (!ff_network_inited_globally)
130         av_log(NULL, AV_LOG_WARNING, "Using network protocols without global "
131                                      "network initialization. Please use "
132                                      "avformat_network_init(), this will "
133                                      "become mandatory later.\n");
134 #if HAVE_WINSOCK2_H
135     if (WSAStartup(MAKEWORD(1,1), &wsaData))
136         return 0;
137 #endif
138     return 1;
139 }
140
141 int ff_network_wait_fd(int fd, int write)
142 {
143     int ev = write ? POLLOUT : POLLIN;
144     struct pollfd p = { .fd = fd, .events = ev, .revents = 0 };
145     int ret;
146     ret = poll(&p, 1, 100);
147     return ret < 0 ? ff_neterrno() : p.revents & (ev | POLLERR | POLLHUP) ? 0 : AVERROR(EAGAIN);
148 }
149
150 void ff_network_close(void)
151 {
152 #if HAVE_WINSOCK2_H
153     WSACleanup();
154 #endif
155 }
156
157 #if HAVE_WINSOCK2_H
158 int ff_neterrno(void)
159 {
160     int err = WSAGetLastError();
161     switch (err) {
162     case WSAEWOULDBLOCK:
163         return AVERROR(EAGAIN);
164     case WSAEINTR:
165         return AVERROR(EINTR);
166     case WSAEPROTONOSUPPORT:
167         return AVERROR(EPROTONOSUPPORT);
168     case WSAETIMEDOUT:
169         return AVERROR(ETIMEDOUT);
170     case WSAECONNREFUSED:
171         return AVERROR(ECONNREFUSED);
172     case WSAEINPROGRESS:
173         return AVERROR(EINPROGRESS);
174     }
175     return -err;
176 }
177 #endif
178
179 int ff_is_multicast_address(struct sockaddr *addr)
180 {
181     if (addr->sa_family == AF_INET) {
182         return IN_MULTICAST(ntohl(((struct sockaddr_in *)addr)->sin_addr.s_addr));
183     }
184 #if HAVE_STRUCT_SOCKADDR_IN6
185     if (addr->sa_family == AF_INET6) {
186         return IN6_IS_ADDR_MULTICAST(&((struct sockaddr_in6 *)addr)->sin6_addr);
187     }
188 #endif
189
190     return 0;
191 }
192
193 static int ff_poll_interrupt(struct pollfd *p, nfds_t nfds, int timeout,
194                              AVIOInterruptCB *cb)
195 {
196     int runs = timeout / POLLING_TIME;
197     int ret = 0;
198
199     do {
200         if (ff_check_interrupt(cb))
201             return AVERROR_EXIT;
202         ret = poll(p, nfds, POLLING_TIME);
203         if (ret != 0)
204             break;
205     } while (timeout < 0 || runs-- > 0);
206
207     if (!ret)
208         return AVERROR(ETIMEDOUT);
209     if (ret < 0)
210         return AVERROR(errno);
211     return ret;
212 }
213
214 int ff_socket(int af, int type, int proto)
215 {
216     int fd;
217
218 #ifdef SOCK_CLOEXEC
219     fd = socket(af, type | SOCK_CLOEXEC, proto);
220     if (fd == -1 && errno == EINVAL)
221 #endif
222     {
223         fd = socket(af, type, proto);
224 #if HAVE_FCNTL
225         if (fd != -1)
226             fcntl(fd, F_SETFD, FD_CLOEXEC);
227 #endif
228     }
229     return fd;
230 }
231
232 int ff_listen_bind(int fd, const struct sockaddr *addr,
233                    socklen_t addrlen, int timeout, URLContext *h)
234 {
235     int ret;
236     int reuse = 1;
237     struct pollfd lp = { fd, POLLIN, 0 };
238     setsockopt(fd, SOL_SOCKET, SO_REUSEADDR, &reuse, sizeof(reuse));
239     ret = bind(fd, addr, addrlen);
240     if (ret)
241         return ff_neterrno();
242
243     ret = listen(fd, 1);
244     if (ret)
245         return ff_neterrno();
246
247     ret = ff_poll_interrupt(&lp, 1, timeout, &h->interrupt_callback);
248     if (ret < 0)
249         return ret;
250
251     ret = accept(fd, NULL, NULL);
252     if (ret < 0)
253         return ff_neterrno();
254
255     closesocket(fd);
256
257     ff_socket_nonblock(ret, 1);
258     return ret;
259 }
260
261 int ff_listen_connect(int fd, const struct sockaddr *addr,
262                       socklen_t addrlen, int timeout, URLContext *h,
263                       int will_try_next)
264 {
265     struct pollfd p = {fd, POLLOUT, 0};
266     int ret;
267     socklen_t optlen;
268
269     ff_socket_nonblock(fd, 1);
270
271     while ((ret = connect(fd, addr, addrlen))) {
272         ret = ff_neterrno();
273         switch (ret) {
274         case AVERROR(EINTR):
275             if (ff_check_interrupt(&h->interrupt_callback))
276                 return AVERROR_EXIT;
277             continue;
278         case AVERROR(EINPROGRESS):
279         case AVERROR(EAGAIN):
280             ret = ff_poll_interrupt(&p, 1, timeout, &h->interrupt_callback);
281             if (ret < 0)
282                 return ret;
283             optlen = sizeof(ret);
284             if (getsockopt (fd, SOL_SOCKET, SO_ERROR, &ret, &optlen))
285                 ret = AVUNERROR(ff_neterrno());
286             if (ret != 0) {
287                 char errbuf[100];
288                 ret = AVERROR(ret);
289                 av_strerror(ret, errbuf, sizeof(errbuf));
290                 if (will_try_next)
291                     av_log(h, AV_LOG_WARNING,
292                            "Connection to %s failed (%s), trying next address\n",
293                            h->filename, errbuf);
294                 else
295                     av_log(h, AV_LOG_ERROR, "Connection to %s failed: %s\n",
296                            h->filename, errbuf);
297             }
298         default:
299             return ret;
300         }
301     }
302     return ret;
303 }
304
305 static int match_host_pattern(const char *pattern, const char *hostname)
306 {
307     int len_p, len_h;
308     if (!strcmp(pattern, "*"))
309         return 1;
310     // Skip a possible *. at the start of the pattern
311     if (pattern[0] == '*')
312         pattern++;
313     if (pattern[0] == '.')
314         pattern++;
315     len_p = strlen(pattern);
316     len_h = strlen(hostname);
317     if (len_p > len_h)
318         return 0;
319     // Simply check if the end of hostname is equal to 'pattern'
320     if (!strcmp(pattern, &hostname[len_h - len_p])) {
321         if (len_h == len_p)
322             return 1; // Exact match
323         if (hostname[len_h - len_p - 1] == '.')
324             return 1; // The matched substring is a domain and not just a substring of a domain
325     }
326     return 0;
327 }
328
329 int ff_http_match_no_proxy(const char *no_proxy, const char *hostname)
330 {
331     char *buf, *start;
332     int ret = 0;
333     if (!no_proxy)
334         return 0;
335     if (!hostname)
336         return 0;
337     buf = av_strdup(no_proxy);
338     if (!buf)
339         return 0;
340     start = buf;
341     while (start) {
342         char *sep, *next = NULL;
343         start += strspn(start, " ,");
344         sep = start + strcspn(start, " ,");
345         if (*sep) {
346             next = sep + 1;
347             *sep = '\0';
348         }
349         if (match_host_pattern(start, hostname)) {
350             ret = 1;
351             break;
352         }
353         start = next;
354     }
355     av_free(buf);
356     return ret;
357 }