moving

2019-03-03 20:22:21 -06:00
parent 2ce1749b9c
commit 1914552c20
26 changed files with 26 additions and 30 deletions
@@ -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 ==============================================================