c405/dojo
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

moving

Browse Source
This commit is contained in:
mynah
2019-03-03 20:22:21 -06:00
parent 2ce1749b9c
commit 1914552c20
26 changed files with 26 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
lib/Dojo/Model/Users.pm Normal file → Executable file
View File

5
lib/Dojo/Model/Vuelo.pm Normal file → Executable file
View File

@@ -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 ==============================================================