testing/normalise_result

   1 #!/usr/bin/perl -w
   2 #
   3 # Given a result on stdin, try and normalise some
   4 # elements of it (such as HTTP Header dates) so that we can
   5 # simply compare it with other results
   6 #
   7
   8 use strict;
   9
  10 while( <STDIN> ) {
  11
  12   /^Server: Apache(\/[0-9.]+)?/ && do {
  13     $_ = "";
  14   };
  15
  16   /^X-Powered-By: PHP\/[0-9.]+/ && do {
  17     $_ = "";
  18   };
  19
  20   /^X-Pad: avoid browser bug/ && do {
  21     $_ = "";
  22   };
  23
  24   /^Keep-Alive:/ && do {
  25     $_ = "";
  26   };
  27
  28   /^Connection:/ && do {
  29     $_ = "";
  30   };
  31
  32   /^Transfer-Encoding:/ && do {
  33     $_ = "";
  34   };
  35
  36   /^Vary: / && do {
  37     $_ = "";
  38   };
  39
  40   /^X-(DAViCal|RSCDS)-Version: (DAViCal|RSCDS)\/[0-9.]+\.[0-9.]+\.[0-9.]+; DB\/[0-9.]+\.[0-9.]+\.[0-9.]+/ && do {
  41     $_ = "";
  42   };
  43
  44   # HTTP Standard Dates
  45   s/(Mon|Tue|Wed|Thu|Fri|Sat|Sun), [0-3][0-9] (Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec) 2[0-9]{3} [0-2][0-9](:[0-5][0-9]){2} GMT/Dow, 01 Jan 2000 00:00:00 GMT/;
  46
  47   # Fix up any opaquelocktokens to something regular
  48   s/opaquelocktoken:[[:xdigit:]]{8}-([[:xdigit:]]{4}-){3}[[:xdigit:]]{12}/opaquelocktoken:xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx/;
  49
  50   print;
  51 }