From a2fc3bc4be4d495d27787e9489b4ecd01a5d6bf1 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 9 Oct 2010 18:23:29 +0000
Subject: [PATCH] extract nr from kvm.nr

---
 lib/PXElator/daemons.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/PXElator/daemons.pm b/lib/PXElator/daemons.pm
index 3efac68..ee17802 100644
--- 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;
-- 
2.20.1