Hi!
>
> You are going to want to url encode $redirecturl to do that safely.
Yes
> Something like:
>
> SWC::WebUtil::RedirectTemp("/login.html?redirect=" .
> uri_escape($ENV{REQUEST_URI}, '^-A-Za-z0-9./_'));
>
Embperl 1.3.4 and 2.0b8 has an undocumented (should be in the docs in the
next release) method to do escaping:
[-
$r = shift ;
# second parameter: 1 html escape, 2 url escape (same as $escmode)
$escaped = $r -> Escape ($ENV{REQUEST_URI}, 2) ;
-]
Gerald
-------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
Internetconnect * Webserver/-design/-datenbanken * Consulting
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: [EMAIL PROTECTED] Voice: +49 6133 925131
WWW: http://www.ecos.de Fax: +49 6133 925152
-------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
