quiet warnings about CGI::param in list context
[freeside.git] / httemplate / misc / edge_browser_check-header.html
1 % if ( $force_redirect ) {
2   <script type="text/javascript">
3     if ( <% $DEBUG %> || /Edge\/17\.17134/.test( navigator.userAgent )) {
4       if ( window.location.href.indexOf("fail_notice") == -1 ) {
5         window.location.href = "<% $fsurl %>misc/edge_browser_check-fail_notice.html";
6       }
7     }
8   </script>
9 % } elsif ( $do_check ) {
10   <iframe id="edge_browser_check_iframe" style="display:none;"></iframe>
11   <script type="text/javascript">
12     if ( <% $DEBUG %> || /Edge\/17\.17134/.test( navigator.userAgent )) {
13       $("#edge_browser_check_iframe").attr(
14         'src',
15         '<% $fsurl %>misc/edge_browser_check-iframe.html?edge_browser_check=1'
16       );
17     }
18   </script>
19 % }
20 <%init>
21 my $curuser    = $FS::CurrentUser::CurrentUser;
22 my $session    = $FS::CurrentUser::CurrentSession;
23 my $sessionkey = $session->sessionkey if $session;
24
25 my $cgi = FS::UID::cgi();
26 my $DEBUG = 0;
27
28 my $do_check = 0;
29 $do_check = 1
30   if $curuser
31   && !$cgi->param('edge_browser_check')
32   && $sessionkey
33   && $curuser->get_pref('edge_bug_vulnerable') ne $sessionkey;
34
35 my $force_redirect = $curuser->get_pref('edge_bug_vulnerable') eq 'Y' ? 1 : 0;
36 </%init>