check-cookie-string ( string -- string' ) (original) (raw)

check-cookie-string ( string -- string' )

Vocabulary
http

Inputs

string an object

Outputs

string' an object

Definition

USING: kernel sets ;

IN: http

: check-cookie-string ( string -- string' )
dup "=;'\"\r\n" intersects?
[ "Bad cookie name or value" throw ] when ;