diff options
author | Mystery Man <unknown@mandriva.org> | 2005-06-15 10:21:34 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2005-06-15 10:21:34 +0000 |
commit | ced1ffcebee246fd51572566f1b4f08e6b981c23 (patch) | |
tree | 01d53c7928a67bf29513da0e079096df3ca1ddaa /move/tools/scan-etc.pl | |
parent | 43d37ea8829a56d0b864c8665b31da35bb588d51 (diff) | |
download | drakx-backup-do-not-use-10_3_0_24mdk.tar drakx-backup-do-not-use-10_3_0_24mdk.tar.gz drakx-backup-do-not-use-10_3_0_24mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_24mdk.tar.xz drakx-backup-do-not-use-10_3_0_24mdk.zip |
This commit was manufactured by cvs2svn to create tagV10_3_0_24mdk
'V10_3_0_24mdk'.
Diffstat (limited to 'move/tools/scan-etc.pl')
-rwxr-xr-x | move/tools/scan-etc.pl | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/move/tools/scan-etc.pl b/move/tools/scan-etc.pl deleted file mode 100755 index 66415d4de..000000000 --- a/move/tools/scan-etc.pl +++ /dev/null @@ -1,41 +0,0 @@ -#!/usr/bin/perl - -# To be used replacing move::init handling of etc files with: -# -# system("cp -a /image/etc /"); -# symlinkf "/proc/mounts", "/etc/mtab"; -# system("find /etc -type f > /tmp/filelist"); -# touch '/dummy'; -# m|^/var| && !-d $_ and mkdir_p $_ foreach chomp_(cat_('/image/move/directories-to-create')); -# sleep 2; -# goto meuh; - -use MDK::Common; - -sub stat_ { - my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat $_[0]; - [ $atime, max($mtime, $ctime) ]; -} - -our $reference = (stat_('/dummy'))->[0]; - -our @old_filelist = chomp_(cat_("/tmp/filelist")); -foreach (chomp_(`find /etc -type f`)) { - if (!member($_, @old_filelist)) { - push @new, $_; - } else { - $times = stat_($_); - $times->[0] > $reference and push @read, $_; - $times->[1] > $reference and push @wrote, $_; - } -} - -print "read:\n"; -print "\t$_\n" foreach sort @read; - -print "wrote:\n"; -print "\t$_\n" foreach sort @wrote; - -print "new:\n"; -print "\t$_\n" foreach sort @new; - |