forked from pool/package-translations
Get ready for Eul tags in descriptions file
OBS-URL: https://build.opensuse.org/package/show/system:install:head/package-translations?expand=0&rev=267
This commit is contained in:
parent
84c7628b7a
commit
1e1f7e0578
@ -30,6 +30,7 @@ my $lang = $ARGV[0];
|
||||
textdomain("package-translations-$lang");
|
||||
|
||||
my $indesc = 0;
|
||||
my $ineula = 0;
|
||||
my $descr = '';
|
||||
my $pkg = '';
|
||||
|
||||
@ -49,6 +50,15 @@ while ( <STDIN> ) {
|
||||
print "=Sum: " . gettext($sum) . "\n";
|
||||
next;
|
||||
}
|
||||
if ($_ =~ m/^\+Eul:/) {
|
||||
$ineula = 1;
|
||||
next;
|
||||
}
|
||||
if ($_ =~ m/^\-Eul:/) {
|
||||
$ineula = 0;
|
||||
$descr = '';
|
||||
next;
|
||||
}
|
||||
if ($_ =~ m/^\+Des:/) {
|
||||
print $_;
|
||||
$indesc = 1;
|
||||
@ -85,6 +95,16 @@ while ( <STDIN> ) {
|
||||
}
|
||||
next;
|
||||
}
|
||||
if ($ineula == 1) {
|
||||
my $line = $_;
|
||||
chomp $line;
|
||||
if ($descr) {
|
||||
$descr = $descr . "\n" . $line;
|
||||
} else {
|
||||
$descr = $line;
|
||||
}
|
||||
next;
|
||||
}
|
||||
|
||||
die "DIE " . $_;
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user