po/get_from_compssusers.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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';
    };
}