1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/bin/perl
#
# This script embeds a base64 encoded tarball into apache2.preinst.
# See #794933
use strict;
use warnings;
use autodie;
sub readfile
{
my $fname = shift;
local $/;
open(my $fd, "<", $fname);
my $content = <$fd>;
return $content;
}
sub writefile
{
my $fname = shift;
my $content = shift;
open(my $fd, ">", $fname);
print $fd $content;
}
my $preinst = readfile("debian/apache2.preinst.in");
my $embed = readfile("debian/fixup_conffiles.b64");
$preinst =~ s/XXX_FIXUP_CONFFILES_BASE64_XXX/$embed/;
writefile("debian/apache2.preinst", $preinst);
|
