extract nr from kvm.nr

[pxelator] / lib / PXElator / daemons.pm

diff --git a/lib/PXElator/daemons.pm b/lib/PXElator/daemons.pm
index 3efac68..ee17802 100644 (file)
--- a/lib/PXElator/daemons.pm
+++ b/lib/PXElator/daemons.pm
@@ -37,7 +37,11 @@ mkdir "$server::conf/pid" unless -d "$server::conf/pid";
 sub start_stop {
        my ($daemon,$param) = @_;
 
-       $daemon .= '.' . $param->{nr} if defined $param->{nr}; # XXX nr for kvm
+       if ( defined $param->{nr} ) { # XXX nr for kvm
+               $daemon .= '.' . $param->{nr};
+       } else {
+               $param->{nr} = $1 if $daemon =~ /\.(\d+)/;
+       }
 
        my $pid = $pids->{$daemon};
        my $pid_path = $daemon;