Subversion Repositories sysadmin_scripts

Rev

Rev 81 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

#! /usr/bin/env perl

use strict;
use warnings;

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

my $myIP = '74.113.60.152';

my $dnsServer = '9.9.9.9';

while ( my $domain = <> ) {
   chomp $domain;
   my $result = `dig +short \@$dnsServer $domain`;
   print "$domain\n" unless $result =~ m/$myIP/;
}