/usr/bin/linuxdoc is in linuxdoc-tools 0.9.69-2.
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:
|