This file is indexed.

/usr/sbin/update-distcc-symlinks is in distcc 3.1-6.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#!/usr/bin/perl

use strict;
use warnings FATAL => "all";

my $distcc_dir = "/usr/lib/distcc";
my $old_gcc_dir = "/usr/lib/gcc";
my $new_gcc_dir = "/usr/lib/x86_64-linux-gnu/gcc";
my %old_symlinks; # Current compiler names in /usr/lib/distcc
my %new_symlinks; # Compiler names that should be in /usr/lib/distcc
my @standard_names = qw(cc c++);

sub consider {
    my ($name) = @_;
    if (-x "/usr/bin/$name") {
        $new_symlinks{$name} = 1;
    }
}

sub consider_gcc {
    my ($prefix, $suffix) = @_;
    consider "${prefix}gcc${suffix}";
    consider "${prefix}g++${suffix}";
}

# Find existing standard compiler names.
foreach (@standard_names) {
    consider $_;
}

# Find existing GCC variants.
consider_gcc "", "";
consider_gcc "c89-", "";
consider_gcc "c99-", "";
foreach my $dir (<$old_gcc_dir/*>, <$new_gcc_dir/*>) {
    (my $kind = $dir) =~ s|.*/||;
    consider_gcc "$kind-", "";
    foreach (<$dir/*>) {
        if (! -l $_ and -d $_) {
            s|.*/||;
            consider_gcc "", "-$_";
            consider_gcc "$kind-", "-$_";
        }
    }
}

# Find existing symlinks.
foreach (<$distcc_dir/*>) {
    if (-l) {
        s|.*/||;
        $old_symlinks{$_} = 1;
    }
}

# Remove obsolete symlinks.
foreach (keys %old_symlinks) {
    if (! exists $new_symlinks{$_}) {
        unlink "$distcc_dir/$_";
    }
}

# Add missing symlinks.
foreach (keys %new_symlinks) {
    if (! exists $old_symlinks{$_}) {
        symlink "../../bin/distcc", "$distcc_dir/$_";
    }
}