<%init> my $cgi = FS::UID::cgi(); my $curuser = $FS::CurrentUser::CurrentUser; if ( $curuser ) { my $canary = $cgi->param('edge_browser_canary'); $curuser->set_pref( 'edge_bug_vulnerable', $canary eq 'test' ? 'N' : 'Y', # Don't test this user's session for the next 5m time() + 300, ); }