Re: Perl модуль и докачка

[Igor Sysoev <is@xxxxxxxxxxxxx>]

On Thu, 28 Dec 2006, Igor Sysoev wrote:

> On Thu, 28 Dec 2006, Igor Sysoev wrote:
>
> > On Thu, 28 Dec 2006, Konstantin Petrenko wrote:
> >
> > > Наткнулся на очень не приятный глюк. Файло отдается модулем на перле:
> > > ===
> > > ...
> > >      if( -e $fn){
> > >        $r->variable("sid",$sid);
> > >        $r->allow_ranges;
> > >        $r->header_out("Content-Length", -s $fn);
> > >        $r->send_http_header;
> > >        $r->sendfile($fn);
> > >        return OK;
> > >      }
> > >      else{
> > >        return HTTP_NOT_FOUND;
> > >      }
> > > ...
> > > ===
> > > Но, если прервать закачку и потом возобновить - то файлы как-бы
> > > докачивается но на самом деле отдается заного. В итоге содердимое
> > > файла превращается в кашу. Идет кусок сначала, потом где была прервана
> > > закачка, фаил начинается опять сначала.
> > >
> > > nginx/0.5.4, ОС FreeBSD 6.2-PRE
> > > в конфиге написано так:
> > > ===
> > >        location /downloads {
> > >            set $sid 1;
> > >            perl getfile::handler;
> > >        }
> > > ===
> > Прилагаемый патч должен исправить ошибку.
> Это неверный патч.

Впрочем, нет - верный.


Игорь Сысоев
http://sysoev.ru