Revision 753b82ff
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 42 | 42 |
use CGI; |
| 43 | 43 |
use CGI::Ajax; |
| 44 | 44 |
use Cwd; |
| 45 |
use Encode; |
|
| 45 | 46 |
use IO::File; |
| 46 | 47 |
use SL::Auth; |
| 47 | 48 |
use SL::Auth::DB; |
| ... | ... | |
| 379 | 380 |
|
| 380 | 381 |
my ($self, $str) = @_; |
| 381 | 382 |
|
| 383 |
$str = Encode::encode('utf-8-strict', $str) if $::locale->is_utf8;
|
|
| 382 | 384 |
$str =~ s/([^a-zA-Z0-9_.-])/sprintf("%%%02x", ord($1))/ge;
|
| 383 | 385 |
|
| 384 | 386 |
$main::lxdebug->leave_sub(2); |
Auch abrufbar als: Unified diff
Beim URL-Escapen vom internen Encoding nach UTF-8 wandeln, sofern benötigt