#!/usr/bin/perl -w

#

# a2enmod by Stefan Fritsch <sf@debian.org>

# Licensed under Apache License 2.0

#

# The coding style is "perltidy -pbp"

​

use strict;

use Cwd 'realpath';

use File::Spec;

use File::Basename;

use File::Path;

use Getopt::Long;

use 5.014;

no if $] >= 5.017011, warnings => 'experimental::smartmatch';

​

my $quiet;

my $force;

my $maintmode;

my $purge;

​

Getopt::Long::Configure('bundling');

GetOptions(

    'quiet|q'     => \$quiet,

    'force|f'     => \$force,

    'maintmode|m' => \$maintmode,

    'purge|p'     => \$purge

) or exit 2;

​

my $basename = basename($0);

$basename =~ /^a2(en|dis)(mod|site|conf)((?:-.+)?)$/

    or die "$basename call name unknown\n";

my $act        = $1;

my $obj        = $2;

my $dir_suffix = $3;

​

my @essential_module_list = qw(alias auth_basic authn_file authz_host

    authz_user autoindex deflate dir env filter logio mime negotiation

    setenvif unixd version watchdog);

my $env_file = $ENV{APACHE_ENVVARS};

if (! $env_file) {

    if ($ENV{APACHE_CONFDIR}) {

        $env_file = "$ENV{APACHE_CONFDIR}/envvars";