/var/lib/pcp/testsuite/453 is in pcp-testsuite 3.8.12ubuntu1.
This file is owned by root:root, with mode 0o755.
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 | #!/bin/sh
# PCP QA Test No. 453
# Check Perl PCP::LogSummary
#
# Copyright (c) 2011 Ken McDonell. All Rights Reserved.
#
seq=`basename $0`
echo "QA output created by $seq"
# get standard environment, filters and checks
. ./common.product
. ./common.filter
. ./common.check
perl -e "use PCP::LogSummary" >/dev/null 2>&1
test $? -eq 0 || _notrun "PCP::LogSummary perl module is not installed"
status=0 # success is the default!
$sudo rm -rf $tmp.* $seq.full
trap "rm -f $tmp.*; exit \$status" 0 1 2 3 15
cat <<'End-of-File' >$tmp.pl
use PCP::LogSummary;
my $archive = 'src/snort-disks.0';
my @metrics = ( 'disk.dev.read', 'disk.dev.read_bytes' );
my $hdl = PCP::LogSummary->new($archive, \@metrics);
foreach my $metric ( sort keys %$hdl ) {
my $summary = $$hdl{$metric};
print("metric=", $metric, "\n");
print(" average=", $$summary{'average'}, "\n");
print(" samples=", $$summary{'samples'}, "\n");
}
End-of-File
# real QA test starts here
perl $tmp.pl
# success, all done
exit
|