diff -Nur --no-dereference smeserver-fail2ban-0.1.18.old/createlinks smeserver-fail2ban-0.1.18/createlinks --- smeserver-fail2ban-0.1.18.old/createlinks 2022-07-29 22:37:24.969000000 -0400 +++ smeserver-fail2ban-0.1.18/createlinks 2022-07-29 23:04:07.547000000 -0400 @@ -9,6 +9,8 @@ foreach my $file (qw( /etc/systemd/system-preset/49-koozali.preset + /etc/backup-data.d/smeserver-fail2ban.include + /etc/e-smith/templates/etc/dar/DailyBackup.dcf )) { templates2events( $file, $event ); diff -Nur --no-dereference smeserver-fail2ban-0.1.18.old/root/etc/e-smith/templates/etc/backup-data.d/smeserver-fail2ban.include/template-begin smeserver-fail2ban-0.1.18/root/etc/e-smith/templates/etc/backup-data.d/smeserver-fail2ban.include/template-begin --- smeserver-fail2ban-0.1.18.old/root/etc/e-smith/templates/etc/backup-data.d/smeserver-fail2ban.include/template-begin 1969-12-31 19:00:00.000000000 -0500 +++ smeserver-fail2ban-0.1.18/root/etc/e-smith/templates/etc/backup-data.d/smeserver-fail2ban.include/template-begin 2022-07-29 22:59:07.986000000 -0400 @@ -0,0 +1,20 @@ +#Only non rpm owned files are backupe there +{ +use RPM2; +my $rpm_db = RPM2->open_rpm_db(); + +my @dirs = qw(/etc/fail2ban/action.d +/etc/fail2ban/fail2ban.d +/etc/fail2ban/filter.d +/etc/fail2ban/jail.d +); + +foreach my $some_dir (@dirs) { + opendir(my $dh, $some_dir) || die "Can't open $some_dir: $!"; + while ( (my $file = readdir $dh) ) { + next if $file =~ /^\.{1,2}$/; + $OUT .= "$some_dir/$file\n" unless $rpm_db->find_by_file("$some_dir/$file"); + } + closedir $dh; +} +} diff -Nur --no-dereference smeserver-fail2ban-0.1.18.old/root/etc/e-smith/templates/etc/dar/DailyBackup.dcf/41go-into-smeserver-fail2ban smeserver-fail2ban-0.1.18/root/etc/e-smith/templates/etc/dar/DailyBackup.dcf/41go-into-smeserver-fail2ban --- smeserver-fail2ban-0.1.18.old/root/etc/e-smith/templates/etc/dar/DailyBackup.dcf/41go-into-smeserver-fail2ban 1969-12-31 19:00:00.000000000 -0500 +++ smeserver-fail2ban-0.1.18/root/etc/e-smith/templates/etc/dar/DailyBackup.dcf/41go-into-smeserver-fail2ban 2022-07-29 23:02:58.224000000 -0400 @@ -0,0 +1,22 @@ +#Only non rpm owned files are backupe there +{ +use RPM2; +my $rpm_db = RPM2->open_rpm_db(); + +my @dirs = qw(/etc/fail2ban/action.d +/etc/fail2ban/fail2ban.d +/etc/fail2ban/filter.d +/etc/fail2ban/jail.d +); + +foreach my $some_dir (@dirs) { + opendir(my $dh, $some_dir) || die "Can't open $some_dir: $!"; + while ( (my $file = readdir $dh) ) { + next if $file =~ /^\.{1,2}$/; + my $backdir = $some_dir =~ s/^\///; + $OUT .= "--go-into $backdir/$file\n" unless $rpm_db->find_by_file("$some_dir/$file"); + } + closedir $dh; +} +} +