#!/usr/bin/perl

use strict;

my (%installed, %removed);
while (my $line = <STDIN>) {
    my ($operation, $file) = $line =~ /^(.)(\S+)$/;
    if ($operation eq '+') {
        $installed{$file} = 1;
    } else {
        $removed{$file} = 1;
    }
}

my @new_files = grep { !$removed{$_} } keys %installed;
my @old_files = grep { !$installed{$_} } keys %removed;

# if there configuration files added or removed, a restart is needed
if (@new_files || @old_files) {
    system('systemctl try-restart httpd.service');
} else {
    system('systemctl reload-or-try-restart httpd.service');
}