<br><br>script/app_server<br><br>#!/usr/bin/env perl<br>use Mojo::Base -strict;<br><br>use File::Basename 'dirname';<br>use File::Spec;<br><br>use lib join '/', File::Spec->splitdir(dirname(__FILE__)), 'lib';<br>
use lib join '/', File::Spec->splitdir(dirname(__FILE__)), '..', 'lib';<br><br># Check if Mojolicious is installed;<br>die <<EOF unless eval 'use Mojolicious::Commands; 1';<br>It looks like you don't have the Mojolicious framework installed.<br>
Please visit <a href="http://mojolicio.us">http://mojolicio.us</a> for detailed installation instructions.<br><br>EOF<br><br># Application<br>$ENV{MOJO_APP} ||= 'AppServer';<br><br># Start commands<br>Mojolicious::Commands->start();<br>
<br><br>Como tem que ser esse script para chamar o morbo ou o hypnotoad ? ou vou ter que colocar o morbo/hypnotoad antes do script <br><br><br><br><div class="gmail_quote">Em 12 de setembro de 2012 14:46, Nelson Ferraz <span dir="ltr"><<a href="mailto:nferraz@gmail.com" target="_blank">nferraz@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Em 12 de setembro de 2012 17:50, Jose Nilton <<a href="mailto:jniltinho@gmail.com">jniltinho@gmail.com</a>> escreveu:<br>

<div class="im">> O mojo tem um HTTP server simples, é um Servidor de aplicação critica, não<br>
> quero adicionar mais pacotes como apache e outras coisas.<br>
><br>
> E a lista é pequena no máximo 15 IPs, se ficar muito grande coloco no Banco<br>
> de dados, até já tem um lista dessas no Banco.<br>
<br>
</div>Nilton,<br>
<br>
A forma como eu costumo rodar o aplicativo:<br>
<br>
Em dev:<br>
<br>
    morbo <a href="http://myapp.pl" target="_blank">myapp.pl</a><br>
<br>
Em prod:<br>
<br>
    hypnotoad <a href="http://myapp.pl" target="_blank">myapp.pl</a><br>
<br>
O morbo e o hypnotoad setam a variável MOJO_MODE para "development" ou<br>
"production" respectivamente.<br>
<br>
Você pode testar que tipo de ambiente você está rodando a qualquer momento com:<br>
<br>
    if (app->mode eq 'DEVELOPMENT') {<br>
        # ...<br>
    }<br>
<br>
Com relação ao endereço IP, acho que a maneira correta é através do<br>
$self->tx->remote_address mesmo. A grande questão é se essa variável<br>
pode ser forjada, como disse o Daniel.<br>
<br>
Se você quiser confirmar, entra no IRC #mojo no <a href="http://irc.perl.org" target="_blank">irc.perl.org</a> e pergunta!<br>
<div class="HOEnZb"><div class="h5">=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
</div></div></blockquote></div><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>