This file is indexed.

/usr/share/goto/fix_ldif is in goto-common 3.1-1.1.

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
27
28
29
30
31
32
33
34
#!/usr/bin/perl -w
use strict;
use MIME::Base64;

my $buffer= "";

while (<STDIN>) {
	chomp;
	if ($_ =~ /^[a-zA-Z0-9]/) {

		if ($buffer) {
			if ($buffer =~ /^dn::/){
				$buffer =~ /^([^:]+):: (.*)$/;
				$buffer= "$1: ".decode_base64($2);
			}
			print $buffer."\n";
		}
		$buffer= $_;
		next;
	}

	if ($_ =~ /^ (.*)$/) {
		$buffer.= $1;
		next;
	}
}

if ($buffer) {
	if ($buffer =~ /^dn::/){
		$buffer =~ /^([^:]+):: (.*)$/;
		$buffer= "$1: ".decode_base64($2);
	}
	print $buffer."\n";
}