david
5aa1be28d5
git-svn-id: https://192.168.0.254/svn/Proyectos.ConstruccionesCNJ_Web/trunk@5 a1d75475-e439-6a4c-b115-a3aab481e8ec
30 lines
1.1 KiB
Perl
30 lines
1.1 KiB
Perl
#!/usr/bin/perl
|
|
# Ensure correct header (Id tag, GPL header, Project-Id-Version)
|
|
# Usage: perl -pi{ext} header.pl {po_file}
|
|
# messages.po should exist in current dir
|
|
|
|
if ($. == 1) {
|
|
$_ = "# \$Id\$\n" unless /^# \$Id/;
|
|
} elsif (not $x) {
|
|
$x = 1 if /^(?:([^#])|#.*USA)/;
|
|
undef $_ unless $1;
|
|
print `sed -n "2,/USA/ p" messages.po` if $x;
|
|
} elsif (s/^("Project-Id-Version:).*$/$1 Gallery: /) {
|
|
chomp;
|
|
if ($f = -f '../module.inc' ? '../module.inc' : (-f '../theme.inc' ? '../theme.inc' : '')) {
|
|
$m = `perl -naF\\' -e 'do { print \$F[1]; exit } if /setName/' $f`;
|
|
$m .= ' Theme' if ($f eq '../theme.inc');
|
|
$v = `perl -naF\\' -e 'do { print \$F[1]; exit } if /setVersion/' $f`;
|
|
} else {
|
|
$m = (($m = `pwd`) =~ m|install.po|) ? 'Installer' : 'Upgrader';
|
|
$f = '../../modules/core/module.inc';
|
|
$v = `perl -naF\\' -e 'do { print \$F[1]; exit } if /setGalleryVersion/' $f`;
|
|
$v =~ s/-.*$//;
|
|
}
|
|
$_ .= "$m $v\\n\"\n";
|
|
} else {
|
|
s/^("Language-Team:.*?<)LL\@li.org(.*)$/${1}gallery-translations\@lists.sourceforge.net$2/;
|
|
s/^("Content-Type:.*?=)CHARSET(.*)$/${1}UTF-8$2/;
|
|
}
|
|
|