third_party/WebKit/LayoutTests/http/tests/misc/resources/svg-slow.pl

   1 #!/usr/bin/perl -wT
   2
   3 # flush the buffers after each print
   4 select (STDOUT);
   5 $| = 1;
   6
   7 print "Content-Type: image/svg+xml\r\n";
   8 print "Expires: Thu, 01 Dec 2003 16:00:00 GMT\r\n";
   9 print "Cache-Control: no-store, no-cache, must-revalidate\r\n";
  10 print "Pragma: no-cache\r\n";
  11 print "\r\n";
  12
  13 sleep 2;
  14
  15 open(FILE, "embedded.svg");
  16 while (<FILE>) {
  17   print $_;
  18 }
  19 close(FILE);