Subversion Repositories sysadmin_scripts

Rev

Rev 81 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
80 rodolico 1 
#! /usr/bin/env perl
2 
 
3 
use strict;
4 
use warnings;
5 
 
6 
# ls /var/www/ | grep '^.*\..*$' | grep -v '^quota' | ./doWeHost.pl
7 
 
8 
my $myIP = '74.113.60.152';
9 
 
10 
my $dnsServer = '9.9.9.9';
11 
 
12 
while ( my $domain = <> ) {
13 
   chomp $domain;
14 
   my $result = `dig +short \@$dnsServer $domain`;
15 
   print "$domain\n" unless $result =~ m/$myIP/;
16 
}