#!/usr/bin/perl # touch fontconfig cache files so that fc-cache will not slow down starting of drakx use MDK::Common; my ($prefix) = @ARGV or die "usage: $0 <prefix>\n"; my @conf = cat_("$prefix/etc/fonts/fonts.conf"); print "touching fontconfig cache files...\n"; foreach my $line (@conf) { while ($line =~ m|<dir>([^<]+)</dir|g) { my $dir = $1; $dir =~ m|^/| or next; foreach my $d (chomp_(`find $prefix$dir -type d 2>/dev/null`)) { touch "$d/fonts.cache-1"; } } }