This file is indexed.

/usr/bin/hostbyname is in squidguard 1.5-4.

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

# By Pål Baltzersen Feb, 2000

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License (version 2) as
# published by the Free Software Foundation.  It is distributed in the
# hope that it will be useful, but WITHOUT ANY WARRANTY; without even
# the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE.  See the GNU General Public License (GPL) for more details.

# Hostbyname takes a squidGuard domain or url list and does some half
# harted effort to expand it with the corresponding IP-addresses.
# Usage:
#   hostbyname < urls > urls.new
#   hostbyname < domains > domains.new

my $version = "0.0.1";

use strict;
use Socket;

my ($hostname, $url, $h, $i, $a);
my ($name,$aliases,$addrtype,$length,@addrs);

while(<>) {
  my %seen;
  chomp;
  $url = $_;
  $hostname = $_;
  $hostname =~ s/\057.*//;
  $url =~ s/^$hostname//;
  print "$hostname$url\n";
  next if($hostname =~ /^\d.\d.\d.\d$/);
  foreach $h ($hostname, "www.$hostname", "ftp.$hostname") {
    #print "-> $h\n";
    ($name,$aliases,$addrtype,$length,@addrs) = gethostbyname($h);
    #print "-> $name\n";
    foreach $i (@addrs) {
      $a = inet_ntoa($i);
      #print "-> $a\n";
      next if($seen{$a});
      $seen{$a} = 1;
      print "$a$url\n";
    }
  }
}