#!/usr/bin/perl -w

# Print http results from dlib urls if not 200 OK.

use strict;

my $fn = "http_responses/2005-02-27result.txt";

my %seen;

open(FILE, $fn) || die("Can't open $fn: $!\n");
while (my $line = <FILE>) {
	chomp($line);
	if ($line =~ m|^http://www.dlib.org| ||
	    $line =~ m|http://dx.doi.org/10.1045/|) {
		if (!defined $seen{$line} && $line !~ m| 200| && $line !~ m| 304|) {
			my @items = split(" ", $line);
			print $items[0] . "\n";
			$seen{$items[0]} = 1;
		}

	}
}
close FILE;