<br>Boa tarde Srs,<br><br>Estava olhando a documentação do Mojo, verifiquei que é possível criar um simples Daemon para responder em um porta http e retorno um JSON.<br><br>Gostaria de saber se tem um forma de proteger essa aplicação para determinados IPs, exemplo os ips que podem acessar essa aplicação qw(192.168.0.150 10.0.0.1 200.175.200.1)<br>
<br>Acho que é mais ou menos isso, mas tem executar um deny:<br><br><pre class="sh_perl sh_sourceCode"> <span class="sh_keyword">use</span> Mojolicious<span class="sh_symbol">::</span>Lite<span class="sh_symbol">;</span>
<span class="sh_comment"># "whois" helper</span>
helper whois <span class="sh_symbol">=></span> <span class="sh_keyword">sub</span> <span class="sh_cbracket">{</span>
<span class="sh_keyword">my</span> <span class="sh_variable">$self</span> <span class="sh_symbol">=</span> <span class="sh_keyword">shift</span><span class="sh_symbol">;</span>
<span class="sh_keyword">my</span> <span class="sh_variable">$agent</span> <span class="sh_symbol">=</span> <span class="sh_variable">$self</span><span class="sh_symbol">-></span>re<span class="sh_keyword">q</span><span class="sh_string">->headers-</span><span class="sh_symbol">></span>user_agent <span class="sh_symbol">||</span> <span class="sh_string">'Anonymous'</span><span class="sh_symbol">;</span>
<span class="sh_keyword">my</span> <span class="sh_variable">$ip</span> <span class="sh_symbol">=</span> <span class="sh_variable">$self</span><span class="sh_symbol">-></span>tx<span class="sh_symbol">-></span>remote_address<span class="sh_symbol">;</span>
<span class="sh_keyword">return</span> <span class="sh_string">"$agent ($ip)"</span><span class="sh_symbol">;</span>
<span class="sh_cbracket">}</span><span class="sh_symbol">;</span>
<span class="sh_comment"># /secret</span>
get <span class="sh_string">'/secret'</span> <span class="sh_symbol">=></span> <span class="sh_keyword">sub</span> <span class="sh_cbracket">{</span>
<span class="sh_keyword">my</span> <span class="sh_variable">$self</span> <span class="sh_symbol">=</span> <span class="sh_keyword">shift</span><span class="sh_symbol">;</span>
<span class="sh_keyword">my</span> <span class="sh_variable">$user</span> <span class="sh_symbol">=</span> <span class="sh_variable">$self</span><span class="sh_symbol">-></span>whois<span class="sh_symbol">;</span>
<span class="sh_variable">$self</span><span class="sh_symbol">-></span>app<span class="sh_symbol">-></span><span class="sh_keyword">log</span><span class="sh_symbol">-></span><span class="sh_function">debug</span><span class="sh_symbol">(</span><span class="sh_string">"Request from $user."</span><span class="sh_symbol">);</span>
<span class="sh_cbracket">}</span><span class="sh_symbol">;</span>
app<span class="sh_symbol">-></span>start<span class="sh_symbol">;</span>
__DATA__
@@ secret<span class="sh_symbol">.</span>html<span class="sh_symbol">.</span>ep
We know who you are <span class="sh_string"><%= whois %></span><span class="sh_symbol">.</span></pre><br><br>Tenho que criar um Server que responde em JSON e um client, ou qualquer API que consuma objeto em JSON, mas com segurança.<br>
<br><br>## Alguns links que eu achei<br><a href="http://mojolicio.us/perldoc/Mojolicious/Guides/Cookbook">http://mojolicio.us/perldoc/Mojolicious/Guides/Cookbook</a><br><a href="http://search.cpan.org/~sri/Mojolicious-3.38/lib/Mojolicious/Lite.pm">http://search.cpan.org/~sri/Mojolicious-3.38/lib/Mojolicious/Lite.pm</a><br>
<a href="https://metacpan.org/module/Mojolicious::Controller#METHODS">https://metacpan.org/module/Mojolicious::Controller#METHODS</a><br><br clear="all"><br>-- <br>..............................................................................<br>
<b>Com Deus todas as coisas são possíveis</b> ::: <a href="http://www.linuxpro.com.br" target="_blank">LinuxPro</a><br><br><i><font size="1">"A qualidade nunca se obtém por acaso; ela é sempre o resultado do esforço inteligente." (John Ruskin)<br>
"A mente que se abre a uma nova ideia jamais volta ao seu tamanho original" (Albert Einstein)</font></i><br><br>