Revision 0b7df656
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
my ($self, $str) = @_;
|
||
|
|
||
|
$str = Encode::encode('utf-8-strict', $str) if $::locale->is_utf8;
|
||
|
$str =~ s/([^a-zA-Z0-9_.-])/sprintf("%%%02x", ord($1))/ge;
|
||
|
$str =~ s/([^a-zA-Z0-9_.:-])/sprintf("%%%02x", ord($1))/ge;
|
||
|
|
||
|
$main::lxdebug->leave_sub(2);
|
||
|
|
||
Auch abrufbar als: Unified diff
Doppelpunkte in URLs escapen