Index: /applications/editors/josm/i18n/launchpad.pl
===================================================================
--- /applications/editors/josm/i18n/launchpad.pl	(revision 16400)
+++ /applications/editors/josm/i18n/launchpad.pl	(revision 16400)
@@ -0,0 +1,25 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+die "URL not given." if $#ARGV != 0;
+
+mkdir "new";
+die "Could not change into new data dir." if !chdir "new";
+system "wget $ARGV[0]";
+system "tar -xf laun*";
+chdir "..";
+foreach my $name (split("\n", `find new -name "*.po"`))
+{
+  my $a=$name;
+  $a =~ s/.*-//;
+  system "mv -v $name po/$a" if -f "po/$a";
+}
+system "ant";
+my $outdate = `date -u +"%Y-%m-%dT%H_%M_%S"`;
+chomp $outdate;
+mkdir "keys";
+system "cp po/*.po keys";
+system "cp po/josm.pot keys/keys.pot";
+system "tar -czf launchpad_upload_josm_$outdate.tgz keys";
+system "rm -rv keys new";