diff --git a/.gitignore b/.gitignore old mode 100644 new mode 100755 diff --git a/dojo.conf b/dojo.conf old mode 100644 new mode 100755 diff --git a/lib/Dojo.pm b/lib/Dojo.pm old mode 100644 new mode 100755 diff --git a/lib/Dojo/Conf.pm.example b/lib/Dojo/Conf.pm.example old mode 100644 new mode 100755 index 702f330..066c6d2 --- a/lib/Dojo/Conf.pm.example +++ b/lib/Dojo/Conf.pm.example @@ -3,42 +3,33 @@ use strict; use warnings; #Paths use constant { - MOD => "public", #location of modules - SERVER_NAME => "localhost:3000", - CHAT_SRV => "chat.vuelodegrulla.com", + MOD => "public", }; + # database access use constant { - VUELODB => "dbname", + VUELODB => "vuelo", VUELODB_H => "localhost", - VUELODB_UW => "writtername", - VUELODB_UWP => "writterpass", - VUELODB_UR => "readername", - VUELODB_URP => "readerpass", + VUELODB_UW => "root", + VUELODB_UWP => "passwd", + VUELODB_UR => "root", + VUELODB_URP => "passwd", + GRULLADB_H => "localhost", + GRULLADB => "grulla", + GRULLADB_UR => "root", + GRULLADB_URP=> "passwd", + GRULLADB_UW => "root", + GRULLADB_UWP=> "passwd", + MSGDB => "mensaje", + MSGDB_H => "localhost", + MSGDB_UW => "root", + MSGDB_UWP => "passwd", + MSGDB_UR => "root", + MSGDB_URP => "passwd", }; -our $radio ={ #hash to configure icecast radio - server_name => SERVER_NAME, - radio_server =>"https://myradio.com", - channel => "/test", - listen_url =>"http://radio:8000/test", -}; -our $chat={ #hash to configure chat (candy prodody) server - chat_addr => "https://".CHAT_SRV, - chat_srv => CHAT_SRV, - chat_channel => 'Users@radio.'.CHAT_SRV, -}; -our %rtmp={ #hash ro configure rtpm video server - rtmp_server =>"rtmp://myserver.com/steam", - rtmp_channel =>"channel", -}; - -our %def=( #some other global configuration - modules => MOD, - # layout => "default" -); 1; diff --git a/lib/Dojo/Controller/Data.pm b/lib/Dojo/Controller/Data.pm old mode 100644 new mode 100755 diff --git a/lib/Dojo/Controller/Example.pm b/lib/Dojo/Controller/Example.pm old mode 100644 new mode 100755 diff --git a/lib/Dojo/Controller/Home.pm b/lib/Dojo/Controller/Home.pm old mode 100644 new mode 100755 diff --git a/lib/Dojo/Controller/Users.pm b/lib/Dojo/Controller/Users.pm old mode 100644 new mode 100755 diff --git a/lib/Dojo/Model/Users.pm b/lib/Dojo/Model/Users.pm old mode 100644 new mode 100755 diff --git a/lib/Dojo/Model/Vuelo.pm b/lib/Dojo/Model/Vuelo.pm old mode 100644 new mode 100755 index ac32a19..2879756 --- a/lib/Dojo/Model/Vuelo.pm +++ b/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|\