#!/usr/bin/perl # # Copyright 2007 Red Hat Inc # Author Steven Rostedt # # This software may be used and distributed according to the terms # of the GNU General Public License version 2, incorporated herein by reference. # # First find all the versions by using the rt-migrate result files. my $pwd = `pwd`; chomp $pwd; my $result_dir = "$pwd/results"; die "$result_dir not found" if (! -d $result_dir); my @ls = `ls $result_dir/results-kernel-build-rt-*.out`; my @versions; foreach my $file (@ls) { chomp $file; if ($file =~ /results-kernel-build-rt-(.*)\.out/) { my $ver = $1; $versions[$#versions+1] = $ver; } } @versions = sort @versions; open (OUT, ">index.html") || die "Can't open index.html"; print OUT << "EOF";

Benchmarks on SLAB vs SLUB.

This web page script
Generate hackbench plot script
Generate kernel builds plot script

Grub counter start script
Control test boot startup script
CFS debug boot startup script
Run hackbench script
Run kernel builds script
CFS Info Script

Kernels and System Information

EOF foreach $ver (@versions) { print OUT ""; } print OUT "\n"; print OUT << "EOF"; EOF my $imgdir = "$pwd/imgs"; if (! -d $imgdir) { mkdir $imgdir || die "cant create directory $imgdir"; } chdir $imgdir; foreach $ver (@versions) { print OUT "\n"; } print OUT "

	$ver
System Information	"; print OUT ""; print OUT "System Info "; print OUT "config "; print OUT "

\n"; # hackbench results `../tools/plot-hackbench.pl ../results`; `gnuplot results-hackbench.plt`; # kernel build results `../tools/plot-kernel.pl ../results`; `gnuplot results-kernel-builds.plt`; @ls = `ls *.png`; foreach my $file (@ls) { chomp $file; next if ($file =~ /-sm\.png$/); my $sm = $file; $sm =~ s/\.png$/-sm.png/; `convert -resize 200 $file $sm`; } print OUT << "EOF";

General Test Results

EOF my @tests = ("hackbench", "kernel-builds"); my @testfiles = ("hackbench", "kernel-build"); my @srcs = ("hackbench.c", "run-compiles"); for (my $i=0; $i <= $#tests; $i++) { print OUT "\n"; } print OUT << "EOF";

	Hack bench	Kernel Builds
Test Results	"; print OUT "Test Source\n"; print OUT ""; print OUT " "; foreach my $ver (@versions) { print OUT ""; print OUT "Raw Data for $ver \n"; } print OUT "

EOF # The End! print OUT << "EOF"; EOF close OUT