third_party/WebKit/LayoutTests/fast/forms/resources/image-slow.pl

   1 #!/usr/bin/perl -w
   2
   3 # flush the buffers after each print
   4 select (STDOUT);
   5 $| = 1;
   6
   7 print "Content-Type: image/jpeg\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, "green.jpg");
  16 while (<FILE>) {
  17   print $_;
  18 }
  19 close(FILE);