ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  11 Aug 2000  10:48:47
 To : gav@lesobank.ru
 Subject : Re: Помогите..
 -------------------------------------------------------------------------------- 
 

 >>> @pairs = split(/&/, $buffer);
 >>> foreach $pair (@pairs) {
 >>>   ($name, $value) = split(/=/, $pair);
 >>>   $value =~ tr/+/ /;
 >>>   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 >>>   $value =~ s/<!--(.|\n)*-->//g;
 >>Господи, а это-то там откуда возьмется?
 
 glr> Счастливый ты человек  :)
 glr> мне в своей гостевой во че пришлось сделать,
 glr> а то хакеры-художники задолбали со своим красным фоном:
 glr>     $val =~ s/\<script/\<fucking_script/gi;
 glr>     $val =~ s/\<iframe/\<fucking_iframe/gi;
 glr>     $val =~ s/\=\"javascript\:/\=\"fucking_javascript\:/gi;
 glr>     $val =~ s/\<style/\<fucking_stile/gi;
 glr>     $val =~ s/\<div/\<fucking_div/gi;
 glr>     $val =~ s/\<\!--/\<fucking_\!-- \>/gi;
 glr> и то думаю мало. Может у кого есть в этом направлении более
 glr> качественные наработки.
 
 Более правильный подход заключается в том, чтобы определить, какие именно теги
 надо оставлять, и вырезать все остальные. А то, скажем, <object> ты не
 вырезаешь, а зря...
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор