4 my $query = $cgi->query_string;
6 if ( length($query) > 1920 ) { #stupid IE 2083 URL limit
8 my $session = int(rand(4294967296)); #XXX
9 my $pref = new FS::access_user_pref({
10 'usernum' => $FS::CurrentUser::CurrentUser->usernum,
11 'prefname' => "redirect$session",
12 'prefvalue' => $query,
13 'expiration' => time + 3600, #1h? 1m?
15 my $pref_error = $pref->insert;
17 die "FATAL: couldn't even set redirect cookie: $pref_error".
18 " attempting to set redirect$session to $query\n";
21 $query = "redirect=$session";