Adding scrapebuilds.pl

git-svn-id: svn://10.0.0.236/trunk@107771 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
mcafee%netscape.com
2001-11-09 21:31:19 +00:00
parent 8429169df5
commit ff7f60b684
2 changed files with 9 additions and 2 deletions

View File

@@ -72,7 +72,7 @@ do
cd $tinderbox_dir/$tree
for file in build.dat status.pl rules.pl sheriff.pl notes.txt treedata.pl who.dat ignorebuilds.pl bloat.dat pageloader.dat startup.dat scrape.dat
for file in build.dat status.pl rules.pl sheriff.pl notes.txt treedata.pl who.dat ignorebuilds.pl scrapebuilds.pl bloat.dat pageloader.dat startup.dat scrape.dat
do
rm -f $file
wget $tinderbox_link/$tree/$file

View File

@@ -32,6 +32,7 @@ use Backwards;
# From load_data()
$ignore_builds = {};
$scrape_builds = {};
# From get_build_name_index()
$build_name_index = {};
@@ -114,15 +115,17 @@ BEGIN {
}
sub tb_load_data {
$tree = $form{'tree'};
$tree = $form{'tree'}; # Testing: $tree = "SeaMonkey";
return undef unless $tree;
tb_load_treedata($tree);
$ignore_builds = {};
$scrape_builds = {};
require "$tree/ignorebuilds.pl" if -r "$tree/ignorebuilds.pl";
require "$tree/scrapebuilds.pl" if -r "$tree/scrapebuilds.pl";
$td = {};
$td->{name} = $tree;
@@ -130,6 +133,7 @@ sub tb_load_data {
$td->{cvs_module} = $cvs_module;
$td->{cvs_branch} = $cvs_branch;
$td->{ignore_builds} = $ignore_builds;
$td->{scrape_builds} = $scrape_builds;
$cvs_root = '/m/src' if $cvs_root eq '';
$td->{cvs_root} = $cvs_root;
@@ -232,6 +236,9 @@ sub tb_check_password {
}
}
# Force a return here to test w/o a password.
# return;
require 'header.pl';
print "Content-type: text/html\n";