domains=$(
echo | openssl s_client -servername $1 -connect $1:443 2>/dev/null\
 | openssl x509 -noout -text\
 | grep -i dns\
 | sed 's/DNS://g;s/\*\.//g;s/, /\n/g'\
 | sort\
 | uniq
)

for dom in $domains; do
  echo $dom;
  curl -sILk $dom\
   | egrep 'HTTP|CF-RAY|Location'\
   | sed 's/Location:/ -->/g;s/\(CF-RAY\)/ \1/g';
  echo;
done