diff --git a/lib/Dojo/Model/Vuelo.pm b/lib/Dojo/Model/Vuelo.pm
index 2879756..50f62df 100755
--- 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;
 }
 #==============================================================================