<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in <b>/var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code</b> on line <b>4</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in <b>/var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code</b> on line <b>4</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in <b>/var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code</b> on line <b>4</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in <b>/var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code</b> on line <b>4</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in <b>/var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code</b> on line <b>4</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in <b>/var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code</b> on line <b>4</b><br />
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;