> > >
> > >
> > > 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?
You could only use it when you output data by writing
[- $escmode = 2 -]
but it's not possible to apply it to perl data
> My be in TODO?
>
I can put it on the TODO list, but there are other perl modules (CGI, LWP)
which can do the job for you, so I don't give it a very high priority
Gerald
>
> --
>
> С наилучшими пожеланиями, Евгений Бырганов.
> Best regards, Eugene Byrganov
>
> mailto:[EMAIL PROTECTED].
> work - http://www.inp.nsk.su/
>