| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -wT |
| 2 | 2 |
| 3 use CGI; | 3 use CGI; |
| 4 use File::stat; | 4 use File::stat; |
| 5 use Time::HiRes; | 5 use Time::HiRes; |
| 6 | 6 |
| 7 $query = new CGI; | 7 $query = new CGI; |
| 8 $name = $query->param('name'); | 8 $name = $query->param('name'); |
| 9 $stallAt = $query->param('stallAt'); | 9 $stallAt = $query->param('stallAt'); |
| 10 $stallFor = $query->param('stallFor'); | 10 $stallFor = $query->param('stallFor'); |
| 11 $mimeType = $query->param('mimeType'); | 11 $mimeType = $query->param('mimeType'); |
| (...skipping 10 matching lines...) Expand all Loading... |
| 22 $total += $n; | 22 $total += $n; |
| 23 if ($total > $stallAt) { | 23 if ($total > $stallAt) { |
| 24 if (defined $stallFor) { | 24 if (defined $stallFor) { |
| 25 Time::HiRes::sleep($stallFor) | 25 Time::HiRes::sleep($stallFor) |
| 26 } | 26 } |
| 27 last; | 27 last; |
| 28 } | 28 } |
| 29 print $data; | 29 print $data; |
| 30 } | 30 } |
| 31 close(FILE); | 31 close(FILE); |
| OLD | NEW |