/usr/share/cli-common/runtimes.d/mono is in mono-gac 2.10.8.1-1ubuntu2.3.
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 | #!/usr/bin/perl
#
# Setup
#
# Directives
use strict;
use warnings;
# Figure out the mode
my $mode = shift @ARGV;
if (!defined $mode)
{
print STDERR "E: You must supply a mode\n";
print STDERR "E: Use: install, remove, or name\n";
exit 1;
}
# Name is simply
if ($mode eq "name")
{
print "Mono\n";
exit 0;
}
# This program gets the name of a file (ending in .installcligac) and
# a list of assemblies to install, as full paths. The ones given are
# the only ones that passed the white/blacklisting.
# Get the base file
my $basename = shift @ARGV;
my $cligac = "/usr/share/cli-common/packages.d/$basename.installcligac";
if (! -f $cligac)
{
print STDERR "E: File does not exist: $cligac\n";
exit 1;
}
# Get the base directory
my $basedir = "/usr/share/cli-common/packages.d/";
# Removing is also simple
if ($mode eq "remove")
{
# Get the uninstall file
my $uninstall = "$basedir/$basename.mono";
if (-f $uninstall)
{
# Go through the file
open UNINSTALL, "<$uninstall" or
die "E: Cannot open uninstall file ($!)";
while (<UNINSTALL>)
{
my $assembly = $_;
chomp($assembly);
my $cmd = "/usr/bin/gacutil -u $assembly > /dev/null";
my $res = system($cmd);
if ($res > 0) {
print STDERR "W: removing assembly: $assembly failed!\n";
}
}
close UNINSTALL;
# Unlike the file
unlink($uninstall);
}
# We are good
exit 0;
}
# The only thing left should be "install"
if ($mode ne "install")
{
print STDERR "E: Unknown mode: $mode\n";
print STDERR "E: Use: install, remove or name\n";
exit 1;
}
# Open up our uninstall file
open UNINSTALL, ">$basedir/$basename.mono"
or die "E: Cannot open uninstall: $basedir/$basename.mono";
# Go through the file
open CLIGAC, "<$cligac" or die "E: Cannot open: $cligac ($!)";
while (@ARGV)
{
# Get the assembly name
my $dll = shift @ARGV;
# Make sure it is there
if (! -f $dll)
{
print STDERR "E: Assembly does not exist: $dll\n";
exit 1;
}
# Figure out the mono's precise name
my $fullname = get_full_name($dll);
# Write out the uninstall file
print UNINSTALL "$fullname\n";
# Install the file. We use the "../../../.." to make it a
# relative path to this program (since gacutil doesn't like
# absolute paths). There isn't a problem of doing too many
# since we typically run from the root context.
my $cmd = "(cd `dirname $dll` && "
. "/usr/bin/gacutil -i `basename $dll`"
. " > /dev/null)";
system($cmd) == 0 or die "E: installing Assembly $dll failed\n";
}
close CLIGAC;
close UNINSTALL;
# Finish up successfully
exit 0;
# Get the name of the assembly in a manner suitable for uninstall
# using gacutil.
sub get_full_name
{
# Get the name
my $dll = shift;
# Open a pipe to monop
my $cmd = "LANG=C /usr/bin/mono /usr/share/mono/MonoGetAssemblyName.exe $dll";
open PIPE, "$cmd |" or die "E: Cannot open pipe to assembly builder $dll";
# This generate a single line that produces the desired results
$_ = <PIPE>;
chomp;
# assembly1, Version=1.0.0.0, Culture=en, PublicKeyToken=0123456789abcdef
return $_;
}
|