mirror of
https://github.com/pluginsGLPI/example.git
synced 2025-05-04 18:08:42 +02:00
e53695069b
git-svn-id: https://forge.glpi-project.org/svn/example/trunk@179 349b9182-4a13-0410-896f-e5e9767dd1b3
31 lines
769 B
Perl
Executable File
31 lines
769 B
Perl
Executable File
#!/usr/bin/perl
|
|
#!/usr/bin/perl -w
|
|
|
|
if (@ARGV!=2){
|
|
print "USAGE update_po.pl transifex_login transifex_password\n\n";
|
|
|
|
exit();
|
|
}
|
|
$user = $ARGV[0];
|
|
$password = $ARGV[1];
|
|
|
|
opendir(DIRHANDLE,'locales')||die "ERROR: can not read current directory\n";
|
|
foreach (readdir(DIRHANDLE)){
|
|
if ($_ ne '..' && $_ ne '.'){
|
|
|
|
if(!(-l "$dir/$_")){
|
|
if (index($_,".po",0)==length($_)-3) {
|
|
$lang=$_;
|
|
$lang=~s/\.po//;
|
|
|
|
`wget --user=$user --password=$password --output-document=locales/$_ http://www.transifex.net/api/2/project/GLPI_example/resource/glpipot/translation/$lang/?file=$_`;
|
|
}
|
|
}
|
|
|
|
}
|
|
}
|
|
closedir DIRHANDLE;
|
|
|
|
#
|
|
#
|