This file is indexed.

/usr/bin/linuxdoc is in linuxdoc-tools 0.9.67ubuntu1.

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 
#
#   linuxdoc.in
#
#   LinuxDoc-Tools driver. Calls all other LinuxDoc-Tools components,
#   contains configuration information, etcetera.
# -------------------------------------------------------------------

package main;

sub BEGIN {
  require 5.004;
}

use strict;

use vars qw($prefix $DataDir $AuxBinDir $progs);

$prefix      = "/usr";
$DataDir     = "/usr/share/linuxdoc-tools";
$AuxBinDir   = "/usr/lib/linuxdoc-tools";

use lib "/usr/share/linuxdoc-tools";
use lib "/usr/share/perl5";

# ---------------------------------------------------------------------
sub ldt_which {
# ---------------------------------------------------------------------
# ---------------------------------------------------------------------
  die "ldt_which: No filename(s) array given. Aborting ...\n" unless scalar @_;

  foreach my $file ( @_ ){
    if ( $file =~ m/\// ) {
      return $file if -x $file;
    } else {
      foreach my $path ( split(':',$ENV{'PATH'}) ){
	$path =~ s/\/+$//;
	return $file if -x "$path/$file";
      }
    }
  }
  die "No executable found in path for (", join(' ',@_) ,"). Aborting ...\n";
}

$progs   = {
  "SGMLSASP"   => ldt_which("sgmlsasp"),
  "NSGMLS"     => ldt_which("nsgmls","onsgmls"),
  "AWK"        => ldt_which("gawk","mawk","nawk"),
  "GROFF"      => ldt_which("groff"),
  "GROFFMACRO" => "-ms",
#  "NKF" => "@NKF@"
};

require LinuxDocTools;
&LinuxDocTools::init;

my @FileList = LinuxDocTools::process_options ($0, @ARGV);

foreach my $curfile (@FileList) {
  &LinuxDocTools::process_file ($curfile);
}

exit 0;

# Local Variables:
#  mode: perl
# End: