Problemer med 'If-Modified-Since' header

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

Så er jeg på banen igen :)

Først: I Perl haj'er skal nok bære lidt over med mig. Det er mit
aller først Perl script. Og der er sikkert noget der ikke er som det
måske burde være!

Det virker nu fint nok. Bare ikke med 'If-Modified-Sinse'. Det vil ikke
lade vær med at hente filen lige meget hvilken dato der kommer i
headeren!.

Hvad er det jeg gør forkert ?

Jeg har vedlagt source. 

-----------------------------------------------------------------
use warnings;
use strict;
use LWP::UserAgent;

my $UAgent;
my $Request;
my $Response;
my $Header;
my $Filename = shift @ARGV;
my $URL =
"http://www.postdanmark.dk/postnumre/_content/hent_xl_fil.asp";;

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);

if($Response->is_success) {
   open FH, "> $Filename" or die "Can't write on file $Filename: $!\n";
   print FH $Response->content;
   close FH;
   utime($Response->headers->last_modified, 
         $Response->headers->last_modified,
         $Filename);
}
else {
   printf("ERROR: (%s) %s\n", $Response->code, $Response->message);
   exit $Response->code;
}
----------------------------------------------------------------------


(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