This file is indexed.

/usr/share/perl5/PCP/exceldemo.pl is in libpcp-logsummary-perl 4.0.1-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
# A demo script which interfaces the LogSummary Perl module to the
# WriteExcel module, with some real data, to show what it can do.
# Author: Nathan Scott <nathans@debian.org>
# Note: No #! line, as this pulls in an external dependency that
#       we really don't want in packaging tools like rpm.

use strict;
use warnings;
use PCP::LogSummary;
use Spreadsheet::WriteExcel;

my @app = ('aconex.response_time.samples', 'aconex.response_time.adjavg');
my @db = ('kernel.all.cpu.user', 'kernel.all.cpu.sys', 'kernel.all.cpu.intr');
my @dbdisk = ('disk.dev.idle', 'disk.dev.read_bytes');

my ( $dblog1, $dblog2 ) = ('t/db/20081125', 't/db/20081126');
my $dbdisk_before = PCP::LogSummary->new($dblog1, \@dbdisk);
my $dbdisk_after  = PCP::LogSummary->new($dblog2, \@dbdisk);
my $dbcpu_before = PCP::LogSummary->new($dblog1, \@db);
my $dbcpu_after  = PCP::LogSummary->new($dblog2, \@db);

my ( $applog1, $applog2 ) = ('t/app/20081125', 't/app/20081126');
my $app_before = PCP::LogSummary->new($applog1, \@app);
my $app_after  = PCP::LogSummary->new($applog2, \@app);

my $workbook = Spreadsheet::WriteExcel->new('new-dxb-dbserver.xls');

my $heading = $workbook->add_format();
$heading->set_bold();
$heading->set_italic();
my $subheading = $workbook->add_format();
$subheading->set_italic();
$subheading->set_bg_color('silver');
my $unitscolumn = $workbook->add_format();
$unitscolumn->set_align('center');

my $sheet = $workbook->add_worksheet();
my ( $precol, $postcol, $units ) = ( 1, 2, 3 );
$sheet->set_column('A:A', 32);	# metric names column
$sheet->set_column('B:B', 14);	# column for "Before" values
$sheet->set_column('C:C', 14);	# column for "After" values
$sheet->set_column('D:D', 12);	# metrics units column

my $row = 0;
$sheet->write($row, 0, 'Dubai Database Storage Upgrade', $heading);
$row = 2;
$sheet->write($row, 0, 'Metrics', $subheading);
$sheet->write($row, $precol, 'Before', $subheading);
$sheet->write($row, $postcol, 'After', $subheading);
$sheet->write($row, $units, 'Units', $subheading);

foreach my $m ( @app ) {
    my $metric = metric_instance($m, 'dxb');
    $row++;
    $sheet->write($row, 0, $metric);
    $sheet->write($row, $precol, $$app_before{$metric}{'average'});
    $sheet->write($row, $postcol, $$app_after{$metric}{'average'});
    $sheet->write($row, $units, $$app_after{$metric}{'units'}, $unitscolumn);
}
foreach my $m ( @dbdisk ) {
    my $metric = metric_instance($m, 'G:');	# Windows drive letter
    $row++;
    $sheet->write($row, 0, $metric);
    $sheet->write($row, $precol, $$dbdisk_before{$metric}{'average'});
    $sheet->write($row, $postcol, $$dbdisk_after{$metric}{'average'});
    $sheet->write($row, $units, $$dbdisk_after{$metric}{'units'}, $unitscolumn);
}

# Report CPU metrics as a single utilisation value
{
    my $syscpu1 = $$dbcpu_before{'kernel.all.cpu.sys'};
    my $intcpu1 = $$dbcpu_before{'kernel.all.cpu.intr'};
    my $usrcpu1 = $$dbcpu_before{'kernel.all.cpu.user'};
    my $syscpu2 = $$dbcpu_after{'kernel.all.cpu.sys'};
    my $intcpu2 = $$dbcpu_after{'kernel.all.cpu.intr'};
    my $usrcpu2 = $$dbcpu_after{'kernel.all.cpu.user'};
    my $ncpu = 4;

    my $cpu_before = $ncpu * ( $$syscpu1{'average'} +
		$$intcpu1{'average'} + $$usrcpu1{'average'} );
    my $cpu_after  = $ncpu * ( $$syscpu2{'average'} +
		$$intcpu2{'average'} + $$usrcpu2{'average'} );

    $row++;
    $sheet->write($row, 0, 'kernel.all.cpu');
    $sheet->write($row, $precol, $cpu_before * 100.0);
    $sheet->write($row, $postcol, $cpu_after * 100.0);
    $sheet->write($row, $units, 'percent', $unitscolumn);
}