Count missing X-Forwarded-Proto irule on SSL VIPS.

count_missing_ssl_hdr.pl

#!/usr/bin/perl

my $inblock = 0, $curhost = "", $curname = "";

open(BIGIP, "bigip.conf") or die("Could not open config file.\n");
while (<BIGIP>) {
  $curname = $1 if (m/ltm\s+virtual\s+(.+)\s+{$/);
  $inblock = 1, $curhost = $1 if (m/destination\s+(.+\:443)$/);

  if (m/^}$/ && $inblock) {
    printf("%s: %s\n", $curname, $curhost) if (!$ssl_hdr_found);
    $ssl_hdr_found = $inblock = 0;
    $curhost = $curname = "";
  }

  $ssl_hdr_found = 1 if ($inblock && m/add_https_header|add_X-Forwarded-Proto/);
}

close(BIGIP);