I hereby claim:
- I am n7st on github.
- I am netsplit (https://keybase.io/netsplit) on keybase.
- I have a public key ASAg-OJ5O3BvsOJ7p9ng_9iw1zHR4VEnZm1_Yd4ruK_7mwo
To claim this, I am signing this object:
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
my @pre = qw( | |
Gloom | |
Gray | |
Dire | |
Black |
export DEBIAN_FRONTEND=noninteractive | |
# Update all system packages | |
apt-get update && apt-get -y upgrade | |
# Install X Windows and a basic window manager | |
apt-get install -q -y \ | |
debconf \ # Bundles dpkg-reconfigure | |
xorg openbox obmenu \ # Openbox and friends | |
xauth x11-apps x11-xserver-utils \ # Xorg and friends |
I hereby claim:
To claim this, I am signing this object:
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use WebService::Mattermost::V4::Client; | |
my $bot = WebService::Mattermost::V4::Client->new({ | |
username => 'MATTERMOST USERNAME HERE', | |
password => 'MATTERMOST PASSWORD HERE', |
#!/usr/bin/env perl | |
use Mojolicious::Lite; | |
use Mojo::IOLoop; | |
get '/' => sub { | |
my $c = shift; | |
my $seconds = $c->param('delay'); |
# Shadow | |
shadow = true; # Enabled client-side shadows on windows. | |
no-dock-shadow = false; # Avoid drawing shadows on dock/panel windows. | |
no-dnd-shadow = true; # Don't draw shadows on DND windows. | |
clear-shadow = true; # Zero the part of the shadow's mask behind the window (experimental). | |
shadow-radius = 12; # The blur radius for shadows. (default 12) | |
shadow-offset-x = -15; # The left offset for shadows. (default -15) | |
shadow-offset-y = -15; # The top offset for shadows. (default -15) | |
#shadow-red = 0.0; # Red color value of shadow. (0.0 - 1.0, defaults to 0) | |
#shadow-green = 0.0; # Green color value of shadow. (0.0 - 1.0, defaults to 0) |
class AddressMatcher | |
require 'yaml' | |
def initialize(addresses) | |
@addresses = addresses | |
@postcodes = {} | |
@matches = [] | |
end | |
def sanitize |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use AnyEvent; | |
use AnyEvent::Handle; | |
use AnyEvent::Impl::EV; | |
use AnyEvent::Socket qw/tcp_connect/; | |
use InfluxDB::LineProtocol qw/data2line/; |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use DateTime; | |
use Data::Printer; | |
my $start = DateTime->new(month => 02, year => 16); | |
my $end = DateTime->new(month => 10, year => 16); |