1 files changed, 16 insertions, 0 deletions
diff --git a/po/get_from_compssusers.pl b/po/get_from_compssusers.pl
new file mode 100755
index 00000000..35bfa041
--- /dev/null
+++ b/po/get_from_compssusers.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use MDK::Common;
+
+@miss = qw(Development Server);
+
+foreach my $line (cat_("../../../gi/perl-install/share/po/$ARGV[0]")) {
+    $line =~ m|^\Q#: ../../share/compssUsers:999| || ($line =~ m|^msgid "([^"]+)"| && grep { $_ eq $1 } @miss) and do {
+	$current = 'inside';
+	print "# DO NOT BOTHER TO MODIFY HERE, BUT IN DRAKX PO\n";
+    };
+    $current eq 'inside' and print $line;
+    $line =~ m|^$| and do {
+	$current = 'outside';
+    };
+}