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