From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Campbell Subject: [PATCH OSSTEST v2 2/3] TestSupport: Add interface to compress stash files Date: Thu, 31 Oct 2013 16:53:14 +0000 Message-ID: <1383238395-14161-2-git-send-email-ian.campbell@citrix.com> References: <1383238365.5436.2.camel@dagon.hellion.org.uk> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: In-Reply-To: <1383238365.5436.2.camel@dagon.hellion.org.uk> List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Sender: xen-devel-bounces@lists.xen.org Errors-To: xen-devel-bounces@lists.xen.org To: ian.jackson@eu.citrix.com Cc: Ian Campbell , xen-devel@lists.xen.org List-Id: xen-devel@lists.xenproject.org Use it in ts-logs-capture --- Osstest/TestSupport.pm | 8 +++++++- ts-logs-capture | 5 +---- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm index f4ec055..dba5cef 100644 --- a/Osstest/TestSupport.pm +++ b/Osstest/TestSupport.pm @@ -66,7 +66,7 @@ BEGIN { serial_fetch_logs propname_massage - get_stashed open_unique_stashfile + get_stashed open_unique_stashfile compress_stashed dir_identify_vcs build_clone built_stash hg_dir_revision git_dir_revision vcs_dir_revision store_revision store_vcs_revision @@ -843,6 +843,12 @@ sub get_stashed ($$) { return "$c{Stash}/$oflight/$ojob/$path"; } +sub compress_stashed($) { + my ($path) = @_; + my $r= system 'gzip','-9vf','--',"$stash/$path"; + die "$r $!" if $r; +} + #---------- other stuff ---------- sub host_reboot ($) { diff --git a/ts-logs-capture b/ts-logs-capture index 2dd95ea..a0bd936 100755 --- a/ts-logs-capture +++ b/ts-logs-capture @@ -61,10 +61,7 @@ END target_getfile_root($lho,60, $logfile,"$stash/$llogfile"); if ($logfile !~ m/\.gz$/) { stat("$stash/$llogfile") or die "$stash/$llogfile $!"; - if ((stat _)[7] > 100000) { - my $r= system 'gzip','-9vf','--',"$stash/$llogfile"; - die "$r $!" if $r; - } + compress_stashed($llogfile) if(stat _)[7] > 100000; } 1; }) { -- 1.7.10.4