pve-bridge

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use PVE::QemuServer;
   6 use PVE::Tools qw(run_command);
   7 use PVE::Network;
   8
   9 my $iface = shift;
  10
  11 die "no interface specified\n" if !$iface;
  12
  13 die "got strange interface name '$iface'\n"
  14     if $iface !~ m/^tap(\d+)i(\d+)$/;
  15
  16 my $vmid = $1;
  17 my $netid = "net$2";
  18
  19 my $migratedfrom = $ENV{PVE_MIGRATED_FROM};
  20
  21 my $conf = PVE::QemuServer::load_config($vmid, $migratedfrom);
  22
  23 die "unable to get network config '$netid'\n"
  24     if !$conf->{$netid};
  25
  26 my $net = PVE::QemuServer::parse_net($conf->{$netid});
  27 die "unable to parse network config '$netid'\n" if !$net;
  28
  29 PVE::Network::tap_create($iface, $net->{bridge});
  30
  31 PVE::Network::tap_rate_limit($iface, $net->{rate}) if $net->{rate};
  32
  33 PVE::Network::tap_plug($iface, $net->{bridge}, $net->{tag}, $net->{firewall});
  34
  35 exit 0;