Index: applications/editors/josm/i18n/launchpad.pl
===================================================================
--- applications/editors/josm/i18n/launchpad.pl	(revision 36404)
+++ applications/editors/josm/i18n/launchpad.pl	(revision 36406)
@@ -58,4 +58,8 @@
 {
     makeupload();
+}
+elsif($ARGV[0] eq "uploadallsingle")
+{
+    makeuploadsingle();
 }
 elsif($ARGV[0] eq "approveall")
@@ -115,4 +119,44 @@
 }
 
+sub makeuploadsingle
+{
+    my $count = 1;
+    my $outdate = `date -u +"%Y-%m-%dT%H_%M_%S"`;
+    my $mech = dologin();
+    $outdate =~ s/[\r\n]+//;
+    mkdir "build/josm";
+    system "rm build/josm/*";
+    system "cp po/*.po po/josm.pot build/josm";
+    chdir "build";
+    print "Starting upload ($outdate).\n";
+    if(!$count)
+    {
+      system "tar -cjf launchpad_upload_josm_$outdate.tar.bz2 josm";
+      $mech->get("https://translations.launchpad.net/josm/trunk/+translations-upload");
+      $mech->submit_form(with_fields => {"file" => "launchpad_upload_josm_$outdate.tar.bz2"});
+      sleep(10);
+    }
+    else
+    {
+      my @files = sort glob("josm/*.po");
+      my $num = 1;
+      while($#files >= 0)
+      {
+        my @f = splice(@files, 0, $count);
+        my $file = "launchpad_upload_josm_${outdate}_$num.tar.bz2";
+        print "Create file $file (".join(" ",@f).").\n";
+        system "tar -cjf $file ".join(" ",@f);
+        print "Upload file $file.\n";
+        $mech->get("https://translations.launchpad.net/josm/trunk/+translations-upload");
+        $mech->submit_form(with_fields => {"file" => $file});
+        sleep(10);
+        ++$num;
+      }
+    }
+    system "rm -rv josm";
+    chdir "..";
+    approveall($mech);
+}
+
 sub makeupload
 {
@@ -122,4 +166,5 @@
     $outdate =~ s/[\r\n]+//;
     mkdir "build/josm";
+    system "rm build/josm/*";
     system "cp po/*.po po/josm.pot build/josm";
     chdir "build";
@@ -140,5 +185,5 @@
         my @f = splice(@files, 0, $count);
         my $file = "launchpad_upload_josm_${outdate}_$num.tar.bz2";
-        print "Create file $file.\n";
+        print "Create file $file (".join(" ",@f).").\n";
         system "tar -cjf $file ".join(" ",@f);
         print "Upload file $file.\n";