1
0

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:
Alex Minton 2016-11-08 21:07:59 +00:00 committed by Git OBS Bridge
parent 84c7628b7a
commit 1e1f7e0578

View File

@ -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 " . $_;
}