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	colint	1006	#!/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			};