From 12e08782b3bef67395d9508fed9487d0217174d6 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Tue, 19 Feb 2008 03:29:03 +0100
Subject: Add Kvm start code. (This used to be commit
 6308c134b225dfa8574aa1370a7874ed6e572ccc)

---
 source4/selftest/target/Kvm.pm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

(limited to 'source4/selftest/target')

diff --git a/source4/selftest/target/Kvm.pm b/source4/selftest/target/Kvm.pm
index 533fb302d0..efd4fa2f7a 100644
--- a/source4/selftest/target/Kvm.pm
+++ b/source4/selftest/target/Kvm.pm
@@ -40,16 +40,39 @@ sub check_env($$)
 	return 1;
 }
 
+sub start($)
+{
+	my ($self) = @_;
+
+	my $pidfile = "kvm.pid";
+
+	system("kvm $ENV{KVM_OPTIONS} -daemonize -pidfile $pidfile -net user -vnc unix:kvm.vnc -snapshot $self->{image}");
+
+	open(PID, $pidfile);
+	$self->{pid} = <PID>;
+	close(PID);
+}
+
 sub setup_env($$$)
 {
 	my ($self, $envname, $path) = @_;
 
+	if ($envname eq "dc") {
+		unless (defined($self->{pid})) {
+			$self->start();
+		}
+	} elsif ($envname eq "member") {
+		return undef;
+	}
+
 	die("No implemented yet");
 }
 
 sub stop($)
 {
 	my ($self) = @_;
+
+	kill $self->{pid};
 }
 
 1;
-- 
cgit