Re: [PERL] Problemer med 'If-Modified-Since' header

[Poul-Erik Andreasen <sslug@sslug>]

On Sat, 10 May 2003 14:47:50 +0200
John Mørck Hansen <sslug@sslug> wrote:

> On Sat, 10 May 2003 11:52:14 +0200
> Peter Makholm <sslug@sslug> wrote:
> > 
> > Men du sætter aldrig headeren i requesten?
> 
> Nej, den havde sneget sig ud efter alle testende i denne PAST version :\
> 
>  
> > Før sidste linje ville jeg lave en linje der sagde noget ala:
> > 
> > $Request->header('If-Modified-Since' => gmtime((stat($Filename))[8]))
> > if -e $Filename
> > 
> > Og så rette din if-sætning til så den ikke laver $Header-variablen,
> > som du alligevel ikke bruger.
> 
> Jeg kan ikke lide den 'if -e $Filename' efter funktion kaldet. Det gør
> det ikke nemmere at læse !!!
> 
> Jeg har rettet det til:
> 
> -------------------------------------------------------------
> if(!$Filename || !-e $Filename) {
>     print "   Usage: prog fileame.ext\n";
>     exit 1;
> }
> 
> $Header = "If-Modified-Since :" .
>            HTTP::Date::time2str((stat($Filename))[8]);
> 
> $UAgent = LWP::UserAgent->new;
> $Request = HTTP::Request->new(GET => $URL);
> $Request->header($Header);
> $Response = $UAgent->request($Request);
> -------------------------------------------------------------
> 
> Men, det virker stadig ikke!. 
> Se evt. tidligere post fra 'Poul-Erik Andreasen'
> 

Bare for god ordens skyld:
Min kommentar skulle ikke tages som garanti 
for at du gjorde det rigtigte.

-- 
Poul-Erik Andreasen(Der er for dårlig til perl)