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