Perl libvirt net-edit with dhcp reload

net-edit.pl

#!/usr/bin/perl -w

# Author: Konrad "morsik" Mosoń <[email protected]>
# linked here: http://wiki.libvirt.org/page/Networking#Applying_modifications_to_the_network

use strict;
use warnings;

my $net = $ARGV[0];

if (!defined($net))
{
        print "Usage: $0 <network>\n";
        exit(1);
}

system('virsh', 'net-edit', $net);

my $re_mac  = '[0-9a-f]{2}:[0-9a-f]{2}:[0-9a-f]{2}:[0-9a-f]{2}:[0-9a-f]{2}:[0-9a-f]{2}';
my $re_host = '[a-zA-Z0-9.-_]+';
my $re_ip4  = '[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}';

# format: <host mac='de:ad:be:ef:00:01' name='www.libvirt.org' ip='176.31.99.103' />
my $dhcpconf = "";
open(NET, "/etc/libvirt/qemu/networks/$net.xml");
foreach (<NET>)
{
        if (/\s*<host\s+mac='($re_mac)'\s+name='($re_host)'\s+ip='($re_ip4)'\s*\/>/)
        {
                $dhcpconf .= "$1,$3,$2\n";
        }
}
close(NET);

open(DHCP, ">", "/var/lib/libvirt/dnsmasq/$net.hostsfile");
print(DHCP $dhcpconf);
close(DHCP);

print "\033[1;32m>>\033[1;37m reloading dnsmasq...\033[0m\n";
my $pid;
open(DHCPPID, "/var/run/libvirt/network/$net.pid");
my @dhcppid = <DHCPPID>;
if ($dhcppid[0] =~ /([0-9]+)/)
{
        $pid = $1;
}
close(DHCPPID);
system('kill', '-HUP', $pid);
print "\033[1;32m!!\033[1;37m done!\033[0m\n";

There is a bug in the hostname matching, which makes the script ignore hosts named "foo-bar", i.e., that have a dash in the name. I've fixed this in a fork, here: https://gist.github.com/bendiken/032ea1bddb9ffafe98b4