#!/usr/bin/perl -w

# Find urls that alternate between 200 and 404

use strict;

my $url_list = "http_responses_per_url.txt";

my %seen;

open(RESP, $url_list) || die($!);
while (my $line = <RESP>) {
	chomp $line;

	my ($date, $url, $code) = split(/\t/, $line);

	if (defined $seen{$url}) {
		if ($seen{$url} == 200 && $code == 404) {
			print "$url changing on $date from 200 to 404\n";
		}
		elsif ($seen{$url} == 404 && $code == 200) {
			print "$url changing on $date from 404 to 200\n";
		}
	}
	$seen{$url} = $code;
}
close RESP;