summaryrefslogtreecommitdiff
path: root/lib/VNDB/Util/Misc.pm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2015-07-19 01:41:42 +0200
committerYorhel <git@yorhel.nl>2015-07-19 01:41:42 +0200
commita575477eb7c755dc6facfe6a01abc2f8cbc9d73e (patch)
treeb0f09a4fca670b58ba353e6ebdf59ac1ed84e078 /lib/VNDB/Util/Misc.pm
parentd8c2d33dc57e1d26d6fe5d63fd08872effe0c0fa (diff)
Remove the MSIE browser check & warning page
It's a relic of the past. IE 6 & 7 are very rarely used nowadays, and people still using it will quickly realize why things don't quite work - they'll be used to it.
Diffstat (limited to 'lib/VNDB/Util/Misc.pm')
-rw-r--r--lib/VNDB/Util/Misc.pm48
1 files changed, 1 insertions, 47 deletions
diff --git a/lib/VNDB/Util/Misc.pm b/lib/VNDB/Util/Misc.pm
index 3c3c5efe..2e707eeb 100644
--- a/lib/VNDB/Util/Misc.pm
+++ b/lib/VNDB/Util/Misc.pm
@@ -7,7 +7,7 @@ use Exporter 'import';
use TUWF ':html';
use VNDB::Func;
-our @EXPORT = qw|filFetchDB ieCheck bbSubstLinks|;
+our @EXPORT = qw|filFetchDB bbSubstLinks|;
my %filfields = (
@@ -99,52 +99,6 @@ sub _fil_vn_compat {
}
-sub ieCheck {
- my $self = shift;
-
- return 1 if !$self->reqHeader('User-Agent') ||
- $self->reqHeader('User-Agent') !~ /MSIE [67]/ || $self->reqCookie('ie_sucks');
-
- if($self->reqGet('i-still-want-access')) {
- my $b = $self->reqBaseURI();
- (my $ref = $self->reqHeader('Referer') || '/') =~ s/^\Q$b//;
- $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 'head';
- 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="/?i-still-want-access=1">open the site anyway</a>.|;
- end;
- end;
- end 'body';
- end 'html';
- return 0;
-}
-
-
sub bbSubstLinks {
my ($self, $msg) = @_;