6edb5732ff0d9781ed85d07eb50cd56203830a3f
[WebKit-https.git] / LayoutTests / http / tests / security / resources / load-media.cgi
1 #!/usr/bin/perl -w
2
3 use CGI;
4 use File::stat;
5
6 $query = new CGI;
7
8 my $serverPath = $ENV {'DOCUMENT_ROOT'};
9 $serverPath =~ s/\/$//;
10
11 my $type = $query->param('type');
12 if (!$type) {
13     $type = "video/mp4";
14 }
15
16 ## get the url to load (relative to server root, not cgi)
17 my $url = $query->param('url');
18 $url = $serverPath . $url;
19
20 my $filesize = stat($url)->size;
21 open FILE, $url or die;
22 binmode FILE;
23
24 print "Content-type: " . $type . "\n";
25 print "Content-Length: " . $filesize . "\n\n";
26
27 my ($buf, $data, $n);
28 while (($n = read FILE, $data, 1024) != 0) {
29     print $data;
30 }
31 close(FILE);