1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
#! /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;
|
