--- lib/PXElator/kvm.pm	2009/09/07 21:34:05	390
+++ lib/PXElator/kvm.pm	2009/09/08 21:06:40	405
@@ -85,6 +85,18 @@
 
 }
 
+sub nr_from_mac {
+	my $mac = shift;
+	$mac =~ s{^.+:([0-9a-f]{2})$}{hex($1)}e;
+	$mac;
+}
+
+sub next_nr {
+	my @kvms = glob "$server::conf/mac/AC:DE:48:00:00:*";
+	my $nr = nr_from_mac( pop @kvms );
+	return $nr + 1;
+}
+
 warn 'loaded';
 
 1;