Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 0b7df656

Von Moritz Bunkus vor fast 14 Jahren hinzugefügt

  • ID 0b7df656e6257477c0ce936c4295c7be0565ab6d
  • Vorgänger fededc52
  • Nachfolger e0cfc10b

Doppelpunkte in URLs escapen

Unterschiede anzeigen:

SL/Form.pm
378 378 
  my ($self, $str) = @_;
379 379 

  		




  380
  380
  
    
  $str =  Encode::encode('utf-8-strict', $str) if $::locale->is_utf8;


  		




  381
  
  
    
  $str =~ s/([^a-zA-Z0-9_.-])/sprintf("%%%02x", ord($1))/ge;


  		




  
  381
  
    
  $str =~ s/([^a-zA-Z0-9_.:-])/sprintf("%%%02x", ord($1))/ge;


  		




  382
  382
  
    

  		




  383
  383
  
    
  $main::lxdebug->leave_sub(2);


  		




  384
  384
  
    

  		












Auch abrufbar als:  Unified diff