Changeset 755 for utils


Ignore:
Timestamp:
Apr 6, 2006, 8:51:57 PM (15 years ago)
Author:
Dominic Hargreaves
Message:

don't give out bogus referer headers.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/get-guide-versions

    r754 r755  
    3939foreach my $guide (keys %guides) {
    4040    print OUT "<tr><td><a href=\"$guides{$guide}\">$guide</td><td>";
     41    $mech->add_header( Referer => undef );
    4142    $mech->get($guides{$guide});
    4243    my $content = $mech->content;
Note: See TracChangeset for help on using the changeset viewer.