Changeset 755

Timestamp:

04/06/06 20:51:57 (2 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;