upstream/opnsense-src
1
0
Fork 0
mirror of https://github.com/opnsense/src.git synced 2026-05-28 04:12:45 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Log all results to a history file in the log directory.

Browse source
This commit is contained in:
Dag-Erling Smørgrav 2003-12-07 17:43:30 +00:00
parent b331ec01c4
commit 5494e1fa10
1 changed files with 38 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
tools/tools/tinderbox/tbmaster.pl
View file

@ -120,6 +120,37 @@ sub readconf($) {
return 1;
}
###
### Record a tinderbox result in the history file
###
sub history($$$) {
my $start = shift;
my $end = shift;
my $success = shift;
my $history = strftime("%Y-%m-%d %H:%M:%S\t", localtime($start));
$history .= strftime("%Y-%m-%d %H:%M:%S\t", localtime($end));
$history .= expand('ARCH') . "\t";
$history .= expand('MACHINE') . "\t";
my $date = expand('DATE');
if ($date) {
$date =~ s/\s+/\t/g;
$history .= expand('BRANCH') . ":" . expand('DATE') . "\t";
} else {
$history .= expand('BRANCH') . "\t";
}
$history .= $success ? "OK\n" : "FAIL\n";
my $fn = expand('LOGDIR') . "/history";
local *HISTORY;
if (sysopen(HISTORY, $fn, O_WRONLY|O_APPEND|O_CREAT, 0644)) {
syswrite(HISTORY, $history, length($history));
close(HISTORY);
} else {
print(STDERR "failed to record result to history file:\n$history\n");
}
}
###
### Report a tinderbox failure
###
@ -153,6 +184,8 @@ sub tinderbox($$$) {
my $arch = shift;
my $machine = shift;
my $start = time();
$CONFIG{'BRANCH'} = $branch;
$CONFIG{'ARCH'} = $arch;
$CONFIG{'MACHINE'} = $machine;
@ -268,6 +301,11 @@ sub tinderbox($$$) {
close(BRIEF);
close(FULL);
my $end = time();
# Record result in history file
history($start, $end, !$error);
# Mail out error reports
if ($error && $CONFIG{'RECIPIENT'}) {
my $sender = expand('SENDER');