third_party/WebKit/LayoutTests/http/tests/webfont/slow-ahem-loading.cgi

   1 #!/usr/bin/perl -wT
   2 use CGI;
   3 use Time::HiRes;
   4
   5 my $cgi = new CGI;
   6 my $delay = $cgi->param('delay');
   7 $delay = 1000 unless $delay;
   8
   9 print "Content-type: application/octet-stream\n";
  10 print "Cache-control: no-cache, no-store\n\n";
  11 Time::HiRes::sleep($delay / 1000);
  12 open FH, "<../../../resources/Ahem.ttf" or die;
  13 while (<FH>) { print; }
  14 close FH;