#!/usr/local/bin/perl
#
# Notes:
#
#   Here are some special cases we need to deal with
#
#   1) For the time being force do not cache so need
#      need to remove:
#
#        If-Modified-Since: Wed, 07 Jan 1998 02:39:54 GMT
#        If-None-Match: \"079d288151bbd1:1aaf\"


open IN,  "<  http_ll.c";
open OUT, "> nhttp_ll.c";

$cnt = 0;

while (<IN>) {
	chop();

   /If-Modified-Since:/ && next;
   /If-None-Match:/     && next;

	/<[0-9][0-9][0-9][0-9]>/ && do {
		$new = sprintf "<%04d>", $cnt++;
		s/<[0-9][0-9][0-9][0-9]>/$new/;
	};

	/noSends/ && do {
		s/[0-9][0-9][0-9]/$cnt/;
	};

	printf OUT "%s\n", $_;
}

close IN;
close OUT;

