view release on metacpan or  search on metacpan

bin/elsquid  view on Meta::CPAN

        say "@squidguard";
        my $result = system( @squidguard );
    }
}



if ($opts{permissions}) {
    my $targetdir = File::Spec->catfile($config{dbhome}, $config{dbsubdir});

    my @chown = (
        'chown',
        '-R',
        "$config{user}:$config{group}",
        $targetdir
    );
    
    say "@chown";
    my $result = system( @chown );
}



if ($opts{reload}) {
    my $reload_cmd = $config{reload_cmd};
    say $reload_cmd;
    my $result = system( $reload_cmd );
}