mirror of
https://gitlab.com/libvirt/libvirt.git
synced 2024-11-03 20:01:16 +00:00
9b76b08ae4
This change adds some systemtap/dtrace probes to the QEMU monitor client code. In particular it allows watching of all operations for a VM * examples/systemtap/qemu-monitor.stp: Watch all monitor commands * src/Makefile.am: Passing libdir/bindir/sbindir to dtrace2systemtap.pl * src/dtrace2systemtap.pl: Accept libdir/bindir/sbindir as args and look for '# binary:' comment to mark probes against libvirtd vs libvirt.so * src/qemu/qemu_monitor.c, src/qemu/qemu_monitor_json.c, src/qemu/qemu_monitor_text.c: Add probes for key functions
81 lines
3.3 KiB
Plaintext
81 lines
3.3 KiB
Plaintext
#!/usr/bin/stap
|
|
#
|
|
# Copyright (C) 2011 Red Hat, Inc.
|
|
#
|
|
# This library is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU Lesser General Public
|
|
# License as published by the Free Software Foundation; either
|
|
# version 2.1 of the License, or (at your option) any later version.
|
|
#
|
|
# This library is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
# Lesser General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU Lesser General Public
|
|
# License along with this library; if not, write to the Free Software
|
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
#
|
|
# Author: Daniel P. Berrange <berrange@redhat.com>
|
|
#
|
|
# This script will monitor all messages sent/received between libvirt
|
|
# and the QEMU monitor
|
|
#
|
|
# stap qemu-monitor.stp
|
|
# 0.000 begin
|
|
# 3.848 ! 0x7f2dc00017b0 {"timestamp": {"seconds": 1319466931, "microseconds": 187755}, "event": "SHUTDOWN"}
|
|
# 5.773 > 0x7f2dc0007960 {"execute":"qmp_capabilities","id":"libvirt-1"}
|
|
# 5.774 < 0x7f2dc0007960 {"return": {}, "id": "libvirt-1"}
|
|
# 5.774 > 0x7f2dc0007960 {"execute":"query-commands","id":"libvirt-2"}
|
|
# 5.777 < 0x7f2dc0007960 {"return": [{"name": "quit"}, {"name": ....snip....
|
|
# 5.777 > 0x7f2dc0007960 {"execute":"query-chardev","id":"libvirt-3"}
|
|
# 5.778 < 0x7f2dc0007960 {"return": [{"filename": ....snip....
|
|
# 5.779 > 0x7f2dc0007960 {"execute":"query-cpus","id":"libvirt-4"}
|
|
# 5.780 < 0x7f2dc0007960 {"return": [{"current": true, "CPU": 0, "pc": 1048560, "halted": false, "thread_id": 13299}], "id": "libvirt-4"}
|
|
# 5.780 > 0x7f2dc0007960 {"execute":"set_password","arguments":{"protocol":"vnc","password":"123456","connected":"keep"},"id":"libvirt-5"}
|
|
# 5.782 < 0x7f2dc0007960 {"return": {}, "id": "libvirt-5"}
|
|
# 5.782 > 0x7f2dc0007960 {"execute":"expire_password","arguments":{"protocol":"vnc","time":"never"},"id":"libvirt-6"}
|
|
# 5.783 < 0x7f2dc0007960 {"return": {}, "id": "libvirt-6"}
|
|
# 5.783 > 0x7f2dc0007960 {"execute":"balloon","arguments":{"value":224395264},"id":"libvirt-7"}
|
|
# 5.785 < 0x7f2dc0007960 {"return": {}, "id": "libvirt-7"}
|
|
# 5.785 > 0x7f2dc0007960 {"execute":"cont","id":"libvirt-8"}
|
|
# 5.789 ! 0x7f2dc0007960 {"timestamp": {"seconds": 1319466933, "microseconds": 129980}, "event": "RESUME"}
|
|
# 5.789 < 0x7f2dc0007960 {"return": {}, "id": "libvirt-8"}
|
|
# 7.537 ! 0x7f2dc0007960 {"timestamp": {"seconds": 1319466934, "microseconds": 881214}, "event": "SHUTDOWN"}
|
|
#
|
|
|
|
|
|
global start
|
|
|
|
# Print a string, with a timestamp relative to the start of the script
|
|
function print_ts(msg)
|
|
{
|
|
now = gettimeofday_ns() / (1000*1000)
|
|
delta = (now - start)
|
|
|
|
printf("%3d.%03d %s\n", (delta / 1000), (delta % 1000), msg);
|
|
}
|
|
|
|
|
|
# Just so we know the script is now running
|
|
probe begin {
|
|
start = gettimeofday_ns() / (1000*1000)
|
|
print_ts("begin")
|
|
}
|
|
|
|
probe libvirt.qemu.monitor_send_msg {
|
|
if (fd != -1) {
|
|
print_ts(sprintf("> %p %s (fd=%d)", mon, substr(msg, 0, strlen(msg)-2), fd));
|
|
} else {
|
|
print_ts(sprintf("> %p %s", mon, substr(msg, 0, strlen(msg)-2)));
|
|
}
|
|
}
|
|
|
|
probe libvirt.qemu.monitor_recv_reply {
|
|
print_ts(sprintf("< %p %s", mon, reply));
|
|
}
|
|
|
|
probe libvirt.qemu.monitor_recv_event {
|
|
print_ts(sprintf("! %p %s", mon, event));
|
|
}
|