| … | |
… | |
| 55 | my $self = shift; |
55 | my $self = shift; |
| 56 | my $whois = shift; |
56 | my $whois = shift; |
| 57 | |
57 | |
| 58 | $whois =~ s/&/&/g; |
58 | $whois =~ s/&/&/g; |
| 59 | $whois =~ s/</</g; |
59 | $whois =~ s/</</g; |
| 60 | $self->err(403, "forbidden", { "Content-Type" => "text/html" }, <<EOF); |
60 | $self->err(403, "forbidden", { "Content-Type" => "text/html", Connection => "close" }, <<EOF); |
| 61 | <html> |
61 | <html> |
| 62 | <head> |
62 | <head> |
| 63 | <title>This material is licensed in your country!</title> |
63 | <title>This material is licensed in your country!</title> |
| 64 | </head> |
64 | </head> |
| 65 | <body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#000080" alink="#ff0000"> |
65 | <body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#000080" alink="#ff0000"> |
| … | |
… | |
| 78 | in your country. If I would distribute these files to your country I would |
78 | in your country. If I would distribute these files to your country I would |
| 79 | actively <em>hurt</em> the industry behind it, which includes the artists |
79 | actively <em>hurt</em> the industry behind it, which includes the artists |
| 80 | and authors of these videos/mangas. So I hope you understand that I try to |
80 | and authors of these videos/mangas. So I hope you understand that I try to |
| 81 | avoid this.</p> |
81 | avoid this.</p> |
| 82 | |
82 | |
|
|
83 | <p>Please see the <a href="http://www.goof.com/pcg/marc/animefaq.html#licensed">FAQ</a> |
|
|
84 | for a more thorough explanation.</p> |
|
|
85 | |
| 83 | <p>If you <em>really</em> think that this is wrong, i.e. the |
86 | <p>If you <em>really</em> think that this is wrong, i.e. the |
| 84 | material you tried to access is <em>not</em> licensed in your |
87 | material you tried to access is <em>not</em> licensed in your |
| 85 | country or your ip address was misdetected, you can write to <a |
88 | country or your ip address was misdetected, you can write to <a |
| 86 | href="mailto:licensed\@plan9.de">licensed\@plan9.de</a>. Please explain |
89 | href="mailto:licensed\@plan9.de">licensed\@plan9.de</a>. Please explain |
| 87 | what happened and why you think this is wrong in as much detail as |
90 | what happened and why you think this is wrong in as much detail as |
| … | |
… | |
| 97 | sub conn::err_block_referer { |
100 | sub conn::err_block_referer { |
| 98 | my $self = shift; |
101 | my $self = shift; |
| 99 | |
102 | |
| 100 | my $uri = $self->{uri}; |
103 | my $uri = $self->{uri}; |
| 101 | $uri =~ s/\/[^\/]+$/\//; |
104 | $uri =~ s/\/[^\/]+$/\//; |
| 102 | $uri = escape_uri $uri; |
|
|
| 103 | print "hiho $uri\n";#d# |
|
|
| 104 | |
105 | |
| 105 | $self->slog(6, "REFERER($self->{uri},$self->{h}{referer})"); |
106 | $self->slog(6, "REFERER($self->{uri},$self->{h}{referer})"); |
| 106 | |
107 | |
| 107 | $whois =~ s/&/&/g; |
108 | $whois =~ s/&/&/g; |
| 108 | $whois =~ s/</</g; |
109 | $whois =~ s/</</g; |
