uawdijnntqw1x1x1
IP : 216.73.216.155
Hostname : vm5018.vps.agava.net
Kernel : Linux vm5018.vps.agava.net 3.10.0-1127.8.2.vz7.151.14 #1 SMP Tue Jun 9 12:58:54 MSK 2020 x86_64
Disable Function : None :)
OS : Linux
PATH:
/
var
/
..
/
usr
/
share
/
base-files
/
..
/
defoma
/
libperl-file.pl
/
/
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;
/var/../usr/share/base-files/../defoma/libperl-file.pl