6 Apr
2006
6 Apr
'06
7:51 p.m.
Author: dom Date: 2006-04-06 20:51:57 +0100 (Thu, 06 Apr 2006) New Revision: 755
Modified: utils/get-guide-versions Log: don't give out bogus referer headers.
Modified: utils/get-guide-versions =================================================================== --- utils/get-guide-versions 2006-04-06 19:49:14 UTC (rev 754) +++ utils/get-guide-versions 2006-04-06 19:51:57 UTC (rev 755) @@ -38,6 +38,7 @@
foreach my $guide (keys %guides) { print OUT "<tr><td><a href="$guides{$guide}">$guide</td><td>"; + $mech->add_header( Referer => undef ); $mech->get($guides{$guide}); my $content = $mech->content; if ($content =~ /version.(0.\d+)/s) {