Jonathon Sim a écrit :
use WWW::Mechanize;
use Test::More tests => 2;
use HTTP::Date;
use Data::Dumper;
my $url = $ARGV[0];
my $date = $ARGV[1];
my $ua = WWW::Mechanize->new;
$ua->get($url);
ok($ua->status == 200, 'check http status is 200 without if-modified-since
header');
$date = time2str() if ! $date;
$ua->add_header('IF_MODIFIED_SINCE' => $date);
# $ua->add_header('IF_MODIFIED_SINCE' => 'Wed, 08 Sep 2004 11:09:13 GMT');
$ua->get($url);
ok($ua->status != 500 && $ua->status != 304, "check http status is not 500
or 304 with if-modified-since header set to $date (status is
".$ua->status.")");
print "Response headers:";
my $response = $ua->response();
for my $key ( $response->header_field_names() ) {
print $key, " : ", $response->header( $key ), "n";
}
Run against your server:
/home/jonathonsim $ perl test_headers.pl http://www.neartexpress.com/liBENAB40035.html
1..2
ok 1 - check http status is 200 without if-modified-since header
not ok 2 - check http status is not 500 or 304 with if-modified-since
header set to Sun, 05 Jun 2005 05:44:31 GMT (status is 304)
# Failed test (test_headers.pl at line 17)
Response headers:Connection : close
Date : Sun, 05 Jun 2005 05:50:32 GMT
Server : Apache/1.3.33 (Unix) mod_interchange/1.32 PHP/4.3.9 mod_ssl/2.8.22
OpenSSL/0.9.7d
Client-Date : Sun, 05 Jun 2005 05:44:34 GMT
Client-Peer : 64.119.36.91:80
Client-Response-Num : 1
# Looks like you failed 1 tests of 2.
So at least now we have a bug to fix! (I wonder if this would have given
you a 500 error before).
Hi, I'm still having 500 error like Bryan :( Can someone please give me "Jonathan's patch on mod_interchange.c" ? I'd like to test this patch too. Jonathon> your perl script give me this : [10:34am]> perl test_google_bug.pl http://www.testadaz.com/mic/00108.html 1..2 ok 1 - check http status is 200 without if-modified-since # header not ok 2 - check http status is not 500# or 304 with if-modified-since header set to Sun, 05 Jun 2005 08:34:45 GMT (status is
# 500) # Failed test (test_google_bug.pl at line 18)Response headers:Connection : closenDate : Sun, 05 Jun 2005 08:34:46 GMTnServer : Apache/1.3.33 (Unix) mod_perl/1.29 mod_interchange/1.32 mod_ssl/2.8.22 OpenSSL/0.9.7enContent-Type : text/html; charset=iso-8859-1nClient-Date : Sun, 05 Jun 2005 08:34:46 GMTnClient-Peer : 62.193.228.20:80nClient-Response-Num : 1nClient-Transfer-Encoding : chunkednTitle : 500 Internal Server ErrornX-Track : SESSION=7tkZGdyW&VIEWPROD=00108 La Birlouette Bièresn# Looks like you failed 1 tests of 2.
I'm still having 500 error, i hope the patch will correct this. Thanks. David _______________________________________________ interchange-users mailing list suppressed http://www.icdevgroup.org/mailman/listinfo/interchange-users
Mail converted by mhonarc 2.6.15
This archive provided courtesy of JSW4.NET, Internet Hosting Services for Small Business.