This file is indexed.

/usr/share/konwert/devel/mkany is in konwert-dev 1.8-13.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#!/usr/bin/perl

print scalar <>;
print $_ = <>;
chomp;
@utf8 = split;
shift @utf8;
foreach (@utf8) {$utf8{$_} = $_}

while (<>)
{
	/^(\S+)$/ or print, next;
	$charset = $1;
	($plik = $0) =~ s(/[^/]*$)(/../aux/charsets/$charset);
	open CHARSET, $plik or next;
	print $charset;
	%charset = ();
	while (<CHARSET>)
	{
		$charset{$2} = $1
			if /^\s*(\S+)\s+(\S+)\s*$/
			&& defined $utf8{$2} && !defined $charset{$2};
	}
	foreach (@utf8) {print " $charset{$_}"}
	print "\n";
}