adamtaylor

#!perl
use strict;
use warnings;
use feature 'say';

# Very crude argument handling/safety check
say "Usage: $0 for_real # really perform actions";
my $for_real = $ARGV[0];

# Find the unmerged branches

adamtaylor

#!perl
use strict;
use warnings;
use feature 'say';

use DateTime;
use DateTime::Format::ISO8601;

# Very crude argument handling/safety check
say "Usage: $0 for_real # really perform actions";

adamtaylor

pipeline {
    agent any
    stages {
        stage('Tests') {
            stages {
                stage('Compilation') {
                    steps {
                        sh 'make test  > test_results.xml || true'
                        junit 'test_results.xml'
                    }

adamtaylor

Keybase proof

I hereby claim:

• I am adamtaylor on github.
• I am adamtaylor (https://keybase.io/adamtaylor) on keybase.
• I have a public key ASCuw0Xx39H58AP3eSaufBHXKcIPcQ_09I7B3vbW6c53-Ao

To claim this, I am signing this object:

adamtaylor

adam@worker6:~$ sudo netstat -anp | grep 4730
[sudo] password for adam: 
tcp        0      0 205.186.144.90:53712    205.186.144.57:4730     TIME_WAIT   -               
tcp        0      0 205.186.144.90:52206    205.186.144.57:4730     TIME_WAIT   -               
tcp        0      0 205.186.144.90:52130    205.186.144.57:4730     TIME_WAIT   -               
tcp        0      0 205.186.144.90:50858    64.207.149.92:4730      TIME_WAIT   -               
tcp        0      0 205.186.144.90:51666    64.207.149.92:4730      TIME_WAIT   -               
tcp        0      0 205.186.144.90:55050    64.207.149.92:4730      TIME_WAIT   -               
tcp        0      0 205.186.144.90:33538    205.186.144.57:4730     ESTABLISHED 16672/perl      
tcp        0      0 205.186.144.90:54780    64.207.149.92:4730      TIME_WAIT   -               

adamtaylor

# dancer code
package ip_address_test;
use Dancer2;

our $VERSION = '0.1';

get '/' => sub {
    template 'index';
};

adamtaylor

package MyApp::Schema::Result::User;

...

# Called everytime a user logs in
sub auto_update {
    my ( $self, $auth_args ) = @_;

    $self->update( $auth_args );

adamtaylor

package MyApp::Controller::Root;

sub facebook_signup :Path('facebook_signup') :Args(0) {
    my ($self, $c) = @_;

    # Authenticate the user using the facebook realm
    # Also ask for some extra permissions
    if ( my $user = $c->authenticate(
        { scope => ['email','user_location'] },
        'facebook'

adamtaylor

package MyApp;

    ...

    __PACKAGE__->config(
        # Catalyst::Plugin::Authentication configuration
        'Plugin::Authentication' => {
            # If $c->authenticate() is called in the app without a 
            # realm argument, Strava will be checked.
            default_realm => 'strava',

adamtaylor

#!perl

use warnings;
use strict;

use DDP;
use Web::Scraper;
use URI;
use Email::Sender;