<%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', ); }