From 42e38e074bf1200783849ea85e205e6614f988d7 Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Sat, 6 Nov 2004 08:30:59 +0000
Subject: This commit was manufactured by cvs2svn to create branch 'a'.

---
 move/etc-monitorer.pl | 32 --------------------------------
 1 file changed, 32 deletions(-)
 delete mode 100755 move/etc-monitorer.pl

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

diff --git a/move/etc-monitorer.pl b/move/etc-monitorer.pl
deleted file mode 100755
index 231b9f772..000000000
--- a/move/etc-monitorer.pl
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-use MDK::Common;
-
-sub outpend { my $f = shift; local *F; open F, ">>$f" or die "outpend in file $f failed: $!\n"; print F foreach @_ }
-sub logit { outpend "/var/log/etc-monitorer.log", sprintf("[%s] @_\n", chomp_(`date`)) }
-
-foreach my $dir (@ARGV) {
-    my $destdir = '/home/.sysconf/' . cat_('/var/lib/machine_ident');
-    my @etcfiles = glob_("$dir/*");
-    foreach (@etcfiles) {
-        if ($_ eq '/etc/sudoers'           #- /etc/sudoers can't be a link
-	    || $_ eq '/etc/mtab'           #- same for /etc/mtab
-            || !-f                                 
-            || -l && readlink =~ m|^/|) {  #- we want to trap relative symlinks only
-            next;
-        }
-        my $dest = "$destdir$_";
-        mkdir_p(dirname($dest));  #- case of newly created directories
-        logit("restoring broken symlink $_ -> $dest");
-        if (-l) {
-            system("cp $_ $dest 2>/dev/null");
-        } else {
-            system("mv $_ $dest 2>/dev/null");
-        }
-        symlinkf($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