<%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>