OLD | NEW |
1 #!/usr/bin/perl -wT | 1 #!/usr/bin/perl -wT |
2 use CGI; | 2 use CGI; |
3 use Time::HiRes; | 3 use Time::HiRes; |
4 | 4 |
5 my $cgi = new CGI; | 5 my $cgi = new CGI; |
6 my $delay = $cgi->param('delay'); | 6 my $delay = $cgi->param('delay'); |
7 $delay = 1000 unless $delay; | 7 $delay = 1000 unless $delay; |
8 | 8 |
9 print "Content-type: application/octet-stream\n"; | 9 print "Content-type: application/octet-stream\n"; |
10 print "Cache-control: no-cache, no-store\n\n"; | 10 print "Cache-control: no-cache, no-store\n\n"; |
11 Time::HiRes::sleep($delay / 1000); | 11 Time::HiRes::sleep($delay / 1000); |
12 open FH, "<../../../resources/Ahem.ttf" or die; | 12 open FH, "<../resources/Ahem.ttf" or die; |
13 while (<FH>) { print; } | 13 while (<FH>) { print; } |
14 close FH; | 14 close FH; |
OLD | NEW |