Option to ignore old CDRs, RT#81480
[freeside.git] / httemplate / misc / edge_browser_check-iframe.html
1 <form id="canary-form" action="<% $fsurl %>misc/edge_browser_check-iframe.html" method="POST">
2 <input type="text" id="canary-result" value="<% scalar $cgi->param('edge_browser_canary') %>">
3 <select name="edge_browser_canary">
4   <option>test
5   <option>test
6 </select>
7 <input id="canary-submit" type="submit">
8 </form>
9
10 <script type="text/javascript" src="<% $fsurl %>elements/jquery.js"></script>
11 <script type="text/javascript">
12   $( function() {
13     if ( ! $("#canary-result").val() ) {
14       $("#canary-form").submit();
15     }
16   });
17 </script>
18
19 <%init>
20 my $cgi = FS::UID::cgi();
21 my $curuser = $FS::CurrentUser::CurrentUser;
22 my $session = $FS::CurrentUser::CurrentSession;
23 my $sessionkey = $session->sessionkey if $session;
24
25 if ( $curuser ) {
26   my $canary = $cgi->param('edge_browser_canary');
27   $curuser->set_pref(
28     'edge_bug_vulnerable',
29
30     $canary eq 'test' ? $sessionkey : 'Y',
31   );
32 }
33
34 </%init>