Contents of /trunk/debian/build-postinst

#!/usr/bin/perl -wT

use strict;

my %FILES = (
        DESTBLOCK    => 'conf/dest.blk',
        MLIST        => 'conf/mlist.txt',
        RLIST        => 'conf/rlist.txt',
        PUBRINGMIX   => 'conf/pubring.mix',
        PUBRINGASC   => 'conf/pubring.asc');

while(<>) {
        chomp;
        if (/^\s*FILLIN\s+(DESTBLOCK|MLIST|RLIST|PUBRINGMIX|PUBRINGASC)\s+(\S+)\s*$/) {
                print "cat > $2 << __EOF__\n";
                open (F, $FILES{$1}) or die ("Cannot open $FILES{$1}: $!\n");
                print while <F>;
                close (F);
                print "__EOF__\n";
        } else {
                print $_,"\n";
        };
};
1	#!/usr/bin/perl -wT
2
3	use strict;
4
5	my %FILES = (
6	DESTBLOCK => 'conf/dest.blk',
7	MLIST => 'conf/mlist.txt',
8	RLIST => 'conf/rlist.txt',
9	PUBRINGMIX => 'conf/pubring.mix',
10	PUBRINGASC => 'conf/pubring.asc');
11
12	while(<>) {
13	chomp;
14	if (/^\sFILLIN\s+(DESTBLOCK\|MLIST\|RLIST\|PUBRINGMIX\|PUBRINGASC)\s+(\S+)\s$/) {
15	print "cat > $2 << __EOF__\n";
16	open (F, $FILES{$1}) or die ("Cannot open $FILES{$1}: $!\n");
17	print while <F>;
18	close (F);
19	print "__EOF__\n";
20	} else {
21	print $_,"\n";
22	};
23	};