diff --git a/perl/get_no_v6_websites.pl b/perl/get_no_v6_websites.pl index ba2121a..0690866 100755 --- a/perl/get_no_v6_websites.pl +++ b/perl/get_no_v6_websites.pl @@ -5,29 +5,87 @@ use v5.14; die "usage : ./$0 website_list.txt" if @ARGV != 1; -say "
";
-
my @tab;
+my %dom;
-while(<>) {
- chomp;
- last if $_ eq "";
+sub get_urls {
+ while(<>) {
+ chomp;
+ last if $_ eq "";
- if(m#/#) {
- $_ =~ s#https?://##;
- @tab = split '/', $_;
- $_ = $tab[0];
- }
+ if(m#/#) {
+ $_ =~ s#https?://##;
+ @tab = split '/', $_;
+ $_ = $tab[0];
+ }
- my $ret = `/usr/bin/dig +short AAAA $_`;
+ # securité
+ @tab = split ';', $_;
+ $_ = $tab[0];
+ m/^([0-9a-zA-Z\.-]+)/;
+ $_ = $1;
- if(length $ret != 0) {
- say "$_ is ok
";
- }
- else {
- say "WARNING: $_ NOT OK
";
+ $dom{$_} = 0;
}
}
-say "
", join(', ', @passed), "
"; + + say "", join(', ', @notpassed), "
"; + say ""; +} + +get_urls; +check_reachability; +do_html;