start next kvm

diff --git a/lib/PXElator/httpd.pm b/lib/PXElator/httpd.pm
index 89a6357..949e42f 100644 (file)
--- a/lib/PXElator/httpd.pm
+++ b/lib/PXElator/httpd.pm
@@ -217,8 +217,12 @@ warn "XXX pids = ", dump( $daemons::pids );
                        }
                }
 
+               my $kvm = kvm::next_nr;
+               $kvm = qq|<a href=/start_stop/kvm?nr=$kvm>new kvm $kvm</a>|;
+
                print $client ok
                        , html::table( 2, @rows )
+                       , $kvm
                        , $below_table
                        , html::tabs( log::mac_changes )
                        , $debug_proc

diff --git a/lib/PXElator/kvm.pm b/lib/PXElator/kvm.pm
index 13be8a5..d816901 100644 (file)
--- a/lib/PXElator/kvm.pm
+++ b/lib/PXElator/kvm.pm
@@ -85,6 +85,18 @@ sub start {
 
 }
 
+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;