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

[John Mørck Hansen <sslug@sslug>]

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'


(John =;-)
-- 
Din sikre vej til en sikker backup løsning til dit netværk.
Hurtigt, nemt og bekvemt
http://www.adilock.dk/~john/albackup/
http://www.adilock.dk