This file is indexed.

/usr/share/cli-common/gac-package-install is in cli-common 0.9+nmu1.

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
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
#!/usr/bin/perl

#
# Setup
#

# Directives
use strict;
use warnings;

# Modules
use File::Basename;

# This script gets the name of the package as the first parameter.  It
# parses the file given, figures out the black and white listing, then
# installs them as appropriate. If there is a second parameter, this
# is the only CLR installed.

#
# Handle the input file
#

# Get the package
my $pkg = $ARGV[0];
my $use_clr = $ARGV[1];
my $full = "/usr/share/cli-common/packages.d/$pkg";

# Make sure it exists
if ( ! -f "$full.installcligac" )
{
    print STDERR "! $full.installcligac doesn't exist!\n";
    exit 1;
}

# Parse the file
unless (open INPUT, "<$full.installcligac")
{
    print STDERR "! Cannot open $full.installcligac ($!)\n";
    exit 2;
}

my @dlls = ();
my %blacklist = ();
my %whitelist = ();

while (<INPUT>)
{
    # Clean up the line and ignore blanks and comments
    chomp;
    s/^\s+//;
    s/\s+$//;
    next if /^\#/;
    next if /^\s*$/;

    # Split on the space
    my @p = split(/\s+/);

    # Check the DLL
    my $dll = shift @p;

    if (! -f $dll)
    {
	print STDERR "! Assembly $dll does not exist\n";
	exit 3;
    }

    push @dlls, $dll;

    # Go through the listing
    while (@p)
    {
	# Get it
	my $p = shift @p;

	#print "D: List -> $dll: $p\n";

	# Add it to the appropriate list. The dll:$dll key is used for
	# sanity checking.
	if ($p =~ s/^-//)
	{
	    $blacklist{"$p:$dll"}++;
	    $blacklist{"dll:$dll"}++;
	}
	elsif ($p =~ s/^\+//)
	{
	    $whitelist{"$p:$dll"}++;
	    $whitelist{"dll:$dll"}++;
	}
    }
}

# Do some sanity checking
foreach my $dll (@dlls)
{
    if (defined($whitelist{"dll:$dll"}) && defined($blacklist{"dll:$dll"}))
    {
	print STDERR "! $dll has both a white- and blacklist.\n";
	print STDERR "!   Ignoring blacklist.\n";
    }
}

# Go through the installation targets
foreach my $clr (glob("/usr/share/cli-common/runtimes.d/*"))
{
    # Ignore temporary files
    next if $clr =~ /~$/;
    next if $clr =~ /^\./;

    # Get the "name"
    my $name = basename($clr);

    # Get the formal name
    my $formal = `$clr name`;
    $formal = $name if !defined $formal || $formal =~ /^\s*$/;
    chomp($formal);

    # Only use the one CLR if given
    next if (defined $use_clr && $name ne $use_clr);

    # Figure out the package list
    my @install = ();

    foreach my $dll (@dlls)
    {
	# Check the white list
	if (defined $whitelist{"dll:$dll"})
	{
	    next if (!defined $whitelist{"$name:$dll"});
	}
	elsif (defined $blacklist{"dll:$dll"})
	{
	    next if (defined $blacklist{"$name:$dll"});
	}

	# We are going to install this one
	push @install, $dll;
    }

    # Install it
    my $t = scalar(@install) . " assemblies";
    $t = "1 assembly" if (@install == 1);

    print STDOUT "* Installing $t from $pkg into $formal\n";
    system($clr, "install", $pkg, @install) == 0 or die "E: Installation of $pkg with $clr failed\n";
}