diff options
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/*"); - } - } -} - |