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:
#!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 |
#!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"; |
pipeline { | |
agent any | |
stages { | |
stage('Tests') { | |
stages { | |
stage('Compilation') { | |
steps { | |
sh 'make test > test_results.xml || true' | |
junit 'test_results.xml' | |
} |
I hereby claim:
To claim this, I am signing this object:
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 - |
# dancer code | |
package ip_address_test; | |
use Dancer2; | |
our $VERSION = '0.1'; | |
get '/' => sub { | |
template 'index'; | |
}; |
package MyApp::Schema::Result::User; | |
... | |
# Called everytime a user logs in | |
sub auto_update { | |
my ( $self, $auth_args ) = @_; | |
$self->update( $auth_args ); |
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' |
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', |
#!perl | |
use warnings; | |
use strict; | |
use DDP; | |
use Web::Scraper; | |
use URI; | |
use Email::Sender; |