archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

(UpdateReferers): Extract charset from the content-type.

Browse Source
This commit is contained in:
Alex Schroeder
2006-04-02 19:29:10 +00:00
parent f212c9ca2c
commit 64384b91db
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/referrer-tracking.pl
View File

@@ -16,7 +16,7 @@
# 59 Temple Place, Suite 330
# Boston, MA 02111-1307 USA
$ModulesDescription .= '<p>$Id: referrer-tracking.pl,v 1.6 2006/04/02 18:08:42 as Exp $</p>';
$ModulesDescription .= '<p>$Id: referrer-tracking.pl,v 1.7 2006/04/02 19:29:10 as Exp $</p>';
use LWP::UserAgent;
@@ -141,7 +141,7 @@ sub UpdateReferers {
my $ua = LWP::UserAgent->new;
my $response = $ua->get($referer);
return unless $response->is_success and $response->content =~ /$self/;
my $charset = $response->content_encoding;
my ($charset) = $response->header("Content-Type") =~ /charset=([^\s";]*)/;
$Referers{$referer} = "$Now $charset"; # numerical comparisons still work!
return 1;
}