diff options
author | Mystery Man <unknown@mandriva.org> | 2005-08-30 18:55:27 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2005-08-30 18:55:27 +0000 |
commit | ea3a905b182f34bba2f071111d5263f1868c4a6f (patch) | |
tree | 45713836a82198448c93696b30f3c9ab7ba9aa4a /move/tools/check-fc-cache.pl | |
parent | f5427227e11f6025648f9537ffd3110c003f7e25 (diff) | |
download | drakx-backup-do-not-use-10_3_0_50mdk.tar drakx-backup-do-not-use-10_3_0_50mdk.tar.gz drakx-backup-do-not-use-10_3_0_50mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_50mdk.tar.xz drakx-backup-do-not-use-10_3_0_50mdk.zip |
This commit was manufactured by cvs2svn to create tagV10_3_0_50mdk
'V10_3_0_50mdk'.
Diffstat (limited to 'move/tools/check-fc-cache.pl')
-rw-r--r-- | move/tools/check-fc-cache.pl | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/move/tools/check-fc-cache.pl b/move/tools/check-fc-cache.pl deleted file mode 100644 index 42902835f..000000000 --- a/move/tools/check-fc-cache.pl +++ /dev/null @@ -1,27 +0,0 @@ -#!/usr/bin/perl - -# check if files are more recent (fc-cache will slow down starting of drakx) - -use MDK::Common; - -sub stat_ { - my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat $_[0]; - max($mtime, $ctime); -} - -my $prefix = $ARGV[0] || '/tmp/live_tree'; - -my @conf = cat_("$prefix/etc/fonts/fonts.conf"); - -foreach my $line (@conf) { - while ($line =~ m|<dir>([^<]+)</dir|g) { - my $dir = $1; - $dir =~ m|^/| or next; - print "dir $prefix$dir\n"; - foreach my $d (chomp_(`find $prefix$dir -type d 2>/dev/null`)) { - my $ref = stat_("$d/fonts.cache-1"); - stat_($_) > $ref and print "\t$_\n" foreach glob("$d/*"); - } - } -} - |