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
173
174
175
176
177
178
179
180
|
# -*- perl -*-
# $Id$
#
# This script execute the test programs (usually, other scripts) in
# the RUN_LIST defined below. If it detects any problem it send email.
#
# This script requires ActivePerl for Win32 and libnet from CPAN.
#
# Usage: run_all_win32.pl <log directory> <admin email address>
#
# For example: run_all_win32.pl c:\log peter_pan@neverland.org
use Net::SMTP;
use File::Basename;
use FileHandle;
require POSIX;
use lib "$ENV{ACE_ROOT}/bin";
require run_all_list;
# This is the module we will checkout, someday someone could define a
# smaller module.
$MODULE='ACE_wrappers';
# The following are for redirecting execution results to temporary files.
$exe_log_name='run_test.log'; # Name of the tempfile used.
# If using 'sh'.
$sh_cmd="c:/bin/sh ";
$sh_redirection=" > $exe_log_name 2>&1";
#if using '4nt', 4nt is not quite working yet.
$four_nt_cmd="d:/Utils/4NT301/4NT.EXE ";
$four_nt_redirection=" >& $exe_log_name";
# Pick the one your like.
$shell_invoke = $sh_cmd;
$redirect_output = $sh_redirection;
# We obtain our revision to report errors.
#$REVISION='$Revision$';
# Find out the command name.
$CMD = basename($0);
# Extract configuration information from command line.
# TODO: Some validation and checking should be done here.
$LOGDIR = $ARGV[0];
$ADMIN = $ARGV[1];
# When an error is found we try to die gracefully and send some email
# to ADMIN.
$disable_file = $LOGDIR . '/.disable';
sub mywarn {
local @msg = @_;
# Need more error checking here.
$smtp = Net::SMTP->new('mail.cs.wustl.edu');
$smtp->mail( "$ADMIN" ); # sender's address
$smtp->to("$ADMIN"); # recipient's address
$smtp->data(); # Start the mail
# Mail Header
$smtp->datasend("To: $ADMIN\n");
$smtp->datasend("Subject: Auto run results\n");
$smtp->datasend("From: $ADMIN\n");
$smtp->datasend("\n");
# Now the message body
$smtp->datasend ('The following message is brought to you by: ', "\n");
$smtp->datasend ("$CMD, [ $REVISION ] for $BUILD on $CHECKOUT\n\n");
local $m;
foreach $m (@msg) {
$smtp->datasend ("$m \n");
}
$smtp->datasend ("\nPlease check log files for more info\n");
$smtp->dataend(); # Finish sending the mail
$smtp->quit; # Close the SMTP connection
}
sub mydie {
mywarn @_;
print HIST 'FAILED', "\n";
unlink $disable_file
|| die "cannot unlink disable file";
exit 0;
}
### MAIN FUNCTION
### MAIN FUNCTION
$histfile = $LOGDIR . '/history';
open(HIST, '>>' . $histfile)
# Do not use 'mydie' to report the problem, it tries to use HIST....
|| die "cannot open history file \"$histfile\"\n";
$date = localtime;
print HIST $CMD, ': running at ', $date, ' ';
if (-f $disable_file) {
print HIST "DISABLED\n";
exit 0;
}
open (DISABLE, '>' . $disable_file)
|| mydie "cannot open disable file";
print DISABLE "auto_compile <$date> is running\n";
close (DISABLE)
|| mydie "cannot close disable file";
$LOGFILE = $LOGDIR . '/' . POSIX::strftime("%b%d_%Y.log", localtime);
open(LOG, '>' . $LOGFILE)
|| mydie "cannot open log file";
LOG->autoflush ();
foreach $i (@RUN_LIST) {
local @test_info = split (/\ \,\ /, $i);
local $directory = $test_info[0];
local $program = $test_info[1];
print "$directory, $program\n";
$date = localtime;
print LOG "$CMD: =============================================\n";
print LOG "$CMD: running $program in $directory at ", $date, "\n";
local $subdir =
$ENV{ACE_ROOT} . '/'. $directory;
chdir ($subdir)
|| mydie "cannot chdir to $subdir";
$run_error = 0;
system ($shell_invoke . " " . $program . " " . $redirect_output);
open (RUN, "$exe_log_name") || push @failures, "Can't open execution log file $exe_log_name\n";
while (<RUN>) {
print LOG $_;
if (m/^Error/ || m/FAILED/ || m/EXCEPTION/) {
$run_error = 1;
}
}
if (close(RUN) == 0) {
push @failures, "Error when closing log file $program in $directory";
next;
}
$date = localtime;
print LOG "$CMD: $program finished ", $date, "\n";
if ($run_error != 0) {
push @failures,
"errors detected while running $program in $directory";
}
unlink ("$exe_log_name");
}
if ($#failures >= 0) {
mydie @failures;
}
close(LOG)
|| mydie "cannot close LOGFILE";
print HIST "OK\n";
close(HIST)
|| mydie "cannot close history file";
unlink $disable_file
|| mydie "cannot unlink disable file";
exit 0;
|
