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

[Peter Makholm <sslug@sslug>]

John Mørck Hansen <sslug@sslug> writes:

> if($Filename && -e $Filename) {
>    $Header = "If-Modified-Since: " . gmtime((stat($Filename))[8]);
> }
> else {
>    print "   Usage: prog fileame.ext\n";
>    exit 1;
> }
>
> $UAgent = LWP::UserAgent->new;
> $Request = HTTP::Request->new(GET => $URL);
> $Response = $UAgent->request($Request);

Men du sætter aldrig headeren i requesten?

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.

-- 
 Peter Makholm     |      I laugh in the face of danger. Then I hide until
 sslug@sslug |                                          it goes away
 http://hacking.dk |                                             -- Xander