RetroZilla/security/nss/tests/clean_tbx
2015-10-20 23:03:22 -04:00

173 lines
4.7 KiB
Perl

#! /bin/perl
#######################################################################
#
# /u/sonmi/bin/clean_tbx.pl
#
# this script is supposed to remove tinderbox QA if:
# QA has passed, there are 2+ newer QA dirs of the same machine and
# platform (32/64) and it is older than 2 hours
# QA has failed, there are 2+ newer QA dirsof the same machine and
# platform (32/64) with _identical failures and it is older than
# 2 hours
# directory is older than 48 hours
#
#######################################################################
use Time::Local;
$ANY_TBX_KEEP_HOURS=48;
$NOT_FAILED_TBX_KEEP_HOURS=24;
$PASSED_TBX_KEEP_HOURS=2;
$IF_TBX_KEEP_HOURS=2;
$PASSED_NEWER_DIRS=2;
$IF_NEWER_DIRS=2;
$verbose = 1;
$TBX_TESTDIR="/share/builds/mccrel3/nss/nsstip/tinderbox/tests_results/security";
$FTP_STAGE="/u/sonmi/tmp/ftp_stage/tinderbox";
@tbx_dirs = ();
$eANY_TBX_KEEP=$ANY_TBX_KEEP_HOURS*60*60;
$ePASSED_TBX_KEEP=$PASSED_TBX_KEEP_HOURS*60*60;
$eIF_TBX_KEEP=$IF_TBX_KEEP_HOURS*60*60;
$eNOT_FAILED_TBX_KEEP=$NOT_FAILED_TBX_KEEP_HOURS*60*60;
$year, $month, $days, $hours, $minutes, $seconds;
$efulldate=0;
$fulldate=0;
$no_bits="";
$last_no_bits="";
$host="";
$last_host="";
@tbx_dirs = `ls -r $TBX_TESTDIR`; #sort first by host,
#then 64,
#then newest - oldest
debug ("found $#tbx_dirs directories ");
($seconds, $minutes, $hours, $days, $month, $year) = localtime;
debug ("$seconds, $minutes, $hours, $days, $month, $year");
$enow = timelocal(localtime);
sub debug;
sub warning;
sub error;
sub msg;
sub init;
sub check_tbx_dirs;
sub check_tbx_dirs
{
my $platform_idx=0; # counts directories per platform, newest
# to oldest (ignores incomplete)
my $passed_idx=0; # counts passed directories newest to oldest
my $QAstatus="unknown";
foreach $tbx_dir (@tbx_dirs) {
$tbx_dir =~ s/\n//g;
$fulldate = $tbx_dir;
$fulldate =~ s/^.*-(20.*-..\...$)/$1/;
$day = $month = $year = $hour = $min = $fulldate;
$host = $tbx_dir;
$host =~ s/-20.*//;
$no_bits = $host;
$host =~ s/64$//;
$no_bits =~ s/.*64$/64/;
$no_bits =~ s/^[^6].*/other/;
$year =~ s/(....).*/$1/;
$month =~ s/....(..).*/$1/;
$day =~ s/......(..).*/$1/;
$hour =~ s/........-(..).*/$1/;
$min =~ s/.*\.(..)$/$1/;
if ( -f "$TBX_TESTDIR/$tbx_dir/QAstatus" ) {
$QAstatus=`cat $TBX_TESTDIR/$tbx_dir/QAstatus 2>/dev/null`;
$QAstatus =~ s/\n$//g;
} else {
$QAstatus="unknown";
}
$efulldate = timelocal( 0, $min, $hour, $day, $month-1, $year-1900);
if ( "$host" !~ "$last_host" || "$no_bits" !~ "$last_no_bits" ) {
if ( $QAstatus !~ "QA running" ) {
$platform_idx = 0;
} else {
$platform_idx = -1;
}
$passed_idx = 0;
$last_host = $host;
$last_no_bits = $no_bits;
} else {
$platform_idx ++;
$passed_idx++ if ( $QAstatus =~ "QA passed" ) ;
}
debug ("$tbx_dir host $host date $fulldate bits $no_bits $year/$month/$day $hour:$min QAstatus $QAstatus pli $platform_idx pai $passed_idx");
if ( $passed_idx > $PASSED_NEWER_DIRS && $QAstatus =~ "QA passed" ) {
$ekeeptime=$efulldate + $ePASSED_TBX_KEEP;
#($s, $m, $h, $d, $mo, $y) = localtime($ekeeptime);
#debug ("$passed_idx > $PASSED_NEWER_DIRS ekeeptime ($s, $m, $h, $d, $mo, $y) == $ekeeptime");
rm_tbx ("Passed $PASSED_TBX_KEEP_HOURS + hours old") if ( $ekeeptime <= $enow );
} elsif ( $QAstatus !~ "QA failed" ) {
$ekeeptime=$efulldate + $eNOT_FAILED_TBX_KEEP;
rm_tbx ("Not failed $NOT_FAILED_TBX_KEEP_HOURS + hours old") if ( $ekeeptime <= $enow );
} else {
$ekeeptime=$efulldate + $eANY_TBX_KEEP;
rm_tbx ("Passed 2+ hours old") if ( $ekeeptime <= $enow );
}
if ( $QAstatus =~ "QA failed" ) {
$ekeeptime=$efulldate + $eIF_TBX_KEEP;
#FIXME - compare to the previous failure by filtering and
#FIXME diffing the results.html files (first grep failed)
}
}
}
sub rm_tbx()
{
debug ("DELETING $tbx_dir... (@_[0]) ");
system("rm -rf $TBX_TESTDIR/$tbx_dir");
#debug ("rm -rf $TBX_TESTDIR/$tbx_dir");
}
sub msg
{
my $i;
for ($i = 0; $i <= $#_ ; $i++ ) {
print "@_[$i] ";
}
print "\n";
}
sub error
{
msg ("ERROR: " ,@_ );
}
sub warning
{
msg ("WARNING:" ,@_ );
}
sub debug
{
if ( $verbose == 1 ) {
msg ("DEBUG: " ,@_ );
} elsif ( $verbose == 2 ) {
msg (@_ );
}
}
check_tbx_dirs;