view release on metacpan or  search on metacpan

bin/epfl-net-ssl-test  view on Meta::CPAN

}

my $labs = WebService::SSLLabs->new();
my $host;

while ( not $host = $labs->analyze( host => $domain )->complete() ) {
  sleep $labs->previous_eta();
}

if ( $host->ready() ) {
  foreach my $endpoint ( $host->endpoints() ) {
    if ( $endpoint->ready() ) {
      print "\n", $endpoint->ip_address(), "\n"
        or croak "Couldn't write: $OS_ERROR";
      print color('green'), '✔ Diode', "\n", color('clear')
        or croak "Couldn't write: $OS_ERROR";
      print color('green'), '✔ SSL Certificate', "\n", color('clear')
        or croak "Couldn't write: $OS_ERROR";
      if ( $endpoint->grade() eq 'A' or $endpoint->grade() eq 'A+' ) {
        print color('green'), '✔ Grade ', $endpoint->grade(), "\n\n",
          color('clear')
          or croak "Couldn't write: $OS_ERROR";
      }
      else {
        print color('red'), '✘ Grade ', $endpoint->grade(), "\n\n",
          color('clear')
          or croak "Couldn't write: $OS_ERROR";
      }
    }
    else {
      print "\n", color('red'), '✘ Diode', "\n", color('clear')
        or croak "Couldn't write: $OS_ERROR";
      checkLocalCertificate($domain);
    }
  }