Viewing file:  libperl-file.pl (937 B) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
sub get_file_category {
my $file = shift;
my $ret = `/usr/bin/file $file`;
chomp($ret);
$ret = substr($ret, length($file) + 2);
if ($ret eq 'ASCII text') {
if ($file =~ /\.hints$/) {
return 'hintfile';
}
} elsif ($ret =~ /PostScript/) {
if ($ret =~ /PostScript Type 1 font/) {
return 'type1';
} else {
if (open(F, $file)) {
my $l = scalar(<F>);
close F;
chomp($l);
if ($l =~ /Resource-CMap/) {
return 'cmap';
} elsif ($l =~ /Resource-Font/) {
return 'psfont';
} elsif ($l =~ /Resource-CIDFont/) {
return 'cid';
}
}
return 'unknown';
}
} elsif ($ret eq 'MS Windows TrueType font') {
return 'truetype';
} elsif ($ret eq 'data' && $file =~ /\.ttc/i) {
if (open(F, $file)) {
my $l = substr(scalar(<F>), 0, 4);
close F;
if ($l eq 'ttcf') {
return 'truetype';
}
}
return 'unknown';
}
return 'unknown';
}
1;
|