From 9e7cccd84c5c0251bc2ce2a2833fb648c77f394c Mon Sep 17 00:00:00 2001
From: "Daniel P. Berrange" <berrange@redhat.com>
Date: Thu, 4 Dec 2014 16:05:56 +0000
Subject: [PATCH] Extend events example to deal with agent lifecycle events

(cherry picked from commit f74b52f8be94dd1caaeae3113a39e1b33844e792)
---
 examples/events.pl | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/examples/events.pl b/examples/events.pl
index 1895e6b..a38d321 100644
--- a/examples/events.pl
+++ b/examples/events.pl
@@ -20,10 +20,20 @@ sub lifecycle_event {
     print "$dom $event $detail\n";
 }
 
+sub agent_lifecycle_event {
+    my $dom = shift;
+    my $state = shift;
+    my $reason = shift;
+
+    print "Agent $dom state=$state reason=$reason\n";
+}
 
 $c->domain_event_register_any(undef,
 			      Sys::Virt::Domain::EVENT_ID_LIFECYCLE,
 			      \&lifecycle_event);
+$c->domain_event_register_any(undef,
+			      Sys::Virt::Domain::EVENT_ID_AGENT_LIFECYCLE,
+			      \&agent_lifecycle_event);
 
 $c->register_close_callback(
     sub {