Hi all,

I want to get the header of an HTML file, check if it was modified since a
certain date, and print it.
I've tried using LWP::Simple, and I can get that information if the file
name ends in .html.
The problem is that if the file is an .shtml one, LWP::Simple returns only
the Server Name and the file type which is still text/html.
The other values are empty strings.

Can you tell me why?

Do I have any solution for this problem?
I've tried using LWP::UserAgent instead but the POD documentation is not
very good and I don't know how to do it.

Thank you for help.

Here is the code I used:

#!/perl/bin/perl -W

use strict;
use LWP::Simple;
print "Content-type: text/html\n\n";

my $path = "http://localhost/index.shtml";;

my @headers = head($path);

foreach my $head(@headers) {
print "$head<br>";
}

Teddy,
Mail: [EMAIL PROTECTED]


Reply via email to