[qemu-server.git] / pve-bridgedown

#!/usr/bin/perl

use strict;
use warnings;
use PVE::Network;

my $iface = shift;

die "no interface specified\n" if !$iface;

die "got strange interface name '$iface'\n" 
    if $iface !~ m/^tap(\d+)i(\d+)$/;

PVE::Network::tap_unplug($iface);

exit 0;
Commit	Line	Data
011c5817 AD	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5	use PVE::Network;
	6
	7	my $iface = shift;
	8
	9	die "no interface specified\n" if !$iface;
	10
	11	die "got strange interface name '$iface'\n"
	12	if $iface !~ m/^tap(\d+)i(\d+)$/;
	13
	14	PVE::Network::tap_unplug($iface);
	15
	16	exit 0;