diff options
| author | Michael Meeks <michael.meeks@collabora.com> | 2019-03-27 05:12:05 +0000 |
|---|---|---|
| committer | Michael Meeks <michael.meeks@collabora.com> | 2019-03-27 06:41:45 +0000 |
| commit | a81b02b2c6d4b7c164ef2c860d763616dd83f06a (patch) | |
| tree | d0d09bfa732ecb269e60bf2b2d7c283ec2b948e3 /scripts | |
| parent | d124e3e5aaedd48c7f83f000fcbd682489b45b60 (diff) | |
Parse loolwsd logs and start to chart the output.
Change-Id: I2fa2fb093fdc0bc9fab68e4533cd26abc2be3ecc
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/perftrace.pl | 136 |
1 files changed, 136 insertions, 0 deletions
diff --git a/scripts/perftrace.pl b/scripts/perftrace.pl new file mode 100755 index 000000000..90fe06105 --- /dev/null +++ b/scripts/perftrace.pl @@ -0,0 +1,136 @@ +#!/usr/bin/perl -w +# +# This file is part of the LibreOffice project. +# +# This Source Code Form is subject to the terms of the Mozilla Public +# License, v. 2.0. If a copy of the MPL was not distributed with this +# file, You can obtain one at http://mozilla.org/MPL/2.0/. +# + +use strict; + +my @input = <STDIN>; + +my %emitters; +my $log_date; +my @events; + +sub escape($) +{ + my $str = shift; + $str =~ s/\$/\\\$/g; + $str =~ s/\'/\\'/g; + $str =~ s/\"/\\"/g; + return $str; +} + +sub consume($$$$$) +{ + my ($time, $emitter, $type, $message, $line) = @_; + + if (!defined $emitters{$emitter}) { + $emitters{$emitter} = (scalar keys %emitters) + 1; + } + + return if ($type eq 'TRC' || $type eq 'DBG' || $type eq 'ERR'); + + my $id = (scalar @events) + 1; + # omitted 'end' - should really synthesize more cleverly here. title: '$message_e' + my $message_e = escape($message); + my $line_e = escape($line); + push @events, "{id: $id, group: $emitters{$emitter}, start: new Date('$log_date $time'), content: '$line_e'}"; + +# print STDERR "$emitter, $type, $time, $message, $line\n"; +} + +sub emit() +{ + my @groups; + foreach my $emitter (sort { $emitters{$a} <=> $emitters{$b} } keys %emitters) { + push @groups, "{id: $emitters{$emitter}, content: '$emitter'}"; + } + + my $groups_json = join(",\n", @groups); + my $items_json = join(",\n", @events); + + my $start_time = "2019-03-27 04:34:57.807344"; + my $end_time = "2019-03-27 04:35:28.911621"; + + print STDOUT <<"HTMLEND" +<html> +<head> + <title>Online timeline / profile</title> + <script src="http://visjs.org/dist/vis.js"></script> + <link href="http://visjs.org/dist/vis-timeline-graph2d.min.css" rel="stylesheet" type="text/css" /> +</head> + +<body onresize="/*timeline.checkResize();*/"> + +<h1>Online timeline / profile</h1> + +<div id="profile"></div> + +<script> + var groups = new vis.DataSet([ $groups_json ]); + var items = new vis.DataSet([ $items_json ]); + + var options = { + stack: false, + start: new Date('$start_time'), + end: new Date('$end_time'), + editable: false, + margin: { item: 10, axis: 5 }, + orientation: 'top' + }; + + var container = document.getElementById('profile'); + timeline = new vis.Timeline(container, null, options); + timeline.setGroups(groups); + timeline.setItems(items); + +</script> +</body> +</html> +HTMLEND +; +} + +# wsd-29885-29885 2019-03-27 ... +if ($input[0] =~ m/^\S+\s([\d-]+)\s+/) +{ + $log_date = $1; + print STDERR "reading log from $log_date\n"; +} else { + die "Malformed log line: $input[0]"; +} + +# parse all the lines +while (my $line = shift @input) { + my ($pevent, $pdetail); + + $line =~ s/\r*\n*//g; + + # wsd-26974-26974 2019-03-27 03:45:46.735736 [ loolwsd ] INF Initializing wsd. Local time: Wed 2019-03-27 03:45:46+0000. Log level is [8].| common/Log.cpp:191 + if ($line =~ m/^\S+\s+\S+\s+(\S+)\s+\[\s+(\S+)\s+\]\s+(\S+)\s+(.+)\|\s+(\S+)$/) { + consume($1, $2, $3, $4, $5); + + } elsif ($line =~ m/^\S+\s+\S+\s+(\S+)\s+\[\s+(\S+)\s+\]\s+(\S+)\s+(.+)$/) { # split lines ... + my ($time, $emitter, $type, $message, $line) = ($1, $2, $3, $4); + while (my $next = shift @input) { + # ... | kit/Kit.cpp:1272 + if ($next =~ m/^(.*)\|\s+(\S+)$/) + { + $message = $message . $1; + $line = $2; + last; + } else { + $message = $message . $next; + } + } + consume($time, $emitter, $type, $message, $line); + } else { + die "Poorly formed line - is logging.file.flush set to true ? '$line'\n"; + } +} + +emit(); |