[Libreoffice-commits] online.git: Branch 'distro/collabora/collabora-online-4' - scripts/perftrace.pl

Wed Apr 24 08:24:19 UTC 2019

scripts/perftrace.pl |  136 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 136 insertions(+)

New commits:
commit 2463b1000a1f1c10388b93aad7ba60a1c3e3293e
Author:     Michael Meeks <michael.meeks at collabora.com>
AuthorDate: Wed Mar 27 05:12:05 2019 +0000
Commit:     Jan Holesovsky <kendy at collabora.com>
CommitDate: Wed Apr 24 10:24:01 2019 +0200

    Parse loolwsd logs and start to chart the output.
    
    Change-Id: I2fa2fb093fdc0bc9fab68e4533cd26abc2be3ecc
    Reviewed-on: https://gerrit.libreoffice.org/71193
    Reviewed-by: Jan Holesovsky <kendy at collabora.com>
    Tested-by: Jan Holesovsky <kendy at collabora.com>

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();
