Compress report files
authorMans Rullgard <mans@mansr.com>
Thu, 29 Jul 2010 17:47:45 +0000 (18:47 +0100)
committerMans Rullgard <mans@mansr.com>
Thu, 29 Jul 2010 17:47:45 +0000 (18:47 +0100)
fate-recv.sh
history.cgi
index.cgi
report.cgi

index d2c475e..61c54b3 100755 (executable)
@@ -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
index c2d34a2..7aa7057 100755 (executable)
@@ -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;
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;
index 32a98b0..4e1ad6a 100755 (executable)
@@ -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';