moving

lib/Dojo/Model/Vuelo.pm

@@ -93,7 +93,10 @@ sub new { bless {}, shift };
  sub contact{
     my $c=shift;
     my $q="insert into entrada (nombre,correo,pagina,texto,fecha) values(?,?,?,?,now() )" ;
-    return  _writemsg($q,@_);
+    my @a=@_;
+    #simple method to ignore spam  
+    return  _writemsg($q,@a) unless $a[3]=~m/html|website|\<a/;   
+    return 0;
 }
 #==============================================================================
 # Write vdg admin ==============================================================