WebCore:
[WebKit-https.git] / 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);