Changeset 27211 in osm for applications/editors/josm

Timestamp:

2011-12-11T15:24:38+01:00 (13 years ago)

Author:

stoecker

Message:

minor fixes

File:

• applications/editors/josm/i18n/launchpad.pl (modified) (3 diffs)

applications/editors/josm/i18n/launchpad.pl

@@ -229 +229 @@
 sub doget
 {
-  my ($mech, $page) = @_;
-  for(my $i = 1; $i <= 50; $i++)
+  my ($mech, $page, $arg) = @_;
+  for(my $i = 1; $i <= 5; $i++)
   {
     $mech->timeout(30);
@@ -241 +241 @@
     return $mech if !$@;
     sleep(30+5*$i);
+    last if $arg && $arg eq "no503" and $code == 503;
     $mech = WWW::Mechanize->new("agent" => $agent);
   }
@@ -281 +282 @@
       }
       my $urlcode = URI::Escape::uri_escape($code);
-      $mech = doget($mech, "https://translations.launchpad.net/josm/trunk/+pots/josm/$lang/+filter?person=$urlcode");
+      $mech = doget($mech, "https://translations.launchpad.net/josm/trunk/+pots/josm/$lang/+filter?person=$urlcode", "no503");
       sleep(1);
-      my ($count) = $mech->content() =~ /of[\r\n\t ]+?(\d+)[\r\n\t ]+?result/;
+      my $cont = $mech->content() || "";
+      my ($count) = $cont =~ /of[\r\n\t ]+?(\d+)[\r\n\t ]+?result/;
       if($count && $mech->status == 200)
       {