Changeset 755 for utils/get-guide-versions

Timestamp:

04/06/06 20:51:57 (3 years ago)

Author:

dom

Message:

don't give out bogus referer headers.

Files:

• utils/get-guide-versions (modified) (1 diff)

utils/get-guide-versions

@@ -39 +39 @@
 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;