[openguides-commits] r755 - utils

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