foreach $pair ( @cgiPairs ) { ($var,$val) = split("=",$pair); #trust me on this magic. $val =~ s/\+/ /g; $val =~ s/%(..)/pack("c",hex($1))/ge; $cgiVals{"$var"} = "$val"; } $recipient = $cgiVals{"to"};The magic included in the fourth line is to decode the special characters that aren't allowed to be in a URL. For now, please take it on trust.
The National Center for Supercomputing Applications
University of Illinois at Urbana-Champaign
johnsonb@ncsa.uiuc.edu
Last modified: June 19, 1997