Gerald Richter wrote:
> >
> >
> > How make $http_headers_out{'Location'} ,so as
> >
> > <A HREF="edit.html?[+ [%fdat] +]"> redirect </A>
> >
>
> I would try
>
> $url = "http://$ENV{SERVER_NAME}/path/to/edit.html?" ;
> while (($k, $v) = each (%fdat))
> {
> $url .= "$k=$v&" ;
> }
>
> $http_headers_out{'location'} = $url ;
>
I am making too:
$url="edit.html\?";
foreach $i ( keys %fdat)
{
$_=$fdat{$i};
s/([^a-zA-Z0-9-._])/uc sprintf("%%%02x",ord($1))/eg;
$url.="$i=$_\&";
}
$url.="lock=$lock";
$http_headers_out{'Location'} = "$url";
But this don't good idea,
'<A HREF="edit.html?[+ [%fdat] +]"> redirect </A> ' - more elegant.
Another quistion: how use 'struct tCharTrans Char2Url' in perl code
for escaping any strings?
My be in TODO?
--
С наилучшими пожеланиями, Евгений Бырганов.
Best regards, Eugene Byrganov
mailto:[EMAIL PROTECTED].
work - http://www.inp.nsk.su/
