Compress report files

diff --git a/fate-recv.sh b/fate-recv.sh
index d2c475e..61c54b3 100755 (executable)
--- a/fate-recv.sh
+++ b/fate-recv.sh
@@ -35,6 +35,7 @@ fi
 repdir=$slotdir/$date
 mkdir $repdir
 gzip -9 *.log
-cp -p report *.log.gz $repdir
+xz report
+cp -p report.xz *.log.gz $repdir
 rm -f $slotdir/latest
 ln -s $date $slotdir/latest

diff --git a/history.cgi b/history.cgi
index c2d34a2..7aa7057 100755 (executable)
--- a/history.cgi
+++ b/history.cgi
@@ -32,7 +32,7 @@ h1 "Report history for $slot";
 start 'table', id => 'history', class => 'replist';
 trowh 'Time', 'Arch', 'OS', 'Compiler', 'Rev', 'Result';
 for my $rep (sort { $b cmp $a } @reps) {
-    open R, "$slotdir/$rep/report";
+    open R, '-|', "unxz -c $slotdir/$rep/report.xz";
     my $hdr  = split_header scalar <R>;
     my $conf = split_config scalar <R>;
     my $ntest = 0;

diff --git a/index.cgi b/index.cgi
index 88e4112..9e034c2 100755 (executable)
--- a/index.cgi
+++ b/index.cgi
@@ -28,7 +28,7 @@ h1 'FATE';
 start 'table', id => 'index', class => 'replist';
 trowh 'Time', 'Arch', 'OS', 'Compiler', 'Rev', 'Result';
 for my $slot (sort @slots) {
-    open R, "$fatedir/$slot/latest/report";
+    open R, '-|', "unxz -c $fatedir/$slot/latest/report.xz" or next;
     my $hdr  = split_header scalar <R>;
     my $conf = split_config scalar <R>;
     my $ntest = 0;

diff --git a/report.cgi b/report.cgi
index 32a98b0..4e1ad6a 100755 (executable)
--- a/report.cgi
+++ b/report.cgi
@@ -13,9 +13,9 @@ my $req_slot = param 'slot';
 my $req_time = param 'time';
 
 my $repdir = "$fatedir/$req_slot/$req_time";
-my $report = "$repdir/report";
+my $report = "$repdir/report.xz";
 
-open R, $report or fail 'Requsted report not found';
+open R, '-|', "unxz -c $report" or fail 'Requsted report not found';
 
 my $hdr  = split_header scalar <R> or fail 'Invalid report';
 my $conf = split_config scalar <R> or fail 'Invalid report';