summaryrefslogtreecommitdiffstats
path: root/perform
diff options
context:
space:
mode:
authorBill Wendling <wendling@ncsa.uiuc.edu>2002-06-03 20:39:51 (GMT)
committerBill Wendling <wendling@ncsa.uiuc.edu>2002-06-03 20:39:51 (GMT)
commit0cbb77f34f7a8cda2dcdea9320f8757259a4494d (patch)
tree36440991752af78658d1634edae407706f06751d /perform
parent88f9ee489a37e56c8fcaf294fee49e6ad5b34af2 (diff)
downloadhdf5-0cbb77f34f7a8cda2dcdea9320f8757259a4494d.zip
hdf5-0cbb77f34f7a8cda2dcdea9320f8757259a4494d.tar.gz
hdf5-0cbb77f34f7a8cda2dcdea9320f8757259a4494d.tar.bz2
[svn-r5515] Purpose:
Bug Fix Description: There was an error in the way it was determining if there were any reads to report. Solution: Wrote a subroutine which would determine if the reads are defined in the structure before trying to print them out. Platforms tested: Linux
Diffstat (limited to 'perform')
-rwxr-xr-xperform/gen_report.pl35
1 files changed, 29 insertions, 6 deletions
diff --git a/perform/gen_report.pl b/perform/gen_report.pl
index db82096..b8bbed8 100755
--- a/perform/gen_report.pl
+++ b/perform/gen_report.pl
@@ -162,15 +162,40 @@ sub create_excel_output_string {
$output_content;
}
+sub is_defined {
+ my ($t) = @_;
+ my $def = 1;
+
+ foreach my $procs (sort { $b <=> $a } keys(%results)) {
+ foreach my $xfer (sort { $a <=> $b } keys(%{$results{$procs}})) {
+ if (!defined($results{$procs}{$xfer}[0]{$t})) {
+ $def = 0;
+ }
+ }
+
+ foreach my $xfer (sort { $a <=> $b } keys(%{$results{$procs}})) {
+ if (!defined($results{$procs}{$xfer}[0]{$t})) {
+ $def = 0;
+ }
+ }
+
+ foreach my $xfer (sort { $a <=> $b } keys(%{$results{$procs}})) {
+ if (!defined($results{$procs}{$xfer}[0]{$t})) {
+ $def = 0;
+ }
+ }
+ }
+
+ $def;
+}
+
sub write_excel_file {
print EXCEL_OUTPUT "\nWrite-Only\n";
print EXCEL_OUTPUT create_excel_output_string("write-only");
print EXCEL_OUTPUT "\nWrite-Close\n";
print EXCEL_OUTPUT create_excel_output_string("write-close");
- if (defined($results{$procs}{$xfer}[0]{"read-only"}) ||
- defined($results{$procs}{$xfer}[1]{"read-only"}) ||
- defined($results{$procs}{$xfer}[2]{"read-only"})) {
+ if (is_defined("read-only")) {
print EXCEL_OUTPUT "\nRead-Only\n";
print EXCEL_OUTPUT create_excel_output_string("read-only");
print EXCEL_OUTPUT "\nRead-Close\n";
@@ -246,9 +271,7 @@ sub write_ascii_file {
print ASCII_OUTPUT "\n-----------\n";
print ASCII_OUTPUT create_ascii_output_string("write-close");
- if (defined($results{$procs}{$xfer}[0]{"read-only"}) ||
- defined($results{$procs}{$xfer}[1]{"read-only"}) ||
- defined($results{$procs}{$xfer}[2]{"read-only"})) {
+ if (is_defined("read-only")) {
print ASCII_OUTPUT "\n\nRead-Only";
print ASCII_OUTPUT "\n---------\n";
print ASCII_OUTPUT create_ascii_output_string("read-only");