diff options
author | Mystery Man <unknown@mandriva.org> | 2005-04-04 19:00:13 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2005-04-04 19:00:13 +0000 |
commit | ff340ae492915a1723450c148641b594326c5fd8 (patch) | |
tree | 3ddaf354b14099899888a5a4c65a2bbbe5d5c3af /move/tools/scan-etc.pl | |
parent | eb8a0c458d1d40e8aaaa00753fcef8cff968c277 (diff) | |
download | drakx-backup-do-not-use-ff340ae492915a1723450c148641b594326c5fd8.tar drakx-backup-do-not-use-ff340ae492915a1723450c148641b594326c5fd8.tar.gz drakx-backup-do-not-use-ff340ae492915a1723450c148641b594326c5fd8.tar.bz2 drakx-backup-do-not-use-ff340ae492915a1723450c148641b594326c5fd8.tar.xz drakx-backup-do-not-use-ff340ae492915a1723450c148641b594326c5fd8.zip |
This commit was manufactured by cvs2svn to create tag 'V10_2_19mdk'.V10_2_19mdk
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; - |