#!/usr/bin/perl

use strict;
use warnings;

exit 0 if $ENV{LXC_NAME} && $ENV{LXC_NAME} !~ /^\d+$/;

use PVE::Network;

die "got unexpected argument count\n" if scalar(@ARGV) != 5;

my ($vmid, $arg2, $arg3, $type, $iface) = @ARGV;

die "got unexpected argument ($arg2 != net)\n" if $arg2 ne 'net';
die "got unexpected argument ($arg3 != down)\n" if $arg3 ne 'down';
die "got unexpected argument ($type != veth)\n" if $type ne 'veth';
die "got unexpected environment" if $vmid ne $ENV{LXC_NAME};
die "missing vmid parameter\n" if !$vmid;
die "missing iface parameter\n" if !$iface;

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

exit 0;
