diff --git a/package-translations.changes b/package-translations.changes
index 934112c..fd3f48e 100644
--- a/package-translations.changes
+++ b/package-translations.changes
@@ -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
 
diff --git a/translate_packages.pl b/translate_packages.pl
index 63c6b6f..3726fca 100644
--- a/translate_packages.pl
+++ b/translate_packages.pl
@@ -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;
     }