From 85fa0483ffeaf672f394c395b174baa4791bad0a Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Thu, 20 Nov 2003 17:47:22 +0000
Subject: etc-monitorer now also handles removal of files

---
 move/etc-monitorer.pl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'move/etc-monitorer.pl')

diff --git a/move/etc-monitorer.pl b/move/etc-monitorer.pl
index fa8fa6aa5..4bb8e06ec 100755
--- a/move/etc-monitorer.pl
+++ b/move/etc-monitorer.pl
@@ -9,14 +9,20 @@ my $machine_ident = cat_('/var/lib/machine_ident');
 my $sysconf = "/home/.sysconf/$machine_ident";
 
 foreach my $dir (@ARGV) {
-    foreach (glob_("$dir/*")) {
+    my $destdir = "/home/.sysconf/$machine_ident";
+    my @etcfiles = glob_("$dir/*");
+    foreach (@etcfiles) {
         next if $_ eq '/etc/sudoers';  #- /etc/sudoers can't be a link
         if (-f && !-l) {
-            my $dest = "/home/.sysconf/$machine_ident$_";
+            my $dest = "$destdir$_";
             mkdir_p(dirname($dest));  #- case of newly created directories
             logit("restoring broken symlink $_ -> $dest");
             system("mv $_ $dest 2>/dev/null");
             symlink($dest, $_);
         }
     }
+    foreach (difference2([ grep { -f && s/^\Q$destdir\E// } glob_("$destdir$dir/*") ], [ @etcfiles ])) {
+        logit("removing $destdir$_ because of deleted $_");
+        unlink "$destdir$_";
+    }
 }
-- 
cgit v1.2.1