blob: 720c941413691e509ac5a1812e0d8963b55d1303 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/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";
}
}
}
|
