diff options
Diffstat (limited to 'lib/VNDB/Handler/Misc.pm')
-rw-r--r-- | lib/VNDB/Handler/Misc.pm | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/lib/VNDB/Handler/Misc.pm b/lib/VNDB/Handler/Misc.pm index d3791c81..b0911f6b 100644 --- a/lib/VNDB/Handler/Misc.pm +++ b/lib/VNDB/Handler/Misc.pm @@ -15,7 +15,6 @@ TUWF::register( qr{d([1-9]\d*)}, \&docpage, qr{setlang}, \&setlang, qr{nospam}, \&nospam, - qr{we-dont-like-ie}, \&iemessage, qr{xml/prefs\.xml}, \&prefs, qr{opensearch\.xml}, \&opensearch, @@ -375,48 +374,6 @@ sub nospam { } -sub iemessage { - my $self = shift; - - if($self->reqParam('i-still-want-access')) { - (my $ref = $self->reqHeader('Referer') || '/') =~ s/^\Q$self->{url}//; - $ref = '/' if $ref eq '/we-dont-like-ie'; - $self->resRedirect($ref, 'temp'); - $self->resCookie('ie_sucks' => 1); - return; - } - - html; - head; - title 'Your browser sucks'; - style type => 'text/css', - q|body { background: black }| - .q|div { position: absolute; left: 50%; top: 50%; width: 500px; margin-left: -250px; height: 180px; margin-top: -90px; background-color: #012; border: 1px solid #258; text-align: center; }| - .q|p { color: #ddd; margin: 10px; font: 9pt "Tahoma"; }| - .q|h1 { color: #258; font-size: 14pt; font-family: "Futura", "Century New Gothic", "Arial", Serif; font-weight: normal; margin: 10px 0 0 0; } | - .q|a { color: #fff }|; - end; - body; - div; - h1 'Oops, we were too lazy to support your browser!'; - p; - lit qq|We decided to stop supporting Internet Explorer 6 and 7, as it's a royal pain in | - .qq|the ass to make our site look good in a browser that doesn't want to cooperate with us.<br />| - .qq|You can try one of the following free alternatives: | - .qq|<a href="http://www.mozilla.com/firefox/">Firefox</a>, | - .qq|<a href="http://www.opera.com/">Opera</a>, | - .qq|<a href="http://www.apple.com/safari/">Safari</a>, or | - .qq|<a href="http://www.google.com/chrome">Chrome</a>.<br /><br />| - .qq|If you're really stubborn about using Internet Explorer, upgrading to version 8 will also work.<br /><br />| - .qq|...and if you're mad, you can also choose to ignore this warning and | - .qq|<a href="/we-dont-like-ie?i-still-want-access=1">open the site anyway</a>.|; - end; - end; - end; - end; -} - - sub prefs { my $self = shift; return if !$self->authCheckCode; |