зеркало из https://github.com/mozilla/pjs.git
bug 409643: allow normal bonsai URLs to get file lists from instead of making the admin find the cvs backout URL.
r=bear
This commit is contained in:
Родитель
6703b4822e
Коммит
95ccac4ee0
|
@ -66,6 +66,10 @@ sub parse_bonsai_backout_file {
|
||||||
|
|
||||||
if (($::ARGV[0]) && ($::ARGV[0] =~ /^http/)) {
|
if (($::ARGV[0]) && ($::ARGV[0] =~ /^http/)) {
|
||||||
print "--\n";
|
print "--\n";
|
||||||
|
my $url = $::ARGV[0];
|
||||||
|
if ($url !~ m/generateBackoutCVSCommands/) {
|
||||||
|
$url .= '&generateBackoutCVSCommands=1';
|
||||||
|
}
|
||||||
my $data = `wget -O- -nv "$::ARGV[0]"`;
|
my $data = `wget -O- -nv "$::ARGV[0]"`;
|
||||||
parse_bonsai_backout_file($data);
|
parse_bonsai_backout_file($data);
|
||||||
}
|
}
|
||||||
|
@ -92,6 +96,9 @@ EOF
|
||||||
chomp $filename;
|
chomp $filename;
|
||||||
if ($filename =~ /^http/) {
|
if ($filename =~ /^http/) {
|
||||||
print "--\n";
|
print "--\n";
|
||||||
|
if ($filename !~ m/generateBackoutCVSCommands/) {
|
||||||
|
$filename .= '&generateBackoutCVSCommands=1';
|
||||||
|
}
|
||||||
my $data = `wget -O- -nv "$filename"`;
|
my $data = `wget -O- -nv "$filename"`;
|
||||||
parse_bonsai_backout_file($data);
|
parse_bonsai_backout_file($data);
|
||||||
if (0 == @files) {
|
if (0 == @files) {
|
||||||
|
|
Загрузка…
Ссылка в новой задаче