1
0

- insert EULAs into the suse tags

OBS-URL: https://build.opensuse.org/package/show/system:install:head/package-translations?expand=0&rev=53
This commit is contained in:
Stephan Kulow 2011-10-28 08:53:24 +00:00 committed by Git OBS Bridge
parent 211a29c9c9
commit 4dc9976c73
3 changed files with 26 additions and 3 deletions

View File

@ -1,3 +1,8 @@
-------------------------------------------------------------------
Fri Oct 28 08:53:01 UTC 2011 - coolo@suse.com
- insert EULAs into the suse tags
-------------------------------------------------------------------
Thu Oct 27 13:46:34 CEST 2011 - coolo@suse.com

View File

@ -30,7 +30,7 @@ Source0: package-translations.tar.bz2
Source1: translate_packages.pl
Source99: PREPARE_PACKAGE
BuildArch: noarch
Requires: perl-gettext
Requires: perl-gettext package-EULAs
%description
This package provides translations for our packages. You don't want to install this

View File

@ -26,16 +26,24 @@ $ENV{'LC_ALL'} = 'en_US.UTF-8';
setlocale(LC_MESSAGES, "en_US.UTF-8");
setlocale(LC_ALL, "en_US.UTF-8");
textdomain("package-translations-" . $ARGV[0]);
my $lang = $ARGV[0];
textdomain("package-translations-$lang");
my $indesc = 0;
my $descr = '';
my $pkg = '';
while ( <STDIN> ) {
if ($_ =~ m/^=Ver:/ || $_ =~ m/^#/ || $_ =~ m/^=Pkg:/) {
if ($_ =~ m/^=Ver:/ || $_ =~ m/^#/) {
print $_;
next;
}
if ($_ =~ m/^=Pkg:\s*(\S*)\s/) {
$pkg = $1;
print $_;
next;
}
if ($_ =~ m/^=Sum:\s*(.*)\s*$/) {
my $sum = $1;
print "=Sum: " . gettext($sum) . "\n";
@ -54,6 +62,16 @@ while ( <STDIN> ) {
print gettext($descr) . "\n";
$descr = '';
print $_;
if (-f "/usr/share/doc/packages/eulas/$pkg.$lang") {
print "+Eul:\n";
open(EULA, "/usr/share/doc/packages/eulas/$pkg.$lang");
while ( <EULA> ) {
print $_;
}
close(EULA);
print "-Eul:\n";
}
next;
}