Last change
on this file since 24832 was 18781, checked in by stoecker, 15 years ago |
somehow keys got josm on launchpad, so change it here as well, as keys was anyway a dumb name :-)
|
-
Property svn:executable
set to
*
|
File size:
615 bytes
|
Line | |
---|
1 | #!/usr/bin/perl -w
|
---|
2 |
|
---|
3 | use strict;
|
---|
4 |
|
---|
5 |
|
---|
6 | if($#ARGV != 0)
|
---|
7 | {
|
---|
8 | warn "URL not given."
|
---|
9 | }
|
---|
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";
|
---|
22 | }
|
---|
23 | }
|
---|
24 | system "ant";
|
---|
25 | my $outdate = `date -u +"%Y-%m-%dT%H_%M_%S"`;
|
---|
26 | chomp $outdate;
|
---|
27 | mkdir "josm";
|
---|
28 | system "cp po/*.po po/josm.pot josm";
|
---|
29 | system "tar -czf launchpad_upload_josm_$outdate.tgz josm";
|
---|
30 | system "rm -rv josm new";
|
---|
Note:
See
TracBrowser
for help on using the repository browser.