… | |
… | |
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; |