Docs (in new Docs directory) for cr-disk-report

The PDF is automatically generated and linked to, when applicable.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/.gitignore b/.gitignore
index 5f3c626daa948abab9893ff94d9a9c615fe3f8d3..07b039d2a87a637dd800f61a43479cc38b27dea2 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -1,4 +1,5 @@
 *~
+*.bak
 tmp
 bisection.ps
 bisection.dot
@@ -30,3 +31,4 @@ overlay-local
 images
 diskusage-[A-Z]*.html
 diskusage-[A-Z]*.png
+diskusage-[A-Z]*.pdf

diff --git a/Docs/cr-disk-report/diskusage-LogsPublish_build=2damd64_.png b/Docs/cr-disk-report/diskusage-LogsPublish_build=2damd64_.png
new file mode 100644 (file)
index 0000000..4374e8a
Binary files /dev/null and b/Docs/cr-disk-report/diskusage-LogsPublish_build=2damd64_.png differ

diff --git a/Docs/cr-disk-report/graph-meaning.fig b/Docs/cr-disk-report/graph-meaning.fig
new file mode 100644 (file)
index 0000000..a673e4d
--- /dev/null
+++ b/Docs/cr-disk-report/graph-meaning.fig
@@ -0,0 +1,40 @@
+#FIG 3.2  Produced by xfig version 3.2.5b
+Landscape
+Center
+Metric
+A4      
+100.00
+Single
+-2
+1200 2
+2 5 0 1 0 -1 50 -1 -1 0.000 0 0 -1 0 0 5
+       0 diskusage-LogsPublish_build=2damd64_.png
+        5805 3870 10797 3870 10797 5867 5805 5867 5805 3870
+2 1 0 1 0 7 40 -1 -1 0.000 0 0 -1 1 0 2
+       0 0 1.00 60.00 120.00
+        10845 6570 5805 6570
+2 1 0 1 0 7 40 -1 -1 0.000 0 0 -1 1 0 2
+       0 0 1.00 60.00 120.00
+        3690 6210 3825 5850
+2 1 0 1 0 7 40 -1 -1 0.000 0 0 -1 1 0 2
+       0 0 1.00 60.00 120.00
+        3195 3285 3600 4140
+2 1 0 1 0 7 40 -1 -1 0.000 0 0 -1 1 0 2
+       0 0 1.00 60.00 120.00
+        7875 3465 7875 3735
+4 0 0 50 -1 16 40 0.0000 4 480 1500 3510 5670 1153\001
+4 0 0 50 -1 17 40 0.0000 4 480 1875 3105 4725 75242\001
+4 0 0 40 -1 0 24 0.0000 4 270 1500 1890 3105 Total Kb\001
+4 0 0 40 -1 0 24 0.0000 4 360 1875 1935 6570 No. of jobs\001
+4 0 0 40 -1 0 24 0.0000 4 270 810 10620 6480 Now\001
+4 0 0 40 -1 0 24 0.0000 4 270 870 7200 6885 Time\001
+4 0 0 40 -1 0 24 0.0000 4 270 690 9180 6435 Min\001
+4 0 0 40 -1 0 24 0.0000 4 360 1110 9180 6900 Expire\001
+4 0 0 40 -1 0 24 0.0000 4 360 690 9180 7365 Age\001
+4 0 0 40 -1 0 24 0.0000 4 360 4185 6390 3420 Cumulative usage by age\001
+4 0 0 40 -1 0 24 0.0000 4 270 5565 1170 8280 Horizontal scales are all the same\001
+4 0 0 40 -1 0 24 0.0000 4 360 3180 1170 9660  - column headings\001
+4 0 0 40 -1 0 24 0.0000 4 360 2580 1170 10125  - row headings\001
+4 0 0 40 -1 0 24 0.0000 4 360 5700 1170 10590  - overall total (group all by itself)\001
+4 0 0 40 -1 0 24 0.0000 4 360 5325 1170 11055  - individual cells in many body\001
+4 0 0 40 -1 0 24 0.0000 4 360 9495 1170 9195 Vertical scales are the same within the following groups:\001

diff --git a/cr-disk-report b/cr-disk-report
index f9b842d17b2ec32413bc569ddb6ce4c4d40880d5..837f92867208d33f601ee8820da432d1ee917f73 100755 (executable)
--- a/cr-disk-report
+++ b/cr-disk-report
@@ -313,7 +313,22 @@ push @o, $g;
 push @o, $g foreach @cols;
 push @o, "\n";
 
-prow(headcell('[<em>MiB</em><br>count]'),
+my $headcell = '[<em>MiB</em><br>count]';
+if ($graphs_px) {
+    my $meaning_pdf = $output;
+    $meaning_pdf =~ s/\.html?$//i;
+    $meaning_pdf .= "_graph-meaning.pdf";
+    open STDOUT, ">", "$meaning_pdf.tmp" or die "$meaning_pdf $!";
+    $?=0; $!=0;
+    system 'cd Docs/cr-disk-report && fig2dev -L pdf graph-meaning.fig'
+       and die "$? $!";
+    open STDOUT, ">/dev/null" or die $!;
+    rename "$meaning_pdf.tmp", "$meaning_pdf" or die "$meaning_pdf $!";
+    $meaning_pdf =~ s#.*/##;
+    $headcell = "<a href='$meaning_pdf'>$headcell</a>";
+}
+
+prow(headcell($headcell),
      cheadcell('Branch / blessing'),
      map { cheadcell(encode_entities($_)) } @cols);
 prowdata('', headcell('Job'), spcell(\%totalinfo, '','',$totaldata),