LayoutTests/http/tests/media/video-load-and-stall.cgi

   1 #!/usr/bin/perl -w
   2
   3 use CGI;
   4 use File::stat;
   5
   6 $query = new CGI;
   7 $name = $query->param('name');
   8 $stallAt = $query->param('stallAt');
   9
  10 my $filesize = stat($name)->size;
  11 print "Content-type: video/mp4\n";
  12 print "Content-Length: " . $filesize . "\n\n";
  13
  14 open FILE, $name or die;
  15 binmode FILE;
  16 $total = 0;
  17 my ($buf, $data, $n);
  18 while (($n = read FILE, $data, 1024) != 0) {
  19     $total += $n;
  20     if ($total > $stallAt) {
  21         close(FILE);
  22         return;
  23     }
  24     print $data;
  25 }
  26 close(FILE);