Seit dem vorherigen Beitrag hat sich ein bisschen was getan. Mein Leben wurde durch das Paket Sub::WrapPackages gerettet. Somit konnte ich meine Arbeit der letzten Zeit ins Archiv umlagern und mit wenigen Zeilen in den Einsprungpunkten das gesamte System instrumentieren lassen. Wenn ich in die CGI-Dateien am Anfang folgendes Einfüge bekomme ich valide Daten zur Analyse:
use Sub::WrapPackages
packages => [qw(EPrints EPrints::*)],
wrap_inherited => 1,
pre => sub {
use Kieker;
my $kieker = Kieker->new();
$_[0] =~ /^(.*)::(.*?)$/;
$kieker->EntryEvent($2,$1);
},
post => sub {
use Kieker;
my $kieker = Kieker->new();
$_[0] =~ /^(.*)::(.*?)$/;
$kieker->ExitEvent($2,$1);
};
An den Befehlen kann man schon einiges sehen in welchem Kontext ich mich bewege. Zunächst untersuche ich zur Zeit das EPrints-System (http://www.eprints.org) und weiter benutzt ich dafür wie bereits angesprochen das Kieker Monitoring Framework.
Nach einem ersten Test habe ich jetzt endlich die Möglichkeit die Daten auszuwerten. Direkt nach dem Login als Administrator wird eine Liste der zur Zeit vorhandenen Publikationen geladen. Dabei wurden dann etwa 27000 Funktionsaufrufe protokolliert. Das erste Bild war allerdings noch nicht sehr aussagekräftig:
EPrints Call Tree – Admin Login
Hier hat das automatische Layout für den Graphen noch nicht so schön gearbeitet und mit vielen Labels dann die Fläche “gefüllt”.
Nach einigen weiteren Versuchen hab ich dann allerdings schonmal das folgende Bild erhalten:
Das ganze gibt es auch nochmal hier als Vektorgrafik zum runterladen, falls ihr da Details sehen möchtet..
Jetzt kann ich anfangen Daten zu generieren und dann auszuwerten. Juhu.
