Skip to content

Instantly share code, notes, and snippets.

View kraih's full-sized avatar

Sebastian Riedel kraih

606 followers · 113 following
View GitHub Profile
@kraih
kraih / websocket_echo.pl
Last active September 5, 2015 09:24
use Mojolicious::Lite;
websocket '/echo' => sub {
my $self = shift;
$self->on(message => sub {
my ($self, $message) = @_;
$self->send("echo: $message");
});
};
@kraih
kraih / client_css3.pl
Created July 10, 2010 21:58
use Mojolicious::Lite;
get '/title' => sub {
my $self = shift;
my $url = $self->param('url');
$self->render(text =>
$self->client->get($url)->success->dom->at('title')->text);
};
app->start;
@kraih
kraih / proxy.pl
Last active September 5, 2015 09:34
use Mojolicious::Lite;
my $feed = 'http://blog.kraih.com/rss.xml';
get '/blog/atom/perl/atom.xml' => sub {
my $self = shift;
$self->ua->max_redirects(5)->get($feed => sub {
$self->render(text => shift->res->body, format => 'rss');
});
};
@kraih
kraih / perlrocks.pl
Created August 3, 2010 23:47
#!/usr/bin/env perl
use strict;
use warnings;
# Use bundled libraries
use FindBin;
use lib "$FindBin::Bin/../lib";
# Mamma Mia! The cruel meatball of war has rolled onto our laps and ruined
@kraih
kraih / hypnotoad_tls.conf
Last active September 24, 2015 15:17
{hypnotoad => {listen => ['https://*:443?cert=erver.crt&key=server.key&ca=ca.crt']}}
@kraih
kraih / tls_client.pl
Last active September 24, 2015 15:17
use Mojo::UserAgent;
my $ua = Mojo::UserAgent->new(cert => 'client.crt', key => 'client.key');
$ua->get('https://localhost/s3cret.html')->res->dom('#launch-codes > li')->each(sub {
print shift->text;
});
@kraih
kraih / gist:767559
Last active September 24, 2015 15:17
% ./myapp.pl daemon --listen https://*:443?cert=server.crt&key=server.key&ca=ca.crt
@kraih
kraih / gist:767572
Created January 6, 2011 05:45
@@ cookies.html.ep
% title 'We love cookies!';
% layout 'tasty';
Mmmmmmmm... chocolate chips!
@@ layouts/tasty.html.ep
<!doctype html><html>
<head><title><%= title %></title></head>
<body><%= content %></body>
</html>
@kraih
kraih / gist:806429
Created February 1, 2011 19:18
% mojo generate lite_app
[exist] /Users/sri
[write] /Users/sri/myapp.pl
[chmod] myapp.pl 744
% plackup myapp.pl
HTTP::Server::PSGI: Accepting connections at http://0:5000/
@kraih
kraih / myapp.pl
Created February 1, 2011 20:11
#!/usr/bin/env perl
use Mojolicious::Lite;
use Plack::Builder;
get '/welcome' => sub {
my $self = shift;
$self->render(text => 'Hello Mojo!');
};