4 * Copyright (c) 2003-2008 Fabrice Bellard
6 * Permission is hereby granted, free of charge, to any person obtaining a copy
7 * of this software and associated documentation files (the "Software"), to deal
8 * in the Software without restriction, including without limitation the rights
9 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10 * copies of the Software, and to permit persons to whom the Software is
11 * furnished to do so, subject to the following conditions:
13 * The above copyright notice and this permission notice shall be included in
14 * all copies or substantial portions of the Software.
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
19 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
24 #include "qemu/osdep.h"
25 #include "net/slirp.h"
35 #include "monitor/monitor.h"
36 #include "qemu/error-report.h"
37 #include "qemu/sockets.h"
38 #include "slirp/libslirp.h"
39 #include "slirp/ip6.h"
40 #include "sysemu/char.h"
42 static int get_str_sep(char *buf
, int buf_size
, const char **pp
, int sep
)
53 if (len
> buf_size
- 1)
62 /* slirp network adapter */
64 #define SLIRP_CFG_HOSTFWD 1
65 #define SLIRP_CFG_LEGACY 2
67 struct slirp_config_str
{
68 struct slirp_config_str
*next
;
74 typedef struct SlirpState
{
76 QTAILQ_ENTRY(SlirpState
) entry
;
83 static struct slirp_config_str
*slirp_configs
;
84 const char *legacy_tftp_prefix
;
85 const char *legacy_bootp_filename
;
86 static QTAILQ_HEAD(slirp_stacks
, SlirpState
) slirp_stacks
=
87 QTAILQ_HEAD_INITIALIZER(slirp_stacks
);
89 static int slirp_hostfwd(SlirpState
*s
, const char *redir_str
,
91 static int slirp_guestfwd(SlirpState
*s
, const char *config_str
,
95 static const char *legacy_smb_export
;
97 static int slirp_smb(SlirpState
*s
, const char *exported_dir
,
98 struct in_addr vserver_addr
);
99 static void slirp_smb_cleanup(SlirpState
*s
);
101 static inline void slirp_smb_cleanup(SlirpState
*s
) { }
104 void slirp_output(void *opaque
, const uint8_t *pkt
, int pkt_len
)
106 SlirpState
*s
= opaque
;
108 qemu_send_packet(&s
->nc
, pkt
, pkt_len
);
111 static ssize_t
net_slirp_receive(NetClientState
*nc
, const uint8_t *buf
, size_t size
)
113 SlirpState
*s
= DO_UPCAST(SlirpState
, nc
, nc
);
115 slirp_input(s
->slirp
, buf
, size
);
120 static void net_slirp_cleanup(NetClientState
*nc
)
122 SlirpState
*s
= DO_UPCAST(SlirpState
, nc
, nc
);
124 slirp_cleanup(s
->slirp
);
125 slirp_smb_cleanup(s
);
126 QTAILQ_REMOVE(&slirp_stacks
, s
, entry
);
129 static NetClientInfo net_slirp_info
= {
130 .type
= NET_CLIENT_OPTIONS_KIND_USER
,
131 .size
= sizeof(SlirpState
),
132 .receive
= net_slirp_receive
,
133 .cleanup
= net_slirp_cleanup
,
136 static int net_slirp_init(NetClientState
*peer
, const char *model
,
137 const char *name
, int restricted
,
138 const char *vnetwork
, const char *vhost
,
139 const char *vprefix6
, int vprefix6_len
,
141 const char *vhostname
, const char *tftp_export
,
142 const char *bootfile
, const char *vdhcp_start
,
143 const char *vnameserver
, const char *vnameserver6
,
144 const char *smb_export
, const char *vsmbserver
,
145 const char **dnssearch
)
147 /* default settings according to historic slirp */
148 struct in_addr net
= { .s_addr
= htonl(0x0a000200) }; /* 10.0.2.0 */
149 struct in_addr mask
= { .s_addr
= htonl(0xffffff00) }; /* 255.255.255.0 */
150 struct in_addr host
= { .s_addr
= htonl(0x0a000202) }; /* 10.0.2.2 */
151 struct in_addr dhcp
= { .s_addr
= htonl(0x0a00020f) }; /* 10.0.2.15 */
152 struct in_addr dns
= { .s_addr
= htonl(0x0a000203) }; /* 10.0.2.3 */
153 struct in6_addr ip6_prefix
;
154 struct in6_addr ip6_host
;
155 struct in6_addr ip6_dns
;
157 struct in_addr smbsrv
= { .s_addr
= 0 };
165 struct slirp_config_str
*config
;
168 tftp_export
= legacy_tftp_prefix
;
171 bootfile
= legacy_bootp_filename
;
175 if (get_str_sep(buf
, sizeof(buf
), &vnetwork
, '/') < 0) {
176 if (!inet_aton(vnetwork
, &net
)) {
179 addr
= ntohl(net
.s_addr
);
180 if (!(addr
& 0x80000000)) {
181 mask
.s_addr
= htonl(0xff000000); /* class A */
182 } else if ((addr
& 0xfff00000) == 0xac100000) {
183 mask
.s_addr
= htonl(0xfff00000); /* priv. 172.16.0.0/12 */
184 } else if ((addr
& 0xc0000000) == 0x80000000) {
185 mask
.s_addr
= htonl(0xffff0000); /* class B */
186 } else if ((addr
& 0xffff0000) == 0xc0a80000) {
187 mask
.s_addr
= htonl(0xffff0000); /* priv. 192.168.0.0/16 */
188 } else if ((addr
& 0xffff0000) == 0xc6120000) {
189 mask
.s_addr
= htonl(0xfffe0000); /* tests 198.18.0.0/15 */
190 } else if ((addr
& 0xe0000000) == 0xe0000000) {
191 mask
.s_addr
= htonl(0xffffff00); /* class C */
193 mask
.s_addr
= htonl(0xfffffff0); /* multicast/reserved */
196 if (!inet_aton(buf
, &net
)) {
199 shift
= strtol(vnetwork
, &end
, 10);
201 if (!inet_aton(vnetwork
, &mask
)) {
204 } else if (shift
< 4 || shift
> 32) {
207 mask
.s_addr
= htonl(0xffffffff << (32 - shift
));
210 net
.s_addr
&= mask
.s_addr
;
211 host
.s_addr
= net
.s_addr
| (htonl(0x0202) & ~mask
.s_addr
);
212 dhcp
.s_addr
= net
.s_addr
| (htonl(0x020f) & ~mask
.s_addr
);
213 dns
.s_addr
= net
.s_addr
| (htonl(0x0203) & ~mask
.s_addr
);
216 if (vhost
&& !inet_aton(vhost
, &host
)) {
219 if ((host
.s_addr
& mask
.s_addr
) != net
.s_addr
) {
223 if (vnameserver
&& !inet_aton(vnameserver
, &dns
)) {
226 if ((dns
.s_addr
& mask
.s_addr
) != net
.s_addr
||
227 dns
.s_addr
== host
.s_addr
) {
231 if (vdhcp_start
&& !inet_aton(vdhcp_start
, &dhcp
)) {
234 if ((dhcp
.s_addr
& mask
.s_addr
) != net
.s_addr
||
235 dhcp
.s_addr
== host
.s_addr
|| dhcp
.s_addr
== dns
.s_addr
) {
240 if (vsmbserver
&& !inet_aton(vsmbserver
, &smbsrv
)) {
245 #if defined(_WIN32) && (_WIN32_WINNT < 0x0600)
246 /* No inet_pton helper before Vista... */
251 memset(&ip6_prefix
, 0, sizeof(ip6_prefix
));
252 ip6_prefix
.s6_addr
[0] = 0xfe;
253 ip6_prefix
.s6_addr
[1] = 0xc0;
258 if (!inet_pton(AF_INET6
, vprefix6
, &ip6_prefix
)) {
266 if (vprefix6_len
< 0 || vprefix6_len
> 126) {
271 #if defined(_WIN32) && (_WIN32_WINNT < 0x0600)
274 if (!inet_pton(AF_INET6
, vhost6
, &ip6_host
)) {
277 if (!in6_equal_net(&ip6_prefix
, &ip6_host
, vprefix6_len
)) {
282 ip6_host
= ip6_prefix
;
283 ip6_host
.s6_addr
[15] |= 2;
287 #if defined(_WIN32) && (_WIN32_WINNT < 0x0600)
290 if (!inet_pton(AF_INET6
, vnameserver6
, &ip6_dns
)) {
293 if (!in6_equal_net(&ip6_prefix
, &ip6_dns
, vprefix6_len
)) {
298 ip6_dns
= ip6_prefix
;
299 ip6_dns
.s6_addr
[15] |= 3;
303 nc
= qemu_new_net_client(&net_slirp_info
, peer
, model
, name
);
305 snprintf(nc
->info_str
, sizeof(nc
->info_str
),
306 "net=%s,restrict=%s", inet_ntoa(net
),
307 restricted
? "on" : "off");
309 s
= DO_UPCAST(SlirpState
, nc
, nc
);
311 s
->slirp
= slirp_init(restricted
, net
, mask
, host
,
312 ip6_prefix
, vprefix6_len
, ip6_host
,
313 vhostname
, tftp_export
, bootfile
, dhcp
,
314 dns
, ip6_dns
, dnssearch
, s
);
315 QTAILQ_INSERT_TAIL(&slirp_stacks
, s
, entry
);
317 for (config
= slirp_configs
; config
; config
= config
->next
) {
318 if (config
->flags
& SLIRP_CFG_HOSTFWD
) {
319 if (slirp_hostfwd(s
, config
->str
,
320 config
->flags
& SLIRP_CFG_LEGACY
) < 0)
323 if (slirp_guestfwd(s
, config
->str
,
324 config
->flags
& SLIRP_CFG_LEGACY
) < 0)
330 smb_export
= legacy_smb_export
;
333 if (slirp_smb(s
, smb_export
, smbsrv
) < 0)
341 qemu_del_net_client(nc
);
345 static SlirpState
*slirp_lookup(Monitor
*mon
, const char *vlan
,
351 nc
= net_hub_find_client_by_name(strtol(vlan
, NULL
, 0), stack
);
353 monitor_printf(mon
, "unrecognized (vlan-id, stackname) pair\n");
356 if (strcmp(nc
->model
, "user")) {
357 monitor_printf(mon
, "invalid device specified\n");
360 return DO_UPCAST(SlirpState
, nc
, nc
);
362 if (QTAILQ_EMPTY(&slirp_stacks
)) {
363 monitor_printf(mon
, "user mode network stack not in use\n");
366 return QTAILQ_FIRST(&slirp_stacks
);
370 void hmp_hostfwd_remove(Monitor
*mon
, const QDict
*qdict
)
372 struct in_addr host_addr
= { .s_addr
= INADDR_ANY
};
375 const char *src_str
, *p
;
379 const char *arg1
= qdict_get_str(qdict
, "arg1");
380 const char *arg2
= qdict_get_try_str(qdict
, "arg2");
381 const char *arg3
= qdict_get_try_str(qdict
, "arg3");
384 s
= slirp_lookup(mon
, arg1
, arg2
);
387 s
= slirp_lookup(mon
, NULL
, NULL
);
395 if (!p
|| get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
399 if (!strcmp(buf
, "tcp") || buf
[0] == '\0') {
401 } else if (!strcmp(buf
, "udp")) {
407 if (get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
410 if (buf
[0] != '\0' && !inet_aton(buf
, &host_addr
)) {
416 err
= slirp_remove_hostfwd(s
->slirp
, is_udp
, host_addr
, host_port
);
418 monitor_printf(mon
, "host forwarding rule for %s %s\n", src_str
,
419 err
? "not found" : "removed");
423 monitor_printf(mon
, "invalid format\n");
426 static int slirp_hostfwd(SlirpState
*s
, const char *redir_str
,
429 struct in_addr host_addr
= { .s_addr
= INADDR_ANY
};
430 struct in_addr guest_addr
= { .s_addr
= 0 };
431 int host_port
, guest_port
;
438 if (!p
|| get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
441 if (!strcmp(buf
, "tcp") || buf
[0] == '\0') {
443 } else if (!strcmp(buf
, "udp")) {
449 if (!legacy_format
) {
450 if (get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
453 if (buf
[0] != '\0' && !inet_aton(buf
, &host_addr
)) {
458 if (get_str_sep(buf
, sizeof(buf
), &p
, legacy_format
? ':' : '-') < 0) {
461 host_port
= strtol(buf
, &end
, 0);
462 if (*end
!= '\0' || host_port
< 1 || host_port
> 65535) {
466 if (get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
469 if (buf
[0] != '\0' && !inet_aton(buf
, &guest_addr
)) {
473 guest_port
= strtol(p
, &end
, 0);
474 if (*end
!= '\0' || guest_port
< 1 || guest_port
> 65535) {
478 if (slirp_add_hostfwd(s
->slirp
, is_udp
, host_addr
, host_port
, guest_addr
,
480 error_report("could not set up host forwarding rule '%s'",
487 error_report("invalid host forwarding rule '%s'", redir_str
);
491 void hmp_hostfwd_add(Monitor
*mon
, const QDict
*qdict
)
493 const char *redir_str
;
495 const char *arg1
= qdict_get_str(qdict
, "arg1");
496 const char *arg2
= qdict_get_try_str(qdict
, "arg2");
497 const char *arg3
= qdict_get_try_str(qdict
, "arg3");
500 s
= slirp_lookup(mon
, arg1
, arg2
);
503 s
= slirp_lookup(mon
, NULL
, NULL
);
507 slirp_hostfwd(s
, redir_str
, 0);
512 int net_slirp_redir(const char *redir_str
)
514 struct slirp_config_str
*config
;
516 if (QTAILQ_EMPTY(&slirp_stacks
)) {
517 config
= g_malloc(sizeof(*config
));
518 pstrcpy(config
->str
, sizeof(config
->str
), redir_str
);
519 config
->flags
= SLIRP_CFG_HOSTFWD
| SLIRP_CFG_LEGACY
;
520 config
->next
= slirp_configs
;
521 slirp_configs
= config
;
525 return slirp_hostfwd(QTAILQ_FIRST(&slirp_stacks
), redir_str
, 1);
530 /* automatic user mode samba server configuration */
531 static void slirp_smb_cleanup(SlirpState
*s
)
536 if (s
->smb_dir
[0] != '\0') {
537 snprintf(cmd
, sizeof(cmd
), "rm -rf %s", s
->smb_dir
);
539 if (ret
== -1 || !WIFEXITED(ret
)) {
540 error_report("'%s' failed.", cmd
);
541 } else if (WEXITSTATUS(ret
)) {
542 error_report("'%s' failed. Error code: %d",
543 cmd
, WEXITSTATUS(ret
));
545 s
->smb_dir
[0] = '\0';
549 static int slirp_smb(SlirpState
* s
, const char *exported_dir
,
550 struct in_addr vserver_addr
)
553 char smb_cmdline
[128];
554 struct passwd
*passwd
;
557 passwd
= getpwuid(geteuid());
559 error_report("failed to retrieve user name");
563 if (access(CONFIG_SMBD_COMMAND
, F_OK
)) {
564 error_report("could not find '%s', please install it",
565 CONFIG_SMBD_COMMAND
);
569 if (access(exported_dir
, R_OK
| X_OK
)) {
570 error_report("error accessing shared directory '%s': %s",
571 exported_dir
, strerror(errno
));
575 snprintf(s
->smb_dir
, sizeof(s
->smb_dir
), "/tmp/qemu-smb.XXXXXX");
576 if (!mkdtemp(s
->smb_dir
)) {
577 error_report("could not create samba server dir '%s'", s
->smb_dir
);
581 snprintf(smb_conf
, sizeof(smb_conf
), "%s/%s", s
->smb_dir
, "smb.conf");
583 f
= fopen(smb_conf
, "w");
585 slirp_smb_cleanup(s
);
586 error_report("could not create samba server configuration file '%s'",
593 "interfaces=127.0.0.1\n"
594 "bind interfaces only=yes\n"
596 "lock directory=%s\n"
597 "state directory=%s\n"
598 "cache directory=%s\n"
599 "ncalrpc dir=%s/ncalrpc\n"
600 "log file=%s/log.smbd\n"
601 "smb passwd file=%s/smbpasswd\n"
603 "map to guest = Bad User\n"
604 "load printers = no\n"
606 "disable spoolss = yes\n"
607 "usershare max shares = 0\n"
626 snprintf(smb_cmdline
, sizeof(smb_cmdline
), "%s -l %s -s %s",
627 CONFIG_SMBD_COMMAND
, s
->smb_dir
, smb_conf
);
629 if (slirp_add_exec(s
->slirp
, 0, smb_cmdline
, &vserver_addr
, 139) < 0 ||
630 slirp_add_exec(s
->slirp
, 0, smb_cmdline
, &vserver_addr
, 445) < 0) {
631 slirp_smb_cleanup(s
);
632 error_report("conflicting/invalid smbserver address");
638 /* automatic user mode samba server configuration (legacy interface) */
639 int net_slirp_smb(const char *exported_dir
)
641 struct in_addr vserver_addr
= { .s_addr
= 0 };
643 if (legacy_smb_export
) {
644 fprintf(stderr
, "-smb given twice\n");
647 legacy_smb_export
= exported_dir
;
648 if (!QTAILQ_EMPTY(&slirp_stacks
)) {
649 return slirp_smb(QTAILQ_FIRST(&slirp_stacks
), exported_dir
,
655 #endif /* !defined(_WIN32) */
659 struct in_addr server
;
664 static int guestfwd_can_read(void *opaque
)
666 struct GuestFwd
*fwd
= opaque
;
667 return slirp_socket_can_recv(fwd
->slirp
, fwd
->server
, fwd
->port
);
670 static void guestfwd_read(void *opaque
, const uint8_t *buf
, int size
)
672 struct GuestFwd
*fwd
= opaque
;
673 slirp_socket_recv(fwd
->slirp
, fwd
->server
, fwd
->port
, buf
, size
);
676 static int slirp_guestfwd(SlirpState
*s
, const char *config_str
,
679 struct in_addr server
= { .s_addr
= 0 };
680 struct GuestFwd
*fwd
;
688 if (get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
692 if (get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
695 if (strcmp(buf
, "tcp") && buf
[0] != '\0') {
698 if (get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
701 if (buf
[0] != '\0' && !inet_aton(buf
, &server
)) {
704 if (get_str_sep(buf
, sizeof(buf
), &p
, '-') < 0) {
708 port
= strtol(buf
, &end
, 10);
709 if (*end
!= '\0' || port
< 1 || port
> 65535) {
713 snprintf(buf
, sizeof(buf
), "guestfwd.tcp.%d", port
);
715 if ((strlen(p
) > 4) && !strncmp(p
, "cmd:", 4)) {
716 if (slirp_add_exec(s
->slirp
, 0, &p
[4], &server
, port
) < 0) {
717 error_report("conflicting/invalid host:port in guest forwarding "
718 "rule '%s'", config_str
);
722 fwd
= g_new(struct GuestFwd
, 1);
723 fwd
->hd
= qemu_chr_new(buf
, p
, NULL
);
725 error_report("could not open guest forwarding device '%s'", buf
);
730 if (slirp_add_exec(s
->slirp
, 3, fwd
->hd
, &server
, port
) < 0) {
731 error_report("conflicting/invalid host:port in guest forwarding "
732 "rule '%s'", config_str
);
736 fwd
->server
= server
;
738 fwd
->slirp
= s
->slirp
;
740 qemu_chr_fe_claim_no_fail(fwd
->hd
);
741 qemu_chr_add_handlers(fwd
->hd
, guestfwd_can_read
, guestfwd_read
,
747 error_report("invalid guest forwarding rule '%s'", config_str
);
751 void hmp_info_usernet(Monitor
*mon
, const QDict
*qdict
)
755 QTAILQ_FOREACH(s
, &slirp_stacks
, entry
) {
757 bool got_vlan_id
= net_hub_id_for_client(&s
->nc
, &id
) == 0;
758 monitor_printf(mon
, "VLAN %d (%s):\n",
759 got_vlan_id
? id
: -1,
761 slirp_connection_info(s
->slirp
, mon
);
766 net_init_slirp_configs(const StringList
*fwd
, int flags
)
769 struct slirp_config_str
*config
;
771 config
= g_malloc0(sizeof(*config
));
772 pstrcpy(config
->str
, sizeof(config
->str
), fwd
->value
->str
);
773 config
->flags
= flags
;
774 config
->next
= slirp_configs
;
775 slirp_configs
= config
;
781 static const char **slirp_dnssearch(const StringList
*dnsname
)
783 const StringList
*c
= dnsname
;
784 size_t i
= 0, num_opts
= 0;
796 ret
= g_malloc((num_opts
+ 1) * sizeof(*ret
));
799 ret
[i
++] = c
->value
->str
;
806 int net_init_slirp(const NetClientOptions
*opts
, const char *name
,
807 NetClientState
*peer
, Error
**errp
)
809 /* FIXME error_setg(errp, ...) on failure */
810 struct slirp_config_str
*config
;
813 const NetdevUserOptions
*user
;
814 const char **dnssearch
;
816 assert(opts
->type
== NET_CLIENT_OPTIONS_KIND_USER
);
817 user
= opts
->u
.user
.data
;
819 vnet
= user
->has_net
? g_strdup(user
->net
) :
820 user
->has_ip
? g_strdup_printf("%s/24", user
->ip
) :
823 dnssearch
= slirp_dnssearch(user
->dnssearch
);
825 /* all optional fields are initialized to "all bits zero" */
827 net_init_slirp_configs(user
->hostfwd
, SLIRP_CFG_HOSTFWD
);
828 net_init_slirp_configs(user
->guestfwd
, 0);
830 ret
= net_slirp_init(peer
, "user", name
, user
->q_restrict
, vnet
,
831 user
->host
, user
->ip6_prefix
, user
->ip6_prefixlen
,
832 user
->ip6_host
, user
->hostname
, user
->tftp
,
833 user
->bootfile
, user
->dhcpstart
,
834 user
->dns
, user
->ip6_dns
, user
->smb
,
835 user
->smbserver
, dnssearch
);
837 while (slirp_configs
) {
838 config
= slirp_configs
;
839 slirp_configs
= config
->next
;
849 int net_slirp_parse_legacy(QemuOptsList
*opts_list
, const char *optarg
, int *ret
)
851 if (strcmp(opts_list
->name
, "net") != 0 ||
852 strncmp(optarg
, "channel,", strlen("channel,")) != 0) {
856 error_report("The '-net channel' option is deprecated. "
857 "Please use '-netdev user,guestfwd=...' instead.");
859 /* handle legacy -net channel,port:chr */
860 optarg
+= strlen("channel,");
862 if (QTAILQ_EMPTY(&slirp_stacks
)) {
863 struct slirp_config_str
*config
;
865 config
= g_malloc(sizeof(*config
));
866 pstrcpy(config
->str
, sizeof(config
->str
), optarg
);
867 config
->flags
= SLIRP_CFG_LEGACY
;
868 config
->next
= slirp_configs
;
869 slirp_configs
= config
;
872 *ret
= slirp_guestfwd(QTAILQ_FIRST(&slirp_stacks
), optarg
, 1);