From 6c63406c04b2cc66258dfe117373adc392e80017 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 19 Nov 2003 22:22:43 +0000 Subject: add check if files are more recent (fc-cache will slow down starting of drakx) --- move/tools/check-fc-cache.pl | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 move/tools/check-fc-cache.pl diff --git a/move/tools/check-fc-cache.pl b/move/tools/check-fc-cache.pl new file mode 100644 index 000000000..42902835f --- /dev/null +++ b/move/tools/check-fc-cache.pl @@ -0,0 +1,27 @@ +#!/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|([^<]+)/dev/null`)) { + my $ref = stat_("$d/fonts.cache-1"); + stat_($_) > $ref and print "\t$_\n" foreach glob("$d/*"); + } + } +} + -- cgit v1.2.1