pve-bridge

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