<%init>
my $cgi = FS::UID::cgi();
my $curuser = $FS::CurrentUser::CurrentUser;
my $session = $FS::CurrentUser::CurrentSession;
my $sessionkey = $session->sessionkey if $session;
if ( $curuser ) {
  my $canary = $cgi->param('edge_browser_canary');
  $curuser->set_pref(
    'edge_bug_vulnerable',
    $canary eq 'test' ? $sessionkey : 'Y',
  );
}
%init>