Changeset 27210 in osm for applications/editors

Timestamp:

2011-12-11T14:30:19+01:00 (13 years ago)

Author:

stoecker

Message:

fix script

File:

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

applications/editors/josm/i18n/launchpad.pl

@@ -3 +3 @@
 
 use strict;
+use utf8;
 
 my ($user, $pwd);
@@ -21 +22 @@
 );
 
-my $revision = '$Revision$revision =~ s/^.*?(\d+).*$/$1/;
+my $revision = '$Revision$';
+$revision =~ s/^.*?(\d+).*$/$1/;
 my $agent = "JOSM_Launchpad/1.$revision";
 
@@ -228 +230 @@
 {
   my ($mech, $page) = @_;
-  print "$page\n";
   for(my $i = 1; $i <= 50; $i++)
   {
+    $mech->timeout(30);
     eval
     {
       $mech->get($page);
     };
-    print "Try $i: $@" if $@;
+    my $code = $mech->status();
+    print "Try $i: ($code) $@" if $@;
     return $mech if !$@;
     sleep(30+5*$i);
@@ -266 +269 @@
   for my $lang (sort keys %lang)
   {
-    $mech->get("https://translations.launchpad.net/josm/trunk/+pots/josm/$lang/");
+    doget($mech, "https://translations.launchpad.net/josm/trunk/+pots/josm/$lang/");
     sleep(1);
-    my $cont = utf8::upgrade($mech->content());
+    my $cont = $mech->content();
     while($cont =~ /<a href="https?:\/\/launchpad.net\/~(.*?)" class="sprite person(-inactive)?">(.*?)<\/a>/g)
     {