/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";
}
|