From d6c7a21b97fb99c73fd7e2a831371f053e474be6 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Tue, 18 Nov 2003 14:45:08 +0000
Subject: have system configuration files automagically saved on the usb key
 with dnotify and a script

---
 move/etc-monitorer.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 move/etc-monitorer.pl

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

diff --git a/move/etc-monitorer.pl b/move/etc-monitorer.pl
new file mode 100755
index 000000000..e28e06dc1
--- /dev/null
+++ b/move/etc-monitorer.pl
@@ -0,0 +1,20 @@
+#!/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`)) }
+
+my $machine_ident = cat_('/var/lib/machine_ident');
+my $sysconf = "/home/.sysconf/$machine_ident";
+
+foreach (glob("$ARGV[0]/*")) {
+    next if $_ eq '/etc/sudoers';  #- /etc/sudoers can't be a link
+    if (-f && !-l) {
+        my $dest = "/home/.sysconf/$machine_ident$_";
+        mkdir_p(dirname($dest));  #- case of newly created directories
+        logit("restoring broken symlink $_ -> $dest");
+        system("mv $_ $dest");
+        symlink($dest, $_);
+    }
+}
-- 
cgit v1.2.1