<commit_before>#!/usr/bin/perl

use strict;

my %state = (
    'aka.businesslink.gov.uk.edgekey.net.' => 'LIVE',
    'www.gov.uk.edgekey.net.' => 'LIVE',
    'redirector.www.gov.uk.edgekey.net.' => 'LIVE',
    'wildcard.ukwelcomes.businesslink.gov.uk.edgekey.net.' => 'LIVE',
    'aka.direct.gov.uk.edgekey.net.' => 'LIVE',
);

my $filename = @ARGV[0] || "hosts.csv";
open(FILE, "> $filename") || die "unable to open file $!\n";
print FILE "host,ttl,state,cname\n";

while (<STDIN>) {
    if ($_ =~ /CNAME/) {
        my ($host, $secs, $IN, $CNAME, $cname) = split;<commit_msg>DNS_REPORT should include domains managed in DYN<commit_after>#!/usr/bin/perl

use strict;

my %state = (
    'aka.businesslink.gov.uk.edgekey.net.' => 'AKAMAI',
    'www.gov.uk.edgekey.net.' => 'AKAMAI',
    'redirector.www.gov.uk.edgekey.net.' => 'AKAMAI',
    'wildcard.ukwelcomes.businesslink.gov.uk.edgekey.net.' => 'AKAMAI',
    'aka.direct.gov.uk.edgekey.net.' => 'AKAMAI',
    'redirector-cdn-ssl-directgov.production.govuk.service.gov.uk.' => 'DYN',
    'redirector-cdn-ssl-businesslink.production.govuk.service.gov.uk.' => 'DYN',
);

my $filename = @ARGV[0] || "hosts.csv";
open(FILE, "> $filename") || die "unable to open file $!\n";
print FILE "host,ttl,state,cname\n";

while (<STDIN>) {
    if ($_ =~ /CNAME/) {
        my ($host, $secs, $IN, $CNAME, $cname) = split;
{'fraction_non_alphanumeric': 0.2268041237113402, 'fraction_numerical': 0.0014727540500736377, 'mean_word_length': 3.514950166112957, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 19, 'https://': 0, 'lorem ipsum': 0, 'www.': 4, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '726060', 'n_tokens_mistral': 576, 'n_tokens_neox': 549, 'n_words': 91}