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 "net/slirp.h"
26 #include "config-host.h"
35 #include "qemu_socket.h"
36 #include "slirp/libslirp.h"
38 static int get_str_sep(char *buf
, int buf_size
, const char **pp
, int sep
)
49 if (len
> buf_size
- 1)
58 /* slirp network adapter */
60 #define SLIRP_CFG_HOSTFWD 1
61 #define SLIRP_CFG_LEGACY 2
63 struct slirp_config_str
{
64 struct slirp_config_str
*next
;
70 typedef struct SlirpState
{
72 QTAILQ_ENTRY(SlirpState
) entry
;
79 static struct slirp_config_str
*slirp_configs
;
80 const char *legacy_tftp_prefix
;
81 const char *legacy_bootp_filename
;
82 static QTAILQ_HEAD(slirp_stacks
, SlirpState
) slirp_stacks
=
83 QTAILQ_HEAD_INITIALIZER(slirp_stacks
);
85 static int slirp_hostfwd(SlirpState
*s
, const char *redir_str
,
87 static int slirp_guestfwd(SlirpState
*s
, const char *config_str
,
91 static const char *legacy_smb_export
;
93 static int slirp_smb(SlirpState
*s
, const char *exported_dir
,
94 struct in_addr vserver_addr
);
95 static void slirp_smb_cleanup(SlirpState
*s
);
97 static inline void slirp_smb_cleanup(SlirpState
*s
) { }
100 int slirp_can_output(void *opaque
)
102 SlirpState
*s
= opaque
;
104 return qemu_can_send_packet(&s
->nc
);
107 void slirp_output(void *opaque
, const uint8_t *pkt
, int pkt_len
)
109 SlirpState
*s
= opaque
;
111 qemu_send_packet(&s
->nc
, pkt
, pkt_len
);
114 static ssize_t
net_slirp_receive(VLANClientState
*nc
, const uint8_t *buf
, size_t size
)
116 SlirpState
*s
= DO_UPCAST(SlirpState
, nc
, nc
);
118 slirp_input(s
->slirp
, buf
, size
);
123 static void net_slirp_cleanup(VLANClientState
*nc
)
125 SlirpState
*s
= DO_UPCAST(SlirpState
, nc
, nc
);
127 slirp_cleanup(s
->slirp
);
128 slirp_smb_cleanup(s
);
129 QTAILQ_REMOVE(&slirp_stacks
, s
, entry
);
132 static NetClientInfo net_slirp_info
= {
133 .type
= NET_CLIENT_OPTIONS_KIND_USER
,
134 .size
= sizeof(SlirpState
),
135 .receive
= net_slirp_receive
,
136 .cleanup
= net_slirp_cleanup
,
139 static int net_slirp_init(VLANClientState
*peer
, const char *model
,
140 const char *name
, int restricted
,
141 const char *vnetwork
, const char *vhost
,
142 const char *vhostname
, const char *tftp_export
,
143 const char *bootfile
, const char *vdhcp_start
,
144 const char *vnameserver
, const char *smb_export
,
145 const char *vsmbserver
)
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 */
154 struct in_addr smbsrv
= { .s_addr
= 0 };
162 struct slirp_config_str
*config
;
165 tftp_export
= legacy_tftp_prefix
;
168 bootfile
= legacy_bootp_filename
;
172 if (get_str_sep(buf
, sizeof(buf
), &vnetwork
, '/') < 0) {
173 if (!inet_aton(vnetwork
, &net
)) {
176 addr
= ntohl(net
.s_addr
);
177 if (!(addr
& 0x80000000)) {
178 mask
.s_addr
= htonl(0xff000000); /* class A */
179 } else if ((addr
& 0xfff00000) == 0xac100000) {
180 mask
.s_addr
= htonl(0xfff00000); /* priv. 172.16.0.0/12 */
181 } else if ((addr
& 0xc0000000) == 0x80000000) {
182 mask
.s_addr
= htonl(0xffff0000); /* class B */
183 } else if ((addr
& 0xffff0000) == 0xc0a80000) {
184 mask
.s_addr
= htonl(0xffff0000); /* priv. 192.168.0.0/16 */
185 } else if ((addr
& 0xffff0000) == 0xc6120000) {
186 mask
.s_addr
= htonl(0xfffe0000); /* tests 198.18.0.0/15 */
187 } else if ((addr
& 0xe0000000) == 0xe0000000) {
188 mask
.s_addr
= htonl(0xffffff00); /* class C */
190 mask
.s_addr
= htonl(0xfffffff0); /* multicast/reserved */
193 if (!inet_aton(buf
, &net
)) {
196 shift
= strtol(vnetwork
, &end
, 10);
198 if (!inet_aton(vnetwork
, &mask
)) {
201 } else if (shift
< 4 || shift
> 32) {
204 mask
.s_addr
= htonl(0xffffffff << (32 - shift
));
207 net
.s_addr
&= mask
.s_addr
;
208 host
.s_addr
= net
.s_addr
| (htonl(0x0202) & ~mask
.s_addr
);
209 dhcp
.s_addr
= net
.s_addr
| (htonl(0x020f) & ~mask
.s_addr
);
210 dns
.s_addr
= net
.s_addr
| (htonl(0x0203) & ~mask
.s_addr
);
213 if (vhost
&& !inet_aton(vhost
, &host
)) {
216 if ((host
.s_addr
& mask
.s_addr
) != net
.s_addr
) {
220 if (vdhcp_start
&& !inet_aton(vdhcp_start
, &dhcp
)) {
223 if ((dhcp
.s_addr
& mask
.s_addr
) != net
.s_addr
||
224 dhcp
.s_addr
== host
.s_addr
|| dhcp
.s_addr
== dns
.s_addr
) {
228 if (vnameserver
&& !inet_aton(vnameserver
, &dns
)) {
231 if ((dns
.s_addr
& mask
.s_addr
) != net
.s_addr
||
232 dns
.s_addr
== host
.s_addr
) {
237 if (vsmbserver
&& !inet_aton(vsmbserver
, &smbsrv
)) {
242 nc
= qemu_new_net_client(&net_slirp_info
, peer
, model
, name
);
244 snprintf(nc
->info_str
, sizeof(nc
->info_str
),
245 "net=%s,restrict=%s", inet_ntoa(net
),
246 restricted
? "on" : "off");
248 s
= DO_UPCAST(SlirpState
, nc
, nc
);
250 s
->slirp
= slirp_init(restricted
, net
, mask
, host
, vhostname
,
251 tftp_export
, bootfile
, dhcp
, dns
, s
);
252 QTAILQ_INSERT_TAIL(&slirp_stacks
, s
, entry
);
254 for (config
= slirp_configs
; config
; config
= config
->next
) {
255 if (config
->flags
& SLIRP_CFG_HOSTFWD
) {
256 if (slirp_hostfwd(s
, config
->str
,
257 config
->flags
& SLIRP_CFG_LEGACY
) < 0)
260 if (slirp_guestfwd(s
, config
->str
,
261 config
->flags
& SLIRP_CFG_LEGACY
) < 0)
267 smb_export
= legacy_smb_export
;
270 if (slirp_smb(s
, smb_export
, smbsrv
) < 0)
278 qemu_del_vlan_client(nc
);
282 static SlirpState
*slirp_lookup(Monitor
*mon
, const char *vlan
,
288 nc
= net_hub_find_client_by_name(strtol(vlan
, NULL
, 0), stack
);
292 if (strcmp(nc
->model
, "user")) {
293 monitor_printf(mon
, "invalid device specified\n");
296 return DO_UPCAST(SlirpState
, nc
, nc
);
298 if (QTAILQ_EMPTY(&slirp_stacks
)) {
299 monitor_printf(mon
, "user mode network stack not in use\n");
302 return QTAILQ_FIRST(&slirp_stacks
);
306 void net_slirp_hostfwd_remove(Monitor
*mon
, const QDict
*qdict
)
308 struct in_addr host_addr
= { .s_addr
= INADDR_ANY
};
311 const char *src_str
, *p
;
315 const char *arg1
= qdict_get_str(qdict
, "arg1");
316 const char *arg2
= qdict_get_try_str(qdict
, "arg2");
317 const char *arg3
= qdict_get_try_str(qdict
, "arg3");
320 s
= slirp_lookup(mon
, arg1
, arg2
);
323 s
= slirp_lookup(mon
, NULL
, NULL
);
331 if (!p
|| get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
335 if (!strcmp(buf
, "tcp") || buf
[0] == '\0') {
337 } else if (!strcmp(buf
, "udp")) {
343 if (get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
346 if (buf
[0] != '\0' && !inet_aton(buf
, &host_addr
)) {
352 err
= slirp_remove_hostfwd(QTAILQ_FIRST(&slirp_stacks
)->slirp
, is_udp
,
353 host_addr
, host_port
);
355 monitor_printf(mon
, "host forwarding rule for %s %s\n", src_str
,
356 err
? "not found" : "removed");
360 monitor_printf(mon
, "invalid format\n");
363 static int slirp_hostfwd(SlirpState
*s
, const char *redir_str
,
366 struct in_addr host_addr
= { .s_addr
= INADDR_ANY
};
367 struct in_addr guest_addr
= { .s_addr
= 0 };
368 int host_port
, guest_port
;
375 if (!p
|| get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
378 if (!strcmp(buf
, "tcp") || buf
[0] == '\0') {
380 } else if (!strcmp(buf
, "udp")) {
386 if (!legacy_format
) {
387 if (get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
390 if (buf
[0] != '\0' && !inet_aton(buf
, &host_addr
)) {
395 if (get_str_sep(buf
, sizeof(buf
), &p
, legacy_format
? ':' : '-') < 0) {
398 host_port
= strtol(buf
, &end
, 0);
399 if (*end
!= '\0' || host_port
< 1 || host_port
> 65535) {
403 if (get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
406 if (buf
[0] != '\0' && !inet_aton(buf
, &guest_addr
)) {
410 guest_port
= strtol(p
, &end
, 0);
411 if (*end
!= '\0' || guest_port
< 1 || guest_port
> 65535) {
415 if (slirp_add_hostfwd(s
->slirp
, is_udp
, host_addr
, host_port
, guest_addr
,
417 error_report("could not set up host forwarding rule '%s'",
424 error_report("invalid host forwarding rule '%s'", redir_str
);
428 void net_slirp_hostfwd_add(Monitor
*mon
, const QDict
*qdict
)
430 const char *redir_str
;
432 const char *arg1
= qdict_get_str(qdict
, "arg1");
433 const char *arg2
= qdict_get_try_str(qdict
, "arg2");
434 const char *arg3
= qdict_get_try_str(qdict
, "arg3");
437 s
= slirp_lookup(mon
, arg1
, arg2
);
440 s
= slirp_lookup(mon
, NULL
, NULL
);
444 slirp_hostfwd(s
, redir_str
, 0);
449 int net_slirp_redir(const char *redir_str
)
451 struct slirp_config_str
*config
;
453 if (QTAILQ_EMPTY(&slirp_stacks
)) {
454 config
= g_malloc(sizeof(*config
));
455 pstrcpy(config
->str
, sizeof(config
->str
), redir_str
);
456 config
->flags
= SLIRP_CFG_HOSTFWD
| SLIRP_CFG_LEGACY
;
457 config
->next
= slirp_configs
;
458 slirp_configs
= config
;
462 return slirp_hostfwd(QTAILQ_FIRST(&slirp_stacks
), redir_str
, 1);
467 /* automatic user mode samba server configuration */
468 static void slirp_smb_cleanup(SlirpState
*s
)
473 if (s
->smb_dir
[0] != '\0') {
474 snprintf(cmd
, sizeof(cmd
), "rm -rf %s", s
->smb_dir
);
476 if (ret
== -1 || !WIFEXITED(ret
)) {
477 error_report("'%s' failed.", cmd
);
478 } else if (WEXITSTATUS(ret
)) {
479 error_report("'%s' failed. Error code: %d",
480 cmd
, WEXITSTATUS(ret
));
482 s
->smb_dir
[0] = '\0';
486 static int slirp_smb(SlirpState
* s
, const char *exported_dir
,
487 struct in_addr vserver_addr
)
491 char smb_cmdline
[128];
492 struct passwd
*passwd
;
495 passwd
= getpwuid(geteuid());
497 error_report("failed to retrieve user name");
501 if (access(CONFIG_SMBD_COMMAND
, F_OK
)) {
502 error_report("could not find '%s', please install it",
503 CONFIG_SMBD_COMMAND
);
507 if (access(exported_dir
, R_OK
| X_OK
)) {
508 error_report("error accessing shared directory '%s': %s",
509 exported_dir
, strerror(errno
));
513 snprintf(s
->smb_dir
, sizeof(s
->smb_dir
), "/tmp/qemu-smb.%ld-%d",
514 (long)getpid(), instance
++);
515 if (mkdir(s
->smb_dir
, 0700) < 0) {
516 error_report("could not create samba server dir '%s'", s
->smb_dir
);
519 snprintf(smb_conf
, sizeof(smb_conf
), "%s/%s", s
->smb_dir
, "smb.conf");
521 f
= fopen(smb_conf
, "w");
523 slirp_smb_cleanup(s
);
524 error_report("could not create samba server configuration file '%s'",
531 "socket address=127.0.0.1\n"
533 "lock directory=%s\n"
534 "state directory=%s\n"
535 "log file=%s/log.smbd\n"
536 "smb passwd file=%s/smbpasswd\n"
554 snprintf(smb_cmdline
, sizeof(smb_cmdline
), "%s -s %s",
555 CONFIG_SMBD_COMMAND
, smb_conf
);
557 if (slirp_add_exec(s
->slirp
, 0, smb_cmdline
, &vserver_addr
, 139) < 0) {
558 slirp_smb_cleanup(s
);
559 error_report("conflicting/invalid smbserver address");
565 /* automatic user mode samba server configuration (legacy interface) */
566 int net_slirp_smb(const char *exported_dir
)
568 struct in_addr vserver_addr
= { .s_addr
= 0 };
570 if (legacy_smb_export
) {
571 fprintf(stderr
, "-smb given twice\n");
574 legacy_smb_export
= exported_dir
;
575 if (!QTAILQ_EMPTY(&slirp_stacks
)) {
576 return slirp_smb(QTAILQ_FIRST(&slirp_stacks
), exported_dir
,
582 #endif /* !defined(_WIN32) */
586 struct in_addr server
;
591 static int guestfwd_can_read(void *opaque
)
593 struct GuestFwd
*fwd
= opaque
;
594 return slirp_socket_can_recv(fwd
->slirp
, fwd
->server
, fwd
->port
);
597 static void guestfwd_read(void *opaque
, const uint8_t *buf
, int size
)
599 struct GuestFwd
*fwd
= opaque
;
600 slirp_socket_recv(fwd
->slirp
, fwd
->server
, fwd
->port
, buf
, size
);
603 static int slirp_guestfwd(SlirpState
*s
, const char *config_str
,
606 struct in_addr server
= { .s_addr
= 0 };
607 struct GuestFwd
*fwd
;
615 if (get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
619 if (get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
622 if (strcmp(buf
, "tcp") && buf
[0] != '\0') {
625 if (get_str_sep(buf
, sizeof(buf
), &p
, ':') < 0) {
628 if (buf
[0] != '\0' && !inet_aton(buf
, &server
)) {
631 if (get_str_sep(buf
, sizeof(buf
), &p
, '-') < 0) {
635 port
= strtol(buf
, &end
, 10);
636 if (*end
!= '\0' || port
< 1 || port
> 65535) {
640 fwd
= g_malloc(sizeof(struct GuestFwd
));
641 snprintf(buf
, sizeof(buf
), "guestfwd.tcp.%d", port
);
643 if ((strlen(p
) > 4) && !strncmp(p
, "cmd:", 4)) {
644 if (slirp_add_exec(s
->slirp
, 0, &p
[4], &server
, port
) < 0) {
645 error_report("conflicting/invalid host:port in guest forwarding "
646 "rule '%s'", config_str
);
651 fwd
->hd
= qemu_chr_new(buf
, p
, NULL
);
653 error_report("could not open guest forwarding device '%s'", buf
);
658 if (slirp_add_exec(s
->slirp
, 3, fwd
->hd
, &server
, port
) < 0) {
659 error_report("conflicting/invalid host:port in guest forwarding "
660 "rule '%s'", config_str
);
664 fwd
->server
= server
;
666 fwd
->slirp
= s
->slirp
;
668 qemu_chr_add_handlers(fwd
->hd
, guestfwd_can_read
, guestfwd_read
,
674 error_report("invalid guest forwarding rule '%s'", config_str
);
678 void do_info_usernet(Monitor
*mon
)
682 QTAILQ_FOREACH(s
, &slirp_stacks
, entry
) {
684 bool got_vlan_id
= net_hub_id_for_client(&s
->nc
, &id
) == 0;
685 monitor_printf(mon
, "VLAN %d (%s):\n",
686 got_vlan_id
? id
: -1,
688 slirp_connection_info(s
->slirp
, mon
);
693 net_init_slirp_configs(const StringList
*fwd
, int flags
)
696 struct slirp_config_str
*config
;
698 config
= g_malloc0(sizeof(*config
));
699 pstrcpy(config
->str
, sizeof(config
->str
), fwd
->value
->str
);
700 config
->flags
= flags
;
701 config
->next
= slirp_configs
;
702 slirp_configs
= config
;
708 int net_init_slirp(const NetClientOptions
*opts
, const char *name
,
709 VLANClientState
*peer
)
711 struct slirp_config_str
*config
;
714 const NetdevUserOptions
*user
;
716 assert(opts
->kind
== NET_CLIENT_OPTIONS_KIND_USER
);
719 vnet
= user
->has_net
? g_strdup(user
->net
) :
720 user
->has_ip
? g_strdup_printf("%s/24", user
->ip
) :
723 /* all optional fields are initialized to "all bits zero" */
725 net_init_slirp_configs(user
->hostfwd
, SLIRP_CFG_HOSTFWD
);
726 net_init_slirp_configs(user
->guestfwd
, 0);
728 ret
= net_slirp_init(peer
, "user", name
, user
->restrict
, vnet
, user
->host
,
729 user
->hostname
, user
->tftp
, user
->bootfile
,
730 user
->dhcpstart
, user
->dns
, user
->smb
,
733 while (slirp_configs
) {
734 config
= slirp_configs
;
735 slirp_configs
= config
->next
;
744 int net_slirp_parse_legacy(QemuOptsList
*opts_list
, const char *optarg
, int *ret
)
746 if (strcmp(opts_list
->name
, "net") != 0 ||
747 strncmp(optarg
, "channel,", strlen("channel,")) != 0) {
751 /* handle legacy -net channel,port:chr */
752 optarg
+= strlen("channel,");
754 if (QTAILQ_EMPTY(&slirp_stacks
)) {
755 struct slirp_config_str
*config
;
757 config
= g_malloc(sizeof(*config
));
758 pstrcpy(config
->str
, sizeof(config
->str
), optarg
);
759 config
->flags
= SLIRP_CFG_LEGACY
;
760 config
->next
= slirp_configs
;
761 slirp_configs
= config
;
764 *ret
= slirp_guestfwd(QTAILQ_FIRST(&slirp_stacks
), optarg
, 1);