Last change
on this file since 25523 was 25523, checked in by stoecker, 13 years ago |
i18n update
|
-
Property svn:executable
set to
*
|
File size:
740 bytes
|
Rev | Line | |
---|
[16400] | 1 | #!/usr/bin/perl -w
|
---|
| 2 |
|
---|
| 3 | use strict;
|
---|
| 4 |
|
---|
| 5 |
|
---|
[16973] | 6 | if($#ARGV != 0)
|
---|
[16400] | 7 | {
|
---|
[16973] | 8 | warn "URL not given."
|
---|
[16400] | 9 | }
|
---|
[16973] | 10 | else
|
---|
| 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";
|
---|
[25523] | 22 | # activate in case we need a "clean all upstream texts launchpad upload"
|
---|
| 23 | # system "touch po/$a" if ! -f "po/$a";
|
---|
[16973] | 24 | }
|
---|
| 25 | }
|
---|
[16400] | 26 | system "ant";
|
---|
| 27 | my $outdate = `date -u +"%Y-%m-%dT%H_%M_%S"`;
|
---|
| 28 | chomp $outdate;
|
---|
[18781] | 29 | mkdir "josm";
|
---|
| 30 | system "cp po/*.po po/josm.pot josm";
|
---|
| 31 | system "tar -czf launchpad_upload_josm_$outdate.tgz josm";
|
---|
| 32 | system "rm -rv josm new";
|
---|
Note:
See
TracBrowser
for help on using the repository browser.