filtro msg

2019-03-04 03:39:20 +01:00
parent b0b90fef9c
commit 0f8f944422
1 changed files with 1 additions and 1 deletions
--- a/lib/Dojo/Model/Vuelo.pm
+++ b/lib/Dojo/Model/Vuelo.pm
@@ -95,7 +95,7 @@ sub new { bless {}, shift };
    my $q="insert into entrada (nombre,correo,pagina,texto,fecha) values(?,?,?,?,now() )" ;
    my @a=@_;
    #simple method to ignore spam  
-    return  _writemsg($q,@a) unless $a[3]=~m/html|website|\<a/;   
+    return  _writemsg($q,@a) unless $a[3]=~m/http|website|\<a/;   
    return 0;
 }
 #==============================================================================