Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-11-26 06:11:37 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Increase timeout to 10min., and don't over-eagerly assume the app crashed. Add code to send email.

Browse Source
This commit is contained in:
waterson%netscape.com 1999-11-17 22:26:50 +00:00
parent 9b000d2760
commit d90ac16633
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
webtools/leak-o-matic/make-data.pl
View File

@ -20,9 +20,8 @@
# Contributor(s):
# Chris Waterson <waterson@netscape.com>
#
# $Id: make-data.pl,v 1.3 1999/11/17 19:15:05 waterson%netscape.com Exp $
# $Id: make-data.pl,v 1.4 1999/11/17 22:26:50 waterson%netscape.com Exp $
#
use 5.004;
use strict;
use Getopt::Long;
@ -31,7 +30,7 @@ use POSIX "sys_wait_h";
$::opt_dir = ".";
$::opt_app = "mozilla-bin -f bloaturls.txt";
GetOptions("dir=s", "app=s");
GetOptions("dir=s", "app=s", "email=s");
sub ForkAndWait($$$) {
my ($dir, $app, $timeout) = @_;
@ -49,8 +48,7 @@ sub ForkAndWait($$$) {
while ($timeout--) {
sleep 1;
my $status = POSIX::waitpid($pid, WNOHANG());
return 0 if $pid == $status;
return -1 if $status < 0;
return 0 if $status != 0;
}
kill("TERM", $pid);
@ -137,17 +135,21 @@ foreach $class (@leakyclasses) {
$ENV{"XPCOM_MEM_REFCNT_LOG"} = $refcntlogfile;
$ENV{"XPCOM_MEM_LOG_OBJECTS"} = $object;
if (ForkAndWait($::opt_dir, $::opt_app, 60) < 0) {
if (ForkAndWait($::opt_dir, $::opt_app, 600) < 0) {
print " * Timed out; discarding.\n";
unlink $refcntlogfile;
}
}
}
# Now zip up all of the datafiles into YYYYMMDD.zip
{
# Now zip up all of the datafiles into YYYYMMDD.zip
my $zipfile = POSIX::strftime("%Y%m%d.zip", localtime(time));
system("zip -m $zipfile *.log");
# ...and mail it off to the server
system("cat $zipfile | uuencode $zipfile | mail $::opt_email")
if $::opt_email;
}