scottw

docker-image-purge() {
    docker images -q -f dangling=true | xargs docker rmi
}

scottw

Keybase proof

I hereby claim:

• I am scottw on github.
• I am bif (https://keybase.io/bif) on keybase.
• I have a public key ASAL0Fh238SsllNmd1WTWoU62V1PaGYiFjuTFo28OdI6vQo

To claim this, I am signing this object:

scottw

## purpose:
##
## create a Terrform override file containing temporary role
## credentials generated from an account protected with MFA.
##
## usage:
##
##   $ make credentials aws_override.tf PROFILE=my-profile TOKEN_CODE=123456
##   $ terraform apply
##

scottw

package Meta;

sub docs {
    my $c = shift->openapi->valid_input or return;
    $c->render(openapi => $c->openapi->spec(''));
}

1;

__DATA__

scottw

package Meta;

sub docs {
    my $c = shift->openapi->valid_input or return;
    $c->respond_to(openapi => $c->openapi->spec(''), any => $c->openapi->spec(''));  ## FIXME
}

1;

__DATA__

scottw

--- local/lib/perl5/Mojolicious/Plugin/OpenAPI.pm~	2017-03-02 16:35:26.000000000 -0700
+++ local/lib/perl5/Mojolicious/Plugin/OpenAPI.pm	2017-03-13 17:45:31.000000000 -0600
@@ -71,6 +71,7 @@
   my $spec_route = $route->get->to(cb => \&_reply_spec);
   if (my $spec_route_name = $config->{spec_route_name} || $api_spec->get('/x-mojo-name')) {
     $spec_route->name($spec_route_name);
+    $spec_route->route($spec_route_name);
     $route_prefix = "$spec_route_name.";
   }

scottw

--- local/lib/perl5/Mojolicious/Plugin/OpenAPI.pm~	2017-03-02 16:35:26.000000000 -0700
+++ local/lib/perl5/Mojolicious/Plugin/OpenAPI.pm	2017-03-14 09:34:37.000000000 -0600
@@ -223,7 +223,7 @@

   local $spec->{id};
   delete $spec->{id};
-  local $spec->{basePath} = $c->url_for($spec->{basePath});
+#  local $spec->{basePath} = $c->url_for($spec->{basePath});
   local $spec->{host}     = $c->req->url->to_abs->host_port;

scottw

sub docs {
    my $c = shift->openapi->valid_input or return;

    $c->app->routes->lookup('docs')->to->{cb}->($c);
}

scottw

   $app->plugin(OpenAPI => {url => $app->home->rel_file('schema.yaml'),
                             spec_route_name => 'docs'});

scottw

#!/usr/bin/env perl
use Mojo::Base -strict;
use Minion;

my $minion = Minion->new(Pg => 'postgresql://postgres@/test');

for (1..10) {
    $minion->enqueue('my-task', [name => "Number $_"], {delay => $_});
    say STDERR "Injected $_";
}