perl a CGI::escapeHTML (diskuse)

[Käyttäjä 11133]

No mělo by se to snad opravit v tom CGI::encodeHTML ne? Tak se podívej do jeho zdrojáků a pošli vývojářům patch

[Karel Borkovec]

Přesně takovou odpověď jsem čekal Jak jsem psal, tak perl vůbec neumím a tvoření patche bych raději přenechal někomu jinému, pokud by se někdo takový našel

[Käyttäjä 11133]

Jak jsem psal, tak perl vůbec neumím

Z toho si nic nedělej, to asi nikdo Pošli odkaz kde se to dá najít...

[Karel Borkovec]

Přesně to dělá tahle podmínka z CGI.pm (řádek 2144), který je v debianu součástí balíku perl-modules.

if ($latin) {  # bug in some browsers
                $toencode =~ s{'}{'}gso;
                $toencode =~ s{\x8b}{‹}gso;
                $toencode =~ s{\x9b}{›}gso;
                if (defined $newlinestoo && $newlinestoo) {
                     $toencode =~ s{\012}{
}gso;
                     $toencode =~ s{\015}{
}gso;
                }
         }

Když jsem tu podmínku zakomentoval, tak to fungovalo správně. Musí to být ten 4. řádek, ale teď jde o to co mysleli tím "bug in some browsers"

[Karel Borkovec]

Kurník, znova:

Přesně to dělá tahle podmínka z CGI.pm (řádek 2144), který je v debianu součástí balíku perl-modules.

if ($latin) {  # bug in some browsers
                $toencode =~ s{'}{'}gso;
                $toencode =~ s{\x8b}{‹}gso;
                $toencode =~ s{\x9b}{›}gso;
                if (defined $newlinestoo && $newlinestoo) {
                     $toencode =~ s{\012}{
}gso;
                     $toencode =~ s{\015}{
}gso;
                }
         }

Když jsem tu podmínku zakomentoval, tak to fungovalo správně. Musí to být ten 4. řádek, ale teď jde o to co mysleli tím "bug in some browsers".

[a1bert]

problem neni v CGI ale ve vdradminu, ktery vola escapeHTML bez nastaveni charsetu, takze CGI si mysli, ze retezec je latin1 a proto probehne ten "# bug in some browsers" hack... staci nastavit spravne charset a vse funguje jak ma...