Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Merge pull request #26 from nuba/6-diversao

Conversão da página "Diversão" close #6
  • Loading branch information...
commit e1f69c936df6e0e26a162abc2b7c95f051db6463 2 parents 4b78b9d + d9eeaf4
@nuba nuba authored
View
1  site/lib/Site.pm
@@ -25,6 +25,7 @@ sub startup {
Lista
Desenvolvimento
CPAN
+ Diversao
};
Site::Loader::load( $self, @core_modules );
}
View
19 site/lib/Site/Controller/Diversao.pm
@@ -0,0 +1,19 @@
+package Site::Controller::Diversao;
+
+use Mojo::Base 'Mojolicious::Controller';
+
+sub startup {
+ my ( $self, $c ) = @_;
+
+ my $r = $c->routes;
+
+ $r->route('/diversao')->to('diversao#index');
+
+}
+
+sub index {
+ my $self = shift;
+}
+
+
+return 42;
View
BIN  site/public/images/diversao/nothing.jpg
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
View
38 site/templates/diversao/index.html.ep
@@ -0,0 +1,38 @@
+% layout 'default';
+
+
+<h3>Diversão!</h3>
+<hr size="1">
+
+<p>
+Talvez uma das características mais marcantes da linguagem é que ela não é
+somente utilizada para programas "sérios". Se você quiser se divertir programando em Perl,
+entre e fique a vontade!
+</p>
+<div id="aviso" style="border:#FF6633 4px solid;background-color:#F4b399;padding:2px;">
+<b>Atenção iniciantes!</b> Essa sessão contém material para olhos calejados. Se você ainda não domina a linguagem, cuidado! Você pode se assustar/traumatizar com algumas coisas que verá por aqui...
+</div>
+<br><br>
+<div id="videos" style="border:#3399FF 2px solid;background-color:#99CCFF;">
+<h3>Vídeos de Perl!</h3>
+Veja <a href="videos.pl">aqui</a> alguns vídeos interessantes ou simplesmente engraçados sobre Perl e sua comunidade!<br><br>
+</div>
+<br>
+
+<div id="quadrinhos" style="border:#666666 2px solid;background-color:#FFFFFF;">
+<img src="/images/diversao/nothing.jpg" align="right">
+<h3>Perl em Quadrinhos!</h3>
+Veja algumas aparições do Perl em diferentes histórias em quadrinhos online:<br><br>
+<a href="http://www.bastichlabz.org/bastich/Strips/ba980225.gif" target="_blank">bastich - nada que Perl não possa fazer</a><br><br>
+<a href="http://www.qwantz.com/comics/guest6/guest_qwantz_aLp.jpg" target="_blank">quantz - dinossauros falantes</a><br><br>
+<a href="http://xkcd.com/224/" target="_blank">xkcd - a linguagem que construiu o universo</a><br><br>
+<a href="http://xkcd.com/208/" target="_blank">xkcd - salvando o dia mais uma vez</a><br><br>
+<a href="http://xkcd.com/519/" target="_blank">xkcd - tarefas da escola</a><br><br>
+<a href="http://0x2121.com/?strip=7" target="_blank">0x2121 - desculpe, não falo Perl (o pior é que é Perl válido mesmo)</a><br><br>
+<a href="http://ars.userfriendly.org/cartoons/?id=20010831" target="_blank">User Friendly - a mulher perfeita</a><br>
+</div>
+<br><br>
+<p>Breve por aqui: poesia, golfe, códigos obscuros e engraçados!</p>
+<p><b>Aguarde!</b></p>
+
+
View
2  site/templates/menu.html.ep
@@ -5,7 +5,7 @@
<li><a href="<%= url_for('/quem_usa') %>">Quem usa Perl?</a></li>
<li><a href="<%= url_for('/mitos') %>">Mitos & FUD</a></li>
<li><a href="<%= url_for('/iniciantes') %>">Iniciantes</a></li>
- <li><a href="diversao.pl">Diversão</a></li>
+ <li><a href="<%= url_for('/diversao') %>">Diversão</a></li>
<li><a href="<%= url_for('/desenvolvimento') %>">Desenvolvimento</a></li>
<li><a href="<%= url_for('/lista') %>">Lista de discussão</a></li>
<li><a href="enc_sociais.pl">Encontros Sociais</a></li>
Please sign in to comment.
Something went wrong with that request. Please try again.