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