32 lines
576 B
Perl
Executable file
32 lines
576 B
Perl
Executable file
#!/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);
|