diff options
| author | Mystery Man <unknown@mandriva.org> | 2005-09-01 20:27:41 +0000 |
|---|---|---|
| committer | Mystery Man <unknown@mandriva.org> | 2005-09-01 20:27:41 +0000 |
| commit | f027d873e1c6f4b372b541cc351c71820a9063cd (patch) | |
| tree | 4c1914e76177c18cf0a45829bbdf7eb0a92c2435 /move/tools/check-fc-cache.pl | |
| parent | 5d83bfe6f6b331df65d493a78e9ed2f1b30a2464 (diff) | |
| download | drakx-backup-do-not-use-10_3_0_51mdk.tar drakx-backup-do-not-use-10_3_0_51mdk.tar.gz drakx-backup-do-not-use-10_3_0_51mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_51mdk.tar.xz drakx-backup-do-not-use-10_3_0_51mdk.zip | |
This commit was manufactured by cvs2svn to create tagV10_3_0_51mdk
'V10_3_0_51mdk'.
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/*"); - } - } -} - |