source: subversion/applications/editors/josm/i18n/launchpad.pl @ 16973

Last change on this file since 16973 was 16973, checked in by Dirk Stoecker, 10 years ago

updated

  • Property svn:executable set to *
File size: 642 bytes
Line 
1#!/usr/bin/perl -w
2
3use strict;
4
5
6if($#ARGV != 0)
7{
8    warn "URL not given." 
9}
10else
11{
12    mkdir "new";
13    die "Could not change into new data dir." if !chdir "new";
14    system "wget $ARGV[0]";
15    system "tar -xf laun*";
16    chdir "..";
17    foreach my $name (split("\n", `find new -name "*.po"`))
18    {
19      my $a=$name;
20      $a =~ s/.*-//;
21      system "mv -v $name po/$a" if -f "po/$a";
22    }
23}
24system "ant";
25my $outdate = `date -u +"%Y-%m-%dT%H_%M_%S"`;
26chomp $outdate;
27mkdir "keys";
28system "cp po/*.po keys";
29system "cp po/josm.pot keys/keys.pot";
30system "tar -czf launchpad_upload_josm_$outdate.tgz keys";
31system "rm -rv keys new";
Note: See TracBrowser for help on using the repository browser.