This file is indexed.

/usr/bin/edirutil is in ncbi-entrez-direct 7.40.20170928+ds-1.

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
#!/usr/bin/perl

# ===========================================================================
#
#                            PUBLIC DOMAIN NOTICE
#            National Center for Biotechnology Information (NCBI)
#
#  This software/database is a "United States Government Work" under the
#  terms of the United States Copyright Act.  It was written as part of
#  the author's official duties as a United States Government employee and
#  thus cannot be copyrighted.  This software/database is freely available
#  to the public for use. The National Library of Medicine and the U.S.
#  Government do not place any restriction on its use or reproduction.
#  We would, however, appreciate having the NCBI and the author cited in
#  any work or product based on this material.
#
#  Although all reasonable efforts have been taken to ensure the accuracy
#  and reliability of the software and data, the NLM and the U.S.
#  Government do not and cannot warrant the performance or results that
#  may be obtained by using this software or data. The NLM and the U.S.
#  Government disclaim all warranties, express or implied, including
#  warranties of performance, merchantability or fitness for any particular
#  purpose.
#
# ===========================================================================
#
# File Name:  edirutil
#
# Author:  Jonathan Kans
#
# Version Creation Date:   8/20/12
#
# ==========================================================================

# Entrez Direct - EDirect

# use strict;
use warnings;

use Getopt::Long;

# definitions

use constant false => 0;
use constant true  => 1;

sub edirutil {

  my $db = "";
  my $web = "";
  my $key = 0;
  my $num = 0;
  my $stp = 0;
  my $version = "";
  my $seconds = 0;
  my $silent = false;
  my $verbose = false;
  my $debug = false;

  GetOptions (
    "db=s" => \$db,
    "web=s" => \$web,
    "key=i" => \$key,
    "count=i" => \$num,
    "step=i" => \$stp,
    "seconds=s" => \$seconds,
    "version=s" => \$version,
    "silent" => \$silent,
    "verbose" => \$verbose,
    "debug" => \$debug
  );

  print "<ENTREZ_DIRECT>\n";

  if ( $db ne "" ) {
    print "  <Db>$db</Db>\n";
  }
  if ( $web ne "" ) {
    print "  <WebEnv>$web</WebEnv>\n";
  }
  if ( $key ne "" ) {
    print "  <QueryKey>$key</QueryKey>\n";
  }
  if ( $num ne "" ) {
    print "  <Count>$num</Count>\n";
  }
  if ( $stp ne "" ) {
    print "  <Step>$stp</Step>\n";
  }
  if ( $silent ) {
    print "  <Silent>Y</Silent>\n";
  }
  if ( $verbose ) {
    print "  <Verbose>Y</Verbose>\n";
  }
  if ( $debug ) {
    print "  <Debug>Y</Debug>\n";
  }

  print "</ENTREZ_DIRECT>\n";
}

edirutil ();

close (STDIN);
close (STDOUT);
close (STDERR);