Subversion Repositories sysadmin_scripts

#! /usr/bin/env perl

use strict;

use warnings;

# this is a filter. A list of domains is passed on STDIN

# for each domain, it will check that the DNS record matches

# $myIP and, if it does not, will display the domain on 

# STDOUT.

# Strongly recommend you verify before deleting any web sites, however.

# A sample call is

# ls /var/www/ | grep '^.*\..*$' | grep -v '^quota' | ./doWeHost.pl

# this gets all domains listed in /var/www which contain at least one

# period. Since the quota controls for ISPConfig are in here and have

# a period in their filenames, we use grep -v to exclude them

# that list is then piped to the script on STDIN

# the IP address of the web hosting machine (ie, this machine)

my $myIP = '74.113.60.152';

# the IP address of a remote DNS server

my $dnsServer = '9.9.9.9';

while ( my $domain = <> ) {

   chomp $domain;

   my $result = `dig +short \@$dnsServer $domain`;

   print "$domain\n" unless $result =~ m/$myIP/;

}