Ticket #9207: stream_flv.pl.diff
| File stream_flv.pl.diff, 520 bytes (added by , 15 years ago) |
|---|
-
.pl
old new 99 99 if ($dur && $dur =~ /\d*:\d*:.*/) { 100 100 @times = split(':',$dur); 101 101 $lengthSec = $times[0]*3600+$times[1]*60+$times[2]; 102 $size = int($lengthSec*($vbitrate*1000+$abitrate*1000)/8);102 $size = 1.05*int($lengthSec*($vbitrate*1000+$abitrate*1000)/8); 103 103 print header(-type => 'video/x-flv','Content-Length' => $size); 104 104 } else { 105 105 print header(-type => 'video/x-flv');
